--- /srv/rebuilderd/tmp/rebuilderd80SsRc/inputs/gcl27_2.7.1-13_riscv64.deb +++ /srv/rebuilderd/tmp/rebuilderd80SsRc/out/gcl27_2.7.1-13_riscv64.deb ├── file list │ @@ -1,3 +1,3 @@ │ -rw-r--r-- 0 0 0 4 2026-03-04 12:04:09.000000 debian-binary │ -rw-r--r-- 0 0 0 6276 2026-03-04 12:04:09.000000 control.tar.xz │ --rw-r--r-- 0 0 0 142758884 2026-03-04 12:04:09.000000 data.tar.xz │ +-rw-r--r-- 0 0 0 142718060 2026-03-04 12:04:09.000000 data.tar.xz ├── control.tar.xz │ ├── control.tar │ │ ├── ./control │ │ │ @@ -1,12 +1,12 @@ │ │ │ Package: gcl27 │ │ │ Version: 2.7.1-13 │ │ │ Architecture: riscv64 │ │ │ Maintainer: Camm Maguire │ │ │ -Installed-Size: 1824375 │ │ │ +Installed-Size: 1824374 │ │ │ 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,16 +20,16 @@ │ │ │ -rw-r--r-- 0 root (0) root (0) 32543 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/lsp/gcl_export.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 3016 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/lsp/gcl_module.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 24767 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/lsp/gcl_top.lsp │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/pcl/ │ │ │ -rw-r--r-- 0 root (0) root (0) 692 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/pcl/package.lisp │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/ │ │ │ -rw-r--r-- 0 root (0) root (0) 11390 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/gcl.script │ │ │ --rw-r--r-- 0 root (0) root (0) 281795 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_ansi_gcl.lsp │ │ │ --rw-r--r-- 0 root (0) root (0) 251214 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_gcl.lsp │ │ │ +-rw-r--r-- 0 root (0) root (0) 281921 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_ansi_gcl.lsp │ │ │ +-rw-r--r-- 0 root (0) root (0) 250857 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_gcl.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 5043 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/init_raw.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 462899836 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/libansi_gcl.a │ │ │ -rw-r--r-- 0 root (0) root (0) 460366902 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/libansi_gcl_gprof.a │ │ │ -rw-r--r-- 0 root (0) root (0) 52120 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/libboot.so │ │ │ -rw-r--r-- 0 root (0) root (0) 311688176 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/libgcl.a │ │ │ -rw-r--r-- 0 root (0) root (0) 308342034 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/libgcl_gprof.a │ │ │ -rwxr-xr-x 0 root (0) root (0) 88078664 2026-03-04 12:04:09.000000 ./usr/lib/gcl-2.7.1/unixport/saved_ansi_gcl │ │ │ @@ -48,15 +48,15 @@ │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/ │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/doc/ │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/doc/gcl27/ │ │ │ -rw-r--r-- 0 root (0) root (0) 1222 2024-04-28 23:33:58.000000 ./usr/share/doc/gcl27/README.Debian │ │ │ -rw-r--r-- 0 root (0) root (0) 1870 2026-03-04 12:04:09.000000 ./usr/share/doc/gcl27/changelog.Debian.gz │ │ │ -rw-r--r-- 0 root (0) root (0) 13028 2024-01-28 23:10:50.000000 ./usr/share/doc/gcl27/changelog.gz │ │ │ -rw-r--r-- 0 root (0) root (0) 2498 2025-04-11 01:39:17.000000 ./usr/share/doc/gcl27/copyright │ │ │ --rw-r--r-- 0 root (0) root (0) 67000 2026-03-04 12:04:09.000000 ./usr/share/doc/gcl27/test_results.gz │ │ │ +-rw-r--r-- 0 root (0) root (0) 67003 2026-03-04 12:04:09.000000 ./usr/share/doc/gcl27/test_results.gz │ │ │ -rw-r--r-- 0 root (0) root (0) 2275 2026-03-04 12:04:09.000000 ./usr/share/doc/gcl27/timing_results │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/lintian/ │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/lintian/overrides/ │ │ │ -rw-r--r-- 0 root (0) root (0) 784 2026-03-04 12:04:09.000000 ./usr/share/lintian/overrides/gcl27 │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/man/ │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-03-04 12:04:09.000000 ./usr/share/man/man1/ │ │ │ -rw-r--r-- 0 root (0) root (0) 2658 2026-03-04 12:04:09.000000 ./usr/share/man/man1/gcl27.1.gz │ │ ├── ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_ansi_gcl.lsp │ │ │ @@ -1,55 +1,29 @@ │ │ │ (COMMON-LISP::IN-PACKAGE :COMPILER) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-RAW │ │ │ + 'CSTRUCT::C-ARRAY-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)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) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'PCL::ARG-INFO-METATYPES │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-DBIND │ │ │ - (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::^ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -62,583 +36,191 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::^ '(0 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(#0^#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SEVENTH │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-STORE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)10]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CONTEXT-HASH │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-C1 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)9]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-DIRECTORY │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ - (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-RATIO-DEN │ │ │ + 'COMMON-LISP::DENOMINATOR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-FN │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - 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))[(fixnum)2])[(fixnum)11]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STREAM-OBJECT1 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000001111100011000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-UNIVERSE-ANSI │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-UNIVERSE)) │ │ │ - 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-LABEL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-ARGD │ │ │ + 'CSTRUCT::C-PATHNAME-HOST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':LONG │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)4]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ABS │ │ │ + 'COMMON-LISP::LOGIOR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ + '((#*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 2) (4 . 4))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)) │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::ABS '(0) │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + 'COMMON-LISP::LOGIOR '(0 1) │ │ │ + '((#*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 2) (4 . 4))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)) │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::BABS '(0) │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "labs(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDADDR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ + 'SYSTEM::|\|| '(0 1) │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 32))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "(#0|#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-SRC │ │ │ + 'COMPILER::FUN-CALL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADDR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STRSTD-SSELF │ │ │ + 'CSTRUCT::C-SYMBOL-SFDEF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-ELTTYPE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(: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) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000001000010000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)"))) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-TYPE │ │ │ + 'CSTRUCT::C-SYMBOL-DBIND │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::INSTREAM-LINE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MPZ_SGN │ │ │ + 'CSTRUCT::C-ADJARRAY-DISPLACED │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000001111111111101111111111111111111110000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "mpz_sgn(&(#0->big.big_mpz_t))"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-UNWIND-EXIT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-ALIASES │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)11]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-MAXARG │ │ │ + 'CSTRUCT::C-STREAM-INT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "(((fixnum)((ushort*)((fixnum)#0))[(fixnum)1]>>(fixnum)6)&(fixnum)63)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-CALL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'PCL::GF-PRECOMPUTE-DFUN-AND-EMF-P │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) COMMON-LISP::NIL │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 281474976710655))) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)16)&281474976710655)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-INFO │ │ │ + 'COMPILER::INFO-REF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SVREF │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-INTERACTIVE-FUNCTION │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ - 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ARRAY-RANK │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-NAME │ │ │ + 'SYSTEM::SDATA-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDADR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS │ │ │ - (COMMON-LISP::LIST │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-UNIVERSE)) │ │ │ - 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-PLIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::IMAGPART │ │ │ + 'SYSTEM::TP3 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAADR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SET-HTENT-VALUE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(0 1) '1 '(:FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(0 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "(((object*)#0)[(fixnum)1]=#1)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::STRING │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - '(0) '0 'COMMON-LISP::NIL │ │ │ - (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-INCLUDED │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP3 '(0) '(COMMON-LISP::T))) │ │ │ + "tp3(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::ROW-MAJOR-AREF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000 │ │ │ @@ -908,732 +490,916 @@ │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-MINIMAX-OPERATIONS │ │ │ + 'COMMON-LISP::BYTE-POSITION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + (((SYSTEM::IMPROPER-CONS │ │ │ + ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ + (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CDR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "#0->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-RATIO-NUM │ │ │ + 'SYSTEM::CALL-SIG │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CAR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "#0->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SCHAR │ │ │ + 'COMMON-LISP::PATHNAME-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::NINTH │ │ │ + 'SYSTEM::XTP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-RANK │ │ │ - (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ + '(0) '0 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + 'COMMON-LISP::NIL │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ + '#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-TEST-FUNCTION │ │ │ + 'ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::HASH-TABLE-COUNT │ │ │ + 'COMMON-LISP::CADDAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ + 'ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-REF │ │ │ + 'COMMON-LISP::SEVENTH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-LOC │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SDATA-NAME │ │ │ + 'COMMON-LISP::IMAGPART │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]") │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'ANSI-LOOP::LOOP-UNIVERSE-ANSI │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-UNIVERSE)) │ │ │ + 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::METHOD-CALL-CALL-METHOD-ARGS │ │ │ + 'PCL::GF-INFO-SIMPLE-ACCESSOR-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP7 │ │ │ + 'CSTRUCT::C-RATIO-DEN │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP7 '(0) '(COMMON-LISP::T))) │ │ │ - "tp7(#0)"))) │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-MAX_ENT │ │ │ + 'COMMON-LISP::CHAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)7]>>(fixnum)4)&1152921504606846975)"))) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STRUCTURE-SELF │ │ │ + 'CSTRUCT::C-STRSTD-SSELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::HASH-TABLE-SIZE │ │ │ + 'SYSTEM::S-DATA-SLOT-DESCRIPTIONS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)4)&1152921504606846975)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CONTEXT-VEC │ │ │ + 'SYSTEM::RESTART-INTERACTIVE-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-LEVEL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::NANI │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object)#0)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::CACHE-SIZE │ │ │ + 'COMPILER::TAG-LABEL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::CACHE)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-DIRECTORY │ │ │ + 'COMMON-LISP::SYMBOL-PLIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ - (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-REF-CCB │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-DIM │ │ │ + 'COMMON-LISP::LENGTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000000000010000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FOURTH │ │ │ + 'COMMON-LISP::CAR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CAR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "#0->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CADDDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CLASS-OF │ │ │ + 'CSTRUCT::C-OCOMPLEX-IMAG │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-STREAM-OBJECT1 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000001111100011000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]))[(fixnum)1])[(fixnum)11]"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CONTEXT-FIRST │ │ │ + 'CSTRUCT::C-FUNCTION-PLIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':UINT │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((uint*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-CONC-NAME │ │ │ + 'COMPILER::BLK-EXIT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)17]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-ENV │ │ │ + 'SYSTEM::C-FCOMPLEX-== │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FCOMPLEX :FCOMPLEX) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)5]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP2 │ │ │ + 'SYSTEM::ISNORMAL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000011101110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:DOUBLE) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::TP2 '(0) │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ - "tp2(#0)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "__builtin_isnormal(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ADJVECTOR-FILLP │ │ │ + 'SYSTEM::MASK │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '((#*01011011000000000000000000000011000011100001110000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011011000000000000000000000010000011000001100000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::LONG-FLOAT ((0.0) 64.0)) │ │ │ + (COMMON-LISP::INTEGER (1 . 63)) (COMMON-LISP::RATIO ((0) 64)) │ │ │ + (COMMON-LISP::SHORT-FLOAT ((0.0S0) 64.0S0))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((~((fixnum)-1<<#0))<<(fixnum)0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STREAM-INT │ │ │ + 'SYSTEM::TP1 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 281474976710655))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::TP1 '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000))) │ │ │ + "tp1(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'ANSI-LOOP::LOOP-MINIMAX-TYPE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)16)&281474976710655)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::~ │ │ │ + 'SYSTEM::HTENT-KEY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::~ '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(~#0)"))) │ │ │ + 'CSTRUCT::*FIXNUM '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((fixnum*)#0)[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-INTERNAL_SIZE │ │ │ + 'SYSTEM::C-FLOAT-== │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FLOAT :FLOAT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':LONG │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)8]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-REF-CLB │ │ │ + 'COMMON-LISP::CDDADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-VAR │ │ │ + 'CSTRUCT::C-FUNCTION-ARGD │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':LONG │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE │ │ │ + 'PCL::INITIALIZE-INFO-CACHED-VALID-P │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + (((COMMON-LISP::STRUCTURE PCL::INITIALIZE-INFO)) │ │ │ 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME │ │ │ + 'PCL::%STD-INSTANCE-SLOTS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 'COMMON-LISP::NIL │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-OCOMPLEX-REAL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BINDING-FORM │ │ │ + 'CSTRUCT::FUNCTION-ENV │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BINDING)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(COMMON-LISP::T │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADAR │ │ │ + 'SYSTEM::MTP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-T-TT │ │ │ + 'COMPILER::BLK-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP5 │ │ │ + 'COMMON-LISP::PATHNAME-DEVICE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP5 '(0) '(COMMON-LISP::T))) │ │ │ - "tp5(#0)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::PV-TABLE-SLOT-NAME-LISTS │ │ │ + 'SYSTEM::CONTEXT-FIRST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::PV-TABLE)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':UINT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((uint*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-NAME │ │ │ + 'COMPILER::TAG-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM │ │ │ + 'COMMON-LISP::SIXTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-EXTERNAL_SIZE │ │ │ + 'COMMON-LISP::FOURTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::TP2 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':LONG │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)9]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::TP2 '(0) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ + "tp2(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MPZ_EVEN_P │ │ │ + 'CSTRUCT::C-FUNCTION-ENV │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "mpz_even_p(&(#0->big.big_mpz_t))"))) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-FIXNUM-== │ │ │ + 'COMMON-LISP::HASH-TABLE-COUNT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDR │ │ │ + 'CSTRUCT::C-PACKAGE-USELIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr") │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'PCL::GF-INFO-C-A-M-EMF-STD-P │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-DT │ │ │ + 'SYSTEM::|\|| │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::|\|| '(0 1) │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 32))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "(#0|#1)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::S-DATA-SLOT-POSITION │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::TP6 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP6 '(0) '(COMMON-LISP::T))) │ │ │ + "tp6(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::FIFTH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::LENGTH │ │ │ + 'CSTRUCT::C-ADJVECTOR-FILLP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000000000010000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::PATHNAME-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::END-SHFT │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-ELTSIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ + 'CSTRUCT::C-ARRAY-ELTSIZE '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111111100000000000000000000000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)5)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ROW-MAJOR-ASET │ │ │ + 'CSTRUCT::C-PACKAGE-EXTERNAL_SIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':LONG │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)9]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::TP7 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP7 '(0) '(COMMON-LISP::T))) │ │ │ + "tp7(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ASET │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110110110010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775808 . 9223372036854775806))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(COMMON-LISP::T │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 1 2 0) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -1641,15 +1407,15 @@ │ │ │ COMMON-LISP::T))) │ │ │ "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ (COMMON-LISP::CONS │ │ │ ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1660,15 +1426,15 @@ │ │ │ #*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ (COMMON-LISP::CONS │ │ │ ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1679,15 +1445,15 @@ │ │ │ #*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :CHAR) │ │ │ (COMMON-LISP::CONS │ │ │ ':CHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1698,15 +1464,15 @@ │ │ │ #*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ (COMMON-LISP::CONS │ │ │ ':USHORT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1717,15 +1483,15 @@ │ │ │ #*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ (COMMON-LISP::CONS │ │ │ ':USHORT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1736,15 +1502,15 @@ │ │ │ #*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :SHORT) │ │ │ (COMMON-LISP::CONS │ │ │ ':SHORT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1755,15 +1521,15 @@ │ │ │ #*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :FLOAT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FLOAT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1774,15 +1540,15 @@ │ │ │ #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ (COMMON-LISP::CONS │ │ │ ':UINT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1793,15 +1559,15 @@ │ │ │ #*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ (COMMON-LISP::CONS │ │ │ ':UINT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1812,15 +1578,15 @@ │ │ │ #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :INT) │ │ │ (COMMON-LISP::CONS │ │ │ ':INT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1831,15 +1597,15 @@ │ │ │ #*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :DOUBLE) │ │ │ (COMMON-LISP::CONS │ │ │ ':DOUBLE │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1850,15 +1616,15 @@ │ │ │ #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1869,915 +1635,706 @@ │ │ │ #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + COMMON-LISP::T)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ARRAY-DIMENSION │ │ │ + 'COMMON-LISP::SYMBOL-PACKAGE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000011111111111111110000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-VALUE-TO-GO │ │ │ + 'CSTRUCT::C-CHARACTER-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-REF │ │ │ + 'ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-VERSION │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::BABS │ │ │ + 'COMMON-LISP::ARRAY-TOTAL-SIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::BABS '(0) │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "labs(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-ELTSIZE │ │ │ - (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTSIZE '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)5)"))) │ │ │ + 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-KIND │ │ │ + 'COMMON-LISP::SYNONYM-STREAM-SYMBOL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::0-BYTE-ARRAY-SELF │ │ │ + 'COMMON-LISP::CDAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000001001010000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CODE-CHAR │ │ │ + 'COMMON-LISP::RESTART-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+(#0<<(fixnum)6)))"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-C1CB │ │ │ + 'COMMON-LISP::CDADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAR │ │ │ + 'COMMON-LISP::CDDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car") │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CAR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "#0->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADADR │ │ │ + 'ANSI-LOOP::LOOP-COLLECTOR-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-MATRIX-DIMS │ │ │ + 'SYSTEM::MPZ_SGN │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) "mpz_sgn(&(#0->big.big_mpz_t))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-OCOMPLEX-IMAG │ │ │ + 'CSTRUCT::C-PATHNAME-DEVICE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP6 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP6 '(0) '(COMMON-LISP::T))) │ │ │ - "tp6(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-GFDEF │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-SYMBOL-GFDEF '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100111))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::GF-INFO-SIMPLE-ACCESSOR-TYPE │ │ │ + 'COMPILER::TAG-REF-CLB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ARRAY-OFFSET │ │ │ + 'SYSTEM::SET-HTENT-VALUE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(0 1) '1 '(:FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(0 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "(((object*)#0)[(fixnum)1]=#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-MINIMAX-INFINITY-DATA │ │ │ + 'SYSTEM::INSTREAM-STREAM │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CTZL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::CTZL '(0) │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "__builtin_ctzl(#0)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-SELF │ │ │ + 'CSTRUCT::C-SYMBOL-HASH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::FUNCTION-ENV │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(COMMON-LISP::T │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[#1]"))) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)8]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-OCOMPLEX-REAL │ │ │ + 'COMPILER::INFO-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MPZ_ODD_P │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "mpz_odd_p(&(#0->big.big_mpz_t))"))) │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::>> │ │ │ + 'SYSTEM::ARRAY-DIMS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::>> '(0 1) │ │ │ + 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0>>#1)"))) │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-COLLECTOR-HISTORY │ │ │ + 'ANSI-LOOP::LOOP-COLLECTOR-DTYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-EXTERNAL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)7]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::METHOD-CALL-FUNCTION │ │ │ + 'COMPILER::VAR-ALIASES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)11]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-INTERNAL │ │ │ + 'SYSTEM::NANI │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)6]"))) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object)#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::<< │ │ │ + 'SYSTEM::TP5 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::<< '(0 1) │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 62))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL))))) │ │ │ - "(#0<<#1)"))) │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP5 '(0) '(COMMON-LISP::T))) │ │ │ + "tp5(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ADJARRAY-DISPLACED │ │ │ + 'PCL::METHOD-CALL-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000001111111111101111111111111111111110000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-NAME │ │ │ + 'COMMON-LISP::CHAR-CODE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000001100000000000000000000000000100000000000000000000000000000001000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((uchar*)((fixnum)#0))[(fixnum)24]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-DEVICE │ │ │ + 'SYSTEM::INSTREAM-LINE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDADR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-INCLUDES │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::IDENTITY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ 'COMMON-LISP::NIL (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYMBOL-PLIST │ │ │ + 'CSTRUCT::C-SYMBOL-MFLAG │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)63]>>(fixnum)7)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::BSQRT │ │ │ + 'SYSTEM::TP0 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000011110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:DOUBLE) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':DOUBLE │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::BSQRT '(0) │ │ │ - '(#*00000000000000000000000000000000000000000011110000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "sqrt(#0)"))) │ │ │ + 'SYSTEM::TP0 '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "tp0(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-EXIT │ │ │ + 'SYSTEM::MPZ_EVEN_P │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ + '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "mpz_even_p(&(#0->big.big_mpz_t))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-TYPE │ │ │ + 'COMMON-LISP::SCHAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-COLLECTOR-DTYPE │ │ │ + 'SYSTEM::0-BYTE-ARRAY-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000001001010000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-MT │ │ │ + 'COMPILER::BLK-VAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-CH │ │ │ + 'SYSTEM::SDATA-INCLUDED │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-STYPE │ │ │ + 'CSTRUCT::C-PACKAGE-INTERNAL_SIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':LONG │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)8]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::LOGNOT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '((#*01111100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (1 . 2) (-9223372036854775808 . -1) (4 . 4))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)59]>>(fixnum)6)"))) │ │ │ + '(#*11111111101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (-5 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::LOGNOT '(0) │ │ │ + '((#*01111100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (1 . 2) (-9223372036854775808 . -1) (4 . 4))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::~ '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(~#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-COLLECTOR-DATA │ │ │ + 'COMPILER::VAR-KIND │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-REF-CLB │ │ │ + 'PCL::ARG-INFO-PRECEDENCE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-MINIMAX-TYPE │ │ │ + 'PCL::FAST-METHOD-CALL-PV-CELL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADR │ │ │ + 'COMMON-LISP::BROADCAST-STREAM-STREAMS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '2 '(: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 '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FIRST │ │ │ + 'COMMON-LISP::NINTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::REALPART │ │ │ + 'COMMON-LISP::ARRAY-RANK │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::BYTE-POSITION │ │ │ + 'COMMON-LISP::THIRD │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::IMPROPER-CONS │ │ │ - ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ - (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CDR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "#0->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::LOGAND │ │ │ + 'SYSTEM::C* │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + '(COMMON-LISP::T │ │ │ + #*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '2 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::LOGAND '(0 1) │ │ │ - '((#*01011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 4294967296))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::& '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-SLOT-DESCRIPTIONS │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ + (COMMON-LISP::LIST) "(#0*#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-DOUBLE-== │ │ │ + 'CSTRUCT::C-PATHNAME-DIRECTORY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:DOUBLE :DOUBLE) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ + (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::FAST-METHOD-CALL-FUNCTION │ │ │ + 'SYSTEM::S-DATA-INCLUDES │ │ │ (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) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-NAME │ │ │ + 'COMPILER::VAR-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::END-SHFT │ │ │ + 'ANSI-LOOP::LOOP-COLLECTOR-HISTORY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 'COMMON-LISP::NIL │ │ │ - (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ + 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'ANSI-LOOP::LOOP-COLLECTOR-CLASS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -2785,646 +2342,432 @@ │ │ │ (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CALL-SIG │ │ │ + 'SYSTEM::<< │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CAR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "#0->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP0 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::TP0 '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "tp0(#0)"))) │ │ │ + 'SYSTEM::<< '(0 1) │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 62))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "(#0<<#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-HASH │ │ │ + 'ANSI-LOOP::LOOP-COLLECTOR-DATA │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)8]"))) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ + 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::HTENT-KEY │ │ │ + 'COMMON-LISP::STRING │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + '(0) '0 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + 'COMMON-LISP::NIL │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((fixnum*)#0)[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::XTP │ │ │ - (COMMON-LISP::LIST │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CLZL │ │ │ + 'COMMON-LISP::CADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::CLZL '(0) │ │ │ - '(#*01011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "__builtin_clzl(#0)"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(: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 '(COMMON-LISP::T)) '(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::CADDAR │ │ │ + 'CSTRUCT::C-HASHTABLE-MAX_ENT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)7]>>(fixnum)4)&1152921504606846975)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-NAME │ │ │ + 'COMPILER::VAR-REF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::& │ │ │ + 'COMMON-LISP::FILL-POINTER │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111111100000000000000001110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::& '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0)"))) │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP3 │ │ │ + 'SYSTEM::C-DCOMPLEX-== │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:DCOMPLEX :DCOMPLEX) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP3 '(0) '(COMMON-LISP::T))) │ │ │ - "tp3(#0)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-CONSTRUCTORS │ │ │ + 'COMPILER::TAG-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)13]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::GF-INFO-C-A-M-EMF-STD-P │ │ │ + 'COMPILER::INFO-FLAGS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) 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))[(fixnum)2])[(fixnum)9]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP1 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::TP1 '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000))) │ │ │ - "tp1(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADDDR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-REF-CCB │ │ │ + 'COMPILER::VAR-REGISTER │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UCHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)72]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::NUMERATOR │ │ │ + 'CSTRUCT::C-FUNCTION-MAXARG │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]") │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "(((fixnum)((ushort*)((fixnum)#0))[(fixnum)1]>>(fixnum)6)&(fixnum)63)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::RESTART-TEST-FUNCTION │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 'COMMON-LISP::NIL │ │ │ - (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SECOND │ │ │ + 'SYSTEM::INSTREAM-STREAM-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(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) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::|\|| │ │ │ + 'CSTRUCT::C-ARRAY-ELTTYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::|\|| '(0 1) │ │ │ - '((#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0|#1)"))) │ │ │ + 'CSTRUCT::C-ARRAY-ELTTYPE '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-PATHNAME-VERSION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ARRAY-DIMS │ │ │ + 'COMMON-LISP::SVREF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ + 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::BSQRTF │ │ │ + 'CSTRUCT::C-ARRAY-DIM │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:FLOAT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FLOAT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::BSQRTF '(0) │ │ │ - '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "sqrtf(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-NEVAL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ - '(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) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)31)"))) │ │ │ + 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::REST │ │ │ + 'COMMON-LISP::CDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'COMMON-LISP::CDR '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "#0->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-FUNCTION │ │ │ - (COMMON-LISP::LIST │ │ │ + "#0->c.c_cdr") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-USELIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::LOGIOR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 2) (4 . 4))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::LOGIOR '(0 1) │ │ │ - '((#*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 2) (4 . 4))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::|\|| '(0 1) │ │ │ - '((#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0|#1)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C* │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(COMMON-LISP::T │ │ │ - #*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '2 '(:FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "(#0*#1)"))) │ │ │ + 'COMMON-LISP::CDR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "#0->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-REF-CCB │ │ │ + 'SYSTEM::S-DATA-CONSTRUCTORS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)13]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-REGISTER │ │ │ + 'CSTRUCT::C-PATHNAME-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)72]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-DEVICE │ │ │ + 'COMMON-LISP::PATHNAME-VERSION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-ELTMODE │ │ │ + 'SYSTEM::S-DATA-CONC-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000000001110000000 │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-FIXNUM (1)) │ │ │ - (SYSTEM::NON-SIMPLE-ARRAY-T (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-INT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-SHORT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-BIT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-CHAR (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-UNSIGNED-SHORT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-UNSIGNED-INT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-FIXNUM (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-LONG-FLOAT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SHORT-FLOAT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SIGNED-CHAR (1)) │ │ │ - (SYSTEM::NON-SIMPLE-ARRAY-BIT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-UNSIGNED-CHAR (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SIGNED-SHORT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SIGNED-INT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-T (1))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTMODE '(0) │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ - (SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)7)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::HTENT-VALUE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)#0)[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)17]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-VV │ │ │ + 'SYSTEM::SDATA-INCLUDES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]>>(fixnum)5)&(fixnum)1)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'PCL::INITIALIZE-INFO-CACHED-RI-VALID-P │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::INITIALIZE-INFO)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-REF-CCB │ │ │ - (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ISNORMAL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000011101110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:DOUBLE) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "__builtin_isnormal(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-MFLAG │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)63]>>(fixnum)7)"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-CHARACTER-NAME │ │ │ + 'COMMON-LISP::EIGHTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMPILER::BLK-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -3432,677 +2775,228 @@ │ │ │ (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDR │ │ │ + 'CSTRUCT::C-STREAM-OBJECT0 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CDR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_cdr") │ │ │ - (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CDR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "#0->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-SLOT-POSITION │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::DENOMINATOR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::THIRD │ │ │ + 'SYSTEM::BABS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ADDRESS │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'PCL::ARG-INFO-PRECEDENCE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FILL-POINTER │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111111100000000000000001110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SIXTH │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::BABS '(0) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "labs(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::CDDDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDAR │ │ │ + 'SYSTEM::S-DATA-RAW │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MASK │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*01011011000000000000000000000011000011100001110000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011011000000000000000000000010000011000001100000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::LONG-FLOAT ((0.0) 64.0)) │ │ │ - (COMMON-LISP::INTEGER (1 . 63)) (COMMON-LISP::RATIO ((0) 64)) │ │ │ - (COMMON-LISP::SHORT-FLOAT ((0.0S0) 64.0S0))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((~((fixnum)-1<<#0))<<(fixnum)0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-NENT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MTP │ │ │ + 'COMMON-LISP::SECOND │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-OFFSET │ │ │ + 'COMMON-LISP::PATHNAME-HOST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000100000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CALL-CALLEES │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-REF-CLB │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP8 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST 'SYSTEM::TP8 '(0) '(COMMON-LISP::T))) │ │ │ "tp8(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-LOC │ │ │ + 'COMPILER::FUN-CFUN │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-TYPE │ │ │ + 'ANSI-LOOP::LOOP-MINIMAX-OPERATIONS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-FCOMPLEX-== │ │ │ + 'COMMON-LISP::CLASS-OF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FCOMPLEX :FCOMPLEX) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]))[(fixnum)1])[(fixnum)11]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SDATA-INCLUDED │ │ │ + 'COMPILER::INFO-REF-CLB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYMBOL-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-HOST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYMBOL-PACKAGE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ARRAY-TOTAL-SIZE │ │ │ + 'SYSTEM::BSQRT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)") │ │ │ - (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000011110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:DOUBLE) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':DOUBLE │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ + 'SYSTEM::BSQRT '(0) │ │ │ + '(#*00000000000000000000000000000000000000000011110000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "sqrt(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CHAR │ │ │ + 'PCL::CACHE-SIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE PCL::CACHE)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ASET │ │ │ + 'CSTRUCT::C-FUNCTION-DATA │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110110110010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ - (#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775808 . 9223372036854775806))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(COMMON-LISP::T │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 1 2 0) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ - COMMON-LISP::T))) │ │ │ - "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :CHAR) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':CHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*CHAR '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':USHORT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':USHORT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :SHORT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':SHORT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*SHORT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :FLOAT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FLOAT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FLOAT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UINT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UINT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :INT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':INT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*INT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :DOUBLE) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':DOUBLE │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*DOUBLE '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::REST │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)"))) │ │ │ + 'COMMON-LISP::CDR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "#0->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CHAR-CODE │ │ │ + 'PCL::%STD-INSTANCE-WRAPPER │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000001100000000000000000000000000100000000000000000000000000000001000111111)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((uchar*)((fixnum)#0))[(fixnum)24]"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::AREF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ @@ -4360,535 +3254,627 @@ │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-TEST │ │ │ + 'COMPILER::FUN-REF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)48]&(fixnum)3)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::%STD-INSTANCE-WRAPPER │ │ │ + 'CSTRUCT::C-SYMBOL-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-DCOMPLEX-== │ │ │ + 'CSTRUCT::C-ARRAY-ELTMODE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:DCOMPLEX :DCOMPLEX) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000000001110000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-FIXNUM (1)) │ │ │ + (SYSTEM::NON-SIMPLE-ARRAY-T (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-INT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-SHORT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-BIT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-CHAR (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-UNSIGNED-SHORT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-UNSIGNED-INT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-FIXNUM (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-LONG-FLOAT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SHORT-FLOAT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SIGNED-CHAR (1)) │ │ │ + (SYSTEM::NON-SIMPLE-ARRAY-BIT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-UNSIGNED-CHAR (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SIGNED-SHORT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SIGNED-INT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-T (1))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-ELTMODE '(0) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ + (SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)7)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-CFUN │ │ │ + 'SYSTEM::%STRUCTURE-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ + (COMMON-LISP::LIST) "(#0)->str.str_def->str.str_self[0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ASSERT-UPPERCASE │ │ │ + 'PCL::FAST-METHOD-CALL-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 'COMMON-LISP::NIL │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYNONYM-STREAM-SYMBOL │ │ │ + 'SYSTEM::MPZ_ODD_P │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "mpz_odd_p(&(#0->big.big_mpz_t))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::NAMESTRING │ │ │ + 'CSTRUCT::C-RATIO-NUM │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-FLAGS │ │ │ + 'CSTRUCT::C-SYMBOL-GFDEF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-SYMBOL-GFDEF '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100111))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'PCL::PV-TABLE-SLOT-NAME-LISTS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE PCL::PV-TABLE)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)73]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::EIGHTH │ │ │ + 'PCL::METHOD-CALL-CALL-METHOD-ARGS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '((#*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) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SDATA-INCLUDES │ │ │ + 'COMMON-LISP::NAMESTRING │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]") │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::C-DOUBLE-== │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:DOUBLE :DOUBLE) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL))))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::%STD-INSTANCE-SLOTS │ │ │ + 'COMPILER::FUN-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-VAR │ │ │ + 'COMMON-LISP::ABS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::ABS '(0) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::BABS '(0) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "labs(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::INSTREAM-STREAM │ │ │ + 'COMMON-LISP::SBIT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000001000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::BYTE-SIZE │ │ │ + 'COMMON-LISP::CODE-CHAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::IMPROPER-CONS │ │ │ - ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ - (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car"))) │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object)(((fixnum)code_char(0))+(#0<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-NAMESTRING │ │ │ + 'SYSTEM::ARRAY-OFFSET │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-REPORT-FUNCTION │ │ │ + 'ANSI-LOOP::LOOP-MINIMAX-TEMP-VARIABLE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-TYPE │ │ │ + 'COMMON-LISP::CDDAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::INSTREAM-STREAM-NAME │ │ │ + 'COMPILER::FUN-INFO │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SBIT │ │ │ + 'COMMON-LISP::SYMBOL-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000001000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SVSET │ │ │ + 'SYSTEM::& │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)) │ │ │ - '(0 0 1 2) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ + 'SYSTEM::& '(0 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ - COMMON-LISP::T))) │ │ │ - "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})"))) │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAAR │ │ │ + 'COMPILER::FUN-VV │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP4 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST 'SYSTEM::TP4 '(0) '(COMMON-LISP::T))) │ │ │ "tp4(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-CH-CCB │ │ │ + 'COMPILER::VAR-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-MINARG │ │ │ + 'COMPILER::VAR-DT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-HASHTABLE-SELF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)63)"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDDDR │ │ │ + 'COMPILER::FUN-SRC │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::LOGNOT │ │ │ + 'CSTRUCT::C-HASHTABLE-NENT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*01111100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (1 . 2) (-9223372036854775808 . -1) (4 . 4))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*11111111101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (-5 . 9223372036854775807))) │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::~ │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::LOGNOT '(0) │ │ │ - '((#*01111100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (1 . 2) (-9223372036854775808 . -1) (4 . 4))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ 'SYSTEM::~ '(0) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(~#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-SELF │ │ │ + 'COMPILER::BLK-REF-CLB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]") │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CONTEXT-VEC │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FIFTH │ │ │ + 'COMPILER::INFO-CH-CCB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-SYMBOL-STYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)59]>>(fixnum)6)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAADDR │ │ │ + 'SYSTEM::CALL-CALLEES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::%CCLOSURE-ENV │ │ │ + 'COMMON-LISP::CADDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[(fixnum)0]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::RESTART-NAME │ │ │ + 'COMPILER::INFO-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-REF │ │ │ + 'SYSTEM::RESTART-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-VV │ │ │ + 'COMMON-LISP::LOGAND │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::LOGAND '(0 1) │ │ │ + '((#*01011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 4294967296))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)) │ │ │ + #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::& '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-FLAGS │ │ │ + 'SYSTEM::>> │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::>> '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(#0>>#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-STRUCTURE-DEF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ @@ -4899,176 +3885,254 @@ │ │ │ '#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-STRUCTURE-DEF '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-FLOAT-== │ │ │ + 'COMMON-LISP::CAADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FLOAT :FLOAT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-TYPE │ │ │ + 'COMMON-LISP::ARRAY-DIMENSION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000011111111111111110000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ + '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STREAM-OBJECT0 │ │ │ + 'PCL::INITIALIZE-INFO-CACHED-RI-VALID-P │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE PCL::INITIALIZE-INFO)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-COLLECTOR-TEMPVARS │ │ │ + 'SYSTEM::RESTART-REPORT-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::%STRUCTURE-NAME │ │ │ + 'COMPILER::VAR-FLAGS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "(#0)->str.str_def->str.str_self[0]"))) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UCHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)73]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::BROADCAST-STREAM-STREAMS │ │ │ + 'CSTRUCT::C-PATHNAME-NAMESTRING │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-COLLECTOR-NAME │ │ │ + 'COMMON-LISP::BYTE-SIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-COLLECTOR)) │ │ │ + (((SYSTEM::IMPROPER-CONS │ │ │ + ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ + (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-SFDEF │ │ │ + 'CSTRUCT::C-FUNCTION-VV │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]>>(fixnum)5)&(fixnum)1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'PCL::INITIALIZE-INFO-CACHED-VALID-P │ │ │ + 'COMPILER::TAG-VAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::INITIALIZE-INFO)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-DATA │ │ │ + 'COMMON-LISP::CDADDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE │ │ │ + 'CSTRUCT::C-T-TT │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(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) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CONTEXT-HASH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-HASFILLP │ │ │ + 'COMPILER::INFO-CH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)1)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-HOST │ │ │ + 'COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::HTENT-VALUE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((object*)#0)[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'ANSI-LOOP::LOOP-MINIMAX-FLAG-VARIABLE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::ROW-MAJOR-AREF-INT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000 │ │ │ @@ -5353,37 +4417,975 @@ │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-REF-CCB │ │ │ + 'COMMON-LISP::PATHNAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-MATRIX-DIMS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::BLK-VALUE-TO-GO │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-STRUCTURE-SELF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-FN │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + 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))[(fixnum)2])[(fixnum)11]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::S-DATA-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CAAR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ROW-MAJOR-ASET │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(COMMON-LISP::T │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 1 2 0) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ + COMMON-LISP::T))) │ │ │ + "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UCHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UCHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :CHAR) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':CHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*CHAR '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':USHORT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':USHORT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :SHORT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':SHORT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*SHORT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :FLOAT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FLOAT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FLOAT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UINT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UINT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :INT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':INT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*INT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :DOUBLE) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':DOUBLE │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*DOUBLE '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'PCL::ARG-INFO-METATYPES │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::C-FIXNUM-== │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':BOOLEAN │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CAADDR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::NUMERATOR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-OFFSET │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000100000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ +(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) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::FIRST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-FUNCTION-MINARG │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)63)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CLZL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::CLZL '(0) │ │ │ + '(#*01011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "__builtin_clzl(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::S-DATA-INCLUDED │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'ANSI-LOOP::LOOP-MINIMAX-ANSWER-VARIABLE │ │ │ + 'COMMON-LISP::PATHNAME-DIRECTORY │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ + (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'PCL::GF-PRECOMPUTE-DFUN-AND-EMF-P │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-MINIMAX)) │ │ │ + (((COMMON-LISP::STRUCTURE PCL::ARG-INFO)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::HASH-TABLE-SIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)4)&1152921504606846975)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::BSQRTF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:FLOAT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FLOAT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::BSQRTF '(0) │ │ │ + '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "sqrtf(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-FUNCTION-NEVAL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(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) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)31)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-C1CB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)10]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ASSERT-UPPERCASE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-STORE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)10]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PACKAGE-INTERNAL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-RANK │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PACKAGE-EXTERNAL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CADADR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::REALPART │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'ANSI-LOOP::LOOP-UNIVERSE-PATH-KEYWORDS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE ANSI-LOOP::LOOP-UNIVERSE)) │ │ │ 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CTZL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::CTZL '(0) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "__builtin_ctzl(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-LEVEL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ADDRESS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum)#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::SVSET │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)) │ │ │ + '(0 0 1 2) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ + COMMON-LISP::T))) │ │ │ + "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::BLK-TYPE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-MT │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PATHNAME-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-HASHTABLE-TEST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)48]&(fixnum)3)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-REF-CCB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::BINDING-FORM │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BINDING)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CADAR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-C1 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)9]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CDDDDR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::TAG-UNWIND-EXIT │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-HASFILLP │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)1)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'PCL::%CCLOSURE-ENV │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[(fixnum)0]"))) │ │ ├── ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_gcl.lsp │ │ │ @@ -1,18 +1,33 @@ │ │ │ (COMMON-LISP::IN-PACKAGE :COMPILER) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDDR │ │ │ + 'COMMON-LISP::FIRST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::TP0 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP0 '(0) '(COMMON-LISP::T))) │ │ │ + "tp0(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMPILER::FUN-FN │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ @@ -21,39 +36,742 @@ │ │ │ (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ 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))[(fixnum)2])[(fixnum)11]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-NAME │ │ │ + 'COMPILER::FUN-CFUN │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::TAG-REF-CCB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::PATHNAME-TYPE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::BLK-REF-CLB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM │ │ │ + 'COMPILER::TAG-REF-CLB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-RATIO-NUM │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ROW-MAJOR-AREF-INT │ │ │ + 'CSTRUCT::C-ARRAY-DIM │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::BROADCAST-STREAM-STREAMS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::INFO-REF-CCB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-STORE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)10]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::FILL-POINTER │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111111100000000000000001110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CONTEXT-VEC │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::S-DATA-CONSTRUCTORS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)13]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::INSTREAM-LINE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-CALL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::SET-HTENT-VALUE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(0 1) '0 '(:FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(0 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "(((object*)#0)[(fixnum)1]=#1)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CADDAR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::STRING │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + '(0) '0 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::>> │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::>> '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(#0>>#1)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-STREAM-OBJECT0 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-ELTMODE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000000001110000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-FIXNUM (1)) │ │ │ + (SYSTEM::NON-SIMPLE-ARRAY-T (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-INT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-SHORT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-BIT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-CHAR (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-UNSIGNED-SHORT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-UNSIGNED-INT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-FIXNUM (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-LONG-FLOAT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SHORT-FLOAT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SIGNED-CHAR (1)) │ │ │ + (SYSTEM::NON-SIMPLE-ARRAY-BIT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-UNSIGNED-CHAR (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SIGNED-SHORT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-SIGNED-INT (1)) │ │ │ + (SYSTEM::SIMPLE-ARRAY-T (1))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-ELTMODE '(0) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ + (SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)7)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PATHNAME-VERSION │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::MPZ_SGN │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "mpz_sgn(&(#0->big.big_mpz_t))"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::BLK-EXIT │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::MPZ_ODD_P │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "mpz_odd_p(&(#0->big.big_mpz_t))"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::NINTH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::SIXTH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::REALPART │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-KIND │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::HASH-TABLE-SIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)4)&1152921504606846975)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-OFFSET │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000100000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::FOURTH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::S-DATA-INCLUDED │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-HASFILLP │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)1)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::SECOND │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(: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::CDDR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PACKAGE-INTERNAL_SIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':LONG │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)8]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::INFO-FLAGS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::NAMESTRING │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-C1CB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)10]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ARRAY-DIMS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-ELTSIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-ELTSIZE '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111111100000000000000000000000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)5)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::S-DATA-SLOT-DESCRIPTIONS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)7]") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CALL-SIG │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CAR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "#0->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PACKAGE-INTERNAL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::INFO-REF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::SDATA-INCLUDED │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::ROW-MAJOR-AREF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ @@ -319,448 +1037,956 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]") │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PACKAGE-EXTERNAL_SIZE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':LONG │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)9]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CDDDDR │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP3 │ │ │ + 'SYSTEM::<< │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP3 '(0) '(COMMON-LISP::T))) │ │ │ - "tp3(#0)"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::<< '(0 1) │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 62))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "(#0<<#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-HOST │ │ │ + 'CSTRUCT::C-STRSTD-SSELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-PATHNAME-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-OFFSET │ │ │ + 'SYSTEM::0-BYTE-ARRAY-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000100000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000001001010000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ + "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-TYPE │ │ │ + 'SYSTEM::MASK │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '((#*01011011000000000000000000000011000011100001110000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011011000000000000000000000010000011000001100000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::LONG-FLOAT ((0.0) 64.0)) │ │ │ + (COMMON-LISP::INTEGER (1 . 63)) (COMMON-LISP::RATIO ((0) 64)) │ │ │ + (COMMON-LISP::SHORT-FLOAT ((0.0S0) 64.0S0))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((~((fixnum)-1<<#0))<<(fixnum)0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::INFO-CH-CCB │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-INTERNAL │ │ │ + 'SYSTEM::C-FCOMPLEX-== │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FCOMPLEX :FCOMPLEX) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':BOOLEAN │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::HTENT-KEY │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)6]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((fixnum*)#0)[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-DT │ │ │ + 'COMMON-LISP::ARRAY-RANK │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-FLAGS │ │ │ + 'SYSTEM::ASET │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110110110010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(COMMON-LISP::T │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 1 2 0) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ + COMMON-LISP::T))) │ │ │ + "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UCHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UCHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :CHAR) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':CHAR │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*CHAR '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':USHORT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':USHORT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :SHORT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':SHORT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*SHORT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :FLOAT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FLOAT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FLOAT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UINT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':UINT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :INT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':INT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*INT '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :DOUBLE) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':DOUBLE │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*DOUBLE '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ + (#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775808 . 9223372036854775806))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-REF-CLB │ │ │ + 'COMPILER::VAR-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::XTP │ │ │ + 'CSTRUCT::C-HASHTABLE-TEST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car") │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)48]&(fixnum)3)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-ARRAY-RANK │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 'COMMON-LISP::NIL │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-ALIASES │ │ │ + 'SYSTEM::RESTART-INTERACTIVE-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + 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))[(fixnum)2])[(fixnum)11]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::RESTART-TEST-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CHAR-CODE │ │ │ + 'CSTRUCT::C-ADJVECTOR-FILLP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000001100000000000000000000000000100000000000000000000000000000001000111111)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((uchar*)((fixnum)#0))[(fixnum)24]"))) │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-VAR │ │ │ + 'COMPILER::FUN-INFO │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP1 │ │ │ + 'COMMON-LISP::PATHNAME-DEVICE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::SDATA-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::C-FLOAT-== │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FLOAT :FLOAT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':BOOLEAN │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ADDRESS │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::TP1 '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000))) │ │ │ - "tp1(#0)"))) │ │ │ + (COMMON-LISP::LIST) "((fixnum)#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FOURTH │ │ │ + 'CSTRUCT::C-SYMBOL-STYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)59]>>(fixnum)6)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::C-DOUBLE-== │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:DOUBLE :DOUBLE) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':BOOLEAN │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP4 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST 'SYSTEM::TP4 '(0) '(COMMON-LISP::T))) │ │ │ "tp4(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-RATIO-DEN │ │ │ + 'CSTRUCT::C-SYMBOL-HASH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)8]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-MAX_ENT │ │ │ + 'COMMON-LISP::CDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CDR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "#0->c.c_cdr") │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CDR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "#0->c.c_cdr"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CDADR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)7]>>(fixnum)4)&1152921504606846975)"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-CALL │ │ │ + 'COMMON-LISP::CADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(: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 '(COMMON-LISP::T)) '(0) '1 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MPZ_SGN │ │ │ + 'CSTRUCT::C-SYMBOL-DBIND │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "mpz_sgn(&(#0->big.big_mpz_t))"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MPZ_EVEN_P │ │ │ + 'SYSTEM::C-DCOMPLEX-== │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:DCOMPLEX :DCOMPLEX) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "mpz_even_p(&(#0->big.big_mpz_t))"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::VAR-TYPE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::SYNONYM-STREAM-SYMBOL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SVSET │ │ │ + 'SYSTEM::HTENT-VALUE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)) │ │ │ - '(0 0 1 2) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ + 'CSTRUCT::*OBJECT '(0) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ - COMMON-LISP::T))) │ │ │ - "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})"))) │ │ │ + #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ + "((object*)#0)[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::& │ │ │ + 'SYSTEM::ARRAY-OFFSET │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::& '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0)"))) │ │ │ + '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::NUMERATOR │ │ │ + 'CSTRUCT::C-PATHNAME-DIRECTORY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]") │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ + (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::LOGAND │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 'COMMON-LISP::NIL │ │ │ + '((#*01011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 4294967296))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)) │ │ │ + #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 8589934591))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::LOGAND '(0 1) │ │ │ + '((#*01011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 4294967296))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)) │ │ │ + #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::& '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDR │ │ │ + 'SYSTEM::S-DATA-SLOT-POSITION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)8]") │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CDR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_cdr") │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::PATHNAME-VERSION │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::TAG-NAME │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CDR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "#0->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CONTEXT-FIRST │ │ │ + 'COMPILER::TAG-UNWIND-EXIT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-SYMBOL-SFDEF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':UINT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((uint*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ISNORMAL │ │ │ + 'CSTRUCT::C-HASHTABLE-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000011101110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:DOUBLE) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "__builtin_isnormal(#0)"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMPILER::BLK-VAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -768,295 +1994,375 @@ │ │ │ (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MTP │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-ELTSIZE │ │ │ + 'SYSTEM::BABS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTSIZE '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)5)"))) │ │ │ + 'SYSTEM::BABS '(0) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "labs(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-NAME │ │ │ + 'COMPILER::FUN-VV │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYMBOL-PLIST │ │ │ + 'CSTRUCT::C-PATHNAME-DEVICE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-DOUBLE-== │ │ │ + 'SYSTEM::TP8 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP8 '(0) '(COMMON-LISP::T))) │ │ │ + "tp8(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-STRUCTURE-DEF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:DOUBLE :DOUBLE) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-STRUCTURE-DEF '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::INSTREAM-LINE │ │ │ + 'CSTRUCT::C-HASHTABLE-MAX_ENT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)7]>>(fixnum)4)&1152921504606846975)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-TYPE │ │ │ + 'COMMON-LISP::CAADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADDR │ │ │ + 'SYSTEM::XTP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ASSERT-UPPERCASE │ │ │ - (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ '(0) '0 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ 'COMMON-LISP::NIL │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '#*11111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-REF-CLB │ │ │ + 'CSTRUCT::C-HASHTABLE-NENT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-SELF │ │ │ + 'CSTRUCT::C-STREAM-INT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]") │ │ │ + '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 281474976710655))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)16)&281474976710655)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-OCOMPLEX-IMAG │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::BYTE-SIZE │ │ │ + 'COMMON-LISP::CADADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-C1 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::IMPROPER-CONS │ │ │ - ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ - (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-NAMESTRING │ │ │ + 'CSTRUCT::C-PACKAGE-USELIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDADR │ │ │ + 'SYSTEM::TP1 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::TP1 '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000))) │ │ │ + "tp1(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::CTZL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::CTZL '(0) │ │ │ + '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER │ │ │ + (-9223372036854775807 . 9223372036854775807))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ + "__builtin_ctzl(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-VERSION │ │ │ + 'COMMON-LISP::ARRAY-TOTAL-SIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)") │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ + '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ + "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-REPORT-FUNCTION │ │ │ + 'COMMON-LISP::THIRD │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::REALPART │ │ │ + 'CSTRUCT::C-ARRAY-ELTTYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + 'CSTRUCT::C-ARRAY-ELTTYPE '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000))) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-FLAGS │ │ │ + 'COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::BLK-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)73]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-INFO │ │ │ + 'COMMON-LISP::CDDAR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::RESTART-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMPILER::VAR-MT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -1064,401 +2370,519 @@ │ │ │ (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::EIGHTH │ │ │ + 'SYSTEM::S-DATA-INCLUDES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-MATRIX-DIMS │ │ │ + 'COMPILER::TAG-LABEL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::NINTH │ │ │ + 'COMPILER::VAR-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::INSTREAM-STREAM │ │ │ + 'COMPILER::VAR-LOC │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-SFDEF │ │ │ + 'CSTRUCT::C-PATHNAME-HOST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-NAME │ │ │ + 'COMPILER::INFO-REF-CLB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::NANI │ │ │ + 'COMMON-LISP::NUMERATOR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object)#0)"))) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]") │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CALL-CALLEES │ │ │ + 'CSTRUCT::C-SYMBOL-GFDEF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(: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::LIST │ │ │ + 'CSTRUCT::C-SYMBOL-GFDEF '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100111))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-SELF │ │ │ + 'SYSTEM::TP6 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP6 '(0) '(COMMON-LISP::T))) │ │ │ + "tp6(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-CH-CCB │ │ │ + 'COMMON-LISP::PATHNAME-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-HASFILLP │ │ │ + 'CSTRUCT::C-PATHNAME-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)1)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CHAR │ │ │ + 'CSTRUCT::C-ADJARRAY-DISPLACED │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000001111111111101111111111111111111110000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDADR │ │ │ + 'SYSTEM::NANI │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:FIXNUM) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) "((object)#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-DEVICE │ │ │ + 'SYSTEM::CONTEXT-FIRST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':UINT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((uint*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STRUCTURE-SELF │ │ │ + 'COMMON-LISP::LOGNOT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::LOGNOT '(0) │ │ │ + '(#*00100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::~ '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(~#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-FCOMPLEX-== │ │ │ + 'COMMON-LISP::IDENTITY │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::CONS │ │ │ + 'COMMON-LISP::NIL (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-CHARACTER-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FCOMPLEX :FCOMPLEX) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-ENV │ │ │ + 'CSTRUCT::C-STREAM-OBJECT1 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000001111100011000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-PACKAGE-EXTERNAL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)5]"))) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-INCLUDED │ │ │ + 'SYSTEM::MTP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SIXTH │ │ │ + 'SYSTEM::TP5 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP5 '(0) '(COMMON-LISP::T))) │ │ │ + "tp5(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CADAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SVREF │ │ │ + 'CSTRUCT::C-ARRAY-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]") │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-REF-CCB │ │ │ + 'COMPILER::VAR-REF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-EXTERNAL │ │ │ + 'COMMON-LISP::ARRAY-DIMENSION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000011111111111111110000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)7]"))) │ │ │ + '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*FIXNUM '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADADR │ │ │ + 'COMPILER::BLK-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP7 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST 'SYSTEM::TP7 '(0) '(COMMON-LISP::T))) │ │ │ "tp7(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-REF │ │ │ + 'COMMON-LISP::CDDADR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-SRC │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)2]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-DCOMPLEX-== │ │ │ + 'COMMON-LISP::CADDDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:DCOMPLEX :DCOMPLEX) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-FLOAT-== │ │ │ + 'SYSTEM::CLZL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FLOAT :FLOAT) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ + '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::CLZL '(0) │ │ │ + '(#*01011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "__builtin_clzl(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::BSQRTF │ │ │ + 'CSTRUCT::C-SYMBOL-MFLAG │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:FLOAT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FLOAT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::BSQRTF '(0) │ │ │ - '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "sqrtf(#0)"))) │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((fixnum)((uchar*)((fixnum)#0))[(fixnum)63]>>(fixnum)7)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CONTEXT-HASH │ │ │ + 'COMMON-LISP::CDDDR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::RESTART-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::INSTREAM-STREAM │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-FUNCTION-ENV │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDDDR │ │ │ + 'COMMON-LISP::FIFTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::ABS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -1484,120 +2908,150 @@ │ │ │ '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::INTEGER │ │ │ (-9223372036854775807 . 9223372036854775807))) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ "labs(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-ELTMODE │ │ │ + 'COMPILER::TAG-VAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000000001110000000 │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-FIXNUM (1)) │ │ │ - (SYSTEM::NON-SIMPLE-ARRAY-T (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-INT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-SHORT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-BIT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-CHAR (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-UNSIGNED-SHORT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-UNSIGNED-INT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-NON-NEGATIVE-FIXNUM (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-LONG-FLOAT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SHORT-FLOAT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SIGNED-CHAR (1)) │ │ │ - (SYSTEM::NON-SIMPLE-ARRAY-BIT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-UNSIGNED-CHAR (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SIGNED-SHORT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-SIGNED-INT (1)) │ │ │ - (SYSTEM::SIMPLE-ARRAY-T (1))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::TP2 │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTMODE '(0) │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::SIMPLE-ARRAY-CHARACTER (1)) │ │ │ - (SYSTEM::NON-SIMPLE-ARRAY-CHARACTER (1))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)7)"))) │ │ │ + 'SYSTEM::TP2 '(0) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ + "tp2(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADAR │ │ │ + 'SYSTEM::RESTART-REPORT-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_car"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::BROADCAST-STREAM-STREAMS │ │ │ + 'CSTRUCT::C-PATHNAME-NAMESTRING │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::RESTART-NAME │ │ │ + 'COMMON-LISP::BYTE-SIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + (((SYSTEM::IMPROPER-CONS │ │ │ + ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ + (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::IDENTITY │ │ │ + 'CSTRUCT::C-SYMBOL-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - 'COMMON-LISP::NIL │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ASET │ │ │ + 'SYSTEM::~ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110110110010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))") │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::~ '(0) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(~#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::|\|| │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::|\|| '(0 1) │ │ │ + '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (1 . 32))) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "(#0|#1)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ROW-MAJOR-ASET │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(COMMON-LISP::T │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 1 2 0) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -1605,15 +3059,15 @@ │ │ │ COMMON-LISP::T))) │ │ │ "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ (COMMON-LISP::CONS │ │ │ ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1624,15 +3078,15 @@ │ │ │ #*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ (COMMON-LISP::CONS │ │ │ ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1643,15 +3097,15 @@ │ │ │ #*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :CHAR) │ │ │ (COMMON-LISP::CONS │ │ │ ':CHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1662,15 +3116,15 @@ │ │ │ #*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ (COMMON-LISP::CONS │ │ │ ':USHORT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1681,15 +3135,15 @@ │ │ │ #*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ (COMMON-LISP::CONS │ │ │ ':USHORT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1700,15 +3154,15 @@ │ │ │ #*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :SHORT) │ │ │ (COMMON-LISP::CONS │ │ │ ':SHORT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1719,15 +3173,15 @@ │ │ │ #*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :FLOAT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FLOAT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1738,15 +3192,15 @@ │ │ │ #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ (COMMON-LISP::CONS │ │ │ ':UINT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1757,15 +3211,15 @@ │ │ │ #*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ (COMMON-LISP::CONS │ │ │ ':UINT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1776,15 +3230,15 @@ │ │ │ #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :INT) │ │ │ (COMMON-LISP::CONS │ │ │ ':INT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1795,15 +3249,15 @@ │ │ │ #*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :DOUBLE) │ │ │ (COMMON-LISP::CONS │ │ │ ':DOUBLE │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1814,15 +3268,15 @@ │ │ │ #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1833,15 +3287,15 @@ │ │ │ #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ @@ -1852,498 +3306,69 @@ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ - (#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775808 . 9223372036854775806))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-TYPE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-GFDEF │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-SYMBOL-GFDEF '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100111))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::<< │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::<< '(0 1) │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (#*01011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 62))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL))))) │ │ │ - "(#0<<#1)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::HASH-TABLE-SIZE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)4)&1152921504606846975)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-NENT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 1152921504606846975))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-SRC │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)8]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAADR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ARRAY-DIMENSION │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000011111111111111110000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ADDRESS │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CAR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "#0->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-LEVEL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-RATIO-NUM │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-OCOMPLEX-REAL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-DBIND │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::~ │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::~ '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(~#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STREAM-OBJECT1 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000001111100011000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SDATA-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-UNWIND-EXIT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-EXTERNAL_SIZE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':LONG │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)9]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::END-SHFT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 'COMMON-LISP::NIL │ │ │ - (COMMON-LISP::CONS │ │ │ - 'COMMON-LISP::NIL │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-SLOT-POSITION │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)8]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-VERSION │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYMBOL-PACKAGE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::PATHNAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ 'COMMON-LISP::NIL │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-EXIT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-TYPE │ │ │ + 'SYSTEM::CONTEXT-HASH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-C1CB │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000010000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MPZ_ODD_P │ │ │ + 'SYSTEM::BSQRTF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:FLOAT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':FLOAT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "mpz_odd_p(&(#0->big.big_mpz_t))"))) │ │ │ + '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::BSQRTF '(0) │ │ │ + '(#*00000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "sqrtf(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::LENGTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000000000010000000000000000000000000000)) │ │ │ @@ -2354,65 +3379,51 @@ │ │ │ '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CAAR │ │ │ + 'CSTRUCT::C-MATRIX-DIMS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_car"))) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-REF-CLB │ │ │ + 'SYSTEM::INSTREAM-STREAM-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::BABS │ │ │ + 'COMMON-LISP::SYMBOL-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::BABS '(0) │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "labs(#0)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::AREF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ @@ -2670,67 +3681,96 @@ │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::MASK │ │ │ + 'SYSTEM::ASSERT-UPPERCASE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*01011011000000000000000000000011000011100001110000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011011000000000000000000000010000011000001100000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::LONG-FLOAT ((0.0) 64.0)) │ │ │ - (COMMON-LISP::INTEGER (1 . 63)) (COMMON-LISP::RATIO ((0) 64)) │ │ │ - (COMMON-LISP::SHORT-FLOAT ((0.0S0) 64.0S0))) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ + '(0) '0 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + 'COMMON-LISP::NIL │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((~((fixnum)-1<<#0))<<(fixnum)0)"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::KEYWORD :NEWEST :WILD :UNSPECIFIC) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-VALUE-TO-GO │ │ │ + 'COMMON-LISP::CAADDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::EIGHTH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::|\|| │ │ │ + 'COMMON-LISP::SYMBOL-PACKAGE │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)6]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-RATIO-DEN │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::|\|| '(0 1) │ │ │ - '((#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0|#1)"))) │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::INFO-CH │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::BSQRT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000011110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ @@ -2741,344 +3781,351 @@ │ │ │ '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::BSQRT '(0) │ │ │ '(#*00000000000000000000000000000000000000000011110000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "sqrt(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-MFLAG │ │ │ + 'SYSTEM::& │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::& '(0 1) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "(#0)"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMPILER::FUN-LEVEL │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)63]>>(fixnum)7)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::HTENT-KEY │ │ │ + 'SYSTEM::C* │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ + '(COMMON-LISP::T │ │ │ + #*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '2 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((fixnum*)#0)[(fixnum)0]"))) │ │ │ + (COMMON-LISP::LIST) "(#0*#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-CFUN │ │ │ + 'COMPILER::INFO-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::INFO)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::DENOMINATOR │ │ │ + 'COMMON-LISP::CHAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-INTERACTIVE-FUNCTION │ │ │ + 'SYSTEM::SDATA-INCLUDES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::BYTE-POSITION │ │ │ - (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL))))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((SYSTEM::IMPROPER-CONS │ │ │ - ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ - (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ + (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CDR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "#0->c.c_cdr"))) │ │ │ + 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ + '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-HOST │ │ │ + 'COMPILER::BLK-TYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STRSTD-SSELF │ │ │ + 'SYSTEM::TP3 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'SYSTEM::TP3 '(0) '(COMMON-LISP::T))) │ │ │ + "tp3(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::INSTREAM-STREAM-NAME │ │ │ + 'SYSTEM::SVSET │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::INSTREAM)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T)) │ │ │ + '(0 0 1 2) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ + '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ + COMMON-LISP::T))) │ │ │ + "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::IMAGPART │ │ │ + 'COMMON-LISP::CADDR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::RESTART-FUNCTION │ │ │ + 'COMMON-LISP::SEVENTH │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMMON-LISP::RESTART)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ + "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C* │ │ │ + 'COMMON-LISP::CHAR-CODE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(COMMON-LISP::T │ │ │ - #*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '2 '(:FIXNUM :FIXNUM) │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000001100000000000000000000000000100000000000000000000000000000001000111111)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "(#0*#1)"))) │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((uchar*)((fixnum)#0))[(fixnum)24]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-DIRECTORY │ │ │ + 'COMMON-LISP::SYMBOL-PLIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000110000 │ │ │ - #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ - (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDR │ │ │ + 'COMPILER::FUN-REF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr") │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CDADDR │ │ │ + (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr"))) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ARRAY-RANK │ │ │ + 'COMMON-LISP::CODE-CHAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object)(((fixnum)code_char(0))+(#0<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ARRAY-TOTAL-SIZE │ │ │ + 'COMPILER::VAR-DT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)") │ │ │ - (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FIFTH │ │ │ + 'COMPILER::VAR-ALIASES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)11]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-HASHTABLE-TEST │ │ │ + 'COMPILER::VAR-FLAGS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000111100000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)48]&(fixnum)3)"))) │ │ │ + "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)73]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-HASH │ │ │ + 'COMMON-LISP::CDAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)8]"))) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-OCOMPLEX-IMAG │ │ │ + 'SYSTEM::C-FIXNUM-== │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "#0==#1"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-CHARACTER-NAME │ │ │ + 'COMPILER::FUN-REF-CCB │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ + (COMMON-LISP::LIST) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'CSTRUCT::C-STRUCTURE-SELF │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMPILER::VAR-REGISTER │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -3089,32 +4136,55 @@ │ │ │ (COMMON-LISP::CONS │ │ │ ':UCHAR │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ "((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)72]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CLZL │ │ │ + 'COMMON-LISP::IMAGPART │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ + ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::CLZL '(0) │ │ │ - '(#*01011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "__builtin_clzl(#0)"))) │ │ │ + 'CSTRUCT::C-OCOMPLEX-IMAG '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::ROW-MAJOR-AREF │ │ │ + 'SYSTEM::MPZ_EVEN_P │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':FIXNUM │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "mpz_even_p(&(#0->big.big_mpz_t))"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'COMMON-LISP::CAAR │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::MAPCAR │ │ │ + 'SYSTEM::UNIQ-TP │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + (COMMON-LISP::LIST) "#0->c.c_car->c.c_car"))) │ │ │ +(COMPILER::MERGE-INLS │ │ │ + 'SYSTEM::ROW-MAJOR-AREF-INT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ @@ -3380,260 +4450,52 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-REF-CCB │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-DIM │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-USELIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-SYMBOL-STYPE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)59]>>(fixnum)6)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP5 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP5 '(0) '(COMMON-LISP::T))) │ │ │ - "tp5(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SCHAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-RANK │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CALL-SIG │ │ │ - (COMMON-LISP::LIST │ │ │ + "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '0 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CAR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "#0->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-KIND │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-SLOT-DESCRIPTIONS │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)7]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::>> │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::>> '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0>>#1)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ARRAY-DIMS │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::ARRAY-DIMS '(0 1) │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1) │ │ │ + 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-TYPE │ │ │ + 'COMMON-LISP::BYTE-POSITION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + '((#*00000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (((SYSTEM::IMPROPER-CONS │ │ │ + ((((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL) │ │ │ + (((COMMON-LISP::INTEGER (0 . COMMON-LISP::*))) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL 63) │ │ │ + COMMON-LISP::NIL COMMON-LISP::NIL))) │ │ │ + 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))[(fixnum)2])[(fixnum)6]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CODE-CHAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+(#0<<(fixnum)6)))"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CTZL │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'SYSTEM::CTZL '(0) │ │ │ - '((#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER │ │ │ - (-9223372036854775807 . 9223372036854775807))) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL))))) │ │ │ - "__builtin_ctzl(#0)"))) │ │ │ + 'COMMON-LISP::CDR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "#0->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::^ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ @@ -3646,800 +4508,74 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::^ '(0 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "(#0^#1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP0 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP0 '(0) '(COMMON-LISP::T))) │ │ │ - "tp0(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STREAM-OBJECT0 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-RAW │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-CONSTRUCTORS │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)13]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ROW-MAJOR-ASET │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(COMMON-LISP::T │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 1 2 0) '1 '(:OBJECT :OBJECT :FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(2 2 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ - COMMON-LISP::T))) │ │ │ - "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UCHAR) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UCHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UCHAR '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :CHAR) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':CHAR │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*CHAR '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':USHORT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :USHORT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':USHORT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*USHORT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :SHORT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':SHORT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*SHORT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :FLOAT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FLOAT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FLOAT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*00000000000000000000000000000000111111100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UINT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :UINT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':UINT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*UINT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :INT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':INT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*INT '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :DOUBLE) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':DOUBLE │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*DOUBLE '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*00000000000000000000000000000000000000011111110100000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*FIXNUM '(COMMON-LISP::NIL 1 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(1 2 0) '0 '(:OBJECT :FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ADJARRAY-DISPLACED │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000001111111111101111111111111111111110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SBIT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000001000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP2 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::TP2 '(0) │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ - "tp2(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::NAMESTRING │ │ │ + 'COMMON-LISP::PATHNAME-HOST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)7]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-VV │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)7]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SECOND │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(: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::CAADDR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::CONTEXT-VEC │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::CONTEXT)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000010000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STREAM-INT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000001111111111110000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 281474976710655))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)16)&281474976710655)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-CH │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-CONC-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)17]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BINDING-FORM │ │ │ + 'COMPILER::BLK-VALUE-TO-GO │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BINDING)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BLK)) 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))[(fixnum)2])[(fixnum)0]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::S-DATA-INCLUDES │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::THIRD │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SET-HTENT-VALUE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - COMMON-LISP::T)) │ │ │ - '(0 1) '0 '(:FIXNUM :OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(0 3) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000 │ │ │ - #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "(((object*)#0)[(fixnum)1]=#1)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-FUNCTION-PLIST │ │ │ + 'COMMON-LISP::DENOMINATOR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ARRAY-ELTTYPE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000)) │ │ │ - '(0) '2 '(: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) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000001000010000000))) │ │ │ - "((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP6 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP6 '(0) '(COMMON-LISP::T))) │ │ │ - "tp6(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::0-BYTE-ARRAY-SELF │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111111111111100000000000001001010000000 │ │ │ - #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ │ + '#*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::LOGAND │ │ │ + 'SYSTEM::END-SHFT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*01011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 4294967296))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '1 '(:FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 8589934591))) COMMON-LISP::NIL │ │ │ + '((#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (-1 . 63))) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::LOGAND '(0 1) │ │ │ - '((#*01011011101101110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01011011101101110110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (1 . 4294967296))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)) │ │ │ - #*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::& '(0 1) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::LOGNOT │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110110110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::LOGNOT '(0) │ │ │ - '(#*00100100010010001001001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::~ '(0) │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "(~#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::PATHNAME-DEVICE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000110000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::TP8 │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP8 '(0) '(COMMON-LISP::T))) │ │ │ - "tp8(#0)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::STRING │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ '(0) '0 'COMMON-LISP::NIL │ │ │ (COMMON-LISP::CONS │ │ │ 'COMMON-LISP::NIL │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) ""))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SYMBOL-NAME │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000001000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDADDR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CDDAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADDAR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_car->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-REF │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) 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))[(fixnum)2])[(fixnum)1]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::BLK-REF-CCB │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::BLK)) COMMON-LISP::NIL │ │ │ + '(#*11111011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + (((COMMON-LISP::INTEGER (-1 . 63))) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ + (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PATHNAME-DIRECTORY │ │ │ + 'COMMON-LISP::PATHNAME-DIRECTORY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ @@ -4449,318 +4585,174 @@ │ │ │ #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ (((COMMON-LISP::KEYWORD :UNSPECIFIC) │ │ │ (SYSTEM::PROPER-CONS COMMON-LISP::T) │ │ │ (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FILL-POINTER │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111111100000000000000001110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADR │ │ │ + 'SYSTEM::CALL-CALLEES │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(: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 '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-REF-CCB │ │ │ + 'SYSTEM::S-DATA-RAW │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::C-FIXNUM-== │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0 1) '0 '(:FIXNUM :FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':BOOLEAN │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ - (COMMON-LISP::LIST) "#0==#1"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::ARRAY-OFFSET │ │ │ - (COMMON-LISP::LIST │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]") │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ + (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-LOC │ │ │ + 'COMPILER::BINDING-FORM │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE COMPILER::BINDING)) 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))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::TAG-LABEL │ │ │ + 'COMMON-LISP::SCHAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::TAG)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + 'SYSTEM::UNIQ-TP '(COMMON-LISP::T COMMON-LISP::T)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + "((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::FIRST │ │ │ + 'CSTRUCT::C-FUNCTION-PLIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ - "#0->c.c_car"))) │ │ │ + (COMMON-LISP::CONS │ │ │ + ':OBJECT │ │ │ + (SYSTEM::UNIQ-TP │ │ │ + '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + (COMMON-LISP::LIST) "((object*)((fixnum)#0))[(fixnum)3]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-REF-CCB │ │ │ + 'SYSTEM::S-DATA-CONC-NAME │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ + (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) 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))[(fixnum)2])[(fixnum)3]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SDATA-INCLUDED │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)17]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-PACKAGE-INTERNAL_SIZE │ │ │ + 'COMMON-LISP::CAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':LONG │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((long*)((fixnum)#0))[(fixnum)8]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::SEVENTH │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::FUN-C1 │ │ │ - (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST 'COMMON-LISP::CAR '(0) '(COMMON-LISP::T))) │ │ │ + "#0->c.c_car") │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::FUN)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ + '(0) '2 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9]"))) │ │ │ + (COMMON-LISP::LIST │ │ │ + (COMMON-LISP::LIST │ │ │ + 'COMMON-LISP::CAR '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + "#0->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::HTENT-VALUE │ │ │ + 'COMMON-LISP::SVREF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0 1) '1 '(:OBJECT :FIXNUM) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::*OBJECT '(0) │ │ │ + 'CSTRUCT::*OBJECT '(COMMON-LISP::NIL 1) │ │ │ '(#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ + #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000))) │ │ │ - "((object*)#0)[(fixnum)1]"))) │ │ │ + "((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-STRUCTURE-DEF │ │ │ + 'CSTRUCT::C-OCOMPLEX-REAL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '#*11111111111111111111111111111111111111111111111100000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-STRUCTURE-DEF '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ + 'CSTRUCT::C-OCOMPLEX-REAL '(0) │ │ │ + '(#*00000000000000000000000000000000000000000000000000001111000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "((object*)((fixnum)#0))[(fixnum)1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'COMPILER::INFO-REF │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::INFO)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'SYSTEM::SDATA-INCLUDES │ │ │ + 'SYSTEM::ISNORMAL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL))))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000011101110000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ + '(0) '0 '(:DOUBLE) │ │ │ (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ + ':BOOLEAN │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000 │ │ │ - (((COMMON-LISP::STRUCTURE SYSTEM::S-DATA) │ │ │ - (COMMON-LISP::NULL COMMON-LISP::T)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::SDATA-INCLUDES '(0) │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111))) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]"))) │ │ │ + '#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000)) │ │ │ + (COMMON-LISP::LIST) "__builtin_isnormal(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ - 'CSTRUCT::C-ADJVECTOR-FILLP │ │ │ + 'COMMON-LISP::SBIT │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000001000000000000000000000000 │ │ │ + COMMON-LISP::T)) │ │ │ + '(0 1 1) '1 '(:OBJECT :FIXNUM :FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) │ │ │ - "((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMMON-LISP::CADDDR │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car"))) │ │ │ -(COMPILER::MERGE-INLS │ │ │ - 'COMPILER::VAR-STORE │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE COMPILER::VAR)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ + '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ - "((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10]"))) │ │ │ + "((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)"))) │ │ ├── ./usr/lib/gcl-2.7.1/unixport/saved_ansi_gcl │ │ │┄ File has been modified after NT_GNU_BUILD_ID has been applied. │ │ │ ├── strings --all --bytes=8 {} │ │ │ │ @@ -5823,17 +5823,14 @@ │ │ │ │ memprotect_handler │ │ │ │ mark_contblock │ │ │ │ mark_link_array │ │ │ │ sgc_start │ │ │ │ fSptable │ │ │ │ /build/reproducible-path/gcl27-2.7.1/unixport/raw_ansi_gcl │ │ │ │ /build/reproducible-path/gcl27-2.7.1/gcl_pool │ │ │ │ -VruTir]Em │ │ │ │ -&@Ik*#Jx │ │ │ │ -:m]rETn- │ │ │ │ Redefining DESCRIBE-OBJECT │ │ │ │ ON-USING-CLASS │ │ │ │ UNCTION) │ │ │ │ (defun make-package (name &key nicknames use) │ │ │ │ (si::make-package-int name nicknames use)) │ │ │ │ (make-package :cstruct :use '(:cl)) │ │ │ │ (make-package :compiler :use '(:cl :si :cstruct)) │ │ │ │ @@ -5933,113 +5930,45 @@ │ │ │ │ HARusr/info/" "/usr/local/lib/info/" │ │ │ │ "/usr/local/info/" "/usr/local/gnu/info/" "/usr/share/info/")BIT :C99 :GNU-LD :XGCL :UNEXEC │ │ │ │ :NATIVE-RELOC :EDITLINE :TRUNCATE_USE_C :CLX-LITTLE-ENDIAN :BSD :GNU │ │ │ │ :LINUX :RISCV64 :SGC :IEEE-FLOATING-POINT :UNIX :GMP :GCL :AKCL │ │ │ │ :COMMON :KCL) │ │ │ │ ../unixport/saved_ansi_gcl │ │ │ │ l27-2.7.1/sb_ansi_gcl │ │ │ │ -p 0000c000 00:24 13905018 /usr/lib/riscv64-linux-gnu/libmd.so.0.1.0 │ │ │ │ -3f8a87f000-3f8a889000 r-xp 00000000 00:24 13920185 /usr/lib/riscv64-linux-gnu/libkrb5support.so.0.1 │ │ │ │ -3f8a889000-3f8a88a000 r--p 00009000 00:24 13920185 /usr/lib/riscv64-linux-gnu/libkrb5support.so.0.1 │ │ │ │ -3f8a88a000-3f8a88b000 rw-p 0000a000 00:24 13920185 /usr/lib/riscv64-linux-gnu/libkrb5support.so.0.1 │ │ │ │ -3f8a88b000-3f8a88e000 r-xp 00000000 00:24 13919484 /usr/lib/riscv64-linux-gnu/libcom_err.so.2.1 │ │ │ │ -3f8a88e000-3f8a88f000 r--p 00002000 00:24 13919484 /usr/lib/riscv64-linux-gnu/libcom_err.so.2.1 │ │ │ │ -3f8a88f000-3f8a890000 rw-p 00003000 00:24 13919484 /usr/lib/riscv64-linux-gnu/libcom_err.so.2.1 │ │ │ │ -3f8a890000-3f8a8bb000 r-xp 00000000 00:24 13920202 /usr/lib/riscv64-linux-gnu/libk5crypto.so.3.1 │ │ │ │ -3f8a8bb000-3f8a8bc000 r--p 0002b000 00:24 13920202 /usr/lib/riscv64-linux-gnu/libk5crypto.so.3.1 │ │ │ │ -3f8a8bc000-3f8a8bd000 rw-p 0002c000 00:24 13920202 /usr/lib/riscv64-linux-gnu/libk5crypto.so.3.1 │ │ │ │ -3f8a8bd000-3f8a96b000 r-xp 00000000 00:24 13920238 /usr/lib/riscv64-linux-gnu/libkrb5.so.3.3 │ │ │ │ -3f8a96b000-3f8a976000 r--p 000ae000 00:24 13920238 /usr/lib/riscv64-linux-gnu/libkrb5.so.3.3 │ │ │ │ -3f8a976000-3f8a979000 rw-p 000b9000 00:24 13920238 /usr/lib/riscv64-linux-gnu/libkrb5.so.3.3 │ │ │ │ -3f8a979000-3f8a97b000 rw-p 00000000 00:00 0 │ │ │ │ -3f8a97b000-3f8a980000 r-xp 00000000 00:24 13919084 /usr/lib/riscv64-linux-gnu/libXdmcp.so.6.0.0 │ │ │ │ -3f8a980000-3f8a981000 r--p 00004000 00:24 13919084 /usr/lib/riscv64-linux-gnu/libXdmcp.so.6.0.0 │ │ │ │ -3f8a981000-3f8a982000 rw-p 00005000 00:24 13919084 /usr/lib/riscv64-linux-gnu/libXdmcp.so.6.0.0 │ │ │ │ -3f8a982000-3f8a984000 r-xp 00000000 00:24 13919068 /usr/lib/riscv64-linux-gnu/libXau.so.6.0.0 │ │ │ │ -3f8a984000-3f8a985000 r--p 00001000 00:24 13919068 /usr/lib/riscv64-linux-gnu/libXau.so.6.0.0 │ │ │ │ -3f8a985000-3f8a986000 rw-p 00002000 00:24 13919068 /usr/lib/riscv64-linux-gnu/libXau.so.6.0.0 │ │ │ │ -3f8a986000-3f8a995000 r-xp 00000000 00:24 13918579 /usr/lib/riscv64-linux-gnu/libbsd.so.0.12.2 │ │ │ │ -3f8a995000-3f8a996000 r--p 0000e000 00:24 13918579 /usr/lib/riscv64-linux-gnu/libbsd.so.0.12.2 │ │ │ │ -3f8a996000-3f8a997000 rw-p 0000f000 00:24 13918579 /usr/lib/riscv64-linux-gnu/libbsd.so.0.12.2 │ │ │ │ -3f8a997000-3f8a9c3000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 13900000 r-xp 00000000 00:24 13900000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 13900000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390000 r-xp 00000000 00:24 1390 r-xp 00000000 00:24 1390 r-xp 00000000 00:24 1390 r-xp 00000000 00:24 1390 r-xp 00000000 00:24 1390390 r-xp 00000000 00:24 1390390 r-xp 00000000 00:24 1390H1 │ │ │ │ +rw-p 0000c000 103:01 2769173 /usr/lib/riscv64-linux-gnu/libmd.so.0.1.0 │ │ │ │ +3fa167c000-3fa1686000 r-xp 00000000 103:01 2769159 /usr/lib/riscv64-linux-gnu/libkrb5support.so.0.1 │ │ │ │ +3fa1686000-3fa1687000 r--p 00009000 103:01 2769159 /usr/lib/riscv64-linux-gnu/libkrb5support.so.0.1 │ │ │ │ +3fa1687000-3fa1688000 rw-p 0000a000 103:01 2769159 /usr/lib/riscv64-linux-gnu/libkrb5support.so.0.1 │ │ │ │ +3fa1688000-3fa168b000 r-xp 00000000 103:01 2769041 /usr/lib/riscv64-linux-gnu/libcom_err.so.2.1 │ │ │ │ +3fa168b000-3fa168c000 r--p 00002000 103:01 2769041 /usr/lib/riscv64-linux-gnu/libcom_err.so.2.1 │ │ │ │ +3fa168c000-3fa168d000 rw-p 00003000 103:01 2769041 /usr/lib/riscv64-linux-gnu/libcom_err.so.2.1 │ │ │ │ +3fa168d000-3fa16b8000 r-xp 00000000 103:01 2769151 /usr/lib/riscv64-linux-gnu/libk5crypto.so.3.1 │ │ │ │ +3fa16b8000-3fa16b9000 r--p 0002b000 103:01 2769151 /usr/lib/riscv64-linux-gnu/libk5crypto.so.3.1 │ │ │ │ +3fa16b9000-3fa16ba000 rw-p 0002c000 103:01 2769151 /usr/lib/riscv64-linux-gnu/libk5crypto.so.3.1 │ │ │ │ +3fa16ba000-3fa1768000 r-xp 00000000 103:01 2769157 /usr/lib/riscv64-linux-gnu/libkrb5.so.3.3 │ │ │ │ +3fa1768000-3fa1773000 r--p 000ae000 103:01 2769157 /usr/lib/riscv64-linux-gnu/libkrb5.so.3.3 │ │ │ │ +3fa1773000-3fa1776000 rw-p 000b9000 103:01 2769157 /usr/lib/riscv64-linux-gnu/libkrb5.so.3.3 │ │ │ │ +3fa1776000-3fa1778000 rw-p 00000000 00:00 0 │ │ │ │ +3fa1778000-3fa177d000 r-xp 00000000 103:01 2768959 /usr/lib/riscv64-linux-gnu/libXdmcp.so.6.0.0 │ │ │ │ +3fa177d000-3fa177e000 r--p 00004000 103:01 2768959 /usr/lib/riscv64-linux-gnu/libXdmcp.so.6.0.0 │ │ │ │ +3fa177e000-3fa177f000 rw-p 00005000 103:01 2768959 /usr/lib/riscv64-linux-gnu/libXdmcp.so.6.0.0 │ │ │ │ +3fa177f000-3fa1781000 r-xp 00000000 103:01 2768949 /usr/lib/riscv64-linux-gnu/libXau.so.6.0.0 │ │ │ │ +3fa1781000-3fa1782000 r--p 00001000 103:01 2768949 /usr/lib/riscv64-linux-gnu/libXau.so.6.0.0 │ │ │ │ +3fa1782000-3fa1783000 rw-p 00002000 103:01 2768949 /usr/lib/riscv64-linux-gnu/libXau.so.6.0.0 │ │ │ │ +3fa1783000-3fa1792000 r-xp 00000000 103:01 2769022 /usr/lib/riscv64-linux-gnu/libbsd.so.0.12.2 │ │ │ │ +3fa1792000-3fa1793000 r--p 0000e000 103:01 2769022 /usr/lib/riscv64-linux-gnu/libbsd.so.0.12.2 │ │ │ │ +3fa1793000-3fa1794000 rw-p 0000f000 103:01 2769022 /usr/lib/riscv64-linux-gnu/libbsd.so.0.12.2 │ │ │ │ +3fa1794000-3fa17c0000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276000 r-xp 00000000 103:01 276 r-xp 00000000 103:01 276 r-xp 00000000 103:01 276 r-xp 00000000 103:01 276 r-xp 00000000 103:01 276276 r-xp 00000000 103:01 276276 r-xp 00000000 103:01 276H1 │ │ │ │ gcl_cmpnopt_ansi_gcl.lsp │ │ │ │ gcl27-2.7.1/clcs/package.lisp │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PATTERN │ │ │ │ -PARSE-QUALIFIER-PATTERN │ │ │ │ -.QUALIFIERS. │ │ │ │ -,SYMBOLP │ │ │ │ -PATTERN │ │ │ │ -.QUALIFIERS. │ │ │ │ -QUALIFIER-CHECK-RUNTIME │ │ │ │ -.QUALIFIERS. │ │ │ │ -[In the method group specifier ~S,~%~ │ │ │ │ - ~S isn't a valid qualifier pattern. │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PATTERNS │ │ │ │ -%MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION │ │ │ │ -PATTERNS │ │ │ │ -1methods matching one of the patterns: ~{~S, ~} ~S │ │ │ │ -,BUTLAST │ │ │ │ -PATTERNS │ │ │ │ -PATTERNS │ │ │ │ - methods matching the pattern: ~S │ │ │ │ -PATTERNS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SYSTEML! │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE. │ │ │ │ -,DEFINE-METHOD-COMBINATION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ -3FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -3FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE7 │ │ │ │ -,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DEFINE-METHOD-COMBINATION │ │ │ │ -EXPAND-LONG-DEFCOMBIN │ │ │ │ -EXPAND-SHORT-DEFCOMBIN │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -OPERATOR │ │ │ │ -MAKE-SHORT-METHOD-COMBINATION │ │ │ │ -OPTIONS │ │ │ │ -KEYWORDMOST-SPECIFIC-FIRST │ │ │ │ -COND265 │ │ │ │ --MOST-SPECIFIC-FIRST │ │ │ │ --MOST-SPECIFIC-LAST │ │ │ │ -,METHOD-COMBINATION-ERROR │ │ │ │ -Illegal options to a short method combination type.~%~ │ │ │ │ - The method combination type ~S accepts one option which~%~ │ │ │ │ - must be either :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -SHORT-METHOD-COMBINATION │ │ │ │ --OPTIONS │ │ │ │ --OPERATOR │ │ │ │ -OPERATOR │ │ │ │ --IDENTITY-WITH-ONE-ARGUMENT │ │ │ │ --DEFINITION-SOURCE │ │ │ │ --DOCUMENTATION │ │ │ │ -Illegal options to a short method combination type.~%~ │ │ │ │ - The method combination type ~S accepts one option which~%~ │ │ │ │ - must be either :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST. │ │ │ │ -has no qualifiers7O │ │ │ │ /build/reproducible-path/gcl27-2.7.1/unixport/libboot.so │ │ │ │ /build/reproducible-path/gcl27-2.7.1/unixport/libboot.so │ │ │ │ /build/reproducible-path/gcl27-2.7.1/unixport │ │ │ │ libboot.so │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_env.o │ │ │ │ fScdifference_init │ │ │ │ fSmatch_beginning │ │ │ │ set_XMapRequestEvent_type │ │ │ │ minus_imag_unit │ │ │ │ fSctimes │ │ │ │ fLkeywordp │ │ │ │ fSihs_top │ │ │ │ @@ -28650,265 +28579,584 @@ │ │ │ │ __GNU_EH_FRAME_HDR │ │ │ │ __clz_tab │ │ │ │ _GLOBAL_OFFSET_TABLE_ │ │ │ │ __TMC_END__ │ │ │ │ __dso_handle │ │ │ │ _PROCEDURE_LINKAGE_TABLE_ │ │ │ │ _DYNAMIC │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT COMPILER::KNOWN-INIT) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-KEYWORDS) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::PATH-KEYWORDS) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::FOR-KEYWORDS) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::ITERATION-KEYWORDS) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::KEYWORDS)o (FAST-READER-METHOD SLOT-OBJECT COMPILER::REGISTER)onal (FAST-READER-METHOD SLOT-OBJECT FIRST) │ │ │ │ - ra(FAST-READER-METHOD SLOT-OBJECT COMPILER::EXIT) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::C1)n-f(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CH) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REPEATABLE) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::FLAG-VARIABLE) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TEMP-VARIABLE) rotat(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::ANSWER-VARIABLE) │ │ │ │ - (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::FN)iti(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:LOC) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::MT) │ │ │ │ - (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::DT)ndi(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::VV) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::IMPLICIT-FOR-REQUIRED) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CFUN) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::INCLUSIVE-PERMITTED) (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::VEC)le-t(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::ANSI)(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:TAG) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::INFO)e(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::LEVEL)(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::KNOWN-INIT) │ │ │ │ - se(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-KEYWORDS) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::PATH-KEYWORDS) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::FOR-KEYWORDS)at-epsil(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::ITERATION-KEYWORDS)fl(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::KEYWORDS) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REGISTER)atch-macro-ch(FAST-WRITER-METHOD SLOT-OBJECT FIRST) │ │ │ │ - (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::EXIT) (FAST-READER-METHOD SLOT-OBJECT COMPILER::C1CB)r(FAST-READER-METHOD SLOT-OBJECT COMPILER::VALUE-TO-GO)set-pprint(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::USER-DATA) │ │ │ │ - s(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::DATA)(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::INFINITY-DATA)t-missi(FAST-READER-METHOD SLOT-OBJECT COMPILER::CH-CCB) s(FAST-READER-METHOD SLOT-OBJECT SYSTEM::STREAM-NAME) (FAST-READER-METHOD SLOT-OBJECT SPACE) │ │ │ │ - (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::NAME)(FAST-READER-METHOD SLOT-OBJECT SYSTEM::HASH) (FAST-READER-METHOD SLOT-OBJECT COMPILER::KIND) (FAST-READER-METHOD SLOT-OBJECT SYSTEM::LINE) (FAST-READER-METHOD SLOT-OBJECT COMPILER::CALL) (FAST-READER-METHOD SLOT-OBJECT COMPILER::STORE)(FAST-READER-METHOD SLOT-OBJECT COMPILER::SRC) (FAST-READER-METHOD SLOT-OBJECT COMPILER::FLAGS)(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TEMPVARS) short-f(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::DTYPE) │ │ │ │ - (FAST-READER-METHOD SLOT-OBJECT COMPILER::FORM) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::NAMES) sqrt (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-SYMBOLS) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::OPERATIONS) (FAST-READER-METHOD SLOT-OBJECT COMPILER::ALIASES) simple-arr(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::PREPOSITION-GROUPS) s(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::HISTORY) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::C1CB)i(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::VALUE-TO-GO)on subseq(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::USER-DATA) subsetp(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::DATA)(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::INFINITY-DATA) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CH-CCB)e-condition (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::STREAM-NAME)e (FAST-WRITER-METHOD SLOT-OBJECT SPACE) stream (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::NAME)(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::HASH)-if(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::KIND) (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::LINE)err(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CALL) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::STORE)(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::SRC) s(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::FLAGS)(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TEMPVARS)ring-capital(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::DTYPE)string-downcase(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::FORM) RANDOM-SIMPLE-TYPEP-FN symboRANDOM72470 │ │ │ │ -CFUN-SIMPLE-TYPEP-FNst G72473 │ │ │ │ -CFUN724723s │ │ │ │ -@0;type_of(#0)==t_spice strSPICE-P │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM:SPICE) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::ALIASES) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::PREPOSITION-GROUPS) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::HISTORY) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT COMPILER::C1) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT COMPILER::CH)est(FAST-READER-METHOD SLOT-OBJECT COMPILER::REPEATABLE) resta(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::FLAG-VARIABLE) restar(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TEMP-VARIABLE)return (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::ANSWER-VARIABLE)urn-f(FAST-READER-METHOD SLOT-OBJECT COMPILER::FN) (FAST-READER-METHOD SLOT-OBJECT SYSTEM:LOC)read-(FAST-READER-METHOD SLOT-OBJECT COMPILER::MT) (FAST-READER-METHOD SLOT-OBJECT COMPILER::DT) (FAST-READER-METHOD SLOT-OBJECT COMPILER::VV)tat(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::IMPLICIT-FOR-REQUIRED) round (FAST-READER-METHOD SLOT-OBJECT COMPILER::CFUN) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::INCLUSIVE-PERMITTED)m(FAST-READER-METHOD SLOT-OBJECT SYSTEM::VEC) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::ANSI)(FAST-READER-METHOD SLOT-OBJECT SYSTEM:TAG) (FAST-READER-METHOD SLOT-OBJECT COMPILER::INFO) (FAST-READER-METHOD SLOT-OBJECT COMPILER::LEVEL)(FAST-READER-METHOD SLOT-OBJECT COMPILER::KNOWN-INIT) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-KEYWORDS) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::PATH-KEYWORDS)ector (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::FOR-KEYWORDS) simple(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::ITERATION-KEYWORDS) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::KEYWORDS) (FAST-READER-METHOD SLOT-OBJECT COMPILER::REGISTER) sequence (FAST-READER-METHOD SLOT-OBJECT FIRST) (FAST-READER-METHOD SLOT-OBJECT COMPILER::EXIT)i(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::C1) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CH)eps(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REPEATABLE) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::FLAG-VARIABLE)sixth (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TEMP-VARIABLE) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::ANSWER-VARIABLE)acter(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::FN) │ │ │ │ + (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:LOC)ists-(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::MT)m-c(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::DT) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::VV)ssi(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::IMPLICIT-FOR-REQUIRED)ot-unbound (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CFUN) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::INCLUSIVE-PERMITTED) (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::VEC) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::ANSI)(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:TAG)-init(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::INFO) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::LEVEL)(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::KNOWN-INIT) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-KEYWORDS)at-epsi(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::PATH-KEYWORDS)short-f(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::FOR-KEYWORDS) │ │ │ │ + (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::ITERATION-KEYWORDS) (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::KEYWORDS) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REGISTER)table-sort (FAST-WRITER-METHOD SLOT-OBJECT FIRST) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::EXIT) (FAST-READER-METHOD SLOT-OBJECT COMPILER::C1CB)a(FAST-READER-METHOD SLOT-OBJECT COMPILER::VALUE-TO-GO) sta(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::USER-DATA)ard-class (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::DATA)(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::INFINITY-DATA) st(FAST-READER-METHOD SLOT-OBJECT COMPILER::CH-CCB) │ │ │ │ + sta(FAST-READER-METHOD SLOT-OBJECT SYSTEM::STREAM-NAME) │ │ │ │ + step(FAST-READER-METHOD SLOT-OBJECT SPACE) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::NAME)(FAST-READER-METHOD SLOT-OBJECT SYSTEM::HASH) (FAST-READER-METHOD SLOT-OBJECT COMPILER::KIND) (FAST-READER-METHOD SLOT-OBJECT SYSTEM::LINE) (FAST-READER-METHOD SLOT-OBJECT COMPILER::CALL)f(FAST-READER-METHOD SLOT-OBJECT COMPILER::STORE)(FAST-READER-METHOD SLOT-OBJECT COMPILER::SRC)rr(FAST-READER-METHOD SLOT-OBJECT COMPILER::FLAGS)(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TEMPVARS) │ │ │ │ + (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::DTYPE) │ │ │ │ + (FAST-READER-METHOD SLOT-OBJECT COMPILER::FORM) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::NAMES)ol-macrolet (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-SYMBOLS) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::OPERATIONS)age (FAST-READER-METHOD SLOT-OBJECT COMPILER::ALIASES)list (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::PREPOSITION-GROUPS) (FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::HISTORY) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::C1CB)s(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::VALUE-TO-GO)synonym-st(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::USER-DATA)t (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::DATA)(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::INFINITY-DATA) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CH-CCB)m (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::STREAM-NAME) (FAST-WRITER-METHOD SLOT-OBJECT SPACE)tring/= (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::NAME)(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::HASH) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::KIND)h(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::LINE) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::CALL) (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::STORE)(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::SRC)e (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::FLAGS)(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TEMPVARS)ure (FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::DTYPE)cture-class (FAST-WRITER-METHOD SLOT-OBJECT COMPILER::FORM)u │ │ │ │ +RANDOM-SIMPLE-TYPEP-FN G72471 │ │ │ │ +RANDOM72470 │ │ │ │ +CFUN-SIMPLE-TYPEP-FNuncate G72473 │ │ │ │ +CFUN72472_s │ │ │ │ +@0;type_of(#0)==t_spice SPICE-P │ │ │ │ gcl_dwtests │ │ │ │ -pathname_designatorp(#0) PATHNAME-DESIGNATORPt-greaterp ({fixnum _i;for (_i=(#1);_i<(#0)->ht.ht_size && (#0)->ht.ht_self[_i].hte_key==OBJNULL;_i++);_i==(#0)->ht.ht_size ? -1 : _i;}) ({fixnum _i;for (_i=fix(#1);_i<(#0)->ht.ht_size && (#0)->ht.ht_self[_i].hte_key==OBJNULL;_i++);_i==(#0)->ht.ht_size ? -1 : _i;})NEXT-HASH-TABLE-INDEX │ │ │ │ - ((((~(-1 << (#0))) << (#1)) & (#2)) >> (#1)) LDB1 │ │ │ │ +pathname_designatorp(#0) │ │ │ │ +PATHNAME-DESIGNATORPm-output-str({fixnum _i;for (_i=(#1);_i<(#0)->ht.ht_size && (#0)->ht.ht_self[_i].hte_key==OBJNULL;_i++);_i==(#0)->ht.ht_size ? -1 : _i;})or ({fixnum _i;for (_i=fix(#1);_i<(#0)->ht.ht_size && (#0)->ht.ht_self[_i].hte_key==OBJNULL;_i++);_i==(#0)->ht.ht_size ? -1 : _i;})NEXT-HASH-TABLE-INDEXd-type ((((~(-1 << (#0))) << (#1)) & (#2)) >> (#1))pe-oLDB1 │ │ │ │ INIT-CMP-ANON │ │ │ │ -../cmpnew/gcl_collectfn profile │ │ │ │ - tSET-UP-PROFILE │ │ │ │ -(#0)->ht.ht_self[(#1)].hte_value(#0)->ht.ht_self[fix(#1)].hte_valuetring= HASH-ENTRY-BY-INDEX LSP │ │ │ │ -(#0)->ht.ht_self[(#1)].hte_keyro(#0)->ht.ht_self[fix(#1)].hte_keytring>= HASH-KEY-BY-INDEX Cnil │ │ │ │ -({register fixnum _i=#0;register object _x=#1;for (;_i--;_x=_x->c.c_cdr);_x;}) Cnil │ │ │ │ +../cmpnew/gcl_collectfn │ │ │ │ + profile │ │ │ │ +en SET-UP-PROFILE │ │ │ │ +(#0)->ht.ht_self[(#1)].hte_value(#0)->ht.ht_self[fix(#1)].hte_valueund-slot HASH-ENTRY-BY-INDEX with-accessoLSP │ │ │ │ +(#0)->ht.ht_self[(#1)].hte_key (#0)->ht.ht_self[fix(#1)].hte_key │ │ │ │ + unbHASH-KEY-BY-INDEX Cnil │ │ │ │ +({register fixnum _i=#0;register object _x=#1;for (;_i--;_x=_x->c.c_cdr);_x;})toCnil │ │ │ │ ({register fixnum _i=#0;register object _x=#1;for (;_i--;_x=_x->c.c_cdr);_x;}) CMP-NTHCDRs │ │ │ │ - EMIT-FN │ │ │ │ - INIT-FN │ │ │ │ + wiEMIT-FN │ │ │ │ + INIT-FN │ │ │ │ ((#0) << (#1)) │ │ │ │ -((#0) >> (- (#1)))able SHIFT>> │ │ │ │ -@0;(type_of(#0) == t_vector && (#0)->v.v_elttype == (#1)) │ │ │ │ -VECTOR-TYPE │ │ │ │ +((#0) >> (- (#1))) │ │ │ │ + unSHIFT>> │ │ │ │ +@0;(type_of(#0) == t_vector && (#0)->v.v_elttype == (#1))ace VECTOR-TYPE │ │ │ │ make_cons(#0,#1)((float)#0) │ │ │ │ ((float)lf(#0)) │ │ │ │ ((float)#0) │ │ │ │ -../unixport/saved_ansi_gcl ((#0)->v.v_hasfillp ? (#0)->v.v_fillp : (#0)->v.v_dim) length(#0)s │ │ │ │ -(((int(*)(double))dlisinf)(m )) │ │ │ │ +../unixport/saved_ansi_gcldard-i((#0)->v.v_hasfillp ? (#0)->v.v_fillp : (#0)->v.v_dim) write length(#0)s │ │ │ │ +(((int(*)(double))dlisinf)(ss w)) │ │ │ │ (#0)==Cnils │ │ │ │ (#0)==(#1)s │ │ │ │ (#0)==(#1)s │ │ │ │ -@0;(#0->s.s_sfdef!=NOT_SPECIAL || #0->s.s_gfdef!=OBJNULL) type-o@0;(#0->s.s_sfdef!=NOT_SPECIAL || #0->s.s_gfdef!=OBJNULL) │ │ │ │ - PCL::SYSTEM::CONTEXT SLOT0 PCL::SYSTEM::INSTREAM SLOT0 PCL::SYSTEM::CONTEXT SLOT2 PCL::SYSTEM::INSTREAM SLOT2p PCL::SYSTEM::CONTEXT SLOT1t PCL::SYSTEM::INSTREAM SLOT1cessoisnan │ │ │ │ -(((int(*)(double))dlisnan)( )) │ │ │ │ -ound-variable with-condition-restarts │ │ │ │ - undefined-function with-hash-table-iterator │ │ │ │ - unexport with-input-from-string │ │ │ │ - unintern with-open-file │ │ │ │ - union with-open-stream │ │ │ │ - unless with-output-to-string │ │ │ │ - unread-char with-package-iterator │ │ │ │ - unsigned-byte with-simple-restart │ │ │ │ - untrace with-slots │ │ │ │ - unuse-package with-standard-io-syntax │ │ │ │ - unwind-protect write │ │ │ │ - update-instance-for-different-class write-byte │ │ │ │ - update-instance-for-redefined-class write-char │ │ │ │ - upgraded-array-element-type write-line │ │ │ │ - upgraded-complex-part-type write-sequence │ │ │ │ - upper-case-p write-string │ │ │ │ - use-package write-to-string │ │ │ │ - use-value y-or-n-p │ │ │ │ - user-homedir-pathname yes-or-no-p │ │ │ │ +@0;(#0->s.s_sfdef!=NOT_SPECIAL || #0->s.s_gfdef!=OBJNULL)ement-t@0;(#0->s.s_sfdef!=NOT_SPECIAL || #0->s.s_gfdef!=OBJNULL)omplex-PCL::SYSTEM::CONTEXT SLOT0sequenPCL::SYSTEM::INSTREAM SLOT0-casePCL::SYSTEM::CONTEXT SLOT2 writePCL::SYSTEM::INSTREAM SLOT2 usePCL::SYSTEM::CONTEXT SLOT1 PCL::SYSTEM::INSTREAM SLOT1 │ │ │ │ + isnan │ │ │ │ +(((int(*)(double))dlisnan)(or-n-)) │ │ │ │ + yes-or-no-p │ │ │ │ values zerop)) │ │ │ │ te replace │ │ │ │ random-state-p require │ │ │ │ rassoc rest │ │ │ │ - rassoc-if restart │ │ │ │ + rassoc-if restart 0~B │ │ │ │ +CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -QUALIFIERS │ │ │ │ -QUALIFIER-CHECK-RUNTIME │ │ │ │ -,TAGBODY! │ │ │ │ -QUALIFIERS │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -QUALIFIERS │ │ │ │ -PATTERN │ │ │ │ -QUALIFIERS │ │ │ │ -PATTERN │ │ │ │ -PATTERN. │ │ │ │ -QUALIFIERS │ │ │ │ -QUALIFIERS │ │ │ │ -QUALIFIERS/ │ │ │ │ -,RETURN-FROM │ │ │ │ - `(bIn the method group specifier ~S,~%~ │ │ │ │ - ~S isn't a valid qualifier pattern.(si::(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))t forms │ │ │ │ -d-file * │ │ │ │ -CONDITIONS::FPE-XUOI class predicateve (frs-tag @i │ │ │ │ - :test- │ │ │ │ -; Maybe, │ │ │ │ -ER-GO ju │ │ │ │ -earch-st │ │ │ │ -hs) (ihs │ │ │ │ -ihs *ihs │ │ │ │ -:test #' │ │ │ │ -(return) │ │ │ │ -e ihs) ( │ │ │ │ -defun br │ │ │ │ -reak-res │ │ │ │ -t :r 'br │ │ │ │ +PCL.PV-CELL. │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,PACKAGE-ERROR │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-NAME │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,PACKAGE-ERROR │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-LAMBDA-LIST │ │ │ │ +,PACKAGE-ERROR │ │ │ │ +1(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T)) │ │ │ │ +,MACROLET │ │ │ │ +-PV-ENV │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ + -.PV-CELL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +-MAKE-PV-TYPE-DECLARATION │ │ │ │ +-MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-%CHECK-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -BIND-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +-CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,PACKAGE-ERROR │ │ │ │ +-CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-ESCAPE* │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Package error on ~s: │ │ │ │ +-SLOT-BOUNDP-NORMAL │ │ │ │ +,PACKAGE │ │ │ │ +,PACKAGE-ERROR-PACKAGE │ │ │ │ +ist (lis │ │ │ │ +tq n (ge │ │ │ │ + (co │ │ │ │ + │ │ │ │ + │ │ │ │ +nd-decla │ │ │ │ +lues (co │ │ │ │ +d-symbol │ │ │ │ +null+ ,n │ │ │ │ +INTERNAL-SIMPLE-UNDEFINED-FUNCTION (if (and (con │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-UNDEFINED-FUNCTION class predicate(s@i │ │ │ │ +ensym))( │ │ │ │ +n-call , │ │ │ │ +sp (nrec │ │ │ │ +rror 'pr │ │ │ │ +rror 'pr │ │ │ │ +rol "Ext │ │ │ │ +rmat-con │ │ │ │ +nd ,+neg │ │ │ │ +(nil)))) │ │ │ │ + (s) (se │ │ │ │ +CONDITIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +PCL.PV-CELL. │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,UNDEFINED-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-NAME │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,UNDEFINED-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-LAMBDA-LIST │ │ │ │ +,UNDEFINED-FUNCTION │ │ │ │ +6(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T)) │ │ │ │ +,MACROLET │ │ │ │ +-PV-ENV │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ + -.PV-CELL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +-MAKE-PV-TYPE-DECLARATION │ │ │ │ +-MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-%CHECK-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -BIND-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +-CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,UNDEFINED-FUNCTION │ │ │ │ +-CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-ESCAPE* │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Undefined function: │ │ │ │ +mpiler-macro-p/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispme)(FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))nction (n &opti@i │ │ │ │ +COMMON-LISP::UNDEFINED-FUNCTION class predicatei@i │ │ │ │ +are (ign │ │ │ │ +er-new-s │ │ │ │ +-declara │ │ │ │ +tion-pli │ │ │ │ +((and (f │ │ │ │ + make-fu │ │ │ │ + (decl & │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-UNBOUND-SLOT class predicateecial (m@i │ │ │ │ +((a (pop │ │ │ │ +*safe-co │ │ │ │ +tq *spee │ │ │ │ + d))) (c │ │ │ │ +(proclai │ │ │ │ +) 'cmp-i │ │ │ │ +y (if │ │ │ │ +mbda (x) │ │ │ │ +-declara │ │ │ │ +aration │ │ │ │ +olp a) ( │ │ │ │ +optimize │ │ │ │ +eq tp t) │ │ │ │ +l, impro │ │ │ │ + (typ │ │ │ │ +d (car f@i │ │ │ │ +optional │ │ │ │ + &allow-p\ │ │ │ │ +y-unknow │ │ │ │ +@(mapcar │ │ │ │ +CONDITIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +PCL.PV-CELL. │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,UNBOUND-SLOT │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-NAME │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,UNBOUND-SLOT │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-LAMBDA-LIST │ │ │ │ +,UNBOUND-SLOT │ │ │ │ +0(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-SLOT T)) │ │ │ │ +,MACROLET │ │ │ │ +-PV-ENV │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ + -.PV-CELL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +-MAKE-PV-TYPE-DECLARATION │ │ │ │ +-MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-%CHECK-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -BIND-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +-CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,UNBOUND-SLOT │ │ │ │ +-CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-ESCAPE* │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Slot is unbound in ~s: │ │ │ │ +-SLOT-BOUNDP-NORMAL │ │ │ │ +INSTANCE │ │ │ │ +,UNBOUND-SLOT-INSTANCE │ │ │ │ +ND")) (r /build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp (FAST-METHOD PRINT-OBJECT (UNBOUND-SLOT T)) │ │ │ │ +rom ,top │ │ │ │ +COMMON-LISP::UNBOUND-SLOT class predicate* ((i (@i │ │ │ │ +sgen "P- │ │ │ │ + (retu │ │ │ │ +CONDITIONS::FPE-UOI class predicate │ │ │ │ +d-file ( │ │ │ │ +-input*) │ │ │ │ + │ │ │ │ +TAGBODY. │ │ │ │ +o values │ │ │ │ +r-go (fr │ │ │ │ +(setq st │ │ │ │ +rent-ihs │ │ │ │ + (when ( │ │ │ │ +arch str │ │ │ │ +(string │ │ │ │ +hs-visib │ │ │ │ +ymbol-na │ │ │ │ +CONDITIONS::FPE-UO class predicateocks 'break-bl@i │ │ │ │ -stack ' │ │ │ │ -'break-c │ │ │ │ +break-fu │ │ │ │ +reak-hel │ │ │ │ +(putprop │ │ │ │ +prop :s │ │ │ │ +tack 'br │ │ │ │ +-------- │ │ │ │ +riables │ │ │ │ +DOWN i f │ │ │ │ + ENVIRON │ │ │ │ +break lo │ │ │ │ +nction c │ │ │ │ +st-links │ │ │ │ +ake curr │ │ │ │ +CONDITIONS::FPE-XUO class predicateame. │ │ │ │ +:q [i] @i │ │ │ │ +this bre │ │ │ │ + [name] │ │ │ │ +on Histo │ │ │ │ -command │ │ │ │ -ktrace ' │ │ │ │ -ak-next │ │ │ │ -ous 'bre │ │ │ │ -fun brea │ │ │ │ -ommand S │ │ │ │ - in │ │ │ │ -show fra │ │ │ │ -is frame │ │ │ │ -nt a bac │ │ │ │ -he defau │ │ │ │ -CONDITIONS::FPE-XUI class predicate make@i │ │ │ │ - [i] │ │ │ │ - │ │ │ │ -arch for │ │ │ │ -ous spec │ │ │ │ -add an ' │ │ │ │ -ols (v ( │ │ │ │ - (valu │ │ │ │ -defun co │ │ │ │ -d-path ( │ │ │ │ -cadr w) │ │ │ │ -types*) │ │ │ │ -CONDITIONS::FPE-XU class predicatef (probe-file @i │ │ │ │ -rn-from │ │ │ │ - path to │ │ │ │ +ngth v)) │ │ │ │ +n)) #\/) │ │ │ │ (setf ( │ │ │ │ -fvar si: │ │ │ │ -ar 'si:: │ │ │ │ -t-temp-d │ │ │ │ - (declar │ │ │ │ - "lsp/" │ │ │ │ -ate s l) │ │ │ │ -ctory* ( │ │ │ │ -tem-dire │ │ │ │ -argc)) t │ │ │ │ -ent-dire │ │ │ │ - *cc* (o │ │ │ │ -ommand-a │ │ │ │ +earch (N │ │ │ │ +ecked fo │ │ │ │ +(fix-loa │ │ │ │ +rch tem) │ │ │ │ +CONDITIONS::FPE-XO class predicatensions ~s" │ │ │ │ +load (fi │ │ │ │ + (symbol │ │ │ │ +LLOW-GZI │ │ │ │ +afety 0) │ │ │ │ +ctory) ( │ │ │ │ +1- (leng │ │ │ │ +rminated │ │ │ │ +s "unixp │ │ │ │ +*$" s))) │ │ │ │ +-directo │ │ │ │ +eclare ( │ │ │ │ +CONDITIONS::FPE-XOI class predicate*) │ │ │ │ + *cc* (o@i │ │ │ │ rectory* │ │ │ │ -ss (and │ │ │ │ -(when (e │ │ │ │ - to GNU │ │ │ │ -. For e │ │ │ │ -entation │ │ │ │ -CONDITIONS::FPE-UOI class predicateave the strin@i │ │ │ │ - the doc │ │ │ │ -es in th │ │ │ │ -will dem │ │ │ │ -ry*) 'si │ │ │ │ -ribute i │ │ │ │ -at your │ │ │ │ - is dist │ │ │ │ -ULAR PUR │ │ │ │ -CONDITIONS::FPE-UO class predicateto the Free So@i │ │ │ │ -(defun s │ │ │ │ - (w │ │ │ │ - (doli │ │ │ │ - │ │ │ │ - compile │ │ │ │ -not defi │ │ │ │ -t-decode │ │ │ │ +slash-te │ │ │ │ + ((read- │ │ │ │ + should │ │ │ │ +about th │ │ │ │ +ROG") wi │ │ │ │ +s such a │ │ │ │ + string> │ │ │ │ + │ │ │ │ +r symbol │ │ │ │ +t GCL se │ │ │ │ +nt Team" │ │ │ │ + SYMBOL │ │ │ │ +l way by │ │ │ │ +get 'lam │ │ │ │ +tf (get │ │ │ │ +setf (ge │ │ │ │ +CONDITIONS::FPE-XOD class predicate'ccase 'si:pr@i │ │ │ │ +rint-for │ │ │ │ 'si:pre │ │ │ │ -la 'si:p │ │ │ │ -fmacro ' │ │ │ │ -e 'si:pr │ │ │ │ -un 'si:p │ │ │ │ +nt-forma │ │ │ │ +si:prett │ │ │ │ +; (setf │ │ │ │ +t-format │ │ │ │ +-format) │ │ │ │ +si:prett │ │ │ │ +print-fo │ │ │ │ +etty-pri │ │ │ │ +t-format │ │ │ │ +-format) │ │ │ │ +; (setf │ │ │ │ -print-f │ │ │ │ - 'si:pre │ │ │ │ -CONDITIONS::FPE-XOI class predicatetty-print-for@i │ │ │ │ -format) │ │ │ │ -'si:pret │ │ │ │ - 'multip │ │ │ │ -'prog 's │ │ │ │ -et 'prog │ │ │ │ -get 'pro │ │ │ │ -agbody ' │ │ │ │ - 'the 's │ │ │ │ +CONDITIONS::FPE-OD class predicatesetf (get 'pro@i │ │ │ │ :pretty- │ │ │ │ -rotect ' │ │ │ │ -et 'with │ │ │ │ -; (setf │ │ │ │ -ng 'si:p │ │ │ │ -33862122 │ │ │ │ -CONDITIONS::FPE-XODI class predicate534959465315@i │ │ │ │ -60585843 │ │ │ │ -90142001 │ │ │ │ -60807229 │ │ │ │ -78918180 │ │ │ │ -48026231 │ │ │ │ -61560731 │ │ │ │ -79852000 │ │ │ │ -34269399 │ │ │ │ -10120225 │ │ │ │ + 'the 's │ │ │ │ +m-string │ │ │ │ +si:prett │ │ │ │ +etf (get │ │ │ │ +95939823 │ │ │ │ +51175150 │ │ │ │ +20065709 │ │ │ │ +46665603 │ │ │ │ +54629646 │ │ │ │ +41123432 │ │ │ │ +21918235 │ │ │ │ +62092914 │ │ │ │ +08180935 │ │ │ │ +88802458 │ │ │ │ +CONDITIONS::FPE-UOD class predicate2290334269399@i │ │ │ │ +01518497 │ │ │ │ 58543706 │ │ │ │ -77994080 │ │ │ │ -47548326 │ │ │ │ -46151759 │ │ │ │ -93733164 │ │ │ │ -94561302 │ │ │ │ -CONDITIONS::FPE-XDI class predicate2780959510917@i │ │ │ │ -51120629@i │ │ │ │ -(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -OPERATOR │ │ │ │ -NEW-METHOD │ │ │ │ -COMMON-LISP&REST │ │ │ │ --DECLARE │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --LAMBDA │ │ │ │ --LAMBDA │ │ │ │ --DECLARE │ │ │ │ -MAKE-SHORT-METHOD-COMBINATION │ │ │ │ -OPERATOR │ │ │ │ -NEW-METHOD │ │ │ │ -More than one method of type ~S ~ │ │ │ │ - with the same specializers. │ │ │ │ -QUALIFIER-CHECK-RUNTIME │ │ │ │ +44653683 │ │ │ │ +98603505 │ │ │ │ +21620373 │ │ │ │ +49780764 │ │ │ │ +97525064 │ │ │ │ +89308095 │ │ │ │ +PCL::PV-TABLE class predicate │ │ │ │ SYSTEMC-FIXNUM-== │ │ │ │ KEYWORDBOOLEAN │ │ │ │ 2/build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ /C-FIXNUM-== │ │ │ │ /PUTPROP │ │ │ │ /C-FIXNUM-== │ │ │ │ /C-FIXNUM-== │ │ │ │ @@ -31886,15 +32134,15 @@ │ │ │ │ INTEGER-TYPEP-FN │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,OTHERWISE │ │ │ │ INFER-TP │ │ │ │ #*00000000000000000000000000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typep.lsp │ │ │ │ -INTEGER-TYPEP-FN │ │ │ │ +INTEGER-TYPEP-FNTWO-CLASS SLOT4 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ INTEGER-SIMPLE-TYPEP-FN │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,OTHERWISE │ │ │ │ @@ -32074,15 +32322,14 @@ │ │ │ │ ,&OPTIONAL │ │ │ │ ,STRINGP │ │ │ │ GENSYM1S │ │ │ │ GENSYM1IG │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_defmacro.lsp │ │ │ │ Insufficient arguments when binding ~s │ │ │ │ *MAKE-SPECIAL │ │ │ │ -INTERNAL-SIMPLE-READER-ERRORo │ │ │ │ MODULE-NAME │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ !STRING-DESIGNATOR-SIMPLE-TYPEP-FN │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ @@ -32381,14 +32628,15 @@ │ │ │ │ *MODULES* │ │ │ │ /build/reproducible-path/gcl27-2.7.1/unixport/ │ │ │ │ *SYSTEM-DIRECTORY* │ │ │ │ *DEFAULT-PATHNAME-DEFAULTS* │ │ │ │ LOGICAL-PATHNAME-PARSE │ │ │ │ PATHNAME-PARSE │ │ │ │ PARSE-ERROR │ │ │ │ +me on ho │ │ │ │ PATH-STREAM-NAMEUP │ │ │ │ LOGICAL-PATHNAME-HOST-P │ │ │ │ ASSERT-UPPERCASECANONICALIZE-PATHNAME-DIRECTORY │ │ │ │ MAKE-VECTOR │ │ │ │ INIT-PATHNAME │ │ │ │ TO-REGEXP-OR-NAMESTRING │ │ │ │ DIRECTORY-LIST-CHECK │ │ │ │ @@ -32551,14 +32799,15 @@ │ │ │ │ ,OTHERWISE │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111111011111111111111111111101111111111111111111111111111111111111111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ COMPILED-FUNCTION-SIMPLE-TYPEP-FN │ │ │ │ FBOUNDP-SYM │ │ │ │ STRING-CONCATENATE │ │ │ │ +CHECKING SLOT1 │ │ │ │ LAMBDA-BLOCK │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ PACKAGE-SIMPLE-TYPEP-FN │ │ │ │ INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000) │ │ │ │ @@ -32820,14 +33069,15 @@ │ │ │ │ HASH-TABLE-EQUAL │ │ │ │ HASH-TABLE-EQUALP │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ HASH-TABLE95 │ │ │ │ HASH-TABLE │ │ │ │ HASH-EQUAL │ │ │ │ EXTEND-HASHTABLEEQUAL │ │ │ │ +PV-TABLE SLOT3 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,HASH-TABLE │ │ │ │ HASH-SET │ │ │ │ CSTRUCTC-HASHTABLE-NENT │ │ │ │ @@ -33140,14 +33390,15 @@ │ │ │ │ ,RETURN-FROM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_defmacro.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,&OPTIONAL │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_defmacro.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_defmacro.lsp │ │ │ │ +DFUN-INFO SLOT0 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_defmacro.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -33260,14 +33511,15 @@ │ │ │ │ LAMBDA-CLOSURE │ │ │ │ /FUNCTION-ENV │ │ │ │ ,MAPCAR │ │ │ │ ,VECTORP │ │ │ │ CLOSE-FASD │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_fle.lsp │ │ │ │ UNCOMPRESS-SRC │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ GET-BLOCKED-BODY-NAME │ │ │ │ ,MULTIPLE-VALUE-BIND │ │ │ │ PARSE-BODY-HEADER │ │ │ │ ,DECLARE │ │ │ │ BLOCKED-BODY-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_fle.lsp │ │ │ │ @@ -33417,33 +33669,23 @@ │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,MULTIPLE-VALUE-LIST │ │ │ │ ,MULTIPLE-VALUE-CALL │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_evalmacros.lsp │ │ │ │ MULTIPLE-VALUE-LIST │ │ │ │ -Smd_1{z| │ │ │ │ -zK %-98? │ │ │ │ -l3oX25W, │ │ │ │ -"(g*'&MC │ │ │ │ -Smd_1{z| │ │ │ │ -Smd_1{z| │ │ │ │ -af[5ugK9 │ │ │ │ -:I3G8`;Q │ │ │ │ -<)+qYu\j │ │ │ │ -OEi!%)CC │ │ │ │ -n/O0,\|8 │ │ │ │ -n/O0,\|8 │ │ │ │ -BaptK/2P │ │ │ │ -[udlU?86 │ │ │ │ -9{Bh`&"G │ │ │ │ -5a:SR3me │ │ │ │ -4 (7%M|o │ │ │ │ -4 (7%M|o │ │ │ │ -xpR1H^GM │ │ │ │ +1u [>3P2 │ │ │ │ +{=7)";K_ │ │ │ │ +1u [>3P2 │ │ │ │ +1u [>3P2 │ │ │ │ +#}}TJ.\L │ │ │ │ +3q{0tmd] │ │ │ │ +geypIqf( │ │ │ │ +Q:G|GnH{ │ │ │ │ +mUxI'VWf │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ PROPER-LIST │ │ │ │ LDIFF-NF-WITH-LAST │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_predlib.lsp │ │ │ │ @@ -33454,15 +33696,14 @@ │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,MAPCON │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT/ │ │ │ │ ,MAPCAR │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_evalmacros.lsp │ │ │ │ -COMMON-LISP::PARSE-ERROR class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,LOAD-TIME-VALUE │ │ │ │ ,MULTIPLE-VALUE-BIND │ │ │ │ PARSE-BODY-HEADER │ │ │ │ ,DECLARE │ │ │ │ ?TAGBODY │ │ │ │ ,MACROEXPAND │ │ │ │ @@ -33650,14 +33891,15 @@ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCALL │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ +PV-TABLE SLOT2 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,VALUES │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ @@ -33996,14 +34238,15 @@ │ │ │ │ INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000001111110000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,OTHERWISE │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111110000001111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ COMPLEX*-SIMPLE-TYPEP-FN │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-PRINT-NOT-READABLE class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NTP-PRUNE │ │ │ │ +TP-NIL+ │ │ │ │ KEYWORDTEST-NOT │ │ │ │ NTP-PRUNE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ NTP-PRUNE │ │ │ │ @@ -34102,14 +34345,15 @@ │ │ │ │ SI-SUBCLASSES │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ GEN-GET-INCLUDED │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ S-CLASS-P │ │ │ │ GEN-GET-INCLUDED │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ +PV-TABLE SLOT1 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ORTHOG-TO-AND-NOT │ │ │ │ S-CLASS-P │ │ │ │ GEN-GET-INCLUDED │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ ORTHOG-TO-AND-NOT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -34142,15 +34386,15 @@ │ │ │ │ ,MAPCAR │ │ │ │ CNS-RECON │ │ │ │ CNS-RECON │ │ │ │ NRECONSTRUCT-TYPE-INT │ │ │ │ NRECONSTRUCT-TYPE-INT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ CNS-RECON │ │ │ │ -ARRAY-DIMENSIONS │ │ │ │ +ARRAY-DIMENSIONSP │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,ARRAY-DIMENSIONS │ │ │ │ ,ARRAY-DIMENSIONS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -34498,14 +34742,15 @@ │ │ │ │ COMPLEX-LONG-FLOAT477 │ │ │ │ COMPLEX-LONG-FLOAT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CMP-CONS │ │ │ │ ,COMPLEX │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ CMP-CONS │ │ │ │ +INTERNAL-SIMPLE-PRINT-NOT-READABLE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CMP-IRANGE │ │ │ │ ,REALPART │ │ │ │ ,IMAGPART │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ @@ -34539,14 +34784,15 @@ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CNS-TYPE │ │ │ │ NRECONSTRUCT-TYPE-INT │ │ │ │ NRECONSTRUCT-TYPE-INT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ CNS-TYPE │ │ │ │ +~s is not of type ~s: │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CNS-MATCH │ │ │ │ CNS-TYPE │ │ │ │ LREMOVE-IF-NOT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ CNS-MATCH │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -34623,15 +34869,14 @@ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,MAPCAR │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,VALUES │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-PARSE-ERROR class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CMP-CONS │ │ │ │ CMP-CONS │ │ │ │ CMP-CONS │ │ │ │ CMP-IRANGE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -34744,14 +34989,15 @@ │ │ │ │ ,IGNORE1 │ │ │ │ ,BLOCK. │ │ │ │ NON-NEGATIVE-BYTE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ NON-NEGATIVE-BYTE107 │ │ │ │ MPZ_SIZEINBASE │ │ │ │ +PV-TABLE SLOT0 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ UNSIGNED-BYTE-TYPEP-FN │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,INTEGER-LENGTH │ │ │ │ INFER-TP │ │ │ │ #*00000000000000000000000000110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ @@ -35162,14 +35408,15 @@ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ NON-NEGATIVE-FIXNUM164 │ │ │ │ FIXNUM-LENGTH │ │ │ │ NON-NEGATIVE-FIXNUM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_bit.o │ │ │ │ MAKE-ARRAY1 │ │ │ │ *BIT-ARRAY-DIMENSION-CHECK-REF* │ │ │ │ +SYSTEM:S-DATA SLOT17 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CSTRUCTC-ARRAY-RANK │ │ │ │ .C-ARRAY-RANK │ │ │ │ ,MEMBER-IF-NOT │ │ │ │ SETF1401 │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT/ │ │ │ │ @@ -35357,15 +35604,14 @@ │ │ │ │ ,ARRAY-DIMENSION │ │ │ │ *BIT-ARRAY-DIMENSION-CHECK-REF* │ │ │ │ ,ARRAY-DIMENSION │ │ │ │ ,RETURN-FROM │ │ │ │ ,RETURN-FROM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_bit.lsp │ │ │ │ BIT-ARRAY-DIMENSION-CHECK │ │ │ │ -INTERNAL-SIMPLE-PARSE-ERROR │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ COPY-BIT-VECTOR │ │ │ │ BIT-ARRAY-OP │ │ │ │ ,DECLARE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_bit.lsp │ │ │ │ COPY-BIT-VECTOR │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -35476,14 +35722,15 @@ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ NTP-OR-UNKNOWN │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NTP-OR-UNKNOWN │ │ │ │ NTP-PRUNE │ │ │ │ NTP-LIST │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ +ARG-INFO SLOT10 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ +TP-NIL+ │ │ │ │ ,OTHERWISE │ │ │ │ ,SATISFIES │ │ │ │ +TP-NIL+ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -35619,14 +35866,15 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ LOOKUP-CMP-K │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NPROCESS-TYPE │ │ │ │ NTP-PRUNE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ +ARG-INFO SLOT9 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CNS-LIST │ │ │ │ NPROCESS-TYPE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PROPER-CONS │ │ │ │ *PCNS-NTP* │ │ │ │ @@ -35640,14 +35888,15 @@ │ │ │ │ FUNCALLABLE-CLASS-P │ │ │ │ FUNCALLABLE-STD-INSTANCE │ │ │ │ LREMOVE-IF-NOT │ │ │ │ FUNCALLABLE-CLASS-P │ │ │ │ ,OTHERWISE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ FILTER-INCLUDED │ │ │ │ +ARG-INFO SLOT8 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ FILTER-INCLUDED │ │ │ │ GEN-GET-INCLUDED │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,SIMPLE-ARRAY │ │ │ │ *SIMPLE-ARRAY-TYPES* │ │ │ │ @@ -35688,20 +35937,19 @@ │ │ │ │ unknown type │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ KTYPE-OF │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CONS-TO-CNS-LIST │ │ │ │ CNS-LIST │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ -CONS-TO-CNS-LIST │ │ │ │ +CONS-TO-CNS-LISTARG-INFO SLOT7 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ MCNS-LD │ │ │ │ CONS-TO-CNS-LIST │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ -CASE-FAILURE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ KTYPE-OF │ │ │ │ PROPER-CONS │ │ │ │ IMPROPER-CONS │ │ │ │ ,INTEGER │ │ │ │ ,SHORT-FLOAT │ │ │ │ ,LONG-FLOAT │ │ │ │ @@ -35752,25 +36000,25 @@ │ │ │ │ ,RANDOM-STATE │ │ │ │ INTERPRETED-FUNCTION │ │ │ │ %NON-STANDARD-OBJECT-COMPILED-FUNCTION │ │ │ │ MEMBER-LD │ │ │ │ ,SATISFIES │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ NTP-LOAD │ │ │ │ +ARG-INFO SLOT6 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NPROCESS-TYPE │ │ │ │ NTP-AND │ │ │ │ NPROCESS-TYPE │ │ │ │ NPROCESS-TYPE │ │ │ │ NPROCESS-TYPE │ │ │ │ ,OTHERWISE │ │ │ │ NTP-LOAD │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_subtypep.lsp │ │ │ │ NPROCESS-TYPE │ │ │ │ -STACK-OVERFLOW │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ EXPAND-ARRAY-ELEMENT-TYPE │ │ │ │ +ARRAY-TYPES+ │ │ │ │ KEYWORDTEST │ │ │ │ ,SUBTYPEP │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_predlib.lsp │ │ │ │ EXPAND-ARRAY-ELEMENT-TYPE │ │ │ │ @@ -35795,14 +36043,15 @@ │ │ │ │ SIGNED-INT │ │ │ │ ,LONG-FLOAT │ │ │ │ NON-NEGATIVE-FIXNUM │ │ │ │ ,OTHERWISE │ │ │ │ EXPAND-ARRAY-ELEMENT-TYPE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_predlib.lsp │ │ │ │ UPGRADED-ARRAY-ELEMENT-TYPE │ │ │ │ +ARG-INFO SLOT5 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SIMPLE-ARRAY-TYPEP-FN │ │ │ │ ,FUNCALL │ │ │ │ ,UPGRADED-ARRAY-ELEMENT-TYPE │ │ │ │ ,SIMPLE-ARRAY │ │ │ │ +ARRAY-TYPEP-ALIST+ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typep.lsp │ │ │ │ @@ -35849,14 +36098,15 @@ │ │ │ │ ,UPGRADED-ARRAY-ELEMENT-TYPE │ │ │ │ ,SIMPLE-ARRAY │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ SIMPLE-ARRAY433 │ │ │ │ +ARRAY-TYPES+ │ │ │ │ SIMPLE-ARRAY │ │ │ │ SIMPLE-ARRAY-BITPRINT │ │ │ │ +SYSTEM:S-DATA SLOT16 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,BIT-XOR │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_type.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ BTP-NOT │ │ │ │ @@ -35876,15 +36126,15 @@ │ │ │ │ SINGLETON-LISTP │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_type.lsp │ │ │ │ SINGLETON-LISTP │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SINGLETON-RANGEP │ │ │ │ SINGLETON-LISTP │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_type.lsp │ │ │ │ -SINGLETON-RANGEP │ │ │ │ +SINGLETON-RANGEP ? │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SINGLETON-KINGDOMP │ │ │ │ PROPER-CONS │ │ │ │ IMPROPER-CONS │ │ │ │ SINGLETON-LISTP │ │ │ │ ,INTEGER │ │ │ │ ,SHORT-FLOAT │ │ │ │ @@ -35922,14 +36172,15 @@ │ │ │ │ SINGLETON-KINGDOMP │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ATOMIC-NTP │ │ │ │ SINGLETON-LISTP │ │ │ │ SINGLETON-KINGDOMP │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_type.lsp │ │ │ │ ATOMIC-NTP │ │ │ │ +ARG-INFO SLOT4 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ BTP-EQUAL │ │ │ │ CSTRUCTC-ARRAY-SELF │ │ │ │ -C-ARRAY-SELF │ │ │ │ DOTIMES272 │ │ │ │ +BIT-WORDS+ │ │ │ │ ,CHECK-TYPE. │ │ │ │ @@ -36080,14 +36331,15 @@ │ │ │ │ *TYPEP-DEFINED* │ │ │ │ ATOMIC-TYPE │ │ │ │ OBJECT-TP │ │ │ │ ATOMIC-TYPE │ │ │ │ NORMALIZE-TYPE │ │ │ │ COMP-TP0 │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_type.lsp │ │ │ │ +COMMON-LISP METHOD slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ COMP-TP1 │ │ │ │ HASHABLE-TYPEP │ │ │ │ ,MULTIPLE-VALUE-BIND │ │ │ │ ,GETHASH │ │ │ │ *NRM-HASH* │ │ │ │ ,GETHASH │ │ │ │ @@ -37815,14 +38067,15 @@ │ │ │ │ #*11111111111111111111111111111111111111111111111111011111111111111111111111111111111111110000000000010011111111111111110001111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ ADJUSTABLE-VECTOR-SIMPLE-TYPEP-FN │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,VALUES │ │ │ │ CSTRUCTC-ARRAY-DIM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typep.lsp │ │ │ │ +ARG-INFO SLOT3 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ VECTOR-TYPEP-FN │ │ │ │ ,FUNCALL │ │ │ │ ,UPGRADED-ARRAY-ELEMENT-TYPE │ │ │ │ +ARRAY-TYPEP-ALIST+ │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typep.lsp │ │ │ │ VECTOR-TYPEP-FN │ │ │ │ @@ -38306,22 +38559,24 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,BOOLEAN │ │ │ │ ,DECLARE │ │ │ │ SYSTEMLIT │ │ │ │ KEYWORDFLOAT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ +ARG-INFO SLOT2 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ C-T-MELTMODE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-T-MELTMODE │ │ │ │ +SYSTEM:S-DATA SLOT15 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,HASH-TABLE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -38381,15 +38636,15 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-MELTTYPE │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-SET-T-MELTTYPE@i │ │ │ │ +C-SET-T-MELTTYPE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,FUNCTION │ │ │ │ C-FUNCTION-VV │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -38411,14 +38666,15 @@ │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-CFDATA-START │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-CFDATA-START │ │ │ │ +SYSTEM:S-DATA SLOT14 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,HASH-TABLE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -38465,14 +38721,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-MELTSIZE │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-T-MELTSIZE │ │ │ │ +ARG-INFO SLOT1 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,PATHNAME │ │ │ │ ,CHECK-TYPE │ │ │ │ ,KEYWORD │ │ │ │ @@ -38574,14 +38831,15 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ C-T-EMF │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ +ARG-INFO SLOT0 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ SYSTEMLONG │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -38589,15 +38847,15 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-MELTMODE │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-SET-T-MELTMODEp │ │ │ │ +C-SET-T-MELTMODE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-ARRAY-SELF │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ @@ -38696,14 +38954,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,FUNCTION │ │ │ │ C-FUNCTION-ARGD │ │ │ │ SYSTEMLONG │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-FUNCTION-ARGD │ │ │ │ +SYSTEM:S-DATA SLOT13 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ADJUSTABLE-ARRAY │ │ │ │ ,CHECK-TYPE │ │ │ │ SYSTEMPROPER-LIST │ │ │ │ @@ -38746,30 +39005,28 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-MDIM │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-T-MDIM │ │ │ │ -REAL-METHOD-COMBINATION-ERROR │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,SYMBOL │ │ │ │ C-SYMBOL-HASH │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SYMBOL-HASH │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ SYSTEMC+ │ │ │ │ KEYWORDFIXNUM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ -REAL-INVALID-METHOD-ERROR │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,HASH-TABLE │ │ │ │ C-HASHTABLE-PAD1 │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -38792,15 +39049,15 @@ │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-ARRAY-SELF │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-SET-ARRAY-SELF │ │ │ │ +C-SET-ARRAY-SELFSYSTEM:S-DATA SLOT12 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-ARRAY-DIM │ │ │ │ @@ -38821,15 +39078,14 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ SYSTEM& │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -EXPAND-SHORT-DEFCOMBIN │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,SYMBOL │ │ │ │ C-SYMBOL-MFLAG │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -38862,15 +39118,14 @@ │ │ │ │ ,HASH-TABLE │ │ │ │ ,CHECK-TYPE │ │ │ │ SYSTEMUNSIGNED-INT │ │ │ │ C-SET-HASHTABLE-PAD4 │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-HASHTABLE-PAD4 │ │ │ │ -EXPAND-LONG-DEFCOMBIN │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHARACTER │ │ │ │ C-CHARACTER-CODE │ │ │ │ SYSTEMUNSIGNED-CHAR │ │ │ │ @@ -38888,15 +39143,14 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,SYMBOL │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-SYMBOL-HASH │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-SYMBOL-HASH │ │ │ │ -DEAL-WITH-ARGUMENTS-OPTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,SYMBOL │ │ │ │ C-SYMBOL-PAD3 │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -38936,15 +39190,15 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ C-SPICE-DUMMY │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SPICE-DUMMY │ │ │ │ -PARSE-METHOD-GROUP-SPECIFIER │ │ │ │ +IDENTITY-WITH-ONE-ARGUMENT@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,PATHNAME │ │ │ │ C-PATHNAME-NAMESTRING │ │ │ │ SYSTEMADDRESS │ │ │ │ @@ -38984,15 +39238,14 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,SYMBOL │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-SYMBOL-SFDEF │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-SYMBOL-SFDEF │ │ │ │ -PARSE-QUALIFIER-PATTERN │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STREAM │ │ │ │ C-STREAM-FP │ │ │ │ SYSTEMADDRESS │ │ │ │ @@ -39004,14 +39257,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-PD1 │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-T-PD1 │ │ │ │ +SYSTEM:S-DATA SLOT11 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHARACTER │ │ │ │ ,CHECK-TYPE │ │ │ │ SYSTEMUNSIGNED-CHAR │ │ │ │ @@ -39099,14 +39353,15 @@ │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-SYMBOL-PAD3 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ KEYWORDFIXNUM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ +SYSTEM:S-DATA SLOT10 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,BOOLEAN │ │ │ │ ,DECLARE │ │ │ │ SYSTEMLIT │ │ │ │ KEYWORDINT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ @@ -39206,15 +39461,15 @@ │ │ │ │ C-SET-HASHTABLE-RHTHRESH │ │ │ │ CSTRUCT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ C-FIXNUM-FLOAT-> │ │ │ │ SYSTEMLIT │ │ │ │ KEYWORDBOOLEAN │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ -C-FIXNUM-FLOAT-> │ │ │ │ +C-FIXNUM-FLOAT->@i │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ KEYWORDFIXNUM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ @@ -39295,14 +39550,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-TP │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-T-TP │ │ │ │ +SYSTEM:S-DATA SLOT9 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,FUNCTION │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -39318,15 +39574,15 @@ │ │ │ │ ,STREAM │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-STREAM-INT │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-SET-STREAM-INT~% ~A~VT ~S │ │ │ │ +C-SET-STREAM-INT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STREAM │ │ │ │ C-STREAM-INT │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -39499,15 +39755,15 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHARACTER │ │ │ │ C-CHARACTER-BITS │ │ │ │ SYSTEMUNSIGNED-CHAR │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-CHARACTER-BITS │ │ │ │ +C-CHARACTER-BITSSYSTEM:S-DATA SLOT8 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ SYSTEMC-FIXNUM-== │ │ │ │ KEYWORDBOOLEAN │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ C-FIXNUM-== │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -39581,14 +39837,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-FUNCTION-VV │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-FUNCTION-VV │ │ │ │ +SYSTEM:S-DATA SLOT7 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STREAM │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -39676,15 +39933,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,SYMBOL │ │ │ │ C-SYMBOL-PAD2 │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SYMBOL-PAD2 │ │ │ │ -COMMON-LISP::END-OF-FILE class predicate │ │ │ │ +COMMON-LISP::TYPE-ERROR class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,FUNCTION │ │ │ │ ,CHECK-TYPE │ │ │ │ SYSTEMPROPER-LIST │ │ │ │ @@ -39775,15 +40032,15 @@ │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,READTABLE │ │ │ │ C-READTABLE-SELF │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-READTABLE-SELF@ │ │ │ │ +C-READTABLE-SELF │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STRUCTURE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-STRUCTURE-SELF │ │ │ │ @@ -39819,14 +40076,15 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-T-EMF │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-T-EMF │ │ │ │ +SYSTEM:S-DATA SLOT6 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,HASH-TABLE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-HASHTABLE-CACHE │ │ │ │ @@ -39922,15 +40180,14 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-ARRAY-WRITABLE │ │ │ │ SYSTEMADDRESS │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-ARRAY-WRITABLE │ │ │ │ -IDENTITY-WITH-ONE-ARGUMENT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,HASH-TABLE │ │ │ │ C-HASHTABLE-TEST │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -40083,15 +40340,14 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-RATIO-NUM │ │ │ │ ,INTEGER │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-RATIO-NUM │ │ │ │ -(FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,BOOLEAN │ │ │ │ ,DECLARE │ │ │ │ *FCOMPLEX │ │ │ │ SYSTEMLIT │ │ │ │ KEYWORDFCOMPLEX │ │ │ │ @@ -40130,15 +40386,15 @@ │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STREAM │ │ │ │ C-STREAM-OBJECT1 │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-STREAM-OBJECT1 │ │ │ │ +C-STREAM-OBJECT1SYSTEM:S-DATA SLOT5 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ SYSTEMDCOMPLEX │ │ │ │ -C-DCOMPLEX-== │ │ │ │ KEYWORDBOOLEAN │ │ │ │ .DCOMPLEX │ │ │ │ .DCOMPLEX │ │ │ │ @@ -40252,14 +40508,15 @@ │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-CFDATA-NAME │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-CFDATA-NAME │ │ │ │ +(FAST-METHOD PRINT-OBJECT (TYPE-ERROR T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,BOOLEAN │ │ │ │ ,DECLARE │ │ │ │ SYSTEMLIT │ │ │ │ KEYWORDSHORT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ @@ -40269,15 +40526,14 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,RANDOM │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-RANDOM-STATE │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-SET-RANDOM-STATE │ │ │ │ -(BOUNDP CONDITIONS::FUNCTION-NAME) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STREAM │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-STREAM-FP │ │ │ │ @@ -40379,15 +40635,15 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,FUNCTION │ │ │ │ C-FUNCTION-NEVAL │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -C-FUNCTION-NEVAL(WRITER CONDITIONS::FUNCTION-NAME) │ │ │ │ +C-FUNCTION-NEVALSYSTEM:S-DATA SLOT4 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,STREAM │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ @@ -40430,15 +40686,14 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ SYSTEM>> │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ -(READER CONDITIONS::FUNCTION-NAME) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-ARRAY-RANK │ │ │ │ @@ -40488,15 +40743,14 @@ │ │ │ │ ,HASH-TABLE │ │ │ │ C-HASHTABLE-STATIC │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ SYSTEM& │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-HASHTABLE-STATIC │ │ │ │ -gcl_pcl_defcombin.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,READTABLE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-READTABLE-SELF │ │ │ │ @@ -40576,14 +40830,15 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-ARRAY-ELTMODE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ -ADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-ARRAY-ELTMODE │ │ │ │ +SYSTEM:S-DATA SLOT3 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,UNSIGNED-BYTE │ │ │ │ C-SET-ARRAY-ELTSIZE │ │ │ │ @@ -40762,14 +41017,15 @@ │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,PACKAGE │ │ │ │ C-PACKAGE-NAME │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ C-PACKAGE-NAME │ │ │ │ +SYSTEM:S-DATA SLOT2 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ ,PACKAGE │ │ │ │ ,CHECK-TYPE │ │ │ │ C-SET-PACKAGE-NAME │ │ │ │ @@ -41092,15 +41348,15 @@ │ │ │ │ C-DOUBLE-FIXNUM-== │ │ │ │ CSTRUCT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ C-FLOAT-DOUBLE-> │ │ │ │ SYSTEMLIT │ │ │ │ KEYWORDBOOLEAN │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_s.lsp │ │ │ │ -C-FLOAT-DOUBLE->@i │ │ │ │ +C-FLOAT-DOUBLE->8 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ ,NSTRING-DOWNCASE │ │ │ │ SYSTEMSTRING-CONCATENATE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_sf.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -41478,14 +41734,15 @@ │ │ │ │ INPUT-STREAM-P │ │ │ │ WRITE-BYTE │ │ │ │ SET-DIFFERENCE │ │ │ │ *TERMINAL-IO* │ │ │ │ *STANDARD-OUTPUT* │ │ │ │ STRUCTURE-OBJECT │ │ │ │ MAKE-LIST │ │ │ │ +SYSTEM:S-DATA SLOT1 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE- │ │ │ │ ,MULTIPLE-VALUE-SETQ │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ @@ -41893,15 +42150,15 @@ │ │ │ │ BIT-ANDC1 │ │ │ │ SLOT-EXISTS-P │ │ │ │ CELL-ERROR-NAME │ │ │ │ USE-PACKAGE │ │ │ │ MAKUNBOUND │ │ │ │ PATHNAME-VERSIONSIMPLE-ERROR │ │ │ │ *ERROR-OUTPUT* │ │ │ │ --x;OQU"& │ │ │ │ +uM]B~J*y │ │ │ │ *RANDOM-STATE* │ │ │ │ CLASS-NAME │ │ │ │ MULTIPLE-VALUE-PROG1 │ │ │ │ ENOUGH-NAMESTRING │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE- │ │ │ │ @@ -41956,15 +42213,15 @@ │ │ │ │ ,BLOCK. │ │ │ │ ,SINGLE-FLOAT │ │ │ │ ,LONG-FLOAT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ SINGLE-FLOAT311 │ │ │ │ SINGLE-FLOAT │ │ │ │ TRUNCATE │ │ │ │ -ed in th │ │ │ │ +SYSTEM:S-DATA SLOT0defined in th │ │ │ │ DISASSEMBLE │ │ │ │ BOTH-CASE-P │ │ │ │ LOWER-CASE-P │ │ │ │ BOOLE-XOR │ │ │ │ WITH-OPEN-STREAMDEFMETHOD │ │ │ │ CHAR-DOWNCASE │ │ │ │ MAKE-DISPATCH-MACRO-CHARACTER │ │ │ │ @@ -43827,29 +44084,26 @@ │ │ │ │ COMPLEX* │ │ │ │ ,TYPE-OF │ │ │ │ ,REALPART │ │ │ │ ,TYPE-OF │ │ │ │ ,IMAGPART │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typeof.lsp │ │ │ │ COMPLEX-TYPE-OF │ │ │ │ -gcl_pcl_ctypes.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NON-SIMPLE-ARRAY-TYPE-OF │ │ │ │ ARRAY-TYPE-OF │ │ │ │ NON-SIMPLE-ARRAY │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typeof.lsp │ │ │ │ NON-SIMPLE-ARRAY-TYPE-OF │ │ │ │ -INNER-RESULT. │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SIMPLE-ARRAY-TYPE-OF │ │ │ │ ARRAY-TYPE-OF │ │ │ │ ,SIMPLE-ARRAY │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typeof.lsp │ │ │ │ SIMPLE-ARRAY-TYPE-OF │ │ │ │ -.IGNORE. │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ STRUCTURE-TYPE-OF │ │ │ │ SDATA-NAME │ │ │ │ CSTRUCTC-STRUCTURE-DEF │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typeof.lsp │ │ │ │ STRUCTURE-TYPE-OF │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -43965,15 +44219,14 @@ │ │ │ │ RASSOC-IF │ │ │ │ ARRAY-RANK-LIMITUNUSE-PACKAGE │ │ │ │ FTRUNCATE │ │ │ │ MULTIPLE-VALUES-LIMIT │ │ │ │ CHAR-NOT-LESSP │ │ │ │ SIMPLE-TYPE-ERROR │ │ │ │ CELL-ERROR │ │ │ │ -.QUALIFIERS. │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,SOFTWARE-TYPE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_module.lsp │ │ │ │ SOFTWARE-TYPE │ │ │ │ FORMATTER │ │ │ │ COPY-PPRINT-DISPATCH │ │ │ │ DIGIT-CHAR │ │ │ │ @@ -44233,14 +44486,15 @@ │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000) │ │ │ │ ,OTHERWISE │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111111111111111111111111111111111111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_typep.lsp │ │ │ │ SIMPLE-BIT-VECTOR-P │ │ │ │ STREAM-EXTERNAL-FORMAT │ │ │ │ +SYSTEM::S-DATA class predicate t │ │ │ │ COMPILE-FILE │ │ │ │ DIGIT-CHAR-P │ │ │ │ OPEN-STREAM-P │ │ │ │ IDENTITY │ │ │ │ PACKAGE-NICKNAMES │ │ │ │ WITH-COMPILATION-UNIT │ │ │ │ FIND-CLASS │ │ │ │ @@ -44269,15 +44523,15 @@ │ │ │ │ GETHASH-INT │ │ │ │ +OBJNULL+ │ │ │ │ HTENT-KEY │ │ │ │ HTENT-VALUE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_hash.lsp │ │ │ │ *COMPILE-PRINT* │ │ │ │ *READ-EVAL* │ │ │ │ -n this l │ │ │ │ +n this lSYSTEM:TAG SLOT6COMPILE │ │ │ │ LOGCOUNT │ │ │ │ REMOVE-DUPLICATES │ │ │ │ PATHNAME-DIRECTORY │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE- │ │ │ │ ,DEFPARAMETER │ │ │ │ @@ -44397,39 +44651,39 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .GENERIC-FUNCTION. │ │ │ │ .METHOD-COMBINATION. │ │ │ │ .APPLICABLE-METHODS. │ │ │ │ ".LONG-METHOD-COMBINATION-FUNCTION. │ │ │ │ WRAPPED-BODY │ │ │ │ -e, add aCOMMON-LISP METHOD slot READER │ │ │ │ +s and sp │ │ │ │ DO-SYMBOLS │ │ │ │ BREAK-HELP │ │ │ │ *BREAK-MESSAGE* │ │ │ │ BREAK-MESSAGE │ │ │ │ PERSISTENT │ │ │ │ *BREAK-ENV* │ │ │ │ IHS-NOT-INTERPRETED-ENV │ │ │ │ BREAK-NEXT │ │ │ │ BREAK-PREVIOUS │ │ │ │ CURRENT-LEVEL │ │ │ │ *BREAK-LEVEL* │ │ │ │ *QUIT-TAGS* │ │ │ │ +ed at leSYSTEM:TAG SLOT5THROW │ │ │ │ BREAK-QUIT │ │ │ │ *DEBUG-CONTINUE*RESUME │ │ │ │ BREAK-RESUME │ │ │ │ RIGHT-MARGIN │ │ │ │ SYMBOL-NAME │ │ │ │ BREAK-GO │ │ │ │ BREAK-BACKWARD-SEARCH-STACK │ │ │ │ ADJVECTOR │ │ │ │ BITVECTOR │ │ │ │ PROCLAIM │ │ │ │ SYSTEM-P │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_defcombin.ol tags: │ │ │ │ DESCRIBE-ENVIRONMENT │ │ │ │ FIXARRAY │ │ │ │ CHARACTER │ │ │ │ HASHTABLE │ │ │ │ CATCHALL │ │ │ │ INHERITED │ │ │ │ UNDEFINED-FUNCTION │ │ │ │ @@ -44466,32 +44720,33 @@ │ │ │ │ MANDATORY │ │ │ │ DIRECTORY │ │ │ │ MISER-WIDTH │ │ │ │ BREAK-FORWARD-SEARCH-STACK │ │ │ │ READER-ERROR │ │ │ │ INVALID-FUNCTIONVOID* │ │ │ │ SECTION-RELATIVEINITIAL-ELEMENT │ │ │ │ + ---> VS │ │ │ │ PRINT-IHS │ │ │ │ BREAK-VS │ │ │ │ OUTPUT-FILE │ │ │ │ REGISTER │ │ │ │ *FRS-BASE* │ │ │ │ *FRS-TOP* │ │ │ │ -FRS-CLASS │ │ │ │ +HS[~d],VSYSTEM:TAG SLOT4FRS-CLASS │ │ │ │ BLOCK/TAGBODY │ │ │ │ SYSTEM-INTERNAL-CATCHER │ │ │ │ FRS-KIND │ │ │ │ PRINT-FRS │ │ │ │ BREAK-BDS │ │ │ │ OPERATION │ │ │ │ OCOMPLEX │ │ │ │ INVALID-VARIABLEUSE │ │ │ │ SCH-FRS-BASE │ │ │ │ IHS-BACKTRACE │ │ │ │ -UNBOUND-VARIABLE │ │ │ │ +UNBOUND-VARIABLE@i │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ SUBCHAR │ │ │ │ SHARP-+-READER │ │ │ │ EVAL-FEATURE │ │ │ │ ,*READ-SUPPRESS* │ │ │ │ ,*READ-BASE* │ │ │ │ @@ -45026,15 +45281,14 @@ │ │ │ │ ADD-METHOD │ │ │ │ STRING-LEFT-TRIMBOOLE-ORC2 │ │ │ │ BOOLE-ORC1 │ │ │ │ INITIALIZE-INSTANCE │ │ │ │ STRING-NOT-LESSPWITH-OUTPUT-TO-STRING │ │ │ │ UNBOUND-VARIABLEDEFCLASS │ │ │ │ NO-NEXT-METHOD │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_env.o │ │ │ │ ROW-MAJOR-ASET │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NORMALIZE-INSTANCE │ │ │ │ FUNCALLABLE-CLASS-P │ │ │ │ FUNCALLABLE-STD-INSTANCE │ │ │ │ ,MEMBER-IF │ │ │ │ FUNCALLABLE-CLASS-P │ │ │ │ @@ -50751,15 +51005,14 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE0 │ │ │ │ ,BLOCK. │ │ │ │ EXTENDED-FUNCTION-DESIGNATOR │ │ │ │ FUNCTION-DESIGNATOR │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ EXTENDED-FUNCTION-DESIGNATOR88 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-END-OF-FILE class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE- │ │ │ │ DEFINE-SIMPLE-TYPEP-FN │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ @@ -50812,14 +51065,15 @@ │ │ │ │ NO-REG-VARS-P │ │ │ │ LAMBDA-LIST │ │ │ │ ,OTHERWISE │ │ │ │ LAMBDA-LIST │ │ │ │ ,LAMBDA-LIST-KEYWORDS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ NO-REG-VARS-P │ │ │ │ +SYSTEM:TAG SLOT3 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ progncompile286 │ │ │ │ COMPILERCOMMENT │ │ │ │ *MAKE-CONSTANT! │ │ │ │ +ARRAY-TYPEP-ALIST+ │ │ │ │ ,MAPCAR │ │ │ │ ,MAPCAR │ │ │ │ @@ -51174,14 +51428,15 @@ │ │ │ │ ,METHOD-COMBINATION │ │ │ │ REAL-DOCUMENTATION │ │ │ │ ,GETHASH │ │ │ │ *DOC-STRINGS* │ │ │ │ DOC-TYPE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_module.lsp │ │ │ │ REAL-DOCUMENTATION │ │ │ │ +SYSTEM:TAG SLOT2 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ WRITE-SYS-PROCLAIMS1 │ │ │ │ ,MAKE-HASH-TABLE │ │ │ │ KEYWORDTEST │ │ │ │ ,*PRINT-READABLY* │ │ │ │ ,DECLARE │ │ │ │ ,SPECIAL │ │ │ │ @@ -51211,14 +51466,15 @@ │ │ │ │ ,&OPTIONAL │ │ │ │ ,MAPCAR │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_evalmacros.lsp │ │ │ │ WRITE-SYS-PROCLAIMS1 │ │ │ │ PACKAGE-INTERNAL_SIZE │ │ │ │ PACKAGE-EXTERNAL_SIZE │ │ │ │ PACKAGE-SIZE │ │ │ │ +SYSTEM:TAG SLOT1FILE │ │ │ │ STRING-MATCH │ │ │ │ SYM-PLIST │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ STRING-LIST │ │ │ │ WRITE-SYS-PROCLAIMS │ │ │ │ ,MAKE-HASH-TABLE │ │ │ │ KEYWORDTEST │ │ │ │ @@ -51399,14 +51655,15 @@ │ │ │ │ ,LOAD-TIME-VALUE │ │ │ │ ,LOAD-TIME-VALUE │ │ │ │ ,LOAD-TIME-VALUE │ │ │ │ WITH-READ-VALUES │ │ │ │ ,DOLIST │ │ │ │ ,RETURN-FROM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_evalmacros.lsp │ │ │ │ +SYSTEM::TAG class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE- │ │ │ │ BINDINGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ @@ -51656,15 +51913,14 @@ │ │ │ │ ,SYMBOLP │ │ │ │ ,SYMBOLP │ │ │ │ CSTRUCTC-SYMBOL-GFDEF │ │ │ │ +OBJNULL+- │ │ │ │ ,FUNCTION-LAMBDA-EXPRESSION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_fle.lsp │ │ │ │ FUNCTION-SRC │ │ │ │ -INTERNAL-SIMPLE-END-OF-FILE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000) │ │ │ │ ,FUNCTION-LAMBDA-EXPRESSION │ │ │ │ INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111) │ │ │ │ ,FBOUNDP │ │ │ │ @@ -51692,124 +51948,26 @@ │ │ │ │ ,FIND-PACKAGE │ │ │ │ ,MAKE-PACKAGE │ │ │ │ ,FIND-PACKAGE │ │ │ │ ,MAKE-PACKAGE │ │ │ │ KEYWORDUSE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_dl.lsp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_dl.o │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_defcombin.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ LIB-NAME │ │ │ │ ,STRING= │ │ │ │ ,STRING= │ │ │ │ ,STRING= │ │ │ │ STRING-CONCATENATE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_dl.lsp │ │ │ │ LIB-NAME │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ -SLOT-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOTS-TO-INSPECT │ │ │ │ -SLOT-CLASS │ │ │ │ -SLOT-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -SLOT-OBJECT │ │ │ │ -SLOT-CLASS │ │ │ │ -7(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ --OBJECT │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOTS-TO-INSPECT │ │ │ │ -SLOT-CLASS │ │ │ │ -SLOT-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOTS-TO-INSPECT │ │ │ │ -CLASS-SLOTS │ │ │ │ DLADDR-SET │ │ │ │ DLLIST-PUSH │ │ │ │ +OPERATOR │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ LIB-NAME │ │ │ │ ,SYMBOL-VALUE │ │ │ │ DLADDR-SET │ │ │ │ DLLIST-PUSH │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_dl.lsp │ │ │ │ *FUNCTION-PLISTS* │ │ │ │ @@ -52060,14 +52218,15 @@ │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE0 │ │ │ │ ,BLOCK. │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_deftype.lsp │ │ │ │ +COMMON-LISP::SIMPLE-TYPE-ERROR class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE- │ │ │ │ ,DEFTYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ @@ -52295,14 +52454,15 @@ │ │ │ │ +NTYPES+ │ │ │ │ CURRENT-DIRECTORY-NAMESTRING │ │ │ │ EOF-ERROR-P │ │ │ │ +TYPE-OF-DISPATCH+ │ │ │ │ COMPLEX*-RATIO-INTEGER │ │ │ │ MOST-POSITIVE-IMMFIX │ │ │ │ ?TAGBODY │ │ │ │ +Type :H `y │ │ │ │ SET-CURRENT │ │ │ │ Insufficient arguments when binding ~s │ │ │ │ Extra argument ~s │ │ │ │ ZCOLLECT │ │ │ │ ZCOLLECT │ │ │ │ EDITOR-NAME │ │ │ │ INTEGER-RATIO │ │ │ │ @@ -52318,14 +52478,15 @@ │ │ │ │ FILE-SEARCH │ │ │ │ AUTOLOAD │ │ │ │ EOF-VALUE │ │ │ │ *GCL-RELEASE-DATE* │ │ │ │ DEFAULT-SYSTEM-BANNER │ │ │ │ COMPLETE-PROP │ │ │ │ EVALHOOK │ │ │ │ +command. │ │ │ │ BREAK-CALL │ │ │ │ MOST-NEGATIVE-IMMFIX │ │ │ │ Change the editor called by (ed) held in *gcl-editor*. │ │ │ │ EXTENDED-FUNCTION-DESIGNATOR │ │ │ │ CORRECTABLEP │ │ │ │ ENSURE-DIR-STRING │ │ │ │ +SINGLETON-TYPES+ │ │ │ │ @@ -52401,15 +52562,16 @@ │ │ │ │ NON-NEGATIVE-BIGNUM │ │ │ │ POSITIVE-LONG-FLOAT │ │ │ │ MAXIMUM-CONTIGUOUS-PAGES │ │ │ │ POSITIVE-SHORT-FLOAT │ │ │ │ DEFAULT-PPRINT-OBJECT │ │ │ │ STRUCTURE-ACCESSUID-TO-NAME │ │ │ │ INTERNAL-SUPER-GO │ │ │ │ -(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))SUPER-GO │ │ │ │ +entifica │ │ │ │ +SUPER-GO │ │ │ │ READLINE-OFF │ │ │ │ INIT-FUNCTION │ │ │ │ GET-AELTTYPE │ │ │ │ CATCH-FATAL │ │ │ │ NEGATIVE-SHORT │ │ │ │ TRACTABLE-FIXNUMUSER-INIT │ │ │ │ COMPILE-REGEXP │ │ │ │ @@ -52557,25 +52719,29 @@ │ │ │ │ NEGATIVE-REAL │ │ │ │ PATHNAME-DESIGNATOR │ │ │ │ DOUBLE-QUOTE-READER │ │ │ │ NON-NEGATIVE-FLOAT │ │ │ │ NON-NEGATIVE-LONG-FLOAT │ │ │ │ NON-NEGATIVE-SHORT-FLOAT │ │ │ │ CHAR-BIT │ │ │ │ +Welcome to xgcl! Try (xgcl-demo) for a demonstration. │ │ │ │ +reproducible-path │ │ │ │ +gcl_auto_new │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/lsp/gcl_auto_new.lsp │ │ │ │ +(((int(*)(int,void *))dlputc)(char_code( │ │ │ │ +)->sm.sm_fp)) │ │ │ │ +(((int(*)(int,void *))dlputc)( │ │ │ │ +)->sm.sm_fp)) │ │ │ │ +gc-monitor │ │ │ │ +GCL-TK-DEMO │ │ │ │ +terpri(Cnil) │ │ │ │ terpri(#0) │ │ │ │ ({enum type tp=type_of(#0);tp==t_string||tp==t_simple_string;}) │ │ │ │ consp(#0): │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::NAMES) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-SYMBOLS) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::OPERATIONS) │ │ │ │ -(#0)->s.s_dbind!=OBJNULL │ │ │ │ (#0)->s.s_dbind!=OBJNULL │ │ │ │ -@0;numberp(#0) │ │ │ │ -listp(#0): │ │ │ │ -STRUCTURE: │ │ │ │ *COMPILED-REGEXP-CACHE* │ │ │ │ ARRAY-HASFILLP │ │ │ │ ARRAY-ELTSIZE │ │ │ │ *BREAK-POINTS* │ │ │ │ NEGATIVE-LFIXNUMINFER-TP │ │ │ │ *MATCH-DATA* │ │ │ │ *NOTIFY-OPTIMIZE-MAXIMUM-PAGES* │ │ │ │ @@ -52679,15 +52845,15 @@ │ │ │ │ COMPLEX*- │ │ │ │ -SIMPLE-TYPEP-FNNIL-SIMPLE-TYPEP-FN │ │ │ │ @01;({fixnum _t=(#0)/(#1);_t=((#0)<=0 && (#1)<=0) || ((#0)>=0 && (#1)>=0) || ((#1)*_t==(#0)) ? _t : _t-1;@1((#0)-_t*(#1))@ _t;}) │ │ │ │ Backspace │ │ │ │ Linefeed │ │ │ │ ble-path/gcl27-2.7.1/sb_ansi_gcl/gcl_type.o │ │ │ │ /build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_typep.o │ │ │ │ -#8 A8q V_ │ │ │ │ +w1`#-N*Z │ │ │ │ ISPLAMBDA │ │ │ │ FUNCALLABLE-SYMBOL-FUNCTION │ │ │ │ CSTRUCTC-SYMBOL-GFDEF │ │ │ │ 9/build/reproducible-path/gcl27-2.7.1/lsp/gcl_typecase.lsp │ │ │ │ .FUNCALLABLE-SYMBOL-FUNCTION │ │ │ │ .*MAKE-CONSTANT │ │ │ │ -EXPECTED-TYPE │ │ │ │ @@ -53343,238 +53509,404 @@ │ │ │ │ #*11111011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ #*11011011101101100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,INTEGER │ │ │ │ #*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000) │ │ │ │ #*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000010000) │ │ │ │ ,ARRAY-ELEMENT-TYPE │ │ │ │ #*0000000000000000000000000000000000000000000000000011000000000000000000000000000000000011111111111111111111111111111111111000000 │ │ │ │ -0000000) │ │ │ │ -,ROW-MAJOR-AREFI │ │ │ │ -,ARRAY-ELEMENT-TYPEJK │ │ │ │ -.EXPAND-ARRAY-ELEMENT-TYPEL │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111) │ │ │ │ -.MAKE-VECTOR; │ │ │ │ -.COPY-BIT-VECTORM │ │ │ │ -#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111111111110000000) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -,SEQUENCE │ │ │ │ -,STRING-TRIM │ │ │ │ -,TAGBODY! │ │ │ │ -,RETURN-FROM │ │ │ │ -,TAGBODY- │ │ │ │ -,RETURN-FROM │ │ │ │ -3/build/reproducible-path/gcl27-2.7.1/lsp/gcl_sc.lsp │ │ │ │ -,STRING-TRIM │ │ │ │ -,PROCLAIM │ │ │ │ -.FIXNUMP │ │ │ │ -.FIXNUMP │ │ │ │ -.INIT-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -INFER-TP │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ - ,OTHERWISE │ │ │ │ -INFER-TP │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -3/build/reproducible-path/gcl27-2.7.1/lsp/gcl_sc.lsp │ │ │ │ -.FIXNUMP │ │ │ │ -,PROCLAIM │ │ │ │ -.INIT-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000) │ │ │ │ - ,OTHERWISE │ │ │ │ -INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111110111111) │ │ │ │ -3/build/reproducible-path/gcl27-2.7.1/lsp/gcl_sc.lsp │ │ │ │ - ,CONSTANTP │ │ │ │ -.INIT-FUNCTION │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - ,&OPTIONAL │ │ │ │ -,DECLARE │ │ │ │ +HASHTABLE72464 │ │ │ │ +HASHTABLE'w │ │ │ │ +BITVECTOR-SIMPLE-TYPEP-FNSTR │ │ │ │ +VAG72469 │ │ │ │ +BITVECTOR72468 │ │ │ │ +BITVECTOR'w │ │ │ │ +immnum_orc1(#0,#1)cl_arraylib.lsimmnum_orc1(#0,#1)1 │ │ │ │ +PCL::COMPILER::VAR SLOT2 │ │ │ │ +PCL::COMPILER::BLK SLOT111111111PCL::COMPILER::BLK SLOT711111111({object _y=(object)#0;is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));}) │ │ │ │ +.+A({object _y=(object)fix(#0);is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));}),T │ │ │ │ +({object _y=(object)#0;is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})000000000({object _y=(object)fixint(#0);is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})CPCL::COMPILER::VAR SLOT0 │ │ │ │ +T3PCL::COMPILER::FUN SLOT4RE │ │ │ │ +immnum_count(#0)PCL::COMPILER::FUN SLOT103 │ │ │ │ +#*111((#0) & (#1)) │ │ │ │ +immnum_and((#0),(#1))11111111111init_raw.lsp │ │ │ │ +immnum_negate(#1)111111101111) │ │ │ │ +(#0)-(#1)'w │ │ │ │ +immnum_minus(#0,#1)OR │ │ │ │ +,MAPCAR PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT2CAR │ │ │ │ +,QUPCL::COMPILER::BLK SLOT6RM-TP │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/unixport/raw_ansi_gclOT │ │ │ │ +,/build/reproducible-path/gcl27-2.7.1/unixport/AL-libdir │ │ │ │ +structure_ref(#0,#1,#2)th/gcl27-PCL::ANSI-LOOP::LOOP-PATH SLOT4*immnum_nor(#0,#1) │ │ │ │ + immnum_nor(#0,#1) │ │ │ │ +DOLIST271PCL::COMPILER::INFO SLOT6TH │ │ │ │ +.+APCL::ANSI-LOOP::LOOP-MINIMAX SLOT5 │ │ │ │ +cimag(#0)'w │ │ │ │ +cimag(#0)'w │ │ │ │ +(#0)->cmp.cmp_imag │ │ │ │ +cimag(#0)'w │ │ │ │ +cimag(#0)'w │ │ │ │ +(#0)->cmp.cmp_imag │ │ │ │ +PCL::COMPILER::VAR SLOT3 S │ │ │ │ +gcc -Wl,-z,relro -no-pie -Wl,-z,relro -Wl,-T,gcl.script -o │ │ │ │ +PCL::COMPILER::VAR SLOT8 │ │ │ │ +PCL::COMPILER::VAR SLOT13 │ │ │ │ +(#0)==(#1)w │ │ │ │ +char_code(#0)==char_code(#1) │ │ │ │ +eql(#0,#1)w │ │ │ │ +PCL::COMPILER::BINDING SLOT0 │ │ │ │ +PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT4 │ │ │ │ +write_pointer_object(#0,#1) │ │ │ │ +PCL::COMPILER::VAR SLOT4 │ │ │ │ +PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT5000000000000(((#0)->st.st_fillp)=(((#0)->st.st_hasfillp) ? (#1) : ((#0)->st.st_fillp)))00000(((#0)->st.st_fillp)=(((#0)->st.st_hasfillp) ? (#1) : ((#0)->st.st_fillp)))00000PCL::COMPILER::VAR SLOT12AKE-LISPCL::COMPILER::BLK SLOT200000000PCL::COMPILER::BINDING SLOT10000PCL::COMPILER::VAR SLOT110000000PCL::ANSI-LOOP::LOOP-PATH SLOT00 │ │ │ │ +Timmnum_orc2(#0,#1) │ │ │ │ +immnum_orc2(#0,#1) │ │ │ │ +,LPCL::ANSI-LOOP::LOOP-UNIVERSE SLOT1,IF │ │ │ │ +,CARPCL::COMPILER::FUN SLOT1,MAPL │ │ │ │ +make_simple_string(#1) │ │ │ │ +make_dcomplex(#1)TF1 │ │ │ │ +,LImake_fcomplex(#1)! │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +make_fixnum(#1) │ │ │ │ +code_char(#1) │ │ │ │ +make_longfloat(#1)IGNORABLE; │ │ │ │ +,make_shortfloat(#1) │ │ │ │ + PCL::COMPILER::FUN SLOT8Q │ │ │ │ +LP (#1)->v.v_self │ │ │ │ +(#1)->fixa.fixa_selfIF │ │ │ │ +,CAR(#1)->lfa.lfa_self │ │ │ │ +(#1)->sfa.sfa_self │ │ │ │ +,QUOTE(#1)->st.st_self(#1) │ │ │ │ +object_to_string(#1)lsp │ │ │ │ +(dcomplex)(#1) │ │ │ │ +object_to_dcomplex(#1)E │ │ │ │ +(fcomplex)(#1) │ │ │ │ +object_to_fcomplex(#1) │ │ │ │ +,Q(long)(#1)w │ │ │ │ +object_to_long(#1)SETVV │ │ │ │ +,APP(fixnum)(#1) │ │ │ │ +object_to_fixnum(#1) │ │ │ │ +.ROW-MAJO(uint)(#1)w │ │ │ │ +object_to_uint(#1)SYSTEM │ │ │ │ +LAMBD(ushort)(#1) │ │ │ │ +object_to_ushort(#1) │ │ │ │ +(uchar)(#1) │ │ │ │ +object_to_uchar(#1)RE │ │ │ │ +(int)(#1)'w │ │ │ │ +object_to_int(#1)TY │ │ │ │ +(short)(#1) │ │ │ │ +object_to_short(#1) │ │ │ │ +(char)(#1)w │ │ │ │ +object_to_char(#1) │ │ │ │ +R(character)(#1) │ │ │ │ +object_to_character(#1) │ │ │ │ +S(double)(#1) │ │ │ │ +object_to_double(#1),IGNORABLE-.(float)(#1) │ │ │ │ +object_to_float(#1)ROGN │ │ │ │ +object_to_fixnum(#1)ARE │ │ │ │ + ,IGNOR((fixnum*)((fixnum)#0))[(fixnum)2]Q │ │ │ │ +H((fixnum*)((fixnum)#0))[(fixnum)1]path/gcl27-2.7((fixnum)((uchar*)((fixnum)#0))[(fixnum)63]>>(fixnum)7) │ │ │ │ +.FSET((object*)((fixnum)#0))[(fixnum)5]ION │ │ │ │ +#0->c.c_cdr->c.c_car->c.c_cdr->c.c_car0000000000((object*)((fixnum)#0))[(fixnum)2]00000000000000(((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]>>(fixnum)5)&(fixnum)1)00000000000000((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)000000000001 │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)0000000000#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6] │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)1) │ │ │ │ +((object)#0) │ │ │ │ +#0->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)63) │ │ │ │ +(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455) │ │ │ │ +((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]00000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]00111111((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]H0 │ │ │ │ +#*110#0->c.c_car->c.c_cdr000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]00000000((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]00000000 │ │ │ │ +(#0>>#1) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]00000000 │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]00000000((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)4)&1152921504606846975) │ │ │ │ +,(((fixnum)((ushort*)((fixnum)#0))[(fixnum)1]>>(fixnum)6)&(fixnum)63)UES │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]00000000 │ │ │ │ +((object*)#0)[(fixnum)1]000) │ │ │ │ +,*((object*)((fixnum)#0))[(fixnum)4]00000000000000#0==#1 │ │ │ │ +#0->c.c_car │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]ROW-MAJO │ │ │ │ +(((object*)#0)[(fixnum)1]=#1)LAMtp3(#0) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10]ON │ │ │ │ +__builtin_clzl(#0)SAFETY │ │ │ │ +,BL(#0*#1) │ │ │ │ +((fixnum)#0) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]IXNUM │ │ │ │ +L((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]TION │ │ │ │ +,I((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ +,MAKE-SEQUE((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9],THE │ │ │ │ +,F(#0)->str.str_def->str.str_self[0] │ │ │ │ +((fixnum*)#0)[(fixnum)0] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]F │ │ │ │ +,FUN((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4],FUNCALL │ │ │ │ +labs(#0) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]NUM │ │ │ │ +,+((long*)((fixnum)#0))[(fixnum)8] │ │ │ │ +#0->c.c_cdr │ │ │ │ +#0->c.c_cdr │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2]M │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +,FIXNUM((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0],ELT │ │ │ │ + SE((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]XNUM │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] SEQUENC#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_carT* │ │ │ │ +G1653((object*)((fixnum)#0))[(fixnum)3]NUM │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3] │ │ │ │ +,QUOT((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]lsp │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)7) │ │ │ │ +-F((object*)((fixnum)#0))[(fixnum)7] │ │ │ │ +&Insuf((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]ORMAT-AR((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3] │ │ │ │ +-((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1].SETVV │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)17]-CONTRO((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5] │ │ │ │ +-FOR#0->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ +((object*)((fixnum)#0))[(fixnum)6]VV │ │ │ │ +-(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7) │ │ │ │ +G((object*)((fixnum)#0))[(fixnum)6] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]UOTE │ │ │ │ +,D((object*)((fixnum)#0))[(fixnum)2]UOTE │ │ │ │ +((long*)((fixnum)#0))[(fixnum)9] │ │ │ │ +#0->c.c_car │ │ │ │ +#0->c.c_car │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1] │ │ │ │ +,UNLESS │ │ │ │ +,((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1] │ │ │ │ +.HTENT((uint*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]R │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7],T │ │ │ │ +##0->c.c_car->c.c_cdr->c.c_cdr000((uchar*)((fixnum)#0))[(fixnum)24]00000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]OTE │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[#1]ASH-TABLE-ITERA │ │ │ │ +labs(#0) │ │ │ │ +#0->c.c_cdr->c.c_carS │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]ORDFORMAT-CONT((object*)((fixnum)#0))[(fixnum)3]inding ~s │ │ │ │ +2FO((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ +(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7) │ │ │ │ +__builtin_ctzl(#0) ~s │ │ │ │ +2FORMAT-A((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)11]LET │ │ │ │ +((fixnum*)((fixnum)#0))[(fixnum)1] │ │ │ │ +,E((fixnum)((uchar*)((fixnum)#0))[(fixnum)48]&(fixnum)3)nding ~s │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)73]00 │ │ │ │ +,IF((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]ROL │ │ │ │ +Ext((object*)((fixnum)#0))[(fixnum)4] │ │ │ │ +,IF3((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]LIST*. │ │ │ │ +((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975),WITH-HASH-TA │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2],GENSYM │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)5) │ │ │ │ +,LIS#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car-((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ +,QU((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]ST* │ │ │ │ +,Qtp5(#0) │ │ │ │ +((object*)((fixnum)#0))[(fixnum)4]QUOTE │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1] │ │ │ │ +((long*)((fixnum)#0))[(fixnum)4]#0->c.c_cdr->c.c_cdr->c.c_cdr │ │ │ │ +,L((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]UOTE │ │ │ │ +,((fixnum*)((fixnum)#0))[(fixnum)8]ST │ │ │ │ +,((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[(fixnum)0] │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)S │ │ │ │ + ((object*)((fixnum)#0))[(fixnum)7],T │ │ │ │ +((object*)((fixnum)#0))[(fixnum)5] │ │ │ │ +7/build/repr#0->c.c_car->c.c_cdr->c.c_car/gcmpz_odd_p(&(#0->big.big_mpz_t))E((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))T-FUNCTI((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]00000000((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]11111111((fixnum)((uchar*)((fixnum)#0))[(fixnum)59]>>(fixnum)6)000000000 │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]00111111111111 │ │ │ │ +sqrt(#0) │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2)0000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9]00000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]00000000((object*)((fixnum)#0))[(fixnum)5]00000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]) │ │ │ │ +,ARR((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)111((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]11111111((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]OR; │ │ │ │ +#*00((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))11111111 │ │ │ │ +#0->c.c_cdr │ │ │ │ +#0->c.c_cdr->c.c_carCOMMON-LISPL((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]PE │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]QUOTE │ │ │ │ +7/build/((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)11]-SEQ │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]MENTS │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]FSET │ │ │ │ +((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ ,CONSTANTP │ │ │ │ -INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111111) │ │ │ │ -CSTRUCTC-SYMBOL-STYPE │ │ │ │ -INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ - ,OTHERWISE │ │ │ │ -INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111p │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ -LAMBDA-CLOSURE │ │ │ │ -COMMON-LISPDECLARE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ -#*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000010000) │ │ │ │ -,QUOTE │ │ │ │ -,FORMAT2 │ │ │ │ -LAMBDA-CLOSURE │ │ │ │ -COMMON-LISPDECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,LAMBDA │ │ │ │ -,*QUERY-IO* │ │ │ │ -'~&type a form to be evaluated for ~s:~% │ │ │ │ -,*QUERY-IO* │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ -,FORMAT2 │ │ │ │ -LAMBDA-CLOSURE │ │ │ │ -COMMON-LISPVALUES │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -/Supply a new values for ~s (old values are ~s). │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ --FUNCTION │ │ │ │ --TEST-FUNCTION │ │ │ │ --INTERACTIVE-FUNCTION │ │ │ │ --REPORT-FUNCTION │ │ │ │ -Repeat assertion. │ │ │ │ -,VALUES-LIST │ │ │ │ -.ASSERT-PLACES │ │ │ │ -.INIT-FUNCTION │ │ │ │ -.MAKE-RESTART45 │ │ │ │ -,FORMAT2 │ │ │ │ -,CERROR6 │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000) │ │ │ │ -,VALUES-LIST │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -ASSERT-PLACES │ │ │ │ -*RESTART-CONDITION*/ │ │ │ │ -,DECLARE │ │ │ │ -,SPECIAL │ │ │ │ -*RESTART-CONDITION* │ │ │ │ -,TAGBODY │ │ │ │ -*RESTARTS* │ │ │ │ -MAKE-RESTART │ │ │ │ -KEYWORDNAME │ │ │ │ -,STORE-VALUE │ │ │ │ -0FUNCTION │ │ │ │ -0TEST-FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -0INTERACTIVE-FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -,*QUERY-IO* │ │ │ │ -'~&type a form to be evaluated for ~s:~% │ │ │ │ -,*QUERY-IO* │ │ │ │ -0REPORT-FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -/Supply a new values for ~s (old values are ~s). │ │ │ │ -*RESTART-CONDITION* │ │ │ │ -*RESTARTS* │ │ │ │ -,DECLARE │ │ │ │ -,SPECIAL │ │ │ │ -*RESTARTS* │ │ │ │ -,RETURN-FROM- │ │ │ │ -Repeat assertion. │ │ │ │ -,RETURN-FROM- │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -,VALUES-LIST │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ -.ASSERT-PLACES │ │ │ │ -/Supply a new values for ~s (old values are ~s). │ │ │ │ -'~&type a form to be evaluated for ~s:~% │ │ │ │ - .TEST-FORM │ │ │ │ --FORMAT-CONTROL │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -The assertion ~:@(~S~) failed. │ │ │ │ -,MULTIPLE-VALUE-SETQ │ │ │ │ -.ASSERT-PLACES │ │ │ │ -,ASSERT │ │ │ │ -.INIT-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE- │ │ │ │ - TEST-FORM │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ - TEST-FORM │ │ │ │ -,STRING │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT. │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ - TEST-FORM │ │ │ │ -,MULTIPLE-VALUE-SETQ │ │ │ │ -ASSERT-PLACES │ │ │ │ -,STRING │ │ │ │ -,STRING │ │ │ │ -The assertion ~:@(~S~) failed. │ │ │ │ - TEST-FORM │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ -.KEYFORM │ │ │ │ --FORMAT-CONTROL │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -.IMPROPER-CONSP │ │ │ │ -.PROPER-LIST │ │ │ │ - CTYPECASE │ │ │ │ -,TYPECASE │ │ │ │ -,INTEGER │ │ │ │ -,INTEGER │ │ │ │ -,CHECK-TYPE │ │ │ │ - ,CTYPECASE │ │ │ │ -.INIT-FUNCTION │ │ │ │ -,QUOTE │ │ │ │ -.IMPROPER-CONSP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000) │ │ │ │ -.CHECK-TYPE-SYMBOL3 │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE- │ │ │ │ - ,CTYPECASE │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,LOAD-TIME-VALUE │ │ │ │ - CTYPECASE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ - ,CTYPECASE │ │ │ │ -,TYPECASE │ │ │ │ -KEYFORM │ │ │ │ -,MAPCAR │ │ │ │ -,RETURN │ │ │ │ -,CHECK-TYPE │ │ │ │ -KEYFORM │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ - ,CTYPECASE │ │ │ │ -TYPESPEC │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -TYPESPEC │ │ │ │ -,STRING │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]0 │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6))) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +S((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]000000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]*1111111((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)111011111111((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]1) │ │ │ │ +,((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]lsp │ │ │ │ +,((((long*)((fixnum)#0))[(fixnum)7]>>(fixnum)4)&1152921504606846975)-FUNCTION │ │ │ │ +,((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3] │ │ │ │ +CO#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_carNFER-TP │ │ │ │ +#*00#0->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr0000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]00000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]11111111#0->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr1111111111 │ │ │ │ +(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)build/reproduci((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ +000#0->c.c_cdr->c.c_car000000000000((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)000 │ │ │ │ +(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +#*0000000 │ │ │ │ +(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)001) │ │ │ │ +(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)0001000) │ │ │ │ +(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +.SIGNED-SHOR │ │ │ │ +(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)111111111111 │ │ │ │ +(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)00000000000 │ │ │ │ +(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)TRIM │ │ │ │ +(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)Q │ │ │ │ +(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)E │ │ │ │ +,STRING- │ │ │ │ +(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)01110110111 │ │ │ │ +({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})ROW-MAJOR-A((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))111mpz_even_p(&(#0->big.big_mpz_t))tp8(#0) │ │ │ │ +((object)(((fixnum)code_char(0))+(#0<<(fixnum)6)))00000000000000 │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]00000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]DA │ │ │ │ +,D((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]CE │ │ │ │ +,BL((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0],LENGTH │ │ │ │ +#0->c.c_cdr->c.c_car->c.c_car- │ │ │ │ +((fixnum*)((fixnum)#0))[(fixnum)1] │ │ │ │ +I((fixnum*)((fixnum)#0))[(fixnum)1] │ │ │ │ +,L#0==#1 │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]I │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]-path/gc#0==#1 │ │ │ │ +#0->c.c_cdr->c.c_carRIGHT-TRIM │ │ │ │ +#0->c.c_cdr->c.c_car │ │ │ │ +,QU((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)72] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)3]NG= │ │ │ │ +,LEN((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]00000000((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)31)0000000000((object*)((fixnum)#0))[(fixnum)2],ARRAY-ELEMENTtp4(#0) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]11111111#0->c.c_cdr->c.c_cdr111111111111#0->c.c_cdr->c.c_cdr111111111111#0->c.c_car->c.c_cdr->c.c_cdr->c.c_carOR; │ │ │ │ +(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)1111111111 │ │ │ │ +(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +,CHECK-T │ │ │ │ +(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)! │ │ │ │ +(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2),GO- │ │ │ │ +(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)PROGN │ │ │ │ +(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)INLINE │ │ │ │ +(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)OMMON-LISPL │ │ │ │ +(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)0000000000 │ │ │ │ +(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)0000000000 │ │ │ │ +(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)3/build/repr │ │ │ │ +(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2),QUOTE │ │ │ │ +(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ +({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})00000000000((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))111((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))A │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]000000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]00000000 │ │ │ │ +((object*)((fixnum)#0))[(fixnum)4] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ +EN((object*)((fixnum)#0))[(fixnum)2]P5 │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]00000000 │ │ │ │ +((object*)((fixnum)#0))[(fixnum)3]000000111111) ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]#*000000tp6(#0) │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]00000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]TE │ │ │ │ +#0->c.c_car │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]" │ │ │ │ +((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ +#0->c.c_cdr->c.c_cdr->c.c_car->c.c_car │ │ │ │ +#0->c.c_car->c.c_car │ │ │ │ +__builtin_isnormal(#0) │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]s │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ +#0->c.c_car │ │ │ │ +#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]136 │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]UOTE │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]00 │ │ │ │ +((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]B │ │ │ │ +((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]A │ │ │ │ +((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]AM │ │ │ │ ,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -,SYMBOLP │ │ │ │ -TYPESPEC │ │ │ │ +((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]CES │ │ │ │ +((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))ORMAT2 │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]000000000000000((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)DA │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]DYNAMIC-((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3],LET* ! │ │ │ │ +#0->c.c_cdr │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]GBODY │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]CTION │ │ │ │ +((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] ( │ │ │ │ +((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]T │ │ │ │ +((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]& │ │ │ │ +((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]V │ │ │ │ +-FORMAT-CO │ │ │ │ +((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]led. │ │ │ │ +((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1], │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))OR │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ +#0->c.c_cdr->c.c_car->c.c_cdrCDR((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6] │ │ │ │ +((fixnum*)((fixnum)#0))[(fixnum)6]NAMIC-EXTENT. │ │ │ │ +#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdrBLOCK │ │ │ │ +,AS((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5] │ │ │ │ +,QUOTE#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car* │ │ │ │ +,QUOTEmpz_sgn(&(#0->big.big_mpz_t))SSE((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]UOTE │ │ │ │ +,L((object*)((fixnum*)((fixnum)((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]))[(fixnum)1])[(fixnum)11]e((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]build/re │ │ │ │ +(#0<<#1) │ │ │ │ +((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3)O │ │ │ │ +sqrtf(#0)'w │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]R │ │ │ │ +,QUO((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7],GENSYM │ │ │ │ +#0->c.c_car │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3],TYPECAS │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ +.SETV((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] │ │ │ │ +,QUOTE ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]TE │ │ │ │ +({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})E │ │ │ │ +,ERROR((object*)((fixnum)#0))[(fixnum)6]00000000000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]00000000((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]CK-TYPE-((fixnum*)((fixnum)#0))[(fixnum)2]SYSTEM │ │ │ │ +C((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]OCK │ │ │ │ + ,CT((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)16)&281474976710655)tp7(#0) │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]RROR │ │ │ │ +((object*)((fixnum)#0))[(fixnum)1]ent arguments ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]FORM │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]YPECASE │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ +,TY((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]L │ │ │ │ +,LIS((~((fixnum)-1<<#0))<<(fixnum)0)((fixnum*)((fixnum)#0))[(fixnum)7]RM │ │ │ │ +((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] │ │ │ │ +(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)27-2.7.1/lsp/gc │ │ │ │ +(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)0 │ │ │ │ +,SE((fixnum*)((fixnum)#0))[(fixnum)2]1FORMAT-CONTRO((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]ENTS │ │ │ │ +,((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975) │ │ │ │ +,#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ +((object*)((fixnum)#0))[(fixnum)2]Extra argument((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)13] │ │ │ │ +,CAR. ((fixnum*)((fixnum)#0))[(fixnum)5]IGNORE4 │ │ │ │ +,DECPCL::COMPILER::VAR SLOT10Y │ │ │ │ +,PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT0 │ │ │ │ +,Limmnum_boole(#0,#1,#2)PLACE │ │ │ │ +,Qimmnum_bool(#0,#1,#2) │ │ │ │ +PLA#0->s.s_gfdef │ │ │ │ +ctimes(#0,#1) │ │ │ │ +cplus(#0,#1) │ │ │ │ +PCL::ANSI-LOOP::LOOP-PATH SLOT1P((#0)%(#1)) │ │ │ │ +immnum_rem(#0,#1)E │ │ │ │ TYPESPEC │ │ │ │ -CHECK-TYPE-SYMBOL │ │ │ │ -TYPESPEC │ │ │ │ -7/build/reproducible-path/gcl27-2.7.1/lsp/gcl_assert.lsp │ │ │ │ -,CHECK-TYPE │ │ │ │ -,*QUERY-IO* │ │ │ │ - ~&type a form to be evaluated:~% │ │ │ │ +PL(#0)>(#1)'w │ │ │ │ +PCL::ANSI-LOOP::LOOP-MINIMAX SLOT3,QUOTE │ │ │ │ +,QUOTE(#0)->rat.rat_num,LIST │ │ │ │ +PCL::COMPILER::FUN SLOT3T │ │ │ │ +,QUO(#0)!=(#1)w │ │ │ │ +char_code(#0)!=char_code(#1)epro!eql(#0,#1) │ │ │ │ +PCL::COMPILER::INFO SLOT5sp │ │ │ │ +,PCL::COMPILER::INFO SLOT0 │ │ │ │ +PCL::ANSI-LOOP::LOOP-MINIMAX SLOT0 │ │ │ │ +,QPCL::COMPILER::INFO SLOT2 evaluaPCL::ANSI-LOOP::LOOP-UNIVERSE SLOT3 │ │ │ │ .READ-EVALUATED-FORM │ │ │ │ .INIT-FUNCTION │ │ │ │ #*00000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,QUOTE │ │ │ │ ,FORMAT2 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ READ-EVALUATED-FORM │ │ │ │ @@ -53791,37 +54123,32 @@ │ │ │ │ .INIT-FUNCTION │ │ │ │ .PROCESS-ERRORN │ │ │ │ .MAKE-RESTARTOP │ │ │ │ ,WRITE-STRING2 │ │ │ │ .COERCE-TO-CONDITIONQ │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000) │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011000) │ │ │ │ -CONDITIONS::PATHNAME-ERROR class predicate │ │ │ │ -rol-erro │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -&OPTIONA │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,FILE-ERROR │ │ │ │ +,STREAM-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,FILE-ERROR │ │ │ │ +,STREAM-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,FILE-ERROR │ │ │ │ -.(PCL::FAST-METHOD PRINT-OBJECT (FILE-ERROR T)) │ │ │ │ +,STREAM-ERROR │ │ │ │ +0(PCL::FAST-METHOD PRINT-OBJECT (STREAM-ERROR T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -53865,15 +54192,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,FILE-ERROR │ │ │ │ +,STREAM-ERROR │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -53896,47 +54223,82 @@ │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -File error on ~s: │ │ │ │ +Stream error on stream ~s: │ │ │ │ -SLOT-BOUNDP-NORMAL │ │ │ │ -,PATHNAME │ │ │ │ -,FILE-ERROR-PATHNAME │ │ │ │ -,I/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp1/l(FAST-METHOD PRINT-OBJECT (FILE-ERROR T)) │ │ │ │ -,USE-VALp\ │ │ │ │ -COMMON-LISP::FILE-ERROR class predicateL-TOP-RES@i │ │ │ │ -01000000 │ │ │ │ +,STREAM-ERROR-STREAM │ │ │ │ +NVOKE-REp\ │ │ │ │ +COMMON-LISP::STREAM-ERROR class predicatelsp/gcl@i │ │ │ │ +nsfer co │ │ │ │ +T-FUNCTI │ │ │ │ +00000000 │ │ │ │ +SPLAMBDA │ │ │ │ +estart.lp │ │ │ │ +ning nil │ │ │ │ +Stream error on stream ~s: 00000Unexpected end of file: 00000000 │ │ │ │ +INTERNAL-SIMPLE-FILE-ERROR │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-FILE-ERROR class predicate0000000000@i │ │ │ │ +ue, retu │ │ │ │ +,*DEBUG- │ │ │ │ +/reprodu │ │ │ │ +AT-CONTR │ │ │ │ +PATHNAME-ERROR │ │ │ │ +CONDITIONS::PATHNAME-ERROR class predicate-ARGUM@i │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ +2F(FAST-METHOD PRINT-OBJECT (FILE-ERROR T))CONTROL@i │ │ │ │ +COMMON-LISP::FILE-ERROR class predicate-ARGUMENT@i │ │ │ │ +ble-path │ │ │ │ +MAT-CONT │ │ │ │ +00000000 │ │ │ │ +CONDITIONS::STACK-OVERFLOW class predicate000000@i │ │ │ │ +11111111 │ │ │ │ +00000000 │ │ │ │ +00000000pO │ │ │ │ +,&OPTION │ │ │ │ +COMMON-LISP::STORAGE-CONDITION class predicate,L@i │ │ │ │ +UG-RESTA │ │ │ │ +CONTINUE │ │ │ │ +EAK-READ │ │ │ │ +COMMON-LISP::SERIOUS-CONDITION class predicateE │ │ │ │ +G-ABORT* │ │ │ │ +UG-LEVEL │ │ │ │ +MON-LISP │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-CONTROL-ERROR class predicatelsp/gcl@i │ │ │ │ +-FUNCTIO │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-ABORT-FAILURE class predicateAT │ │ │ │ +AK-LEVEL │ │ │ │ +CH-FATAL │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ 00000000 │ │ │ │ -File error on ~s: (continue) │ │ │ │ -INTERNAL-SIMPLE-PACKAGE-ERRORl27 i │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-PACKAGE-ERROR class predicateST │ │ │ │ --CONTROL │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispTRE(FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))EAM │ │ │ │ -COMMON-LISP::PACKAGE-ERROR class predicateUMENTS@i │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,CELL-ERROR │ │ │ │ +ABORT-FAILURE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,CELL-ERROR │ │ │ │ +ABORT-FAILURE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,CELL-ERROR │ │ │ │ -.(PCL::FAST-METHOD PRINT-OBJECT (CELL-ERROR T)) │ │ │ │ +ABORT-FAILURE │ │ │ │ +1(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -53980,15 +54342,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,CELL-ERROR │ │ │ │ +ABORT-FAILURE │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -54009,88 +54371,50 @@ │ │ │ │ ,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Cell error on ~s: │ │ │ │ --SLOT-BOUNDP-NORMAL │ │ │ │ -,CELL-ERROR-NAME │ │ │ │ -TE/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp,SA(FAST-METHOD PRINT-OBJECT (CELL-ERROR T))AM │ │ │ │ -27-2.7.1 │ │ │ │ -COMMON-LISP::CELL-ERROR class predicate#*0000000@i │ │ │ │ -00000000 │ │ │ │ -AKE-REST │ │ │ │ -00000000 │ │ │ │ -Cell error on ~s: FUNCTION │ │ │ │ -,LAUnbound variable: FORMAT │ │ │ │ -,STREASlot is unbound in ~s: │ │ │ │ -*RESTARTUndefined function: TS* │ │ │ │ -l27-2.7. │ │ │ │ -00000000p\ │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000p\ │ │ │ │ -~%Arithmetic error when performing ~s on ~s: FUN~s fell through ~s expression.~%wanted one of ~:s.370 │ │ │ │ -0REPORT-FABORT-FAILURE │ │ │ │ +,WRITE-STRING │ │ │ │ abort failed. │ │ │ │ -Condition in ~S [or a callee]: eINTERNAL-SIMPLE-ERROR*RESTART-COINTERNAL-SIMPLE-WARNING,DECLARE │ │ │ │ -INTERNAL-SIMPLE-STACK-OVERFLOWRNINTERNAL-SIMPLE-STYLE-WARNING │ │ │ │ - INTERNAL-SIMPLE-DIVISION-BY-ZEROINTERNAL-SIMPLE-ABORT-FAILUREAT │ │ │ │ -INTERNAL-SIMPLE-FLOATING-POINT-OVERFLOW │ │ │ │ -INTERNAL-SIMPLE-FLOATING-POINT-UNDERFLOW │ │ │ │ -SET-BINTERNAL-SIMPLE-FLOATING-POINT-INVALID-OPERATIONINTERNAL-SIMPLE-FLOATING-POINT-INEXACT-FROM- │ │ │ │ -,INTERNAL-SIMPLE-PROGRAM-ERROR,T.INTERNAL-SIMPLE-CONTROL-ERRORIO*FPE-XU │ │ │ │ -FPE-XUOD │ │ │ │ -FPE-XUOI │ │ │ │ -FPE-XUDI │ │ │ │ -FPE-XODI │ │ │ │ -FPE-UODI │ │ │ │ -FPE-XUODIS │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispVV │ │ │ │ -UG-ABORT │ │ │ │ -CONDITIONS::STORAGE-EXHAUSTED class predicate │ │ │ │ -00000000 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-STACK-OVERFLOW class predicate001111@i │ │ │ │ -11111011 │ │ │ │ +Q-CO/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ +,(FAST-METHOD PRINT-OBJECT (CONDITIONS::ABORT-FAILURE T))#*111111@i │ │ │ │ +11111111 │ │ │ │ +CONDITIONS::ABORT-FAILURE class predicate1) │ │ │ │ +_sharp.l │ │ │ │ +T-DISPAT │ │ │ │ 00000000 │ │ │ │ +OMMON-LI │ │ │ │ +COMMON-LISP::CONTROL-ERROR class predicateEXT-VE@i │ │ │ │ +TEXT-FIR │ │ │ │ +.7.1/lsp │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-PROGRAM-ERROR class predicate │ │ │ │ +PLAMBDA │ │ │ │ +cl27-2.7 │ │ │ │ +.SHARP-E │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -ARP-EQ-C │ │ │ │ -~s= mult │ │ │ │ -CT*OBJEC │ │ │ │ -CONDITIONS::STACK-OVERFLOW class predicate │ │ │ │ -COMMON-LISP::STORAGE-CONDITION class predicateY │ │ │ │ -cl_sharp │ │ │ │ -ing #~s= │ │ │ │ -ASHTABLE │ │ │ │ 00000000 │ │ │ │ +COMMON-LISP::PROGRAM-ERROR class predicateIF │ │ │ │ +-CONTEXT │ │ │ │ 00000000 │ │ │ │ -COMMON-LISP::SERIOUS-CONDITION class predicateA @i │ │ │ │ -ATCH-SHA │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-CONTROL-ERROR class predicate0000000@i │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-ERROR class predicate000000000000000@i │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-ABORT-FAILURE class predicate,SETQ │ │ │ │ -OSITIVE- │ │ │ │ +,DECLARE │ │ │ │ +COMMON-LISP::SIMPLE-ERROR class predicate,PROGN │ │ │ │ +,MOST-PO │ │ │ │ 00000000 │ │ │ │ -T-POSITI │ │ │ │ -PATCH-SH │ │ │ │ +URN-FROM │ │ │ │ +MAJOR-AR │ │ │ │ +COMMON-LISP::ERROR class predicateN-FROM │ │ │ │ 00000000 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp,LE(FAST-METHOD PRINT-OBJECT (CONDITIONS::ABORT-FAILURE T))E-LENGTH@i │ │ │ │ -CONDITIONS::ABORT-FAILURE class predicateNUM │ │ │ │ COMPILER │ │ │ │ COMMON-LISPQUOTE │ │ │ │ ,IN-PACKAGE │ │ │ │ KEYWORDSI │ │ │ │ SYSTEM*MAKE-SPECIAL │ │ │ │ .*PATHNAME-LOGICAL* │ │ │ │ .*PATHNAME-LOGICAL* │ │ │ │ @@ -66718,19 +67042,14 @@ │ │ │ │ #*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000001111111111101100000000000000001110000000) │ │ │ │ CSTRUCTC-ARRAY-HASFILLP │ │ │ │ ,OTHERWISE │ │ │ │ INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111011111111111111111111111111111111111110000000000010011111111111111110001111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_arraylib.lsp │ │ │ │ *UNIQ-TP* │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-WARNING class predicate │ │ │ │ -COMMON-LISP::SIMPLE-WARNING class predicate │ │ │ │ -COMMON-LISP::WARNING class predicate │ │ │ │ -COMMON-LISP::STYLE-WARNING class predicate │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-STYLE-WARNING class predicate │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ @@ -66823,18 +67142,15 @@ │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,SIMPLE-CONDITION-FORMAT-CONTROL │ │ │ │ !,SIMPLE-CONDITION-FORMAT-ARGUMENTS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T)) │ │ │ │ -COMMON-LISP::SIMPLE-CONDITION class predicate │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-PATHNAME-ERROR class predicate │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-PATHNAME-ERROR class predicateW │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ @@ -66958,29 +67274,29 @@ │ │ │ │ ,STRINGP │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,MAPCAR │ │ │ │ ,SLOT-BOUNDP │ │ │ │ SLOT-SYM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispM │ │ │ │ COERCE-TO-FN │ │ │ │ ignore this define-condition option. │ │ │ │ invalid define-condition option: ~s │ │ │ │ -Extra argument ~s │ │ │ │ +Extra argument ~sYZ │ │ │ │ ~@ │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEMOBJECT │ │ │ │ CONDITIONP │ │ │ │ ,CONDITION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispX │ │ │ │ CONDITIONP │ │ │ │ #<~s.~d>@ │ │ │ │ -not a condition type: ~s │ │ │ │ +not a condition type: ~s0 │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ @@ -67073,19 +67389,130 @@ │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,CLASS-NAME │ │ │ │ ,CLASS-OF │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ #<~s.~d> │ │ │ │ SYSTEMUNIQUE-ID │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp] │ │ │ │ (FAST-METHOD PRINT-OBJECT (CONDITION T)) │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispX │ │ │ │ -(FAST-METHOD MAKE-LOAD-FORM (CONDITION)) │ │ │ │ +CONDITIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +PCL.PV-CELL. │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ +-.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +-.REST-ARG. │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ + ,CONDITION │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-NAME │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ + ,CONDITION │ │ │ │ +,DECLARE │ │ │ │ +-METHOD-LAMBDA-LIST │ │ │ │ + ,&OPTIONAL │ │ │ │ + ,CONDITION │ │ │ │ +-(PCL::FAST-METHOD MAKE-LOAD-FORM (CONDITION)) │ │ │ │ +,MACROLET │ │ │ │ +-PV-ENV │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +-PV-TABLE-SYMBOL │ │ │ │ +-PV-PARAMETERS │ │ │ │ + -.PV-CELL. │ │ │ │ + -.PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +-MAKE-PV-TYPE-DECLARATION │ │ │ │ +-MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-%CHECK-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +.OBJECT │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-.REST-ARG. │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CNM-ARGS │ │ │ │ + -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-.REST-ARG. │ │ │ │ +-CNM-ARGS │ │ │ │ + -BIND-ARGS │ │ │ │ +-.REST-ARG. │ │ │ │ +-CNM-ARGS │ │ │ │ +-.REST-ARG. │ │ │ │ +-CNM-ARGS │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NO-NEXT-METHOD │ │ │ │ +-METHOD-NAME-DECLARATION │ │ │ │ +-.REST-ARG. │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +-.NEXT-METHOD-CALL. │ │ │ │ +-CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +-CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +-CNM-ARGS │ │ │ │ +-CALL-NEXT-METHOD-BODY │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ + ,CONDITION │ │ │ │ +-CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +-NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +-.REST-ARG. │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,DECLARE │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +&~@ │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispN │ │ │ │ +(FAST-METHOD MAKE-LOAD-FORM (CONDITION))`UC │ │ │ │ COMMON-LISP::CONDITION class predicate │ │ │ │ +(COMBINED-METHOD ENSURE-GENERIC-FUNCTION-USING-CLASS) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +MAKE-SHORT-METHOD-COMBINATION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +gcl_pcl_ctypes.o │ │ │ │ *UNIQ-SIG* │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CONC-NAME │ │ │ │ SLOT-NAME │ │ │ │ DEFAULT-INIT │ │ │ │ SLOT-TYPE │ │ │ │ READ-ONLY │ │ │ │ @@ -78944,156 +79371,137 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ ,NUMBER │ │ │ │ ,CHECK-TYPE │ │ │ │ ,NUMBER │ │ │ │ NUMBER-TIMES │ │ │ │ NUMBER-TIMES │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_nr.lsp │ │ │ │ -PCL NEXT-METHOD-CALL slot READERp │ │ │ │ -le-path/ │ │ │ │ -N-ORDEREPCL OVERFLOW slot READER │ │ │ │ -MMON-LIS │ │ │ │ - a sorte │ │ │ │ -rder fun │ │ │ │ -SLOOP-COSYSTEM INCLUDED slot READER │ │ │ │ -P-COLLECp\ │ │ │ │ -,SCOMMON-LISP PACKAGE slot READER │ │ │ │ +SYSTEM CONC-NAME slot WRITER │ │ │ │ +PCL PV-SIZE slot WRITER-LIST │ │ │ │ +INIT-FUN │ │ │ │ +COMPILER SWITCH slot WRITERN-LISp │ │ │ │ +PCL CACHED-DEFAULT-INITARGS-FUNCTION slot WRITERp │ │ │ │ +SYSTEM SLOT-DESCRIPTIONS slot READERUX │ │ │ │ +the non │ │ │ │ +PCL CACHE slot WRITER │ │ │ │ +EYWORDSL │ │ │ │ +PCL CPD-AFTER slot READERX │ │ │ │ E-SLOOP- │ │ │ │ -.IN-FRIp\ │ │ │ │ -of treeIPCL INDEX slot WRITERIN-FRINGE-Sp │ │ │ │ -VPCL WRAPPER0 slot WRITER │ │ │ │ -DECLARES │ │ │ │ -.7.1/lsp │ │ │ │ -.SLOOP-PCL PV-SIZE slot WRITER │ │ │ │ -.SLOOP-p │ │ │ │ +SYSTEM CONSTRUCTORS slot READER-p │ │ │ │ Y-SLOOP- │ │ │ │ - a non n │ │ │ │ -,COMPILER REF-CCB slot WRITERQUOTp │ │ │ │ --CAREFUL │ │ │ │ -LY-SLOOP │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ - by then │ │ │ │ -.FIRST-U │ │ │ │ -,QCONDITIONS FUNCTION-NAME slot READER │ │ │ │ -00000000 │ │ │ │ -NITIALLYPCL MASK slot READERESETQ │ │ │ │ -,QUOSYSTEM CONSTRUCTORS slot WRITER-p │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -COMMON-LISP METHOD slot WRITERERp │ │ │ │ -CONDITIONS FORMAT-CONTROL slot WRITER │ │ │ │ +PCL CACHED-NEW-KEYS slot WRITERnp │ │ │ │ +SYSTEM RAW slot WRITEROP-FOR │ │ │ │ +/SPUTPRO │ │ │ │ +st be fo │ │ │ │ +00000000 │ │ │ │ +CONDITIONS OPERATION slot WRITERp │ │ │ │ +PCL ARG-INFO-KEYWORDS slot READER │ │ │ │ +owed by │ │ │ │ +00000000p\ │ │ │ │ +PCL ARG-INFO-PRECEDENCE slot WRITER │ │ │ │ +COMMON-LISPp │ │ │ │ +NITIALLY │ │ │ │ +PCL CALL-LIST slot READER,QUOTE │ │ │ │ +.7.1/lsp │ │ │ │ +LLATE-ORp\ │ │ │ │ +SYSTEM FROZEN slot READERE │ │ │ │ 00000000 │ │ │ │ -h/gcl27- │ │ │ │ -PCL CACHED-INITARGS-FORM-LIST slot WRITER │ │ │ │ 00000000 │ │ │ │ -SYSTEM REF slot WRITEROGN │ │ │ │ - .PACK-H │ │ │ │ +SYSTEM OFFSET slot READER │ │ │ │ +CONDITIONS POSSIBILITIES slot READER │ │ │ │ 00000000 │ │ │ │ -00000000SYSTEM INCLUDED slot WRITER00000p │ │ │ │ +PACKAGE- │ │ │ │ +PCL SLOT-NAME-LISTS slot READERKp │ │ │ │ +FUNID-SY │ │ │ │ +00000000p\ │ │ │ │ +PCL ARG-INFO-KEY/REST-P slot WRITER0000000000000p │ │ │ │ +PCL FIELD slot READEROL-APROPOS │ │ │ │ +00000000p\ │ │ │ │ +PCL NEXT-METHOD-CALL slot WRITERp │ │ │ │ 00000000 │ │ │ │ -11111111 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ +PCL IDENTITY-WITH-ONE-ARGUMENT slot WRITERPACKAGp │ │ │ │ 11111111 │ │ │ │ -11111111 │ │ │ │ -00000000PCL CACHED-RI-VALID-P slot WRITER010100000000000p │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000COMPILER REF-CLB slot WRITER0000p │ │ │ │ -SPLAMBDA │ │ │ │ -GE-INTER │ │ │ │ -,IF CONDITIONS OPERATION slot WRITERp │ │ │ │ -ERNAL/26 │ │ │ │ -CKAGE-SI │ │ │ │ -COERCE-CONDITIONS DATUM slot WRITER │ │ │ │ -,LISPCL PV-CELL slot READER │ │ │ │ -00000000p\ │ │ │ │ -,SYMBPCL NLINES slot WRITER │ │ │ │ - ,IGNORABp │ │ │ │ -11111111PCL GF-PRECOMPUTE-DFUN-AND-EMF-P slot READER1111p │ │ │ │ -STRUCTC- │ │ │ │ -t permit │ │ │ │ -.SETVVSYSTEM SIZE slot WRITERCKNAMES │ │ │ │ -00000110 │ │ │ │ -PCL GF-INFO-STATIC-C-A-M-EMF slot WRITER(b │ │ │ │ -.SETVPCL GF-PRECOMPUTE-DFUN-AND-EMF-P slot WRITER │ │ │ │ -00000000 │ │ │ │ 00000000 │ │ │ │ +PCL CPD-COUNT slot READER0000000p │ │ │ │ 00000000 │ │ │ │ -00000000CONDITIONS OPERATION slot READERp │ │ │ │ -00000000 │ │ │ │ -11111111p\ │ │ │ │ -"PCL OVERFLOW slot WRITER-EXCEPTIp │ │ │ │ 00000000 │ │ │ │ +,SAFETp\ │ │ │ │ +PCL ACCESSOR-TYPE slot WRITERT-Ap │ │ │ │ +PCL OVERFLOW slot READERMATCH │ │ │ │ +AGE-EXTE │ │ │ │ +IGNORABL │ │ │ │ +CONDITIONS OPERATION slot READERp │ │ │ │ +CONDITIONS DATUM slot READER,SYMp │ │ │ │ +PCL CACHED-SHARED-INITIALIZE-NIL-FUNCTION slot WRITERAPROPOS │ │ │ │ 00000000 │ │ │ │ -SPCL MAX-LOCATION slot WRITERg pop │ │ │ │ -PROTECT │ │ │ │ -INT-EXCE │ │ │ │ -XCEPTION │ │ │ │ -BREAK-ON │ │ │ │ +PCL WRAPPER0 slot READERENDP- │ │ │ │ /build/r │ │ │ │ -PCL CACHED-DEFAULT-INITARGS-FUNCTION slot READERp │ │ │ │ -l_fpe.lsp\ │ │ │ │ -PCL CACHED-COMBINED-INITARGS-FORM-LIST slot READERssing value │ │ │ │ -ASS-DIRE │ │ │ │ -PCL LIMIT-FN slot READERLASSES │ │ │ │ -00000000 │ │ │ │ +-FUNCTIO │ │ │ │ +11111111p\ │ │ │ │ +PCL CACHED-INITARGS-FORM-LIST slot READER1111111p │ │ │ │ +PCL FIELD slot WRITERQUOTE │ │ │ │ +.MAKE-PA │ │ │ │ +01000111 │ │ │ │ +PCL PV-CELL slot READER │ │ │ │ +PCL MAX-LOCATION slot WRITERTVV │ │ │ │ +PCL CACHED-COMBINED-INITIALIZE-FUNCTION slot WRITER │ │ │ │ 00000000 │ │ │ │ -ath/gcl2 │ │ │ │ -I-CLASS- │ │ │ │ -PCL PV-CELL slot WRITER-FUNCTIONp │ │ │ │ -11111111 │ │ │ │ 00000000 │ │ │ │ +pv-table │ │ │ │ +SYSTEM INCLUDES slot WRITER00000p │ │ │ │ +-BY-ADDR │ │ │ │ 00000000 │ │ │ │ +PCL NKEYS slot READER00000000000p │ │ │ │ +ATING-PO │ │ │ │ 00000000 │ │ │ │ -00000001 │ │ │ │ +CONDITIONS NAME slot WRITERE │ │ │ │ +ue disab │ │ │ │ +NSTRUCTI │ │ │ │ +COMMON-LISP LENGTH slot READERNDp │ │ │ │ +UNCTION- │ │ │ │ +BREAK-ONp\ │ │ │ │ +CONDITIONS INSTANCE slot READERpp │ │ │ │ +exceptio │ │ │ │ +ATING-POp\ │ │ │ │ +SYSTEM NAMED slot WRITER │ │ │ │ +PCL OWNER slot WRITER~s ~s not pp │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ +SYSTEM TEST-FUNCTION slot READERp │ │ │ │ +lsp/gcl_ │ │ │ │ +SYSTEM PRINT-FUNCTION slot WRITER111111111111111p │ │ │ │ 00000000 │ │ │ │ +SYSTEM SIZE slot WRITER000000001p │ │ │ │ 00000000 │ │ │ │ -COMMON-LISP VECTOR slot READER │ │ │ │ 00000000 │ │ │ │ +COMMON-LISP STREAM slot READER00p │ │ │ │ 00000000 │ │ │ │ +PCL CALL-METHOD-ARGS slot WRITERp │ │ │ │ ible-pat │ │ │ │ -ONDITION │ │ │ │ -GPCL MAX-LOCATION slot READERAKE-p │ │ │ │ -producib │ │ │ │ -tion tra │ │ │ │ -th/gcl27PCL NLINES slot READER │ │ │ │ -COMMON-LISP::READER-ERROR class predicateUOTE │ │ │ │ -00000000 │ │ │ │ -XPAND-TY │ │ │ │ -mpnew/gc │ │ │ │ -P-NONSIM │ │ │ │ -ROPAGATO │ │ │ │ +SYSTEM CONSTRUCTORS slot WRITER │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STREAM-ERROR │ │ │ │ +,END-OF-FILE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,STREAM-ERROR │ │ │ │ +,END-OF-FILE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,STREAM-ERROR │ │ │ │ -0(PCL::FAST-METHOD PRINT-OBJECT (STREAM-ERROR T)) │ │ │ │ +,END-OF-FILE │ │ │ │ +/(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -79137,15 +79545,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,STREAM-ERROR │ │ │ │ +,END-OF-FILE │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -79167,35 +79575,41 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Stream error on stream ~s: │ │ │ │ --SLOT-BOUNDP-NORMAL │ │ │ │ -,STREAM-ERROR-STREAM │ │ │ │ -00000000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp000(FAST-METHOD PRINT-OBJECT (STREAM-ERROR T)) │ │ │ │ -COMMON-LISP::STREAM-ERROR class predicate0000000@i │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Unexpected end of file: │ │ │ │ +0000000) │ │ │ │ +00000000p │ │ │ │ +new/gcl_ │ │ │ │ 00000000 │ │ │ │ -ducible- │ │ │ │ +SYMBOL-G │ │ │ │ +MATOMIC- │ │ │ │ +00000000 │ │ │ │ +COMMON-LISP::PARSE-ERROR class predicate │ │ │ │ 11111111 │ │ │ │ 00000000 │ │ │ │ -Stream error on stream ~s: ! │ │ │ │ -SUnexpected end of file: LIST* │ │ │ │ -INTERNAL-SIMPLE-FILE-ERRORPE>= │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-FILE-ERROR class predicate0000000000@i │ │ │ │ 00000000 │ │ │ │ --PROPAGA │ │ │ │ -/reprodu │ │ │ │ -DEF-PROP │ │ │ │ --PROPAGA │ │ │ │ -ME-PROPA │ │ │ │ -PATHNAME-ERROR │ │ │ │ +-S-DATA- │ │ │ │ +INTERNAL-SIMPLE-READER-ERROR │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-READER-ERROR class predicate00110011@i │ │ │ │ +N-LISPLA │ │ │ │ +11111111 │ │ │ │ +11111111 │ │ │ │ +00000000 │ │ │ │ +COMMON-LISP::READER-ERROR class predicate1111111@i │ │ │ │ +NIT-FUNC │ │ │ │ +CTURE-NA │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ +T1(FAST-METHOD PRINT-OBJECT (STREAM-ERROR T))-2.7.@i │ │ │ │ +UE-TO-GO │ │ │ │ +ON-LISPL@i │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ @@ -79294,35 +79708,55 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ~s is not of type ~s: │ │ │ │ -SLOT-BOUNDP-NORMAL │ │ │ │ ,TYPE-ERROR-DATUM │ │ │ │ -SLOT-BOUNDP-NORMAL │ │ │ │ EXPECTED-TYPE │ │ │ │ ,TYPE-ERROR-EXPECTED-TYPE │ │ │ │ +,/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispCK │ │ │ │ +/reprodu@i │ │ │ │ +00000000` │ │ │ │ +LUES-TO- │ │ │ │ +OUTPUT1* │ │ │ │ +URN-FROM │ │ │ │ +00000000 │ │ │ │ +00000000P │ │ │ │ +00010000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp000(FAST-METHOD PRINT-OBJECT (PRINT-NOT-READABLE T))0000010000) │ │ │ │ +COMMON-LISP::PRINT-NOT-READABLE class predicateO@i │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +INTERNAL-SIMPLE-UNBOUND-VARIABLE │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-UNBOUND-VARIABLE class predicateST │ │ │ │ +ducible- │ │ │ │ +ACRO-CAL │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ +D-HOOK* │ │ │ │ +rm ~s wa │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ +,UNBOUND-VARIABLE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ +,UNBOUND-VARIABLE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ -6(PCL::FAST-METHOD PRINT-OBJECT (PRINT-NOT-READABLE T)) │ │ │ │ +,UNBOUND-VARIABLE │ │ │ │ +4(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -79366,15 +79800,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ +,UNBOUND-VARIABLE │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -79396,42 +79830,40 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Object ~s is unreadable: │ │ │ │ --SLOT-BOUNDP-NORMAL │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,PRINT-NOT-READABLE-OBJECT │ │ │ │ -*V/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispALU │ │ │ │ -,QUOTE@i │ │ │ │ -00000000 │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Unbound variable: │ │ │ │ +0000000000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp000(FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))0@i │ │ │ │ +COMMON-LISP::UNBOUND-VARIABLE class predicate,BL@i │ │ │ │ +ULTIPLE- │ │ │ │ +e time. │ │ │ │ +-TOPLEVE │ │ │ │ 00000000 │ │ │ │ -00000000@i │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,UNDEFINED-FUNCTION │ │ │ │ +,CELL-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,UNDEFINED-FUNCTION │ │ │ │ +,CELL-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,UNDEFINED-FUNCTION │ │ │ │ -6(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T)) │ │ │ │ +,CELL-ERROR │ │ │ │ +.(PCL::FAST-METHOD PRINT-OBJECT (CELL-ERROR T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -79475,15 +79907,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,UNDEFINED-FUNCTION │ │ │ │ +,CELL-ERROR │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -79505,165 +79937,229 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Undefined function: │ │ │ │ -ERROR-SE │ │ │ │ --LISPLAM │ │ │ │ --IHS-TOP │ │ │ │ -PILER-BR │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-UNBOUND-SLOT class predicate00000000@i │ │ │ │ -00000000 │ │ │ │ -n of ~s │ │ │ │ -h/gcl27- │ │ │ │ -AND-HELP │ │ │ │ - form ~s │ │ │ │ -RO-FUNCT │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Cell error on ~s: │ │ │ │ +-SLOT-BOUNDP-NORMAL │ │ │ │ +,CELL-ERROR-NAME │ │ │ │ +,T/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispARG(FAST-METHOD PRINT-OBJECT (CELL-ERROR T))IHS │ │ │ │ +/SETVVp\ │ │ │ │ +COMMON-LISP::CELL-ERROR class predicate │ │ │ │ +SPLAY-EN │ │ │ │ 00000000 │ │ │ │ +(~a line │ │ │ │ +Cell error on ~s: │ │ │ │ +Unbound variable: UOTE │ │ │ │ +/MAKE-BRSlot is unbound in ~s: ION │ │ │ │ +,APUndefined function: 000000000000/H? │ │ │ │ 00000000@i │ │ │ │ - form ~s │ │ │ │ +00000000 │ │ │ │ +/*MAKE-S │ │ │ │ +~%Arithmetic error when performing ~s on ~s: │ │ │ │ +~s fell through ~s expression.~%wanted one of ~:s./SETVV │ │ │ │ +ABORT-FAILURE │ │ │ │ +abort failed. │ │ │ │ +Condition in ~S [or a callee]: RINTERNAL-SIMPLE-ERROR │ │ │ │ +,QUOINTERNAL-SIMPLE-WARNING │ │ │ │ +INTERNAL-SIMPLE-STACK-OVERFLOW │ │ │ │ +INTERNAL-SIMPLE-STYLE-WARNINGOTEINTERNAL-SIMPLE-DIVISION-BY-ZEROINTERNAL-SIMPLE-ABORT-FAILURE │ │ │ │ +,EINTERNAL-SIMPLE-FLOATING-POINT-OVERFLOW │ │ │ │ +INTERNAL-SIMPLE-FLOATING-POINT-UNDERFLOW │ │ │ │ +INTERNAL-SIMPLE-FLOATING-POINT-INVALID-OPERATIONINTERNAL-SIMPLE-FLOATING-POINT-INEXACTT │ │ │ │ +,*ERRINTERNAL-SIMPLE-PROGRAM-ERRORUG-INTERNAL-SIMPLE-CONTROL-ERRORSPEFPE-XU │ │ │ │ +FPE-XUOD0 │ │ │ │ +FPE-XUOI0 │ │ │ │ +FPE-XUDI0 │ │ │ │ +FPE-XODI0 │ │ │ │ +FPE-UODI0 │ │ │ │ +FPE-XUODI │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -PCL.PV-CELL. │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ - -.PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,UNBOUND-SLOT │ │ │ │ ,DECLARE │ │ │ │ --METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,UNBOUND-SLOT │ │ │ │ -,DECLARE │ │ │ │ --METHOD-LAMBDA-LIST │ │ │ │ -,UNBOUND-SLOT │ │ │ │ -0(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-SLOT T)) │ │ │ │ -,MACROLET │ │ │ │ --PV-ENV │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ - -.PV-CELL. │ │ │ │ - -.PV-CELL. │ │ │ │ +,OPTIMIZE │ │ │ │ +/*N/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispOTE │ │ │ │ +SET-BACK │ │ │ │ +CONDITIONS::STORAGE-EXHAUSTED class predicate~a:@i │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-STACK-OVERFLOW class predicate │ │ │ │ +URN-FROM │ │ │ │ +PCL::TRACED-METHOD class predicateANONICALIZE-PA@i │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +.PATHNAM │ │ │ │ +00000000 │ │ │ │ +11111111(FAST-WRITER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-T-FUNCTION) │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XUODIS │ │ │ │ +TYPE-PREDICATE COMMON-LISP UNBOUND-SLOTpath/gcl2 │ │ │ │ +.*INFOp\ │ │ │ │ +CONDITIONS EXPECTED-TYPE slot READER │ │ │ │ +TYPE-PREDICATE CONDITIONS PATHNAME-ERRORNCTION │ │ │ │ +TYPE-PREDICATE COMMON-LISP ERROR │ │ │ │ +00000000 │ │ │ │ +00010000 │ │ │ │ +PCL OPERATOR slot WRITER-INFO-HO │ │ │ │ +uild/rep │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +NEXT-LOO │ │ │ │ +ble-path │ │ │ │ +or multi │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CACHED-COMBINED-INITARGS-FORM-LIST)URN-FROM │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STREAM-ERROR │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT CACHE)M │ │ │ │ +COMMON-LISP PACKAGE slot READERO │ │ │ │ +THNAME-P │ │ │ │ +SYSTEM NAME slot WRITERUOTE │ │ │ │ +TYPE-PREDICATE COMMON-LISP CONDITIONPECIAL │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SYSTEML! │ │ │ │ ,DECLARE │ │ │ │ --MAKE-PV-TYPE-DECLARATION │ │ │ │ --MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,IGNORE. │ │ │ │ +UNDEFMETHOD │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --%CHECK-CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -BIND-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ --CNM-ARGS │ │ │ │ +{METHOD-QUALIFIER}* │ │ │ │ +SPECIALIZERS │ │ │ │ +UNDEFMETHOD │ │ │ │ +UNDEFMETHOD-1 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ +.SETVVUNDEFMETHOD │ │ │ │ +TYPE-PREDICATE CONDITIONS STORAGE-EXHAUSTEDC-VAR │ │ │ │ +#*00(FAST-WRITER-METHOD SLOT-OBJECT STREAM)000000000 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + ,&OPTIONAL │ │ │ │ +UNTRACE-METHOD │ │ │ │ + UNTRACE-1 │ │ │ │ +METHOD-GENERIC-FUNCTION │ │ │ │ +,REMOVE-METHOD │ │ │ │ +,ADD-METHOD │ │ │ │ +,SLOT-VALUE │ │ │ │ +,METHOD │ │ │ │ +*TRACED-METHODS* │ │ │ │ +*TRACED-METHODS* │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +PARSE-METHOD-OR-SPEC │ │ │ │ ,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,UNBOUND-SLOT │ │ │ │ --CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +*TRACED-METHODS* │ │ │ │ +KEYWORDTEST │ │ │ │ + UNTRACE-1 │ │ │ │ +,METHOD │ │ │ │ +~S is not a traced method? │ │ │ │ +DOLIST271 │ │ │ │ +*TRACED-METHODS* │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ + ,IGNORABLE. │ │ │ │ +,TAGBODY! │ │ │ │ + UNTRACE-1 │ │ │ │ +,RETURN-FROM │ │ │ │ +VV-/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp-VS │ │ │ │ +VUNTRACE-METHOD │ │ │ │ +gcl27-2.0 │ │ │ │ +00000000MAKE-INSTANCE STANDARD-METHOD (:QUALIFIERS :SPECIALIZERS :LAMBDA-LIST :DEFINITION-SOURCE :METHOD-SPEC :FAST-FUNCTION :PLIST) NIL(FAST-READER-METHOD SLOT-OBJECT FIELD)0000000000 │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XU(FAST-WRITER-METHOD SLOT-OBJECT PV-CELL)00000000(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-LAMBDA-LIST)00010000) │ │ │ │ +(BOUNDP PATHNAME)TE │ │ │ │ +(WRITER CONDITIONS::NAME) │ │ │ │ +OUTPUT1* │ │ │ │ +CONDITIONS DATUM slot WRITER │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::FORMAT-ARGUMENTS)AR (z │ │ │ │ +MAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :INITFUNCTION :NAME :READERS :WRITERS :INITARGS :INITFORM) NIL,QUOTE │ │ │ │ +(READER CONDITIONS::POSSIBILITIES)E │ │ │ │ +C2BIND-INIT@i │ │ │ │ +(PCL::FAST-METHOD PRINT-OBJECT (PRINT-NOT-READABLE T))0000000000 │ │ │ │ +TYPE-PREDICATE PCL TRACED-METHOD(BOUNDP CONDITIONS::FORMAT-ARGUMENTS),BLOCK │ │ │ │ +(BOUNDP PACKAGE) │ │ │ │ +VALUE-TO │ │ │ │ +,SPECIAL │ │ │ │ +CONDITIONS FORMAT-ARGUMENTS slot WRITERASSOC │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-UOD.shstrtab │ │ │ │ +ebug_inf │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT VALUEP)ug_line │ │ │ │ +.eh_fram │ │ │ │ +CONDITIONS INSTANCE slot WRITER │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT MASK) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT PACKAGE) │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STORAGE-EXHAUSTED │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-NIL-FUNCTION) │ │ │ │ +-REF-CLB │ │ │ │ +OMPILER- │ │ │ │ +BLOCK-CC │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +11111111 │ │ │ │ +OMPILER │ │ │ │ +COMMON-LISP METHOD slot WRITER │ │ │ │ +SYSTEM INTERACTIVE-FUNCTION slot WRITER1EXIT* │ │ │ │ +CONDITIONS NAME slot READERINFO-p │ │ │ │ +ADD-INp\ │ │ │ │ +SYSTEM NAME slot READERCDR- │ │ │ │ +.7.1/cmp │ │ │ │ +00000000p\ │ │ │ │ +SYSTEM REPORT-FUNCTION slot READERURN-CLBC │ │ │ │ +2RETURN-p\ │ │ │ │ +SYSTEM INTERACTIVE-FUNCTION slot READER,QUOTEB │ │ │ │ +PCL OVERFLOW slot WRITER00000000p │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +PCL CPD-CLASS slot WRITERCOMMON-p │ │ │ │ +PCL GF-INFO-C-A-M-EMF-STD-P slot WRITER │ │ │ │ +C2RETURNp │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +PCL GF-INFO-FAST-MF-P slot READER000000000000000p │ │ │ │ +00000000 │ │ │ │ +PCL CACHED-COMBINED-INITARGS-FORM-LIST slot READEROMPILER-OUTPUTp │ │ │ │ +uild/rep │ │ │ │ +D-SSELF-p\ │ │ │ │ +SYSTEM FROZEN slot WRITER │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-FLOATING-POINT-INVALID-OPERATION class predicateEW-S@i │ │ │ │ +ROMOTED- │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-ESCAPE* │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ +-CCB-VS* │ │ │ │ +CONDITIONS::FPE-XI class predicate │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Slot is unbound in ~s: │ │ │ │ --SLOT-BOUNDP-NORMAL │ │ │ │ -INSTANCE │ │ │ │ -,UNBOUND-SLOT-INSTANCE │ │ │ │ -,/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispXNU(FAST-METHOD PRINT-OBJECT (UNBOUND-SLOT T))FIXNU@i │ │ │ │ -COMMON-LISP::UNBOUND-SLOT class predicate6/build@i │ │ │ │ -PLAY-COM │ │ │ │ -MPUTING- │ │ │ │ -TACK-FRA │ │ │ │ +TAGBODY │ │ │ │ +3*OBJECT │ │ │ │ +11111111 │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-FLOATING-POINT-INEXACT class predicateR │ │ │ │ +R-OUTPUT │ │ │ │ +.7.1/cmp │ │ │ │ 00000000 │ │ │ │ -INTERNAL-SIMPLE-UNBOUND-VARIABLE │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-UNBOUND-VARIABLE class predicate0000@i │ │ │ │ -a:0:beg~ │ │ │ │ -S-NOT-IN │ │ │ │ -ISPLAY-C │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ +00000000 │ │ │ │ +COMMON-LISP::FLOATING-POINT-INEXACT class predicateF │ │ │ │ +TRSTD-SS │ │ │ │ +ECLARATI │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,UNBOUND-VARIABLE │ │ │ │ +,ARITHMETIC-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,UNBOUND-VARIABLE │ │ │ │ +,ARITHMETIC-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,UNBOUND-VARIABLE │ │ │ │ -4(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T)) │ │ │ │ +,ARITHMETIC-ERROR │ │ │ │ +4(PCL::FAST-METHOD PRINT-OBJECT (ARITHMETIC-ERROR T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -79707,15 +80203,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,UNBOUND-VARIABLE │ │ │ │ +,ARITHMETIC-ERROR │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -79737,260 +80233,159 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Unbound variable: │ │ │ │ -/PRINT/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispTIO(FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))-@i │ │ │ │ -COMMON-LISP::UNBOUND-VARIABLE class predicateNEX@i │ │ │ │ -d/reprod │ │ │ │ -PCL ACCESSOR-TYPE slot READER │ │ │ │ -ARGUMENTPCL ACCESSOR-TYPE slot WRITER │ │ │ │ -O-REGEXP │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -H-STREAMPCL NEXT-METHOD-CALL slot WRITERp │ │ │ │ -00000000 │ │ │ │ -L-PATHNA │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -NAME-HOSPCL NKEYS slot WRITERPERCASE │ │ │ │ -00100011 │ │ │ │ -11111111 │ │ │ │ -00000000 │ │ │ │ -,TPCL OPERATOR slot READER00000000p │ │ │ │ -11111111 │ │ │ │ -lsp/gcl_p\ │ │ │ │ -00000000 │ │ │ │ -00000000@i │ │ │ │ -NPCL CPD-AFTER slot WRITERIST │ │ │ │ -.1/lsp/g │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +-~%Arithmetic error when performing ~s on ~s: │ │ │ │ +-SLOT-BOUNDP-NORMAL │ │ │ │ + OPERATION │ │ │ │ +,ARITHMETIC-ERROR-OPERATION │ │ │ │ +-SLOT-BOUNDP-NORMAL │ │ │ │ +OPERANDS │ │ │ │ +,ARITHMETIC-ERROR-OPERANDS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (ARITHMETIC-ERROR T)) │ │ │ │ +COMMON-LISP::ARITHMETIC-ERROR class predicate │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-ARITHMETIC-ERROR class predicate │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -00000000COMPILER UNWIND-EXIT slot READERp │ │ │ │ -,SETQ0 PCL CALL-METHOD-ARGS slot READERp │ │ │ │ -/build/r │ │ │ │ -CONDITIONS DATUM slot READERNOT │ │ │ │ -PCL CPD-COUNT slot WRITER │ │ │ │ -L-FINISH │ │ │ │ -,REMOVE-PCL CACHED-MAKE-INSTANCE-FUNCTION slot READERRP │ │ │ │ -/FINISp\ │ │ │ │ -le-path/COMMON-LISP PATHNAME slot WRITERp │ │ │ │ -AME-PARS │ │ │ │ -SET-BDPCL PV-SIZE slot READERC │ │ │ │ -,QPCL CACHE slot WRITERFUNCTION │ │ │ │ -000000) │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -PCL FIELD slot WRITERCAL │ │ │ │ -R-REFSET │ │ │ │ -ds_bind( │ │ │ │ -WPCL CACHED-COMBINED-INITIALIZE-FUNCTION slot WRITER │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000PCL CACHE slot READER00000000000p │ │ │ │ -00000000 │ │ │ │ -STR-REp\ │ │ │ │ -CT*OBJECPCL CPD-COUNT slot READER │ │ │ │ -WTFSYSTEM PRINT-FUNCTION slot READER │ │ │ │ -+WT-LOC-ALIST+p │ │ │ │ -ible-pat │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-WARNING class predicateUT1* │ │ │ │ ALUE-TO- │ │ │ │ --FUNCTIOp\ │ │ │ │ -00000000PCL OPERATOR slot WRITER00000000p │ │ │ │ -,QUOTESYSTEM STATICP slot WRITERLUE-TOp │ │ │ │ -ela.data │ │ │ │ -.debugCOMPILER SWITCH slot READERU-stap │ │ │ │ -PCL ARG-INFO-METATYPES slot READER │ │ │ │ -PCL CACHED-RI-VALID-P slot READER │ │ │ │ -PCL CACHED-SHARED-INITIALIZE-T-FUNCTION slot READER │ │ │ │ -SYSTEM SIZE slot READER │ │ │ │ --OUTPUT1p\ │ │ │ │ -/*COMPILER SWITCH slot WRITER-. │ │ │ │ --REF-CLB │ │ │ │ -PCL CPD-CLASS slot WRITERPRINC │ │ │ │ -L-ENV-MA │ │ │ │ -00000000PCL LINE-SIZE slot READER0000000p │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -IPCL MASK slot WRITERARGS │ │ │ │ -LEXICAL- │ │ │ │ -PCL ARG-INFO-PRECEDENCE slot WRITER │ │ │ │ -,LCONDITIONS FORMAT-CONTROL slot READER │ │ │ │ -/build/rp\ │ │ │ │ -C1RETURN │ │ │ │ -C2RETURN │ │ │ │ -CONDITIONS NAME slot WRITERION │ │ │ │ -00000000 │ │ │ │ +ER-OUTPU │ │ │ │ +)!=t_sym │ │ │ │ +lues->c. │ │ │ │ +ER-OUTPU │ │ │ │ +COMMON-LISP::SIMPLE-WARNING class predicateEP-TY@i │ │ │ │ 00000000 │ │ │ │ -,ISYSTEM HAS-HOLES slot WRITERVAL p │ │ │ │ -roducibl │ │ │ │ -SYSTEM REPORT-FUNCTION slot READERTE │ │ │ │ 00000000 │ │ │ │ -00000000p\ │ │ │ │ -SYSTEM INCLUDES slot READER00000p │ │ │ │ -w/gcl_cm │ │ │ │ -SYSTEM RAW slot WRITERWT-CCB-VSEp │ │ │ │ -00000010 │ │ │ │ +11111111 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ +COMMON-LISP::WARNING class predicate! │ │ │ │ +VAR-TYPE │ │ │ │ + store s │ │ │ │ +COMMON-LISP::STYLE-WARNING class predicateld/rep@i │ │ │ │ +INIT-FUN │ │ │ │ +IMMED-VA │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-STYLE-WARNING class predicateET │ │ │ │ 00000000 │ │ │ │ -00000000COMMON-LISP PACKAGE slot WRITER0p │ │ │ │ -d(fr,CniPCL CPD-AFTER slot READER │ │ │ │ -LER-PUSH │ │ │ │ -FE-COMPI │ │ │ │ -URN-OBJE │ │ │ │ -*C-VARS* │ │ │ │ -N-CMACRO │ │ │ │ -CONDITIONS::FPE-ODI class predicate │ │ │ │ -*CCB-VS* │ │ │ │ -VATION-C │ │ │ │ -LER-OUTP │ │ │ │ -CONDITIONS::FPE-DI class predicateC │ │ │ │ -*COMPIL@i │ │ │ │ -7-2.7.1/ │ │ │ │ -11111111 │ │ │ │ -ER-OUTPU │ │ │ │ -00000100 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-DIVISION-BY-ZERO class predicate0000@i │ │ │ │ 00000000 │ │ │ │ -RG-TYPES │ │ │ │ -COMMON-LISP::DIVISION-BY-ZERO class predicateN-T@i │ │ │ │ -OSURE-P │ │ │ │ -POSITIVE │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-FLOATING-POINT-INVALID-OPERATION class predicate │ │ │ │ -CONDITIONS::FPE-XI class predicateM │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-FLOATING-POINT-INEXACT class predicate │ │ │ │ -01100000 │ │ │ │ 00000000 │ │ │ │ +d/reprod │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp000(FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))0@i │ │ │ │ +COMMON-LISP::SIMPLE-CONDITION class predicate000@i │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -D-EXIT* │ │ │ │ -COMMON-LISP::FLOATING-POINT-INEXACT class predicateCOMPILER-OUTP@i │ │ │ │ -PILER-OU │ │ │ │ -R-OUTPUT │ │ │ │ -lse{bds_ │ │ │ │ -lues->c. │ │ │ │ -ER-OUTPU │ │ │ │ -CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -PCL.PV-CELL. │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ - -.PV-CELL. │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,ARITHMETIC-ERROR │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ ,DECLARE │ │ │ │ --METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,ARITHMETIC-ERROR │ │ │ │ -,DECLARE │ │ │ │ --METHOD-LAMBDA-LIST │ │ │ │ -,ARITHMETIC-ERROR │ │ │ │ -4(PCL::FAST-METHOD PRINT-OBJECT (ARITHMETIC-ERROR T)) │ │ │ │ +METHOD-NAME │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ + ,&OPTIONAL │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +/(FAST-METHOD MAKE-LOAD-FORM (STRUCTURE-OBJECT)) │ │ │ │ ,MACROLET │ │ │ │ --PV-ENV │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ - -.PV-CELL. │ │ │ │ - -.PV-CELL. │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ --MAKE-PV-TYPE-DECLARATION │ │ │ │ --MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,MACROLET │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --%CHECK-CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -BIND-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +-OBJECT │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ --CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,ARITHMETIC-ERROR │ │ │ │ --CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-ESCAPE* │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ --~%Arithmetic error when performing ~s on ~s: │ │ │ │ --SLOT-BOUNDP-NORMAL │ │ │ │ - OPERATION │ │ │ │ -,ARITHMETIC-ERROR-OPERATION │ │ │ │ --SLOT-BOUNDP-NORMAL │ │ │ │ -OPERANDS │ │ │ │ -,ARITHMETIC-ERROR-OPERANDS │ │ │ │ -MPIL/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispLOC(FAST-METHOD PRINT-OBJECT (ARITHMETIC-ERROR T))R@i │ │ │ │ -COMMON-LISP::ARITHMETIC-ERROR class predicatePEC@i │ │ │ │ -00000000 │ │ │ │ -00000100 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-ARITHMETIC-ERROR class predicate │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +&~@ │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ @@ -80088,46 +80483,27 @@ │ │ │ │ 2~s fell through ~s expression.~%wanted one of ~:s. │ │ │ │ ,TYPE-ERROR-DATUM │ │ │ │ ,CONDITION │ │ │ │ CASE-FAILURE-NAME │ │ │ │ ,CONDITION │ │ │ │ CASE-FAILURE-POSSIBILITIES │ │ │ │ ,CONDITION │ │ │ │ --PUSH-EX │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000@i │ │ │ │ -00000000 │ │ │ │ -00000100 │ │ │ │ -00000000` │ │ │ │ -000000008o │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000@i │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000` │ │ │ │ -000000008o │ │ │ │ -01000000 │ │ │ │ -00000000 │ │ │ │ -00000000@i │ │ │ │ +00000000P │ │ │ │ 00000000 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispROG` │ │ │ │ +00000010 │ │ │ │ 00000000@i │ │ │ │ 00000000 │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ - 0ONE-INDEX-. │ │ │ │ +0CLASS-PRECEDENCE-DESCRIPTION-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80154,25 +80530,25 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -SI/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +WRITE-TO-STR │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ - 0ONE-CLASS-. │ │ │ │ +0ARG-INFO-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80199,23 +80575,22 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 3EXPECTED-TYPE/ │ │ │ │ -00/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00G34 │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ - 0ONE-CLASS-. │ │ │ │ +0ARG-INFO-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80242,25 +80617,24 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -000000100000000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00 │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ - 0TWO-CLASS-. │ │ │ │ +0INITIALIZE-INFO-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80287,23 +80661,23 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 3EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +000000000000 │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ - 0TWO-CLASS-. │ │ │ │ +0INITIALIZE-INFO-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80330,26 +80704,24 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -LER-OUTPUT1* │ │ │ │ - /build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispx! │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0CHECKING-. │ │ │ │ +0FAST-INSTANCE-BOUNDP-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80376,23 +80748,22 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 3EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0CHECKING-. │ │ │ │ +0FAST-INSTANCE-BOUNDP-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80419,25 +80790,24 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispCO │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0DEFAULT-METHOD-ONLY-. │ │ │ │ +0PV-TABLE-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80464,23 +80834,22 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 3EXPECTED-TYPE/ │ │ │ │ -,PRO/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp/gG42 │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0DEFAULT-METHOD-ONLY-. │ │ │ │ +0PV-TABLE-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80507,25 +80876,24 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -00000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00 │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0INITIAL-. │ │ │ │ +,RESTART-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80552,23 +80920,22 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 3EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispUTG45 │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0INITIAL-. │ │ │ │ +1RESTART-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80595,35 +80962,34 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -F/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispJE │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0CLASS-PRECEDENCE-DESCRIPTION-. │ │ │ │ +SYSTEMTAG-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ -SYSTEMSTD-INSTANCE │ │ │ │ +1STD-INSTANCE │ │ │ │ 0%STD-INSTANCE-SLOTS │ │ │ │ -2FUNCALLABLE-STD-INSTANCE │ │ │ │ +1FUNCALLABLE-STD-INSTANCE │ │ │ │ 0%CCLOSURE-ENV-NTHCDR │ │ │ │ 0.SLOTS. │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ 0.SLOTS. │ │ │ │ 0..SLOT-UNBOUND.. │ │ │ │ 0SLOT-UNBOUND-INTERNAL │ │ │ │ 0METHOD-CALL │ │ │ │ @@ -80640,23 +81006,21 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 3EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0CLASS-PRECEDENCE-DESCRIPTION-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80683,35 +81047,34 @@ │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ 2EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0ARG-INFO-. │ │ │ │ + ANSI-LOOPLOOP-MINIMAX-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ SYSTEMSTD-INSTANCE │ │ │ │ 0%STD-INSTANCE-SLOTS │ │ │ │ -2FUNCALLABLE-STD-INSTANCE │ │ │ │ +3FUNCALLABLE-STD-INSTANCE │ │ │ │ 0%CCLOSURE-ENV-NTHCDR │ │ │ │ 0.SLOTS. │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ 0.SLOTS. │ │ │ │ 0..SLOT-UNBOUND.. │ │ │ │ 0SLOT-UNBOUND-INTERNAL │ │ │ │ 0METHOD-CALL │ │ │ │ @@ -80727,24 +81090,23 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -3EXPECTED-TYPE/ │ │ │ │ -,C/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispSAG51 │ │ │ │ +4EXPECTED-TYPE/ │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0ARG-INFO-. │ │ │ │ + ANSI-LOOPLOOP-MINIMAX-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80770,36 +81132,35 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -2EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +3EXPECTED-TYPE/ │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0INITIALIZE-INFO-. │ │ │ │ + ANSI-LOOPLOOP-UNIVERSE-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ SYSTEMSTD-INSTANCE │ │ │ │ 0%STD-INSTANCE-SLOTS │ │ │ │ -2FUNCALLABLE-STD-INSTANCE │ │ │ │ +3FUNCALLABLE-STD-INSTANCE │ │ │ │ 0%CCLOSURE-ENV-NTHCDR │ │ │ │ 0.SLOTS. │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ 0.SLOTS. │ │ │ │ 0..SLOT-UNBOUND.. │ │ │ │ 0SLOT-UNBOUND-INTERNAL │ │ │ │ 0METHOD-CALL │ │ │ │ @@ -80815,24 +81176,23 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -3EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +4EXPECTED-TYPE/ │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0INITIALIZE-INFO-. │ │ │ │ + ANSI-LOOPLOOP-UNIVERSE-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80858,36 +81218,36 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -2EXPECTED-TYPE/ │ │ │ │ -,E/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisphe │ │ │ │ +3EXPECTED-TYPE/ │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispRO │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0FAST-INSTANCE-BOUNDP-. │ │ │ │ + ANSI-LOOPLOOP-COLLECTOR-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ SYSTEMSTD-INSTANCE │ │ │ │ 0%STD-INSTANCE-SLOTS │ │ │ │ -2FUNCALLABLE-STD-INSTANCE │ │ │ │ +3FUNCALLABLE-STD-INSTANCE │ │ │ │ 0%CCLOSURE-ENV-NTHCDR │ │ │ │ 0.SLOTS. │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ 0.SLOTS. │ │ │ │ 0..SLOT-UNBOUND.. │ │ │ │ 0SLOT-UNBOUND-INTERNAL │ │ │ │ 0METHOD-CALL │ │ │ │ @@ -80903,24 +81263,24 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -3EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +4EXPECTED-TYPE/ │ │ │ │ +r/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0FAST-INSTANCE-BOUNDP-. │ │ │ │ + ANSI-LOOPLOOP-COLLECTOR-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -80946,36 +81306,36 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -2EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispTI │ │ │ │ +3EXPECTED-TYPE/ │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -0PV-TABLE-. │ │ │ │ + ANSI-LOOPLOOP-PATH-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ SYSTEMSTD-INSTANCE │ │ │ │ 0%STD-INSTANCE-SLOTS │ │ │ │ -2FUNCALLABLE-STD-INSTANCE │ │ │ │ +3FUNCALLABLE-STD-INSTANCE │ │ │ │ 0%CCLOSURE-ENV-NTHCDR │ │ │ │ 0.SLOTS. │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ 0.SLOTS. │ │ │ │ 0..SLOT-UNBOUND.. │ │ │ │ 0SLOT-UNBOUND-INTERNAL │ │ │ │ 0METHOD-CALL │ │ │ │ @@ -80991,24 +81351,24 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -3EXPECTED-TYPE/ │ │ │ │ -EGA/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispVEG60 │ │ │ │ +4EXPECTED-TYPE/ │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00G78 │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -0PV-TABLE-. │ │ │ │ + ANSI-LOOPLOOP-PATH-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -81034,36 +81394,36 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -2EXPECTED-TYPE/ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp.S │ │ │ │ +3EXPECTED-TYPE/ │ │ │ │ +000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp11 │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ PCL.ARG0. │ │ │ │ ,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -,RESTART-. │ │ │ │ +COMPILERFUN-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ ,FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ ,FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ SYSTEMSTD-INSTANCE │ │ │ │ 0%STD-INSTANCE-SLOTS │ │ │ │ -2FUNCALLABLE-STD-INSTANCE │ │ │ │ +3FUNCALLABLE-STD-INSTANCE │ │ │ │ 0%CCLOSURE-ENV-NTHCDR │ │ │ │ 0.SLOTS. │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ 0.SLOTS. │ │ │ │ 0..SLOT-UNBOUND.. │ │ │ │ 0SLOT-UNBOUND-INTERNAL │ │ │ │ 0METHOD-CALL │ │ │ │ @@ -81079,24 +81439,24 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ ,TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -3EXPECTED-TYPE/ │ │ │ │ -PCAR/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +4EXPECTED-TYPE/ │ │ │ │ +ADJ-CALL/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ CONDITIONS │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ PCL.ARG0. │ │ │ │ COMMON-LISPDECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ 1DECLARE │ │ │ │ 1OPTIMIZE │ │ │ │ -1RESTART-. │ │ │ │ +COMPILERFUN-. │ │ │ │ 0FAST-METHOD-CALL │ │ │ │ 1FUNCALL │ │ │ │ 0FAST-METHOD-CALL-FUNCTION │ │ │ │ 0FAST-METHOD-CALL-PV-CELL │ │ │ │ !0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ 1FIXNUM │ │ │ │ 0.SLOTS. │ │ │ │ @@ -81122,176 +81482,125 @@ │ │ │ │ 0.FUNCTION. │ │ │ │ 0.CM-ARGS. │ │ │ │ 1FUNCTION │ │ │ │ 1FUNCALL │ │ │ │ 1FUNCTION │ │ │ │ 1TYPE-ERROR │ │ │ │ KEYWORDDATUM │ │ │ │ -2EXPECTED-TYPE/ │ │ │ │ - /build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00G66 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00G69 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispAM/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispECG72 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispMA/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispbuG75 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispREG78 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ - /build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispNGG81 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp>=/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +3EXPECTED-TYPE/ │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispIG │ │ │ │ CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCL.PV-CELL. │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ - -.PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -ABORT-FAILURE │ │ │ │ -,DECLARE │ │ │ │ --METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -ABORT-FAILURE │ │ │ │ -,DECLARE │ │ │ │ --METHOD-LAMBDA-LIST │ │ │ │ -ABORT-FAILURE │ │ │ │ -1(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T)) │ │ │ │ -,MACROLET │ │ │ │ --PV-ENV │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ - -.PV-CELL. │ │ │ │ - -.PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ --MAKE-PV-TYPE-DECLARATION │ │ │ │ --MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --%CHECK-CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -BIND-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ --CNM-ARGS │ │ │ │ +COMMON-LISPLAMBDA ! │ │ │ │ ,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -ABORT-FAILURE │ │ │ │ --CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ +,OPTIMIZE │ │ │ │ +,FUNCTION │ │ │ │ +PCL.ARG0. │ │ │ │ +,LOCALLY │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ +,OPTIMIZE │ │ │ │ +COMPILERBLK-. │ │ │ │ +0FAST-METHOD-CALL │ │ │ │ +,FUNCALL │ │ │ │ +0FAST-METHOD-CALL-FUNCTION │ │ │ │ +0FAST-METHOD-CALL-PV-CELL │ │ │ │ +!0FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ │ +,FIXNUM │ │ │ │ +0.SLOTS. │ │ │ │ +SYSTEMSTD-INSTANCE │ │ │ │ +0%STD-INSTANCE-SLOTS │ │ │ │ +3FUNCALLABLE-STD-INSTANCE │ │ │ │ +0%CCLOSURE-ENV-NTHCDR │ │ │ │ +0.SLOTS. │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +0.SLOTS. │ │ │ │ +0..SLOT-UNBOUND.. │ │ │ │ +0SLOT-UNBOUND-INTERNAL │ │ │ │ +0METHOD-CALL │ │ │ │ +0.FUNCTION. │ │ │ │ +0METHOD-CALL-FUNCTION │ │ │ │ + 0.CM-ARGS. │ │ │ │ +0METHOD-CALL-CALL-METHOD-ARGS │ │ │ │ + 0.CM-ARGS. │ │ │ │ + 0.CM-ARGS. │ │ │ │ +,FUNCALL │ │ │ │ +0.FUNCTION. │ │ │ │ + 0.CM-ARGS. │ │ │ │ +0.FUNCTION. │ │ │ │ + 0.CM-ARGS. │ │ │ │ +,FUNCTION │ │ │ │ +,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-ESCAPE* │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ +,TYPE-ERROR │ │ │ │ +KEYWORDDATUM │ │ │ │ +4EXPECTED-TYPE/ │ │ │ │ +CLOSE/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp00G84 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispIL/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp,IG87 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispOC/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispETG90 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp7./build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp- │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispXNG96 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ +COMMON-LISP::FLOATING-POINT-INVALID-OPERATION class predicate │ │ │ │ +00000000 │ │ │ │ +LISPLAMB │ │ │ │ ,DECLARE │ │ │ │ -,WRITE-STRING │ │ │ │ -abort failed. │ │ │ │ -00000000@i │ │ │ │ +COMMON-LISP::FLOATING-POINT-OVERFLOW class predicateUOTE │ │ │ │ +#*00000@i │ │ │ │ +00000000 │ │ │ │ +00010000 │ │ │ │ +00000000 │ │ │ │ +CONDITIONS::FPE-XUOD class predicateMON-LISPLAMB@i │ │ │ │ 00000000 │ │ │ │ -COMMON-LISP::CONTROL-ERROR class predicate_cmpfu@i │ │ │ │ 00000000 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-PROGRAM-ERROR class predicateN │ │ │ │ -NARG-LIS │ │ │ │ -nding ~s │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -COMMON-LISP::PROGRAM-ERROR class predicate000000@i │ │ │ │ -cient ar │ │ │ │ --CONTROL │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-ERROR class predicatel_cmpfun.lsp │ │ │ │ -L-FUNCTI │ │ │ │ --FORMAT- │ │ │ │ 00000000 │ │ │ │ --CONTROL │ │ │ │ -COMMON-LISP::SIMPLE-ERROR class predicate │ │ │ │ -WITCH-OP │ │ │ │ 00000000 │ │ │ │ -COMMON-LISP::ERROR class predicateMBER │ │ │ │ -NOTE-KEY │ │ │ │ -COMMON-LISP::FLOATING-POINT-INVALID-OPERATION class predicate,CA@i │ │ │ │ 00000000 │ │ │ │ -COMMON-LISP::FLOATING-POINT-OVERFLOW class predicate000000000000@i │ │ │ │ +CONDITIONS::FPE-XUD class predicateALL-GLOBAL │ │ │ │ +ble-path │ │ │ │ 00000000 │ │ │ │ +LISPLAMB │ │ │ │ +L-GLOBAL │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +CONDITIONS::FPE-XU class predicateK │ │ │ │ +L-FUNCTI │ │ │ │ +FORMAT-C │ │ │ │ +CONDITIONS::FPE-XUOI class predicateTS │ │ │ │ +cl_cmpfu │ │ │ │ + INFO-TY │ │ │ │ +E-IF-NOT │ │ │ │ +KEYED-CM │ │ │ │ +CONDITIONS::FPE-XUI class predicateeachable swit@i │ │ │ │ +e-path/g │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ +00000000 │ │ │ │ +CONDITIONS::FPE-XUDI class predicate000000000000@i │ │ │ │ +00000010 │ │ │ │ DECLARE │ │ │ │ -CONDITIONS::FPE-UODI class predicate │ │ │ │ -&Insufficie@i │ │ │ │ --ARGUMEN │ │ │ │ -TCH-FINI │ │ │ │ -CONDITIONS::FPE-XUOD class predicateROGRAM-ERROR@i │ │ │ │ - binding │ │ │ │ -SH-LABEL │ │ │ │ -oducible │ │ │ │ 00000000 │ │ │ │ +2.7.1/cm │ │ │ │ +00000000 │ │ │ │ +CONDITIONS::FPE-XUODI class predicateT │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -ew/gcl_c │ │ │ │ -CONDITIONS::FPE-XUD class predicateUTPROP │ │ │ │ +COMPILER │ │ │ │ +producib │ │ │ │ +CONDITIONS::FPE-UODI class predicateVE-FIXNUM │ │ │ │ +#*111111 │ │ │ │ 00000000 │ │ │ │ --BIT-VEC │ │ │ │ +11111111 │ │ │ │ 00000000 │ │ │ │ -*0000000 │ │ │ │ -01000000 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -00000010 │ │ │ │ 00000000 │ │ │ │ -CONDITIONS::FPE-XUDI class predicate │ │ │ │ -LDIFF-NF │ │ │ │ *RESTORE-VARS*9 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ KEEP-VARS │ │ │ │ PROG1266 │ │ │ │ @@ -82878,178 +83187,152 @@ │ │ │ │ WT-DATA-END │ │ │ │ .INIT-FUNCTION │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ WT-DATA-END │ │ │ │ 9/build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpwt.lsp │ │ │ │ WT-DATA-END │ │ │ │ -PCL ARG-INFO-PRECEDENCE slot READER │ │ │ │ -00000000p\ │ │ │ │ -00000000PCL ARG-INFO-NUMBER-OPTIONAL slot READER00000000p │ │ │ │ -ATHNAME- │ │ │ │ +SYSTEM RAW slot READER │ │ │ │ 00000000 │ │ │ │ -N-LISPLAp\ │ │ │ │ -USER-INIPCL KEY slot WRITERNK │ │ │ │ --OUTPUT SYSTEM REF slot READERROGN │ │ │ │ -M-DIRECTp\ │ │ │ │ -NCATENATPCL CALL-LIST slot WRITERAR │ │ │ │ -TRA-LIBS │ │ │ │ -,RETPCL ARG-INFO-KEY/REST-P slot WRITERET │ │ │ │ -ecompile │ │ │ │ -LSPSYSDI │ │ │ │ -EM-DIRECPCL CACHED-INITARGS-FORM-LIST slot READERLETE-FIp │ │ │ │ -CDEBPCL CACHED-NEW-KEYS slot WRITER │ │ │ │ --PATHNAM │ │ │ │ -ORMAT-CO │ │ │ │ -ic -Wl,- │ │ │ │ -SYSTEM PRINT-FUNCTION slot WRITER │ │ │ │ --FORMAT-Cp │ │ │ │ -MAT-CONT │ │ │ │ -er-init) │ │ │ │ -.SETVVCOMMON-LISP LENGTH slot READER.Sp │ │ │ │ -si::save │ │ │ │ -_LIBDIR= │ │ │ │ -.*LIBPCL SIZE slot WRITERV │ │ │ │ -10000000 │ │ │ │ 00000000 │ │ │ │ +00000000p\ │ │ │ │ +PCL NKEYS slot WRITER00000000000p │ │ │ │ 00000000 │ │ │ │ -000000) │ │ │ │ +PCL ARG-INFO-KEY/REST-P slot READERS │ │ │ │ +COMPILER LABEL slot WRITERR/ │ │ │ │ +SYSTEM HAS-HOLES slot READERLIBSp │ │ │ │ +-OUTPUT │ │ │ │ +q si::*n │ │ │ │ +PCL CPD-COUNT slot WRITERSYSTEM-p │ │ │ │ +YSDIR GC │ │ │ │ +PCL NEXT-METHOD-CALL slot READERp │ │ │ │ +eproduci │ │ │ │ +AULT-DATp\ │ │ │ │ +PCL LIMIT-FN slot READERoduciblep │ │ │ │ +PCL GF-INFO-FAST-MF-P slot WRITERETVV │ │ │ │ +PCL CACHED-DEFAULT-INITARGS-FUNCTION slot READERp │ │ │ │ +SYSTEM SLOT-POSITION slot READERp │ │ │ │ +ble-reco │ │ │ │ +ISABLE-R │ │ │ │ +PCL CALL-METHOD-ARGS slot READERp │ │ │ │ +T-CONTRO │ │ │ │ +PCL GF-INFO-SIMPLE-ACCESSOR-TYPE slot READER0110p │ │ │ │ 00000000 │ │ │ │ +00000000p\ │ │ │ │ +PCL GF-INFO-STATIC-C-A-M-EMF slot READER │ │ │ │ +.TO-REGp │ │ │ │ 00000000 │ │ │ │ 11111111 │ │ │ │ -11111111 │ │ │ │ --PATHNAM │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -AMESTRIN │ │ │ │ -00000000 │ │ │ │ -00010000 │ │ │ │ -.DIRECTCONDITIONS FUNCTION-NAME slot WRITER111111111111p │ │ │ │ -00000000 │ │ │ │ +00000000p\ │ │ │ │ +COMPILER VAR slot READEROLQ │ │ │ │ 00000000 │ │ │ │ 00100000 │ │ │ │ +,CLOSEJp\ │ │ │ │ +PCL WRAPPER1 slot WRITER@i │ │ │ │ +PCL GF-INFO-C-A-M-EMF-STD-P slot READER)x)>((fixp │ │ │ │ +object)( │ │ │ │ +mnum_zer │ │ │ │ +object)(p\ │ │ │ │ +CONDITIONS FORMAT-ARGUMENTS slot READER number_zp │ │ │ │ +r_evenp( │ │ │ │ ++(0x8000p\ │ │ │ │ +PCL CACHED-RI-VALID-P slot WRITERn (((ufixnum)(xp │ │ │ │ +ject)((0 │ │ │ │ +))) : nu │ │ │ │ +>1)))))) │ │ │ │ +PCL SLOT-NAME-LISTS slot WRITER0p │ │ │ │ +ect x,ob │ │ │ │ 00000000 │ │ │ │ -00000000 │ │ │ │ -PY-STREAPCL GF-INFO-FAST-MF-P slot READER,* │ │ │ │ -,FORMAT\ │ │ │ │ -x8000000CONDITIONS EXPECTED-TYPE slot READER({register fp │ │ │ │ -x8000000 │ │ │ │ -t x) {re │ │ │ │ -0UL +(0xp\ │ │ │ │ -number_z │ │ │ │ -UL) ? !( │ │ │ │ -ine bool │ │ │ │ -m)(x))>=PCL GF-INFO-FAST-MF-P slot WRITER)x)&0x1) : numbp │ │ │ │ -r object │ │ │ │ -00000000 │ │ │ │ -+(0x4000 │ │ │ │ -0UL +(0xPCL CACHED-COMBINED-INITARGS-FORM-LIST slot WRITERinline object │ │ │ │ -))-(0x80 │ │ │ │ -00000000 │ │ │ │ -um)(i))> │ │ │ │ -er objec │ │ │ │ -80000000SYSTEM STATICP slot READER || ((p │ │ │ │ -f ((((uf │ │ │ │ +PCL LIMIT-FN slot WRITERf ((((ufp │ │ │ │ (0x40000 │ │ │ │ -00000UL p\ │ │ │ │ -=(!(((_qCOMPILER NAME slot READER>1))&-0p │ │ │ │ - if (p\ │ │ │ │ -000UL)) │ │ │ │ -x8000000 │ │ │ │ -),fp=((f │ │ │ │ -0UL +(0xCONDITIONS INSTANCE slot READER(p │ │ │ │ -z=(1UL<< │ │ │ │ -xnum)(_zp\ │ │ │ │ -(*(objec │ │ │ │ +00000000 │ │ │ │ +COMMON-LISP STREAM slot WRITERmap │ │ │ │ +ufixnum) │ │ │ │ +z)->d.e │ │ │ │ +m fs=((f │ │ │ │ +PCL CACHED-CONSTANTS slot WRITERp │ │ │ │ +(fs,fp,( │ │ │ │ +num)n)&( │ │ │ │ +PCL WRAPPER0 slot WRITERct)(x); p │ │ │ │ z!=Cnil) │ │ │ │ -num)p))) │ │ │ │ -fixnum)( │ │ │ │ -x4000000 │ │ │ │ -(fs,fp,(CONDITIONS FORMAT-ARGUMENTS slot WRITER0000UL +(p │ │ │ │ -ct _q3; │ │ │ │ -00000UL> │ │ │ │ -_dpf(obj │ │ │ │ -)&((ufix │ │ │ │ -(({regisPCL CACHED-COMBINED-INITIALIZE-FUNCTION slot READER0000000000000p │ │ │ │ -car,p=x- │ │ │ │ -)-(0x800 │ │ │ │ -ixnum)(np\ │ │ │ │ -(fixnum) │ │ │ │ -0x400000PCL CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL slot READER_q1)+(0x4000p │ │ │ │ -_fixnum1 │ │ │ │ -)(((ufix │ │ │ │ -000000ULp\ │ │ │ │ -)<=0?x:y │ │ │ │ -ect y) { │ │ │ │ -m)y)))>= │ │ │ │ -((fixnumPCL INDEX slot READER00000000000p │ │ │ │ -!number_ │ │ │ │ -f (!y) r │ │ │ │ -_gcd(objp\ │ │ │ │ -um)y)))> │ │ │ │ -um_gcd(lSYSTEM SLOT-DESCRIPTIONS slot WRITER000000000000p │ │ │ │ +{registe │ │ │ │ +PCL ARG-INFO-LAMBDA-LIST slot READER000000000000p │ │ │ │ +(_q1)+(0 │ │ │ │ + make_fi │ │ │ │ +_dpf(objp\ │ │ │ │ +PCL CACHED-COMBINED-INITIALIZE-FUNCTION slot READER if (({regisp │ │ │ │ 0x800000 │ │ │ │ -num_gcd( │ │ │ │ +)))>=0x8 │ │ │ │ +p │ │ │ │ +,FIND-CLASS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ + ,&OPTIONAL │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +.(FAST-METHOD MAKE-LOAD-FORM (STANDARD-OBJECT)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +-OBJECT │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +.REST-ARG. │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -~A is a generic function.~% │ │ │ │ -Its arguments are:~% ~S~% │ │ │ │ -GENERIC-FUNCTION-PRETTY-ARGLIST │ │ │ │ -Its methods are: │ │ │ │ -DOLIST271 │ │ │ │ -GENERIC-FUNCTION-METHODS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE5 │ │ │ │ -,TAGBODY! │ │ │ │ -,TAGBODY │ │ │ │ -~2% ~{~S ~}~:S =>~% │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -UNPARSE-SPECIALIZERS │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -METHOD-FAST-FUNCTION │ │ │ │ -METHOD-FUNCTION │ │ │ │ -,RETURN-FROM │ │ │ │ -#*DESCRIBE-METAOBJECTS-AS-OBJECTS-P* │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - OFUNCTION │ │ │ │ -TRACE-METHOD-INTERNAL │ │ │ │ -,UNTRACE │ │ │ │ -SYSTEMFSET │ │ │ │ - OFUNCTION │ │ │ │ -,SYMBOL-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -UNDEFMETHOD-1 │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -PARSE-METHOD-OR-SPEC │ │ │ │ -,METHOD │ │ │ │ -,REMOVE-METHOD │ │ │ │ -.7.1/xgc8o │ │ │ │ -,QUOTE/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_clcs_condition_definitions.o │ │ │ │ -DEFENTRY388 │ │ │ │ -reproduc@i │ │ │ │ -UNLOADFO │ │ │ │ -YSTEMLIT │ │ │ │ -COMMON-` │ │ │ │ -/reprodu@ │ │ │ │ -_Xlib.ls │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp,DE │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +&~@ │ │ │ │ +,MAKE-LOAD-FORM │ │ │ │ +SPLAMBDA │ │ │ │ +th/gcl278o │ │ │ │ +ENTRY390P │ │ │ │ +m,fixnum │ │ │ │ +2.7.1/xg@i │ │ │ │ +XWIDTHMM │ │ │ │ YSTEMLIT@i │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ OUTER-MERGE │ │ │ │ ,MAPCAN │ │ │ │ ,MAPCAR │ │ │ │ OUTER-MERGE │ │ │ │ @@ -87456,118 +87812,14 @@ │ │ │ │ ,SYMBOL-NAME │ │ │ │ ,PACKAGE-NAME │ │ │ │ ,SYMBOL-PACKAGE │ │ │ │ ADD-ADDRESS │ │ │ │ ,CONCATENATE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpenv.lsp │ │ │ │ ADD-DLADDRESS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -OPERATOR │ │ │ │ -LOAD-SHORT-DEFCOMBIN │ │ │ │ -,TRUENAME │ │ │ │ -LOAD-TRUENAME │ │ │ │ -SPECIALIZERS │ │ │ │ -,FIND-CLASS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -INTERN-EQL-SPECIALIZER │ │ │ │ -*THE-CLASS-T* │ │ │ │ -OLD-METHOD │ │ │ │ -GET-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -SPECIALIZERS │ │ │ │ -NEW-METHOD │ │ │ │ -NEW-METHOD │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -,STANDARD-METHOD │ │ │ │ -KEYWORDQUALIFIERS │ │ │ │ --SPECIALIZERS │ │ │ │ -SPECIALIZERS │ │ │ │ --LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ --FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -CM-ARGS │ │ │ │ -,LAMBDA │ │ │ │ -,DECLARE │ │ │ │ -MAKE-SHORT-METHOD-COMBINATION │ │ │ │ -OPERATOR │ │ │ │ -NEW-METHOD │ │ │ │ --DEFINITION-SOURCE │ │ │ │ -,DEFINE-METHOD-COMBINATION │ │ │ │ -,TRUENAME │ │ │ │ -OLD-METHOD │ │ │ │ -,REMOVE-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -OLD-METHOD │ │ │ │ -,ADD-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -NEW-METHOD │ │ │ │ -The method ~S ~A.~%~ │ │ │ │ - The method combination type ~S was defined with the~%~ │ │ │ │ - short form of DEFINE-METHOD-COMBINATION and so requires~%~ │ │ │ │ - all methods have either the single qualifier ~S or the~%~ │ │ │ │ - single qualifier :AROUND. │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,FUNCTION │ │ │ │ -ARGUMENTS-LAMBDA-LIST │ │ │ │ -LOAD-LONG-DEFCOMBIN │ │ │ │ -SPECIALIZERS │ │ │ │ -,FIND-CLASS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -INTERN-EQL-SPECIALIZER │ │ │ │ -*THE-CLASS-T* │ │ │ │ -OLD-METHOD │ │ │ │ -GET-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -SPECIALIZERS │ │ │ │ -NEW-METHOD │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -,STANDARD-METHOD │ │ │ │ -KEYWORDQUALIFIERS │ │ │ │ --SPECIALIZERS │ │ │ │ -SPECIALIZERS │ │ │ │ --LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ --FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -CM-ARGS │ │ │ │ -,LAMBDA │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -LONG-METHOD-COMBINATION │ │ │ │ --OPTIONS │ │ │ │ --FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ --ARGUMENTS-LAMBDA-LIST │ │ │ │ -ARGUMENTS-LAMBDA-LIST │ │ │ │ --DOCUMENTATION │ │ │ │ --DEFINITION-SOURCE │ │ │ │ -,DEFINE-METHOD-COMBINATION │ │ │ │ -LOAD-TRUENAME │ │ │ │ -#*LONG-METHOD-COMBINATION-FUNCTIONS* │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE./ │ │ │ │ -SYSTEMHASH-SET./0 │ │ │ │ -OLD-METHOD │ │ │ │ -,REMOVE-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -OLD-METHOD │ │ │ │ -,ADD-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -NEW-METHOD │ │ │ │ -No ~S methods. │ │ │ │ /build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_Xlib.o │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ADD-LIBC │ │ │ │ ADD-DLADDRESS │ │ │ │ CSTRUCTSTRCAT │ │ │ │ SYSTEMMDLSYM │ │ │ │ @@ -92262,14 +92514,20 @@ │ │ │ │ EQ-SUBTP │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEMEQUALP-IS-EQ-TP │ │ │ │ EQ-SUBTP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000001101100000011111111111111111000000000000000000000000000000000001111111) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpfun.lsp │ │ │ │ +COMPILER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SYSTEMEQL-IS-EQ-TP │ │ │ │ +EQ-SUBTP │ │ │ │ +#*11111111111111111111111000000000000000000000000011110000001111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpfun.lsp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ STREAM-NAME │ │ │ │ PATHNAME-DESIGNATOR │ │ │ │ ,NAMESTRING │ │ │ │ ,PATHNAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_debug.lsp │ │ │ │ STREAM-NAME │ │ │ │ @@ -92288,20 +92546,14 @@ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ MAKE-OPAQUE │ │ │ │ SYSTEMMAKE-STRUCTURE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmptype.lsp │ │ │ │ MAKE-OPAQUE │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -SYSTEMEQL-IS-EQ-TP │ │ │ │ -EQ-SUBTP │ │ │ │ -#*11111111111111111111111000000000000000000000000011110000001111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpfun.lsp │ │ │ │ -COMPILER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ SYSTEMTAG │ │ │ │ C2GO-CCB │ │ │ │ {frame_ptr fr; │ │ │ │ *COMPILER-OUTPUT1* │ │ │ │ fr=frs_sch( │ │ │ │ *COMPILER-OUTPUT1* │ │ │ │ WT-CCB-VS │ │ │ │ @@ -92521,15 +92773,14 @@ │ │ │ │ VAR-DYNAMIC │ │ │ │ *LOOP-BINDINGS* │ │ │ │ *LOOP-PROLOGUE* │ │ │ │ *LOOP-EPILOGUE* │ │ │ │ *LOOP-END-TEST* │ │ │ │ *LOOP-INCREMENT**INNER-SLOOP* │ │ │ │ FINISH-LOOP │ │ │ │ -register │ │ │ │ LOCATION │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ ,CHECK-TYPE │ │ │ │ INFO-TYPE │ │ │ │ @@ -92569,14 +92820,15 @@ │ │ │ │ DOLIST271 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE0 │ │ │ │ ,TAGBODY! │ │ │ │ FLAGS-POS │ │ │ │ ,RETURN-FROM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpeval.lsp │ │ │ │ +register │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpfun.lsp │ │ │ │ COMPILER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ KEYWORDINITIAL-VALUE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpfun.lsp │ │ │ │ @@ -107397,21 +107649,21 @@ │ │ │ │ ,PACKAGE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE- │ │ │ │ ,TAGBODY! │ │ │ │ PRINT-SYMBOL-APROPOS │ │ │ │ ,RETURN-FROM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/lsp/gcl_packlib.lsp │ │ │ │ +See sloop.lisp │ │ │ │ A list of cons's where the translation is the cdr, and the car │ │ │ │ is a list of names or name to be translated. Essentially allows 'globalizing' │ │ │ │ a symbol for the purposes of being a keyword in a sloop │ │ │ │ See sloop.lisp │ │ │ │ If t adds a type check on bounds of from loop │ │ │ │ if there is and automatic declare │ │ │ │ -See sloop.lisp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_info.o │ │ │ │ illegal file start ~a │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,&OPTIONAL │ │ │ │ FILE-TO-STRING │ │ │ │ *ALLOW-GZIPPED-FILE* │ │ │ │ ,DECLARE │ │ │ │ @@ -116178,487 +116430,181 @@ │ │ │ │ ,DECLARE │ │ │ │ BINARY-NEST │ │ │ │ ,DECLARE │ │ │ │ BINARY-NEST-INT │ │ │ │ BINARY-NEST-INT │ │ │ │ /build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpeval.lsp │ │ │ │ BINARY-NEST │ │ │ │ -COMPILER LEVEL slot WRITER │ │ │ │ -COMPILER STORE slot WRITER │ │ │ │ -COMPILER REPEATABLE slot READER │ │ │ │ +ansi_gclANSI-LOOP FOR-KEYWORDS slot WRITER │ │ │ │ COMPILER CFUN slot READER │ │ │ │ -COMPILER EXIT slot WRITER │ │ │ │ -COMPILER KNOWN-INIT slot WRITER │ │ │ │ +ANSI-LOOP ANSWER-VARIABLE slot WRITER │ │ │ │ +COMPILER EXIT slot READER │ │ │ │ +SYSTEM TAG slot READER │ │ │ │ +SYSTEM VEC slot READER │ │ │ │ 00000000 │ │ │ │ -ANSI-LOOP TEMP-VARIABLE slot WRITER0000000000000p │ │ │ │ +11111111p\ │ │ │ │ +00000000COMPILER VV slot READER000000000p │ │ │ │ 00000000 │ │ │ │ +-LISPLAM │ │ │ │ +num,int,COMPILER DT slot READER │ │ │ │ +2FIXNUMp │ │ │ │ +11111111 │ │ │ │ +00000000p\ │ │ │ │ 00000000 │ │ │ │ -FENTRY38 │ │ │ │ -ANSI-LOOP FOR-KEYWORDS slot WRITERCK-TYPE. │ │ │ │ -Pixel(fi │ │ │ │ -reproduc │ │ │ │ +00000000COMPILER FN slot WRITER000000000p │ │ │ │ 00000000 │ │ │ │ -ANSI-LOOP ANSI slot READER │ │ │ │ 00000000 │ │ │ │ -00000000p\ │ │ │ │ -COMPILER VV slot WRITER111111111p │ │ │ │ -DEFENTRY │ │ │ │ -ANSI-LOOP PREPOSITION-GROUPS slot WRITER │ │ │ │ -cl-2/gcl │ │ │ │ -ANSI-LOOP OPERATIONS slot READERp │ │ │ │ +MON-LISP │ │ │ │ +DEFENTRYANSI-LOOP TEMP-VARIABLE slot READERPTIMIZE │ │ │ │ +-FUNCTIOp\ │ │ │ │ +SYSTEM LINE slot WRITERDEFENTRY3p │ │ │ │ +ANSI-LOOP TEMPVARS slot WRITEReyp │ │ │ │ +l-2/gcl_ANSI-LOOP ITERATION-KEYWORDS slot READER │ │ │ │ +ENTRY387 │ │ │ │ +xnum IsP │ │ │ │ +COMPILER CH-CCB slot WRITERAFETYp │ │ │ │ +!fixANSI-LOOP INCLUSIVE-PERMITTED slot READERctionKep │ │ │ │ +N-LISPLA │ │ │ │ ,QUOTEp\ │ │ │ │ -COMPILER CALL slot WRITERKEY │ │ │ │ -MMON-LIS │ │ │ │ -COMPILER FORM slot WRITER │ │ │ │ -l27-2.7. │ │ │ │ -SYSTEM TAG slot WRITER │ │ │ │ -SYSTEMLp │ │ │ │ -roducibl │ │ │ │ -ANSI-LOOP FLAG-VARIABLE slot WRITER) │ │ │ │ -ISMODIFI │ │ │ │ +/XCOMPILER CH slot READERUNCTION │ │ │ │ d/reprod │ │ │ │ -ANSI-LOOP USER-DATA slot READERFp │ │ │ │ -ANSI-LOOP KEYWORDS slot READER00p │ │ │ │ - XString │ │ │ │ -COMPILER CFUN slot WRITER0000000p │ │ │ │ -00000000 │ │ │ │ -FENTRY38 │ │ │ │ -COMPILER FLAGS slot WRITERE │ │ │ │ -MMON-LIS │ │ │ │ -COMMON-LISP SPACE slot READER │ │ │ │ +00000000p\ │ │ │ │ +OMMON-LI │ │ │ │ +ANSI-LOOP DTYPE slot WRITER │ │ │ │ 00000000 │ │ │ │ -COMPILER C1CB slot READER │ │ │ │ -,QUOTEp\ │ │ │ │ -ANSI-LOOP INFINITY-DATA slot READERTE │ │ │ │ -/MSBFIRSTp │ │ │ │ +00000000ANSI-LOOP PREPOSITION-GROUPS slot WRITERB │ │ │ │ +eproduci │ │ │ │ +,CHECSYSTEM STREAM-NAME slot READER. │ │ │ │ +num,fixn │ │ │ │ +gcl-2/gc │ │ │ │ +#*111111p\ │ │ │ │ +00000000COMPILER C1 slot WRITER000000000p │ │ │ │ +ANSI-LOOP INFINITY-DATA slot WRITER │ │ │ │ KINGPIXE │ │ │ │ -ANSI-LOOP DTYPE slot WRITER │ │ │ │ -COMPILER C1 slot WRITER │ │ │ │ -/NORTHGRp │ │ │ │ +ANSI-LOOP PATH-KEYWORDS slot READEROTE │ │ │ │ +/CWSAVEUp │ │ │ │ +.*MAKE-COMMON-LISP FIRST slot READERDE p │ │ │ │ +.*MAKE-C │ │ │ │ +COMPILER REGISTER slot READER*MAp │ │ │ │ +.*MAKE-C │ │ │ │ +,QUOTECOMPILER INFO slot READERTANT │ │ │ │ +.*COMPILER C1CB slot READERGXNOOP │ │ │ │ +MAKE-CON │ │ │ │ E-CONSTA │ │ │ │ -OTUSEFUL │ │ │ │ -ANSI-LOOP INCLUSIVE-PERMITTED slot WRITER*MAKE-Cp │ │ │ │ -ANSI-LOOP TEMPVARS slot READERTEp │ │ │ │ -COMPILER SRC slot WRITERNT │ │ │ │ -/GXINVER │ │ │ │ -ANSI-LOOP KEYWORDS slot WRITER │ │ │ │ -ANSI-LOOP PATH-KEYWORDS slot WRITER │ │ │ │ +.*ANSI-LOOP TEMP-VARIABLE slot WRITER │ │ │ │ .*MAKE-CONp │ │ │ │ -.*MAKE-C │ │ │ │ -ANSI-LOOP NAME slot READERQUOTE │ │ │ │ *MAKE-CO │ │ │ │ -ANSI-LOOP DATA slot WRITERCSTIPPp │ │ │ │ AKE-CONS │ │ │ │ -COMPILER C1 slot READERONSTANT │ │ │ │ -,QUOTEp\ │ │ │ │ -ANSI-LOOP IMPLICIT-FOR-REQUIRED slot WRITER/DOGRp │ │ │ │ -SYSTEM HASH slot READERNT │ │ │ │ -.*MAKE-C │ │ │ │ -COMPILER EXIT slot READER │ │ │ │ --CONSTAN │ │ │ │ -ANSI-LOOP FLAG-VARIABLE slot READERRACTIVE │ │ │ │ +*MAKE-CO │ │ │ │ +ANSI-LOOP DATA slot WRITERAKE-COp │ │ │ │ +CONSTANT │ │ │ │ +*MAKE-CO │ │ │ │ +,ANSI-LOOP HISTORY slot READER │ │ │ │ +CONSTANT │ │ │ │ +CJOINSTY │ │ │ │ +.*ANSI-LOOP IMPLICIT-FOR-REQUIRED slot WRITER │ │ │ │ +AKE-CONS │ │ │ │ + COMPILER KNOWN-INIT slot READERNp │ │ │ │ +KE-CONST │ │ │ │ +KE-CONSTp\ │ │ │ │ +PPLESHAPCOMPILER FORM slot WRITER,QUOTE │ │ │ │ +CKPERCEN │ │ │ │ +.*MACOMPILER SRC slot READERBKEY │ │ │ │ +MAKE-CON │ │ │ │ +REENINTECOMPILER REGISTER slot WRITERQUOp │ │ │ │ RAYSCALE │ │ │ │ -ANSI-LOOP TYPE-SYMBOLS slot WRITERR │ │ │ │ -COMPILER VALUE-TO-GO slot READERp │ │ │ │ +ANSI-LOOP TYPE-KEYWORDS slot READER │ │ │ │ +ANSI-LOOP OPERATIONS slot READERp │ │ │ │ +ANSI-LOOP HISTORY slot WRITER │ │ │ │ ANSI-LOOP TYPE-KEYWORDS slot WRITER │ │ │ │ -SYSTEM STREAM-NAME slot WRITER │ │ │ │ -SYSTEM SPICE slot READER@hT │ │ │ │ -ANSI-LOOP TEMP-VARIABLE slot READER │ │ │ │ -SYSTEM LOC slot WRITER │ │ │ │ -ANSI-LOOP IMPLICIT-FOR-REQUIRED slot READER │ │ │ │ -ANSI-LOOP NAME slot WRITER │ │ │ │ +ANSI-LOOP ANSI slot WRITERR │ │ │ │ +ANSI-LOOP USER-DATA slot WRITER │ │ │ │ +COMPILER C1CB slot WRITER │ │ │ │ +SYSTEM VEC slot WRITER │ │ │ │ +ANSI-LOOP FLAG-VARIABLE slot READERNAL │ │ │ │ +.*COMPILER EXIT slot WRITERXA_INTEp │ │ │ │ +A_RECTAN │ │ │ │ +CONSTANTCOMPILER KNOWN-INIT slot WRITERKp │ │ │ │ +XA_NORM_COMPILER MT slot READERANT │ │ │ │ MAKE-CON │ │ │ │ -COMPILER ALIASES slot WRITERA_CUp │ │ │ │ -ANSI-LOOP DTYPE slot READERURCE_p │ │ │ │ -COMPILER SRC slot READERNSTANT │ │ │ │ -_WM_NORM │ │ │ │ -COMPILER C1CB slot WRITER_SPACE │ │ │ │ -ANSI-LOOP ANSI slot WRITERWIDTH │ │ │ │ -XA_RESOL │ │ │ │ +,QUANSI-LOOP FLAG-VARIABLE slot WRITERANT │ │ │ │ +-CONSTAN │ │ │ │ AKE-CONS │ │ │ │ -ANSI-LOOP NAMES slot READER_PREDp │ │ │ │ -SYSTEM LINE slot READER │ │ │ │ -COMPILER VV slot READER │ │ │ │ -COMPILER CH slot READER │ │ │ │ -COMMON-LISP FIRST slot WRITER │ │ │ │ -SYSTEM VEC slot WRITER │ │ │ │ -ANSI-LOOP USER-DATA slot WRITER │ │ │ │ -ANSI-LOOP PATH-KEYWORDS slot READER │ │ │ │ -ANSI-LOOP ITERATION-KEYWORDS slot WRITER │ │ │ │ -COMPILER INFO slot READER0000000p │ │ │ │ -00000000 │ │ │ │ - #*p\ │ │ │ │ -COMPILER FN slot READER000000000p │ │ │ │ - (SYSTE │ │ │ │ -00000000 │ │ │ │ -00000000p\ │ │ │ │ -ANSI-LOOP PREPOSITION-GROUPS slot READER00000000p │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -NFO-REF-p\ │ │ │ │ -SYSTEM LINE slot WRITER 'SYSTEMp │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -ANSI-LOOP ANSWER-VARIABLE slot READER00000000000p │ │ │ │ -::MAPCAR │ │ │ │ -00000000p\ │ │ │ │ -COMPILER INFO slot WRITER0000000p │ │ │ │ -0) '0 '( │ │ │ │ -*)((fixn │ │ │ │ -00000000 │ │ │ │ -ANSI-LOOP TEMPVARS slot WRITER00p │ │ │ │ -::MAPCAR │ │ │ │ -00000010 │ │ │ │ -COMPILER MT slot READER101101000p │ │ │ │ -SP::LIST │ │ │ │ -00000000 │ │ │ │ -00000000p\ │ │ │ │ -ANSI-LOOP TYPE-KEYWORDS slot READER0000000000000p │ │ │ │ -00000000 │ │ │ │ -OMMON-LI │ │ │ │ -10110111p\ │ │ │ │ -COMPILER ALIASES slot READER0000p │ │ │ │ -00000000 │ │ │ │ -00000000p\ │ │ │ │ -COMPILER CH-CCB slot READER00000p │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -ANSI-LOOP TYPE-SYMBOLS slot READER00000000000000p │ │ │ │ -00000000 │ │ │ │ -MON-LISPp\ │ │ │ │ -COMMON-LISP FIRST slot READER111p │ │ │ │ -10110111 │ │ │ │ - # │ │ │ │ -00000000p\ │ │ │ │ -SYSTEM VEC slot READERouble*)((fp │ │ │ │ -00000000 │ │ │ │ -#*110110 │ │ │ │ -TEM::UNIp\ │ │ │ │ -ANSI-LOOP ITERATION-KEYWORDS slot READER00000000p │ │ │ │ -MMON-LIS │ │ │ │ -00000000 │ │ │ │ -COMPILER DT slot WRITERs to savep │ │ │ │ -gcl_dwte │ │ │ │ -oad 'ata │ │ │ │ -COMPILER DT slot READER) │ │ │ │ -;; (autp │ │ │ │ - 'bit-an │ │ │ │ -d '|gcl_ │ │ │ │ -COMPILER CH slot WRITERlib|) │ │ │ │ -compile- │ │ │ │ -tenate ' │ │ │ │ -l_mislib │ │ │ │ -COMPILER LEVEL slot READERcl_seqp │ │ │ │ -cl_numli │ │ │ │ -oload 'e │ │ │ │ -_seqlib|p\ │ │ │ │ -COMPILER FORM slot READERgcl_seqp │ │ │ │ --setf-me │ │ │ │ -oload 'lp\ │ │ │ │ -COMPILER FLAGS slot READERndc1 'p │ │ │ │ -'logtest │ │ │ │ -SYSTEM HASH slot WRITERlib|) │ │ │ │ -d 'nset- │ │ │ │ -autoload │ │ │ │ -ad 'posi │ │ │ │ -ANSI-LOOP FOR-KEYWORDS slot READERprin1-to-strinp │ │ │ │ -ize '|gc │ │ │ │ -;; (aup\ │ │ │ │ -COMPILER REPEATABLE slot WRITERap │ │ │ │ -load 'so │ │ │ │ -SYSTEM STREAM-NAME slot READERd p │ │ │ │ -ad 'vect │ │ │ │ - 'yes-or │ │ │ │ -set-dispp\ │ │ │ │ -COMPILER VALUE-TO-GO slot WRITERp │ │ │ │ --reader) │ │ │ │ -ADMACRO │ │ │ │ --macro ' │ │ │ │ -ANSI-LOOP HISTORY slot WRITERtolp │ │ │ │ -defstruc │ │ │ │ -macro 'd │ │ │ │ -ase '|gc │ │ │ │ -ANSI-LOOP INCLUSIVE-PERMITTED slot READER(autolop │ │ │ │ -macro 'r │ │ │ │ -ep '|gcl │ │ │ │ -input-frp\ │ │ │ │ -ANSI-LOOP DATA slot READER; (autp │ │ │ │ -with-sta │ │ │ │ -ler *fea │ │ │ │ - '"profip\ │ │ │ │ -COMPILER KIND slot WRITER) │ │ │ │ --choices │ │ │ │ -age :xli │ │ │ │ -COMPILER MT slot WRITER │ │ │ │ -COMPILER REGISTER slot WRITER │ │ │ │ -COMMON-LISP SPACE slot WRITERprop │ │ │ │ -rdColorm │ │ │ │ -COMPILER REGISTER slot READERl27p │ │ │ │ -P-COLORM │ │ │ │ -DEFENTRY │ │ │ │ -map(fixnp\ │ │ │ │ -COMPILER KNOWN-INIT slot READER │ │ │ │ -ANSI-LOOP HISTORY slot READER │ │ │ │ -LUE_MULT │ │ │ │ -SYSTEM TAG slot READERLAMBDA │ │ │ │ +SYSTEM LOC slot WRITER │ │ │ │ +COMPILER REPEATABLE slot READER │ │ │ │ +COMPILER VALUE-TO-GO slot READERp │ │ │ │ +SYSTEM HASH slot READER │ │ │ │ COMPILER STORE slot READER │ │ │ │ -HECK-TYP │ │ │ │ -ax(fixnu │ │ │ │ -SET-XSTAp\ │ │ │ │ -ANSI-LOOP NAMES slot WRITEROTE │ │ │ │ -andardCo │ │ │ │ -DARDCOLO │ │ │ │ -ANSI-LOOP ANSWER-VARIABLE slot WRITERULT │ │ │ │ -,OPTIMIZ │ │ │ │ -num XSta │ │ │ │ -SYSTEM SPICE slot WRITERION │ │ │ │ -2.7.1/xg │ │ │ │ -COMPILER CALL slot READER │ │ │ │ -RMAP-GRE │ │ │ │ -2/gcl_Xsp\ │ │ │ │ -(#0)+(#1) │ │ │ │ -immnum_plus(#0,#1)SET │ │ │ │ -PCL::ANSI-LOOP::LOOP-MINIMAX SLOT1 │ │ │ │ -.INIT-FUNCTIO(#0)->rat.rat_denOTE3 │ │ │ │ -PCL::ANSI-LOOP::LOOP-MINIMAX SLOT5OMMON-LISPLAMBPCL::COMPILER::FUN SLOT8FENTRY38PCL::COMPILER::INFO SLOT0 │ │ │ │ -,SAFEfixnum_dpf(fix(#1->c.c_car),fix(#1->c.c_cdr),#0,#2)M │ │ │ │ -SPCL::COMPILER::BLK SLOT2EN_MAX │ │ │ │ -GCL (GNU Common Lisp) 2.7.1 Thu Apr 10 09:38:27 PM EDT 2025 ANSI git: Version_2_7_2pre12 │ │ │ │ -Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl) │ │ │ │ -Binary License: GPL due to GPL'ed components: (XGCL UNEXEC) │ │ │ │ -Modifications of this banner must retain notice of a compatible license │ │ │ │ -Dedicated to the memory of W. Schelter │ │ │ │ -Use (help) to get some basic information on how to use GCL. │ │ │ │ -!SETF0MMOSETF0PLAG50252 │ │ │ │ -,G50253 SSETF0AMESETF0PE G50254 │ │ │ │ -PCL::COMPILER::BLK SLOT7; │ │ │ │ -27-2.7.1 │ │ │ │ -ORMAP-RE │ │ │ │ -et_XStan │ │ │ │ +ANSI-LOOP KEYWORDS slot READER │ │ │ │ +ANSI-LOOP NAME slot READER │ │ │ │ +COMPILER FN slot READER │ │ │ │ +SYSTEM LOC slot READER │ │ │ │ +COMPILER SRC slot WRITER │ │ │ │ +,DECLASYSTEM HASH slot WRITERY │ │ │ │ +XErrorEv │ │ │ │ +ERROREVE │ │ │ │ +,BLOCKCOMPILER CH-CCB slot READER │ │ │ │ +SYSTEMp\ │ │ │ │ +ke_XAnyECOMPILER VV slot WRITEROTE │ │ │ │ ild/repr │ │ │ │ -ruct.lsp │ │ │ │ -ARDCOLOR │ │ │ │ -ormap_re │ │ │ │ -eproduci │ │ │ │ -SPLAMBDA │ │ │ │ -RDCOLORM │ │ │ │ -xnum,fix │ │ │ │ -.INIT-FU │ │ │ │ -CK-TYPE. │ │ │ │ -imeCoord │ │ │ │ -/xgcl-2/ │ │ │ │ -TIMECOOR │ │ │ │ +/XANANSI-LOOP NAMES slot READER │ │ │ │ +path/gclp\ │ │ │ │ +T-WINDOWCOMPILER ALIASES slot WRITER │ │ │ │ LISPLAMB │ │ │ │ -XTIMECOO │ │ │ │ -roducibl │ │ │ │ -um,fixnu │ │ │ │ -ild/repr │ │ │ │ -ruct_l_3 │ │ │ │ -um XTime │ │ │ │ -ucible-p │ │ │ │ -time(fix │ │ │ │ -cl-2/gcl │ │ │ │ -AKE-XMOD │ │ │ │ -ierKeyma │ │ │ │ -xgcl-2/g │ │ │ │ -FIERKEYM │ │ │ │ -SYSTEMLI │ │ │ │ -erKeymap │ │ │ │ -odifierm │ │ │ │ -?/build/ │ │ │ │ -_XStruct │ │ │ │ -IFIERKEY │ │ │ │ -ENTRY388 │ │ │ │ -HECK-TYP │ │ │ │ -Keymap_m │ │ │ │ -fierKeym │ │ │ │ -ucible-p │ │ │ │ -/Simmnum_count(#0)cdifference(#0,#1) │ │ │ │ -PCL::COMPILER::INFO SLOT6E │ │ │ │ -/XMO(((#0)->st.st_fillp)=(((#0)->st.st_hasfillp) ? (#1) : ((#0)->st.st_fillp))) │ │ │ │ -,QUO(((#0)->st.st_fillp)=(((#0)->st.st_hasfillp) ? (#1) : ((#0)->st.st_fillp)))OPTIM │ │ │ │ -IFUN-SIMPLE-TYPEP-FNODIFIERKEYMAG72475 │ │ │ │ -IFUN724743s │ │ │ │ -HASHTABLE-SIMPLE-TYPEP-FNodifierG72465 │ │ │ │ -HASHTABLE72464 │ │ │ │ -HASHTABLE3s │ │ │ │ -PCL::COMPILER::FUN SLOT11cible-pcimag(#0)3s │ │ │ │ -cimag(#0)3s │ │ │ │ -(#0)->cmp.cmp_imagDIFIERKEYMAP-Mcimag(#0)3s │ │ │ │ -cimag(#0)3s │ │ │ │ -(#0)->cmp.cmp_imag!/SET-XMODIFIEPCL::COMPILER::VAR SLOT0.INIT-FUPCL::ANSI-LOOP::LOOP-COLLECTOR SLOT5 │ │ │ │ -cmod(#0) │ │ │ │ -PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT7Y387! │ │ │ │ -DEFENPCL::COMPILER::VAR SLOT2IMIZE │ │ │ │ -PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT1,CHECK-TYPE./build/reproducible-path/gcl27-2.7.1/unixport/raw_ansi_gcl │ │ │ │ -SYST/build/reproducible-path/gcl27-2.7.1/unixport/er-libdir │ │ │ │ -immnum_plusp(#0)fixnum_ldb(fix(#0->c.c_car),fix(#0->c.c_cdr),#1)(#0)>(#1)3s │ │ │ │ -PCL::COMPILER::BINDING SLOT0 │ │ │ │ -,QPCL::COMPILER::INFO SLOT2e-path/((#0)->s.s_dbind)2/gcl_XStruct_limmnum_bitp(#0,#1)DIFIERKEYMAP-Mimmnum_evenp(#0)PCL::COMPILER::VAR SLOT5um XKeybPCL::COMPILER::VAR SLOT9ixnum); │ │ │ │ -PCL::ANSI-LOOP::LOOP-PATH SLOT0 │ │ │ │ -#0->s.s_gfdef │ │ │ │ -PCL::COMPILER::FUN SLOT5d/reprodPCL::ANSI-LOOP::LOOP-PATH SLOT2gPCL::ANSI-LOOP::LOOP-COLLECTOR SLOT3E-BELL_PERCEPCL::COMPILER::FUN SLOT9 │ │ │ │ -PCL::COMPILER::FUN SLOT6TATE-BEL-O2 │ │ │ │ -PCL::ANSI-LOOP::LOOP-MINIMAX SLOT2QUOTE │ │ │ │ -,QUOT((object)(#0))<((object)(#1))MONPCL::COMPILER::BINDING SLOT1 │ │ │ │ -DPCL::COMPILER::INFO SLOT4OPTIMIZThu Apr 10 09:38:27 PM EDT 2025F(#0)!=(#1)s │ │ │ │ -char_code(#0)!=char_code(#1)XKEY!eql(#0,#1) │ │ │ │ -fixnum_dpb(fix(#1->c.c_car),fix(#1->c.c_cdr),#0,#2)d set_XKeyboaPCL::COMPILER::VAR SLOT10um,fixnimmnum_eqv(#0,#1)boardState_bellimmnum_eqv(#0,#1)XNUM- │ │ │ │ -0FIXPCL::COMPILER::BLK SLOT4 │ │ │ │ -,QUOPCL::COMPILER::BLK SLOT5-path/gc(#0)->rat.rat_numgcl_XStruct_l_3~s heap words available~%TE-BELLB │ │ │ │ -immnum_logt(#0,#1)TE │ │ │ │ - /XKEYBOARDgcc -Wl,-z,relro -no-pie -Wl,-z,relro -Wl,-T,gcl.script -o2 │ │ │ │ -,ctimes(#0,#1) │ │ │ │ -PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT3LAMBDA │ │ │ │ -DE({object _y=(object)#0;is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})YSTEMLIT │ │ │ │ -({object _y=(object)fix(#0);is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})) │ │ │ │ -;({object _y=(object)#0;is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})\ │ │ │ │ -({object _y=(object)fixint(#0);is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));}) │ │ │ │ -(#0)*(#1)3s │ │ │ │ +COMPILER STORE slot WRITERDEFENTp │ │ │ │ +NYEVENT- │ │ │ │ +T-FUNCTI │ │ │ │ +COMPILER CALL slot READEREFENTRYp │ │ │ │ +RDFIXNUM │ │ │ │ +le-path/ │ │ │ │ +ON-LISPLp\ │ │ │ │ +,SSYSTEM STREAM-NAME slot WRITERM p │ │ │ │ +nd_event │ │ │ │ +cible-pa │ │ │ │ +SYSTEM SPICE slot READER │ │ │ │ +COMPILER FORM slot READERJECT │ │ │ │ +type(fix │ │ │ │ +PCL::ANSI-LOOP::LOOP-PATH SLOT2MPCL::COMPILER::INFO SLOT4 │ │ │ │ +PCL::COMPILER::BLK SLOT3e_bell_pG35757 │ │ │ │ +(#0)<=(#1)r │ │ │ │ +immnum_evenp(#0)PCL::COMPILER::FUN SLOT5( │ │ │ │ +$set_XPCL::COMPILER::VAR SLOT6percent │ │ │ │ +immnum_zerop(#0)PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT3QUOTE │ │ │ │ +?/buiPCL::ANSI-LOOP::LOOP-UNIVERSE SLOT4cl-2/gcl_XStrmemset │ │ │ │ +myfork() │ │ │ │ +PCL::COMPILER::BLK SLOT5XTIMECOOPCL::ANSI-LOOP::LOOP-UNIVERSE SLOT7OTE1 │ │ │ │ +,QUOTE((#0) | (#1)) │ │ │ │ +immnum_ior((#0),(#1))N-LISPLAMBDThu Apr 10 09:38:27 PM EDT 2025F~s heap words available~%ECOORD │ │ │ │ +PCL::COMPILER::FUN SLOT11Coord()PCL::COMPILER::VAR SLOT1 │ │ │ │ +creal(#0) │ │ │ │ +creal(#0) │ │ │ │ +(#0)->cmp.cmp_realcl-2/gcl_XStrucreal(#0) │ │ │ │ +creal(#0) │ │ │ │ +(#0)->cmp.cmp_real │ │ │ │ +,QUPCL::COMPILER::FUN SLOT9IT-FUNCT(1L<<(#1))r │ │ │ │ +fixnum_expt((#0),(#1))UOTE │ │ │ │ +number_expt(#0,#1)MMON-LISPLAMBD(#0)>=(#1)r │ │ │ │ +PCL::COMPILER::INFO SLOT3 │ │ │ │ +,SAFE(#0)*(#1) │ │ │ │ safe_mul(#0,#1) │ │ │ │ -immnum_times(#0,#1)! │ │ │ │ -DEFENTRY3PCL::COMPILER::FUN SLOT2E │ │ │ │ -,SAFPCL::COMPILER::BLK SLOT3IXNUM │ │ │ │ -(#0)==(#1)s │ │ │ │ -char_code(#0)==char_code(#1)DSTAeql(#0,#1)s │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT SYSTEM:SPICE)voi(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::ALIASES)um); │ │ │ │ -$set_X(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::PREPOSITION-GROUPS) │ │ │ │ -)(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::HISTORY)h/gcl27-2.7.1(FAST-READER-METHOD SLOT-OBJECT COMPILER::C1)STA(FAST-READER-METHOD SLOT-OBJECT COMPILER::CH) │ │ │ │ - (FAST-READER-METHOD SLOT-OBJECT COMPILER::REPEATABLE) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::FLAG-VARIABLE)SPLAMBD(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::TEMP-VARIABLE)ECOORD │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::ANSWER-VARIABLE)ord()(FAST-READER-METHOD SLOT-OBJECT COMPILER::FN)uil(FAST-READER-METHOD SLOT-OBJECT SYSTEM:LOC)XStru(FAST-READER-METHOD SLOT-OBJECT COMPILER::MT) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT COMPILER::DT)NCT(FAST-READER-METHOD SLOT-OBJECT COMPILER::VV) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::IMPLICIT-FOR-REQUIRED)PTIMIZE │ │ │ │ -,SAFE(FAST-READER-METHOD SLOT-OBJECT COMPILER::CFUN)R(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::INCLUSIVE-PERMITTED)((FAST-READER-METHOD SLOT-OBJECT SYSTEM::VEC)}) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT ANSI-LOOP::ANSI)(FAST-READER-METHOD SLOT-OBJECT SYSTEM:TAG)-Y │ │ │ │ -_(FAST-READER-METHOD SLOT-OBJECT COMPILER::INFO)O(FAST-READER-METHOD SLOT-OBJECT COMPILER::LEVEL) │ │ │ │ -CHECK-TY │ │ │ │ -/GET-C-p\ │ │ │ │ -INIT-FUN │ │ │ │ -11111111PCL KEY slot READER0000000000000p │ │ │ │ -neral.lsp\ │ │ │ │ -A-STRIPCL WRAPPER0 slot READER │ │ │ │ -00000000 │ │ │ │ --ST-POINp\ │ │ │ │ -string2( │ │ │ │ -CONDITIONS INSTANCE slot WRITERlp │ │ │ │ -11000000 │ │ │ │ -00000000SYSTEM TEST-FUNCTION slot READERp │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000p\ │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000PCL CALL-LIST slot READER0000000p │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000p\ │ │ │ │ -ET-ST-PO │ │ │ │ -ducible- │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000SYSTEM OFFSET slot READER000) │ │ │ │ -00000000 │ │ │ │ -set_int_p\ │ │ │ │ --2.7.1/x │ │ │ │ -.IPCL ARG-INFO-LAMBDA-LIST slot READERQUOTE │ │ │ │ +immnum_times(#0,#1) │ │ │ │ +SYSTEM(#0)+(#1) │ │ │ │ +immnum_plus(#0,#1) XTimeCoord_y( │ │ │ │ +USTRING-SIMPLE-TYPEP-FNOTE │ │ │ │ +?/buG72477 │ │ │ │ +USTRING72476 │ │ │ │ +SHORTFLOAT-SIMPLE-TYPEP-FN │ │ │ │ +SHORTFLOAT72462 │ │ │ │ +SHORTFLOATr │ │ │ │ +HASHTABLE-SIMPLE-TYPEP-FN │ │ │ │ +PCL CACHED-MAKE-INSTANCE-FUNCTION slot READERY38p │ │ │ │ +bject ge │ │ │ │ +l_genera │ │ │ │ 00000000p\ │ │ │ │ -00000000COMPILER VAR slot WRITER │ │ │ │ -#*11111p │ │ │ │ -0000000) │ │ │ │ -xnum,intSYSTEM FROZEN slot WRITERUM- │ │ │ │ -00000000 │ │ │ │ -11111111 │ │ │ │ -00000000 │ │ │ │ -00000000PCL CPD-CLASS slot READERCK-TYPEp │ │ │ │ -ET_C_STRSYSTEM CONC-NAME slot READERPLY0p │ │ │ │ -c_string │ │ │ │ -SYSTEM SLOT-POSITION slot READERp │ │ │ │ - SYSTEM NAMED slot WRITERTE │ │ │ │ --CONSTAN │ │ │ │ -CONSTANT │ │ │ │ --CONSTANPCL ARG-INFO-KEYWORDS slot WRITER │ │ │ │ -.*MAKE-CONSTp │ │ │ │ -MAKE-CON │ │ │ │ -OUBBASEL │ │ │ │ -/XKPCL GF-INFO-C-A-M-EMF-STD-P slot WRITER │ │ │ │ -TANGLEBR │ │ │ │ -IGHTANGLCOMPILER UNWIND-EXIT slot WRITERp │ │ │ │ -THREEEIG │ │ │ │ -.*MCOMMON-LISP PATHNAME slot READERp │ │ │ │ -.*MAKE-C │ │ │ │ -PCL CALL-METHOD-ARGS slot WRITERp │ │ │ │ -IRCBULLE │ │ │ │ -/XK_OPEN │ │ │ │ -OPENSTARPCL ARG-INFO-KEY/REST-P slot READERTE │ │ │ │ -/XK_ENFILp │ │ │ │ -DTRIBULL │ │ │ │ -MAKE-CON │ │ │ │ -PCL GF-INFO-SIMPLE-ACCESSOR-TYPE slot READERSYMBp │ │ │ │ -/XK_DPCL SLOT-NAME-LISTS slot WRITERSp │ │ │ │ -CONSTANT │ │ │ │ -AKE-CONS │ │ │ │ -K_HEBREWSYSTEM RAW slot READERE-CONSTANTp │ │ │ │ -/XK_HEBR │ │ │ │ -CONSTANT │ │ │ │ -MAKE-CONSYSTEM SLOT-DESCRIPTIONS slot READER │ │ │ │ -REW_LAME │ │ │ │ -SYSTEM OFFSET slot WRITEROTE │ │ │ │ --LISPQUO │ │ │ │ -VERTEXCU │ │ │ │ -(BOUNDP CONDITIONS::DATUM) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - ,&OPTIONAL │ │ │ │ -UNTRACE-METHOD │ │ │ │ - UNTRACE-1 │ │ │ │ -METHOD-GENERIC-FUNCTION │ │ │ │ -,REMOVE-METHOD │ │ │ │ -,ADD-METHOD │ │ │ │ -,SLOT-VALUE │ │ │ │ -,METHOD │ │ │ │ -*TRACED-METHODS* │ │ │ │ -*TRACED-METHODS* │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -PARSE-METHOD-OR-SPEC │ │ │ │ -,DECLARE │ │ │ │ -*TRACED-METHODS* │ │ │ │ -KEYWORDTEST │ │ │ │ - UNTRACE-1 │ │ │ │ -,METHOD │ │ │ │ -~S is not a traced method? │ │ │ │ -DOLIST271 │ │ │ │ -*TRACED-METHODS* │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE. │ │ │ │ -,TAGBODY! │ │ │ │ - UNTRACE-1 │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -UNTRACE-METHOD │ │ │ │ -(WRITER STREAM) │ │ │ │ -TYPE-PREDICATE COMMON-LISP SIMPLE-ERROR │ │ │ │ -(READER CONDITIONS::OPERATION) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT PV-CELL) │ │ │ │ -(READER METHOD) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-ODI │ │ │ │ -TYPE-PREDICATE CONDITIONS STORAGE-EXHAUSTED │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::POSSIBILITIES) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-TYPE-ERROR │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CACHED-COMBINED-INITIALIZE-FUNCTION) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT) │ │ │ │ -TYPE-PREDICATE COMMON-LISP CONTROL-ERROR │ │ │ │ -(FAST-READER-METHOD ARITHMETIC-ERROR CONDITIONS::OPERATION) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FLOATING-POINT-OVERFLOW │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT METHOD) │ │ │ │ -pv-table │ │ │ │ -pv-table │ │ │ │ -pv-table │ │ │ │ -pv-table │ │ │ │ +PCL MASK slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ ,METHOD-COMBINATION │ │ │ │ APPLICABLE-METHODS │ │ │ │ ,DECLARE │ │ │ │ @@ -116798,1714 +116744,78 @@ │ │ │ │ ,FUNCTION │ │ │ │ REAL-METHOD-COMBINATION-ERROR │ │ │ │ ,DECLARE │ │ │ │ ,SPECIAL │ │ │ │ *INVALID-METHOD-ERROR* │ │ │ │ *METHOD-COMBINATION-ERROR* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -LACK/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -(FAST-METHOD COMPUTE-EFFECTIVE-METHOD :AROUND (GENERIC-FUNCTION METHOD-COMBINATION T)) │ │ │ │ -(BOUNDP STREAM) │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -/XDEFAUL │ │ │ │ -11000000 │ │ │ │ -LTSCREENMAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS) NILE │ │ │ │ -ORMAT-COMAKE-INSTANCE STANDARD-GENERIC-FUNCTION NIL NILe │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FLOATING-POINT-INVALID-OPERATION │ │ │ │ -/*BORDER │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (STREAM-ERROR T))@i │ │ │ │ -CREATESI │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -11110000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -11111111 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -SLOT-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -SLOT-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -SLOT-OBJECT │ │ │ │ --(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -SLOT-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -,CLASS-OF │ │ │ │ -SLOTS-TO-INSPECT │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ -INSTANCE-SLOTDS │ │ │ │ -CLASS-SLOTDS │ │ │ │ -OTHER-SLOTDS │ │ │ │ -ADJUST-SLOT-NAME-LENGTH │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ -,LENGTH │ │ │ │ -,SYMBOL-NAME │ │ │ │ -DESCRIBE-SLOT │ │ │ │ - ,&OPTIONAL │ │ │ │ -ALLOCATION │ │ │ │ -~% ~A ~S ~VT ~S │ │ │ │ -ALLOCATION │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ -~% ~A~VT ~S │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,TAGBODY! │ │ │ │ -,TAGBODY │ │ │ │ -ADJUST-SLOT-NAME-LENGTH │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -2INSTANCE │ │ │ │ -INSTANCE-SLOTDS │ │ │ │ -INSTANCE-SLOTDS │ │ │ │ -CLASS-SLOTDS │ │ │ │ -CLASS-SLOTDS │ │ │ │ - ,OTHERWISE │ │ │ │ -OTHER-SLOTDS │ │ │ │ -OTHER-SLOTDS │ │ │ │ -,RETURN-FROM │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ -MAX-SLOT-NAME-LENGTH │ │ │ │ - ~%~S is an instance of class ~S: │ │ │ │ -INSTANCE-SLOTDS │ │ │ │ -1~% The following slots have :INSTANCE allocation: │ │ │ │ -,NREVERSE │ │ │ │ -INSTANCE-SLOTDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,TAGBODY7 │ │ │ │ -DESCRIBE-SLOT │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-VALUE-OR-DEFAULT │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -,RETURN-FROM │ │ │ │ -CLASS-SLOTDS │ │ │ │ -.~% The following slots have :CLASS allocation: │ │ │ │ -,NREVERSE │ │ │ │ -CLASS-SLOTDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,TAGBODY7 │ │ │ │ -DESCRIBE-SLOT │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-VALUE-OR-DEFAULT │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -,RETURN-FROM │ │ │ │ -OTHER-SLOTDS │ │ │ │ -0~% The following slots have allocation as shown: │ │ │ │ -,NREVERSE │ │ │ │ -OTHER-SLOTDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,TAGBODY7 │ │ │ │ -DESCRIBE-SLOT │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-VALUE-OR-DEFAULT │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -,RETURN-FROM │ │ │ │ -,MOST-POSITI │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ --OBJECT │ │ │ │ -#(FAST-METHOD DESCRIBE-OBJECT (T T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -,PACKAGEP │ │ │ │ --OBJECT │ │ │ │ -DESCRIBE-PACKAGE │ │ │ │ -,FUNCALL │ │ │ │ -,DESCRIBE │ │ │ │ -DEFINITION-BEFORE-PCL │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,ALLOCATE-INSTANCE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -1(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-PCL::ANSI-LOOP::LOOP-PATH SLOT4 │ │ │ │ -(compiled_functionp(#0)) │ │ │ │ -PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT2 │ │ │ │ -,APPLY0@0;realp(#0) │ │ │ │ -immnum_nor(#0,#1) │ │ │ │ -immnum_nor(#0,#1) │ │ │ │ -STRING-CHAR-SIMPLE-TYPEP-FN │ │ │ │ -STRING-CHAR73738STRING-CHAR │ │ │ │ -PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT1PHA │ │ │ │ -write_pointer_object(#0,#1)N │ │ │ │ -,PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT6 │ │ │ │ -,AL@0;(type_of(#0)==t_symbol&&(#0)->s.s_hpack==keyword_package) (m@0;type_of(#0)==t_shortfloat||type_of(#0)==t_longfloat "SI") │ │ │ │ -(imtype_of(#0)==t_shortfloatheader type_of(#0) │ │ │ │ -type_of(#0)==t_longfloatd-waitin@0;({enum type _tp=type_of(#0);_tp>=t_string && _tp<=t_array;}) @0;({enum type _tp=type_of(#0);_tp>=t_string && _tp<=t_vector;})({enum type tp=type_of(#0);tp==t_bitvector||tp==t_simple_bitvector;}) type_of(#0)==t_complex si:type_of(#0)==t_complex type_of(#0)==t_ratioo │ │ │ │ - s@0;(listp(#0) || ({enum type _tp=type_of(#0);_tp>=t_string && _tp<=t_vector;})) 1 │ │ │ │ -@0;({enum type _tp=type_of(#0);_tp==t_fixnum||_tp==t_bignum;}) @0;rationalp(#0)type_of(#0)==t_characterta │ │ │ │ - (type_of(#0)==t_package)o-aux │ │ │ │ - (type_of(#0)==t_stream) si::*tktype_of(#0)==t_pathname*tk-conne(type_of(#0)==t_readtable)nfo │ │ │ │ - (type_of(#0)==t_hashtable) (type_of(#0)==t_random)*match-da(type_of(#0)==t_random) │ │ │ │ --GET-SOS(functionp(#0)) │ │ │ │ -((#0)->st.st_dim)AM-INT │ │ │ │ -,-lansi_gcl -lX11 -ldl -lm -lgmp -ltirpc -lreadline000000000fixnum_ldb(fix(#0->c.c_car),fix(#0->c.c_cdr),#1)immnum_orc2(#0,#1)00000000000000immnum_orc2(#0,#1)00000000000000 │ │ │ │ -reproducible-path000001000000000gcl27-2.7.1 │ │ │ │ -gcl_cmpopt │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpopt.lsp │ │ │ │ -XOCOMPLEX-SIMPLE-TYPEP-FNSYMBOL-NG72467 │ │ │ │ -OCOMPLEX72466 │ │ │ │ -OCOMPLEX │ │ │ │ -PCL::COMPILER::VAR SLOT14.7.1/xg-(#1) │ │ │ │ -immnum_negate(#1) │ │ │ │ -(#0)-(#1) │ │ │ │ -immnum_minus(#0,#1)-FUNCTION │ │ │ │ -,PCL::COMPILER::VAR SLOT130111011PCL::COMPILER::VAR SLOT400000000structure_ref(#0,#1,#2)000000000PCL::ANSI-LOOP::LOOP-PATH SLOT30PCL::COMPILER::FUN SLOT1,QUOTE │ │ │ │ - Version_2_7_2pre12 │ │ │ │ -LONGFLOAT-SIMPLE-TYPEP-FNBLOCK │ │ │ │ -LONGFLOAT72460 │ │ │ │ -LONGFLOAT │ │ │ │ -PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT0ODY! │ │ │ │ -PCL::COMPILER::VAR SLOT8AND │ │ │ │ -,v.v_self │ │ │ │ -(#1)->fixa.fixa_self,GO- │ │ │ │ -(#1)->lfa.lfa_selfE │ │ │ │ -:/build/rep(#1)->sfa.sfa_self27-2.7.1/xgcl-(#1)->st.st_self(#1) │ │ │ │ -object_to_string(#1)-SETVV │ │ │ │ -(dcomplex)(#1) │ │ │ │ -object_to_dcomplex(#1)T │ │ │ │ -.$(fcomplex)(#1) │ │ │ │ -object_to_fcomplex(#1) │ │ │ │ -(long)(#1) │ │ │ │ -object_to_long(#1)TE │ │ │ │ -.PUSHFONT │ │ │ │ -(fixnum)(#1) │ │ │ │ -object_to_fixnum(#1)= │ │ │ │ -,QUO(uint)(#1) │ │ │ │ -object_to_uint(#1) │ │ │ │ -(ushort)(#1) │ │ │ │ -object_to_ushort(#1) │ │ │ │ -PU(uchar)(#1) │ │ │ │ -object_to_uchar(#1)OC │ │ │ │ -,Q(int)(#1) │ │ │ │ -object_to_int(#1) │ │ │ │ -(short)(#1) │ │ │ │ -object_to_short(#1) │ │ │ │ -W(char)(#1) │ │ │ │ -object_to_char(#1) │ │ │ │ -:/(character)(#1) │ │ │ │ -object_to_character(#1)l-2/gcl_t(double)(#1) │ │ │ │ -object_to_double(#1) │ │ │ │ --FS(float)(#1) │ │ │ │ -object_to_float(#1)CTION │ │ │ │ -,APPL(#1) │ │ │ │ -object_to_fixnum(#1)000000000000((#0)%(#1)) │ │ │ │ -immnum_rem(#0,#1)000000000000000read_pointer_object(#0)000000000(#0)!=(#1) │ │ │ │ -immnum_ne(#0,#1)PCL::COMPILER::VAR SLOT1 │ │ │ │ -COMPCL::COMPILER::VAR SLOT3 │ │ │ │ -TERMCH#0->c.c_cdr->c.c_cdr │ │ │ │ -DO#0->c.c_cdr->c.c_cdrODY! │ │ │ │ -__builtin_isnormal(#0) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)1]ETQ │ │ │ │ -,CHAR((~((fixnum)-1<<#0))<<(fixnum)0)((object*)((fixnum)#0))[(fixnum)2]ECLARE │ │ │ │ -,DYNA((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]R= │ │ │ │ -T#0->c.c_cdr->c.c_car->c.c_cdrINC((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)31)ath/gcl27-((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]QUOTE │ │ │ │ -<((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]QUOTE │ │ │ │ -(((object*)#0)[(fixnum)1]=#1),QU((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] │ │ │ │ -,BLOCK#0->c.c_cdr->c.c_car->c.c_car │ │ │ │ -D((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] │ │ │ │ -#0->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr │ │ │ │ -,R((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]*PTR* │ │ │ │ -labs(#0) │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)48]&(fixnum)3) │ │ │ │ -,#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ -#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_carE │ │ │ │ -NCOLS/tp6(#0) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)2]UTFILE │ │ │ │ -({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})p │ │ │ │ - .DOTAB((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)/TR> │ │ │ │ --SET((object*)((fixnum)#0))[(fixnum)4]-SETVV │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]NCTION │ │ │ │ -((object*)((fixnum)#0))[(fixnum)6]OTE │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]le-path/gcl27-2 │ │ │ │ -((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]UOTE │ │ │ │ -#*000000 │ │ │ │ -((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]00 │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]L │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]A │ │ │ │ -((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]000000000110000 │ │ │ │ -((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]000000000000000 │ │ │ │ -((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]0 │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))43 │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1],DIGIT-CHAR-P │ │ │ │ -((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1) │ │ │ │ -Rtp5(#0) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]E │ │ │ │ -((object*)((fixnum)#0))[(fixnum)2]- │ │ │ │ -((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)16)&281474976710655)((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ -:/build/repr((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]E-WORD │ │ │ │ -((object*)((fixnum)#0))[(fixnum)1]RCHFOR │ │ │ │ -(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)-FSET │ │ │ │ -(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) │ │ │ │ -(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)00000000) │ │ │ │ -(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) the arglis │ │ │ │ -({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})m-string) │ │ │ │ - ((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))(((((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))-pa(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)-match) │ │ │ │ -; ((fixnum)((uint*)((fixnum)#0))[(fixnum)4]&268435455)cons-car) │ │ │ │ -; #0->c.c_cdr->c.c_cdr->c.c_cdrdr) │ │ │ │ -(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455)ist) . list*) │ │ │ │ - (((fixnum)((ushort*)((fixnum)#0))[(fixnum)1]>>(fixnum)6)&(fixnum)63)XME │ │ │ │ -; (((fixnum)((uchar*)((fixnum)#0))[(fixnum)63]>>(fixnum)7)er fixnum((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] si::num │ │ │ │ -((object*)((fixnum)#0))[(fixnum)2]mber-minus) │ │ │ │ - ((object*)((fixnum)#0))[(fixnum)7]::number-times((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] (((((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975)urns-exactly ((object*)((fixnum)#0))[(fixnum)6]al *) (returns((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]ns-exact │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1]) (or null pack#0->c.c_car->c.c_carge) │ │ │ │ -; (((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]symbol-v((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]symbol) ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)11]array r((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]eqind) .((long*)((fixnum)#0))[(fixnum)9]#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car rnkind)((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]ter-inte │ │ │ │ -sqrt(#0) │ │ │ │ -#0->c.c_car->c.c_cdr->c.c_carer #0==#1 │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)72]xnum (me((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]) nil) .((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]te))) │ │ │ │ - ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]x) (list((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]) │ │ │ │ - ((object*)((fixnum)#0))[(fixnum)2] ((print (cd((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]IXME │ │ │ │ - (((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]on-neval((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)17]ualp ld((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1] (l '(ld((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]im (noti#0->c.c_cdr->c.c_cdr->c.c_carad ((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1].1/xgcl-((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]VV │ │ │ │ -,((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]INTINDEX((fixnum*)((fixnum)#0))[(fixnum)1]OTE │ │ │ │ -,Q((fixnum*)((fixnum)#0))[(fixnum)1] │ │ │ │ -!(((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]>>(fixnum)5)&(fixnum)1) │ │ │ │ -,PRIN((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]/a> │ │ │ │ -HTM#0->c.c_cdr->c.c_cdr->c.c_car->c.c_card/reproduc((fixnum*)((fixnum)#0))[(fixnum)8]ndex.lsp │ │ │ │ -#0->c.c_cdr │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]ela.debu((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]ck │ │ │ │ -.relampz_sgn(&(#0->big.big_mpz_t)) │ │ │ │ -#0->c.c_car->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] │ │ │ │ -((object*)((fixnum*)((fixnum)((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]))[(fixnum)1])[(fixnum)11] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -((((long*)((fixnum)#0))[(fixnum)5]>>(fixnum)4)&1152921504606846975) │ │ │ │ -#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ -((object*)((fixnum)#0))[(fixnum)4] │ │ │ │ -(#0>>#1) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5] │ │ │ │ -((object)(((fixnum)code_char(0))+(#0<<(fixnum)6))) │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)1) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ -((object*)((fixnum)#0))[(fixnum)4] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9]P │ │ │ │ -#0->c.c_cdr->c.c_car │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -((object)(#0)) │ │ │ │ -((object)#0) │ │ │ │ -#0->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr │ │ │ │ -((object*)((fixnum)#0))[(fixnum)1] │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]0 │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -#0->c.c_car │ │ │ │ -((fixnum*)((fixnum)#0))[(fixnum)2] │ │ │ │ -((long*)((fixnum)#0))[(fixnum)4]((fixnum)((uchar*)((fixnum)#0))[(fixnum)59]>>(fixnum)6) │ │ │ │ -((fixnum*)((fixnum)#0))[(fixnum)5] │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ -#0->c.c_car │ │ │ │ -#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ -((fixnum*)((fixnum)#0))[(fixnum)7] │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)2])[#1] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)13] │ │ │ │ -((((long*)((fixnum)#0))[(fixnum)7]>>(fixnum)4)&1152921504606846975) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -((object*)#0)[(fixnum)1] │ │ │ │ -((uchar*)((fixnum)#0))[(fixnum)24] │ │ │ │ -#0->c.c_cdr->c.c_car │ │ │ │ -((object*)((fixnum)#0))[(fixnum)7] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]000000000000000 │ │ │ │ -((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))ath/gcl2 │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7]OTE │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2) │ │ │ │ --PP((fixnum*)((fixnum)#0))[(fixnum)2]ex) long-float((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]safe)) │ │ │ │ -((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)ine((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]"(#0)->rtp4(#0) │ │ │ │ -(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455) ,(lambda (x) (((object*)((fixnum)#0))[(fixnum)2]ouble))dlisinf(~(#0)) │ │ │ │ -immnum_not(#0) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0])(" x ")((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6)))) (get '((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] t) bool#0->c.c_car->c.c_cdr->c.c_cdrum_tp8(#0) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)1](push '((t t) ((object*)((fixnum)#0))[(fixnum)6](#0,#1)") (get │ │ │ │ -(#0<<#1) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3]1)") (get 'log((object*)((fixnum)#0))[(fixnum)3]OGEQV │ │ │ │ -(push '( │ │ │ │ -((fixnum*)#0)[(fixnum)0] │ │ │ │ -;;LOGA((object*)((fixnum)#0))[(fixnum)5]flags) "immnum((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]) │ │ │ │ -;;LOGA((#0) | (#1)) │ │ │ │ -immnum_ior((#0),(#1))gs) "immnum │ │ │ │ -(((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)2)&(fixnum)7)push '((t t) t((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]&(fixnum)63)c2 'compil#0->c.c_cdr->c.c_car │ │ │ │ -;;L((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]_logt(#0 │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]dr),#1)") (get │ │ │ │ -((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]um_ldb(fix(#0-> │ │ │ │ -((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]m) fixnum) t #. │ │ │ │ -((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1];D │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]x │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]" │ │ │ │ -((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]==0" │ │ │ │ -((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((t) boolean #. │ │ │ │ -((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]: │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1] │ │ │ │ -((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6))) l │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]num" c((((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[(#1>>(fixnum)6)]>>(#2&(fixnum)63))&(fixnum)1)int │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]um) │ │ │ │ - (:ush((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] (:uin((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7] (:fix((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7] (:lon((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2] (:fco((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] (:dco((fixnum)((uchar*)((fixnum)#0))[(fixnum)0]>>(fixnum)3) (:str((fixnum*)((fixnum)#0))[(fixnum)6]ing) │ │ │ │ - (:o#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car ni#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdrt.st_self"((fixnum)#0) │ │ │ │ -__builtin_clzl(#0) (arr((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5] ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]fa_self" │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]fixa_sel((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)7] (a((object*)((fixnum)#0))[(fixnum)5] (setf (get (((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10](when (((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]s rfa) , │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)4]&(fixnum)7)l)) t) opaq │ │ │ │ -labs(#0) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]'inline-((object*)((fixnum)#0))[(fixnum)1]push `(((membe │ │ │ │ -(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)#1)"))) │ │ │ │ -(((fixnum*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)ol fixnum) │ │ │ │ -(((double*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)er-list)(f │ │ │ │ -(((int*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)(or (eql :uns │ │ │ │ -(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2))) │ │ │ │ -(defvar │ │ │ │ -(((uint*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2):double :fco │ │ │ │ -(((float*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)setf (get s │ │ │ │ -(((short*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)XME │ │ │ │ -(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) ; (defty │ │ │ │ -(((ushort*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)ay nil '(a │ │ │ │ -(((char*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)opagator 'si │ │ │ │ -(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2) #.(flags r │ │ │ │ -(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=#2)et 'si::lon │ │ │ │ -({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[(fixnum)1])[#2]=#3);})nline-unsaf((object)(((fixnum)code_char(0))+((fixnum)(((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]=((uchar*)((fixnum)#2))[(fixnum)24])<<(fixnum)6)))ig_((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]) │ │ │ │ -(push #0->c.c_car │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]ouble 'i │ │ │ │ -#0->c.c_car │ │ │ │ -#0->c.c_car │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3]lex-real 'inli((object*)((fixnum)#0))[(fixnum)2]rt-float #.(fl(#0*#1) │ │ │ │ -((long*)((fixnum)#0))[(fixnum)8]((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)10]0)") │ │ │ │ -#0->c.c_cdr │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]") (gempz_odd_p(&(#0->big.big_mpz_t)))((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]0)") (((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ -(push '((dcom((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6]-real 'i((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]mp.cmp_i((#0) & (#1)) │ │ │ │ -immnum_and((#0),(#1))ways)) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)1]cimag(#0)") ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)9] #.(fl((fixnum*)((fixnum)#0))[(fixnum)1]'complex-imag ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6](flags) ((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3] '((dcom((uchar*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)73] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[#1] │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)2]>>(fixnum)2) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)11]0000000 │ │ │ │ -((fixnum)((uchar*)((fixnum)#0))[(fixnum)3]>>(fixnum)5)ERROR │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)5])[(fixnum)0]00000000((object*)((fixnum)#0))[(fixnum)1]0000) │ │ │ │ -,QUOTE((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6] │ │ │ │ -,DECLAR((object*)((fixnum)#0))[(fixnum)5]ING-BIND │ │ │ │ -,LE#0==#1 │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3],CDR./ │ │ │ │ -((uint*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]RDFORMAT-C │ │ │ │ -__builtin_ctzl(#0)ORMAT-ARGUMENT#0->c.c_cdr->c.c_carLL │ │ │ │ -,I#0->c.c_cdr->c.c_car │ │ │ │ -,#0->c.c_cdr->c.c_cdr->c.c_carRRO((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)6] ~s │ │ │ │ -((object*)((fixnum)#0))[(fixnum)1] │ │ │ │ -,QUO((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1]cturing_((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)5]] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]i │ │ │ │ -((object*)((fixnum)#0))[(fixnum)3] │ │ │ │ -((((long*)((fixnum)#0))[(fixnum)4]>>(fixnum)4)&1152921504606846975) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1] │ │ │ │ -#0->c.c_car │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]" │ │ │ │ -#0->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)2]" │ │ │ │ -(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455) │ │ │ │ -(((fixnum)((uint*)((fixnum)#0))[(fixnum)1]>>(fixnum)3)&268435455) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3] │ │ │ │ -#0->c.c_car->c.c_cdr │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4]" │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)4] │ │ │ │ -((fixnum*)((fixnum)#0))[(fixnum)2] │ │ │ │ -((object*)((fixnum)#0))[(fixnum)4] │ │ │ │ -((object)(((fixnum)code_char(0))+((fixnum)((uchar*)((fixnum*)((fixnum)#0))[(fixnum)1])[#1]<<(fixnum)6))) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]6 │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0]] │ │ │ │ -#0->c.c_cdr │ │ │ │ -#0->c.c_cdr │ │ │ │ -(#0)->str.str_def->str.str_self[0] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)1] │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)0] │ │ │ │ -.strtabmpz_even_p(&(#0->big.big_mpz_t))tp3(#0) │ │ │ │ -((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)3]ela.debu((object*)((fixnum*)((fixnum)#0))[(fixnum)2])[(fixnum)8]tr │ │ │ │ -.debu#0->c.c_cdr->c.c_car->c.c_cdr->c.c_carela.eh_fra │ │ │ │ -sqrtf(#0) │ │ │ │ -((object*)((fixnum)#0))[(fixnum)2] │ │ │ │ -((fixnum*)((fixnum)#0))[(fixnum)1] │ │ │ │ -PCL::COMPILER::FUN SLOT4 │ │ │ │ -immnum_boole(#0,#1,#2) │ │ │ │ -immnum_bool(#0,#1,#2) │ │ │ │ -immnum_nand(#0,#1) │ │ │ │ -immnum_nand(#0,#1) │ │ │ │ -immnum_andc1(#0,#1) │ │ │ │ -(~(#0) & (#1)) │ │ │ │ -immnum_andc1(#0,#1) │ │ │ │ -immnum_andc2(#0,#1) │ │ │ │ -((#0) & ~(#1)) │ │ │ │ -immnum_andc2(#0,#1) │ │ │ │ -immnum_orc1(#0,#1) │ │ │ │ -immnum_orc1(#0,#1) │ │ │ │ -immnum_zerop(#0)PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT0 │ │ │ │ -PCL::COMPILER::FUN SLOT10 │ │ │ │ -PCL::COMPILER::FUN SLOT7 │ │ │ │ -PCL::COMPILER::VAR SLOT12 │ │ │ │ -init_raw.lsp │ │ │ │ -(#0)/(#1) │ │ │ │ -number_divide(#0,#1) │ │ │ │ -SFARRAY-SIMPLE-TYPEP-FN │ │ │ │ -SFARRAY72480 │ │ │ │ -STDESIG-SIMPLE-TYPEP-FN │ │ │ │ -STDESIG72458 │ │ │ │ -LFARRAY-SIMPLE-TYPEP-FN │ │ │ │ -LFARRAY72482 │ │ │ │ -FIXARRAY-SIMPLE-TYPEP-FN │ │ │ │ -FIXARRAY72478 │ │ │ │ -FIXARRAY │ │ │ │ -PCL::COMPILER::INFO SLOT1 │ │ │ │ -myfork() │ │ │ │ -creal(#0) │ │ │ │ -creal(#0) │ │ │ │ -(#0)->cmp.cmp_real │ │ │ │ -creal(#0) │ │ │ │ -creal(#0) │ │ │ │ -(#0)->cmp.cmp_real │ │ │ │ -BITVECTOR-SIMPLE-TYPEP-FN │ │ │ │ -BITVECTOR72468 │ │ │ │ -BITVECTOR │ │ │ │ -PCL::ANSI-LOOP::LOOP-MINIMAX SLOT0 │ │ │ │ -USTRING-SIMPLE-TYPEP-FN │ │ │ │ -USTRING72476 │ │ │ │ -PCL::COMPILER::FUN SLOT0 │ │ │ │ -SHORTFLOAT-SIMPLE-TYPEP-FN │ │ │ │ -SHORTFLOAT72462 │ │ │ │ -SHORTFLOAT │ │ │ │ -immnum_oddp(#0) │ │ │ │ -(1L<<(#1)) │ │ │ │ -fixnum_expt((#0),(#1))D-LOOP-PATnumber_expt(#0,#1)KEY │ │ │ │ - HASH-KEYSPCL::ANSI-LOOP::LOOP-UNIVERSE SLOT5 │ │ │ │ -PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT2 │ │ │ │ -(#0)>=(#1) │ │ │ │ -(#0)<=(#1) │ │ │ │ -PCL::COMPILER::INFO SLOT5 │ │ │ │ -PCL::COMPILER::BLK SLOT6 │ │ │ │ -gcc -c -g -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/gcl27-2.7.1=. -fstack-protector-strong -Wformat -Werror=format-security -fsigned-char -pipe -fcommon -fno-builtin-malloc -fno-builtin-free -fno-PIE -fno-pie -fno-PIC -fno-pic -Wall -Wno-empty-body -Wno-unused-but-set-variable -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -I/usr/include/tirpc -Wdate-time -D_FORTIFY_SOURCE=2 │ │ │ │ -make_simple_string(#1) │ │ │ │ -#make_dcomplex(#1)OLS-ITE │ │ │ │ -make_fcomplex(#1)ION-GRO(b │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -make_fixnum(#1) │ │ │ │ -code_char(#1) │ │ │ │ -make_longfloat(#1)P-PACKAGE-SYMBmake_shortfloat(#1) │ │ │ │ --PREPOSITPCL::ANSI-LOOP::LOOP-COLLECTOR SLOT4? │ │ │ │ -IVE-PERMPCL::COMPILER::VAR SLOT7 │ │ │ │ -PCL::COMPILER::VAR SLOT6 │ │ │ │ -PCL::COMPILER::FUN SLOT3 │ │ │ │ -PCL::COMPILER::BLK SLOT1/mod/gclPCL::ANSI-LOOP::LOOP-MINIMAX SLOT4 │ │ │ │ -(/?([^/]*/)*)([^/.]*)(\.[^/]*)? │ │ │ │ -IL 00000000000000structure_set(#0,#1,#2,#3)000000PCL::COMPILER::INFO SLOT3 │ │ │ │ -COMPILER KIND slot READER! │ │ │ │ -cl27-2.7 │ │ │ │ -COMPILER CH-CCB slot WRITER/UPTOp │ │ │ │ -OOP-FOR- │ │ │ │ -ANSI-LOOP INFINITY-DATA slot WRITERATE │ │ │ │ -LE-FLOAT │ │ │ │ -ANSI-LOOP OPERATIONS slot WRITERp │ │ │ │ -COMPILER FN slot WRITER │ │ │ │ -.INHERIT │ │ │ │ -SENT-SYM │ │ │ │ -SYSTEM LOC slot READERTE │ │ │ │ --STANDAR │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCL.PV-CELL. │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ --.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --.REST-ARG. │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ - -.PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ - ,CONDITION │ │ │ │ -,DECLARE │ │ │ │ --METHOD-NAME │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ - ,CONDITION │ │ │ │ -,DECLARE │ │ │ │ --METHOD-LAMBDA-LIST │ │ │ │ - ,&OPTIONAL │ │ │ │ - ,CONDITION │ │ │ │ --(PCL::FAST-METHOD MAKE-LOAD-FORM (CONDITION)) │ │ │ │ -,MACROLET │ │ │ │ --PV-ENV │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ --PV-TABLE-SYMBOL │ │ │ │ --PV-PARAMETERS │ │ │ │ - -.PV-CELL. │ │ │ │ - -.PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ --MAKE-PV-TYPE-DECLARATION │ │ │ │ --MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --%CHECK-CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ -.OBJECT │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --.REST-ARG. │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CNM-ARGS │ │ │ │ - -INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --.REST-ARG. │ │ │ │ --CNM-ARGS │ │ │ │ - -BIND-ARGS │ │ │ │ --.REST-ARG. │ │ │ │ --CNM-ARGS │ │ │ │ --.REST-ARG. │ │ │ │ --CNM-ARGS │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NO-NEXT-METHOD │ │ │ │ --METHOD-NAME-DECLARATION │ │ │ │ --.REST-ARG. │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ --.NEXT-METHOD-CALL. │ │ │ │ --CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ --CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ --CNM-ARGS │ │ │ │ --CALL-NEXT-METHOD-BODY │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ - ,CONDITION │ │ │ │ --CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ --NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ --.REST-ARG. │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,DECLARE │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -&~@ │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ - ,&OPTIONAL │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -.(FAST-METHOD MAKE-LOAD-FORM (STANDARD-OBJECT)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ --OBJECT │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,DECLARE │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -&~@ │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispRi │ │ │ │ -,G(FAST-METHOD MAKE-LOAD-FORM (STANDARD-OBJECT)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ - ,&OPTIONAL │ │ │ │ -$(FAST-METHOD MAKE-LOAD-FORM (CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE2 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,DECLARE │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,CLASS-NAME │ │ │ │ -,FIND-CLASS │ │ │ │ -=~@ │ │ │ │ -,FIND-CLASS │ │ │ │ -,Q/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispefpacka(FAST-METHOD MAKE-LOAD-FORM (CLASS))current stat │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ - ,&OPTIONAL │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -/(FAST-METHOD MAKE-LOAD-FORM (STRUCTURE-OBJECT)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ --OBJECT │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,DECLARE │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -&~@ │ │ │ │ -,MAKE-LOAD-FORM │ │ │ │ -,PROG/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -,CON(FAST-METHOD MAKE-LOAD-FORM (STRUCTURE-OBJECT)) │ │ │ │ -NEXT-VAR │ │ │ │ -Extra argument ~sMBOL-PACKAGE │ │ │ │ -S~@F0 │ │ │ │ -~@ETQKey ~s missing valueINTERSECTIONKey ~s ~s not permittedORTS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -TRACED-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -TRACED-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -TRACED-METHOD │ │ │ │ -/(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -TRACED-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -TRACED-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -ACCESSOR-METHOD-SLOT-NAME │ │ │ │ -TRACED-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -TRACED-METHOD │ │ │ │ -7(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -ACCESSOR-METHOD-SLOT-NAME │ │ │ │ -TRACED-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -ACCESSOR-METHOD-SLOT-NAME │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -ACCESSOR-METHOD-SLOT-NAME │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD)) │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD)) │ │ │ │ -PCL::TRACED-METHOD class predicate │ │ │ │ -MAKE-INSTANCE STRUCTURE-EFFECTIVE-SLOT-DEFINITION (:DEFSTRUCT-ACCESSOR-SYMBOL :INTERNAL-READER-FUNCTION :INTERNAL-WRITER-FUNCTION :NAME :INITFORM :INITFUNCTION :INITARGS :ALLOCATION :TYPE :CLASS) NIL │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -'(FAST-METHOD DESCRIBE-OBJECT (CLASS T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,DESCRIBE-OBJECT │ │ │ │ -PRETTY-CLASS │ │ │ │ -,CLASS-NAME │ │ │ │ -,MACROLET │ │ │ │ -+~&~S is a class, it is an instance of ~S.~% │ │ │ │ -PRETTY-CLASS │ │ │ │ -,CLASS-OF │ │ │ │ -,CLASS-NAME │ │ │ │ -,FIND-CLASS │ │ │ │ -Its proper name is ~S.~% │ │ │ │ -0Its name is ~S, but this is not a proper name.~% │ │ │ │ -#It has no name (the name is NIL).~% │ │ │ │ -The direct superclasses are: ~:S, and the direct~%~ │ │ │ │ - subclasses are: ~:S. The class precedence list is:~%~S~%~ │ │ │ │ - There are ~D methods specialized for this class. │ │ │ │ -,FUNCTION │ │ │ │ -PRETTY-CLASS │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -,FUNCTION │ │ │ │ -PRETTY-CLASS │ │ │ │ -CLASS-DIRECT-SUBCLASSES │ │ │ │ -,FUNCTION │ │ │ │ -PRETTY-CLASS │ │ │ │ -CLASS-PRECEDENCE-LIST │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ -#*DESCRIBE-METAOBJECTS-AS-OBJECTS-P* │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -ENSURE-GEN │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SYSTEMOBJECT │ │ │ │ -DESCRIBE-PACKAGE │ │ │ │ -,PACKAGEP │ │ │ │ --OBJECT │ │ │ │ -,FIND-PACKAGE │ │ │ │ -~&~S is a ~S.~% │ │ │ │ -,TYPE-OF │ │ │ │ -,PACKAGE-NICKNAMES │ │ │ │ --OBJECT │ │ │ │ --You can also call it~@[ ~{~S~^, ~} or~] ~S.~% │ │ │ │ -,BUTLAST │ │ │ │ -INTERNAL-COUNT │ │ │ │ -EXTERNAL-COUNT │ │ │ │ -WPI-PL368 │ │ │ │ --OBJECT! │ │ │ │ -WPI-P372! │ │ │ │ -WPI-Q373! │ │ │ │ -WPI-QL374 │ │ │ │ -WPI-X369 │ │ │ │ -WPI-Y370 │ │ │ │ -WPI-ILIM371 │ │ │ │ -WPI-ELIM375 │ │ │ │ -WPI-L376! │ │ │ │ -WPI-A377 │ │ │ │ -,DECLARE │ │ │ │ -,INTEGER │ │ │ │ - ,IGNORABLE2345 │ │ │ │ - ,MEMBER-IF │ │ │ │ -,DECLARE │ │ │ │ -,STRING= │ │ │ │ - -INH-MATCH │ │ │ │ -PROG12666 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE: │ │ │ │ -,SYMBOL-NAME │ │ │ │ - -PACK-HASH │ │ │ │ --PACKAGE-INTERNAL/ │ │ │ │ --PACKAGE-INTERNAL_SIZE/ │ │ │ │ --NEXT-VAR │ │ │ │ --PACKAGE-EXTERNAL/ │ │ │ │ --PACKAGE-EXTERNAL_SIZE/ │ │ │ │ --NEXT-VAR │ │ │ │ -KEYWORDINHERITED │ │ │ │ --NEXT-VAR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE: │ │ │ │ --PACKAGE-EXTERNAL037 │ │ │ │ -v.v_hasfillp) │ │ │ │ ((#0)->v.v_hasfillp) │ │ │ │ +immnum_logt(#0,#1) │ │ │ │ +PCL::COMPILER::VAR SLOT7 │ │ │ │ +((#0)->st.st_dim)s │ │ │ │ +GCL (GNU Common Lisp) 2.7.1 Thu Apr 10 09:38:27 PM EDT 2025 ANSI git: Version_2_7_2pre12 │ │ │ │ +Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl) │ │ │ │ +Binary License: GPL due to GPL'ed components: (XGCL UNEXEC) │ │ │ │ +Modifications of this banner must retain notice of a compatible license │ │ │ │ +Dedicated to the memory of W. Schelter │ │ │ │ +Use (help) to get some basic information on how to use GCL. │ │ │ │ +PCL::COMPILER::VAR SLOT9 │ │ │ │ +Version_2_7_2pre12 │ │ │ │ +immnum_andc1(#0,#1) │ │ │ │ +(~(#0) & (#1)) │ │ │ │ +immnum_andc1(#0,#1) │ │ │ │ +PCL::COMPILER::FUN SLOT2` │ │ │ │ immnum_signum(#0) │ │ │ │ -*FIND-CLASS* │ │ │ │ +immnum_not(#0) │ │ │ │ +read_pointer_object(#0) │ │ │ │ +type_of(#0)==t_pathname │ │ │ │ +fixnum_ldb(fix(#0->c.c_car),fix(#0->c.c_cdr),#1)PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT2 │ │ │ │ +reproducible-path │ │ │ │ +gcl27-2.7.1 │ │ │ │ +gcl_cmpopt* │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/cmpnew/gcl_cmpopt.lsp │ │ │ │ +IFUN-SIMPLE-TYPEP-FN │ │ │ │ +IFUN72474P* │ │ │ │ +OCOMPLEX-SIMPLE-TYPEP-FN │ │ │ │ +OCOMPLEX72466 │ │ │ │ +OCOMPLEX0P* │ │ │ │ +@0;(type_of(#0)==t_symbol&&(#0)->s.s_hpack==keyword_package) │ │ │ │ +@0;realp(#0) │ │ │ │ +@0;type_of(#0)==t_shortfloat||type_of(#0)==t_longfloat │ │ │ │ +type_of(#0)==t_shortfloat: │ │ │ │ +type_of(#0) │ │ │ │ +type_of(#0)==t_longfloat │ │ │ │ +@0;({enum type _tp=type_of(#0);_tp>=t_string && _tp<=t_array;}) │ │ │ │ +@0;({enum type _tp=type_of(#0);_tp>=t_string && _tp<=t_vector;})({enum type tp=type_of(#0);tp==t_bitvector||tp==t_simple_bitvector;}) │ │ │ │ +type_of(#0)==t_complex │ │ │ │ +type_of(#0)==t_complex │ │ │ │ +@0;({enum type _tp=type_of(#0);_tp==t_fixnum||_tp==t_bignum;}) │ │ │ │ +@0;rationalp(#0)type_of(#0)==t_character │ │ │ │ +(type_of(#0)==t_package) │ │ │ │ +(type_of(#0)==t_stream) │ │ │ │ +(type_of(#0)==t_readtable) │ │ │ │ +(type_of(#0)==t_hashtable) │ │ │ │ +(type_of(#0)==t_random) │ │ │ │ +(type_of(#0)==t_random) │ │ │ │ +(functionp(#0)) │ │ │ │ +LFARRAY-SIMPLE-TYPEP-FN │ │ │ │ +LFARRAY72482 │ │ │ │ +(#0)->rat.rat_den │ │ │ │ +cmod(#0)0P* │ │ │ │ +((object)(#0))<((object)(#1)) │ │ │ │ +STDESIG-SIMPLE-TYPEP-FN │ │ │ │ +STDESIG72458 │ │ │ │ +PCL::COMPILER::VAR SLOT14 │ │ │ │ +(/?([^/]*/)*)([^/.]*)(\.[^/]*)? │ │ │ │ +STRING-CHAR-SIMPLE-TYPEP-FN │ │ │ │ +STRING-CHAR73738STRING-CHAR │ │ │ │ +immnum_plusp(#0)*FIND-CLASS* │ │ │ │ *BUILT-IN-WRAPPER-SYMBOLS* │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEML! │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE. │ │ │ │ PARSE-GSPEC │ │ │ │ ,PROGRAM-ERROR │ │ │ │ @@ -161440,17 +160896,20 @@ │ │ │ │ ,STREAM │ │ │ │ PRINTING-RANDOM-THING-INTERNAL │ │ │ │ SYSTEMADDRESS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_impl_low.lisp │ │ │ │ PRINTING-RANDOM-THING-INTERNAL │ │ │ │ *FREE-CACHE-VECTORS* │ │ │ │ *UMI-COMPLETE-CLASSES* │ │ │ │ -TYPE-PREDICATE COMMON-LISP CLASSp\ │ │ │ │ +OPERANDS0c │ │ │ │ +TYPE-PREDICATE COMMON-LISP CLASSOPERATION= │ │ │ │ TYPE-PREDICATE PCL PCL-CLASS │ │ │ │ +POSSIBILITIES │ │ │ │ TYPE-PREDICATE PCL SLOT-CLASS │ │ │ │ +FUNCTION-NAME │ │ │ │ TYPE-PREDICATE PCL STD-CLASS │ │ │ │ TYPE-PREDICATE COMMON-LISP STANDARD-CLASS │ │ │ │ TYPE-PREDICATE PCL FUNCALLABLE-STANDARD-CLASS │ │ │ │ TYPE-PREDICATE PCL FORWARD-REFERENCED-CLASS │ │ │ │ TYPE-PREDICATE COMMON-LISP BUILT-IN-CLASS │ │ │ │ TYPE-PREDICATE COMMON-LISP STRUCTURE-CLASS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -162172,24 +161631,14 @@ │ │ │ │ ,SYMBOL-PACKAGE │ │ │ │ ,*PACKAGE* │ │ │ │ *THE-PCL-PACKAGE* │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defs.lisp │ │ │ │ MAKE-CLASS-PREDICATE-NAME │ │ │ │ COMPILE-IIS-FUNCTIONS │ │ │ │ *UMI-GFS* │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -FORMAT-STRING │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -REAL-METHOD-COMBINATION-ERROR │ │ │ │ -,FUNCTION │ │ │ │ -FORMAT-STRING │ │ │ │ -*EARLY-CLASS │ │ │ │ LOAD-DEFCLASS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEML! │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE. │ │ │ │ WRAPPER-CACHE-NUMBER-VECTOR │ │ │ │ ,PROGRAM-ERROR │ │ │ │ @@ -162238,27 +161687,28 @@ │ │ │ │ WRAPPER-LAYOUT │ │ │ │ WRAPPER-LAYOUT │ │ │ │ KEYWORDSTART │ │ │ │ FIELD-NUMBER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cache.lisp │ │ │ │ NEXT-WRAPPER-FIELD │ │ │ │ TYPE-PREDICATE PCL STANDARD-METHOD-COMBINATION │ │ │ │ -gcl_pcl_env.o │ │ │ │ TYPE-PREDICATE COMMON-LISP METHOD-COMBINATION │ │ │ │ -TRACED-METHOD │ │ │ │ TYPE-PREDICATE COMMON-LISP STANDARD-GENERIC-FUNCTION │ │ │ │ TYPE-PREDICATE COMMON-LISP GENERIC-FUNCTION │ │ │ │ TYPE-PREDICATE PCL STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +CACHE SLOT2 │ │ │ │ TYPE-PREDICATE PCL STRUCTURE-DIRECT-SLOT-DEFINITION │ │ │ │ TYPE-PREDICATE PCL STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ TYPE-PREDICATE PCL STANDARD-DIRECT-SLOT-DEFINITION │ │ │ │ TYPE-PREDICATE PCL EFFECTIVE-SLOT-DEFINITION │ │ │ │ TYPE-PREDICATE PCL DIRECT-SLOT-DEFINITION │ │ │ │ +SLOT-NAMES │ │ │ │ TYPE-PREDICATE PCL STRUCTURE-SLOT-DEFINITION │ │ │ │ -TYPE-PREDICATE PCL SLOT-DEFINITION │ │ │ │ +GENERIC-FUNCTIONTYPE-PREDICATE PCL SLOT-DEFINITION │ │ │ │ +REQUIRED │ │ │ │ TYPE-PREDICATE PCL STANDARD-SLOT-DEFINITION │ │ │ │ DFUN-WRAPPERS-TAIL │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ OWRAPPER │ │ │ │ NWRAPPER │ │ │ │ INVALIDATE-WRAPPER │ │ │ │ KEYWORDFLUSH │ │ │ │ @@ -163213,97 +162663,103 @@ │ │ │ │ OLD-COUNT │ │ │ │ RAND-BASE │ │ │ │ -NON-NEGATIVE-FIXNUM │ │ │ │ OLD-COUNT │ │ │ │ *CHECK-CACHE-P* │ │ │ │ CHECK-CACHE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cache.lisp │ │ │ │ -_fngen.op\ │ │ │ │ -_defclasPCL IDENTITY-WITH-ONE-ARGUMENT slot READER │ │ │ │ -/EMIT-FE │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ - PCL LIMIT-FN slot WRITER │ │ │ │ -METATYPE │ │ │ │ -PCL CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL slot WRITER a slot reg p │ │ │ │ -oducible │ │ │ │ -,DECCONDITIONS OPERANDS slot WRITEROp │ │ │ │ +SYSTEM OFFSET slot WRITERnsi_gclp │ │ │ │ +CONDITIONS POSSIBILITIES slot WRITER │ │ │ │ +CONDITIONS FORMAT-CONTROL slot READER │ │ │ │ +00000000 │ │ │ │ +DARD-INSp\ │ │ │ │ +PCL MAX-LOCATION slot READERUMENp │ │ │ │ +PCL LINE-SIZE slot WRITERGUMENT p │ │ │ │ +BUILT-IN │ │ │ │ +ACHE-VEC │ │ │ │ +PCL CACHED-INITARGS-FORM-LIST slot WRITERLOCK-COp │ │ │ │ +0000000) │ │ │ │ +COMMON-LISP PACKAGE slot WRITER0p │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -00000000CONDITIONS NAME slot READER00000p │ │ │ │ -,DECLAp\ │ │ │ │ -,COMPILER REF-CLB slot READER,QUOp │ │ │ │ -LOCK-COU │ │ │ │ -CHE-LINE │ │ │ │ -LOCATIONPCL CACHED-NEW-KEYS slot READER │ │ │ │ -NTRY-WRAPCL CACHED-SHARED-INITIALIZE-T-FUNCTION slot WRITERIST │ │ │ │ -,DECLACOMPILER LABEL slot WRITERHE-NO │ │ │ │ +CONDITIONS FORMAT-CONTROL slot WRITER0) │ │ │ │ +IT-GREAT │ │ │ │ +PCL ARG-INFO-NUMBER-OPTIONAL slot READERFIXNUM │ │ │ │ +XT-LOCAT │ │ │ │ +PCL CACHED-COMBINED-INITARGS-FORM-LIST slot WRITERLOCATION │ │ │ │ -LOCATIO │ │ │ │ -,LSYSTEM CONC-NAME slot WRITERD │ │ │ │ -cl/gcl_p │ │ │ │ -PPER-CAC │ │ │ │ --/EMPCL CACHED-SHARED-INITIALIZE-NIL-FUNCTION slot READERUNCTION │ │ │ │ -00000000 │ │ │ │ -HE-NUMBE │ │ │ │ -PCL ARG-INFO-LAMBDA-LIST slot WRITERPPER-CACHE-Np │ │ │ │ --PRIMARY │ │ │ │ -PCL FIELD slot READER │ │ │ │ -/WRAPPER │ │ │ │ -SYSTEM NAME slot WRITER │ │ │ │ -COMPILER VAR slot READERP&REST │ │ │ │ -gcl27-2. │ │ │ │ -ALIDITY7 │ │ │ │ --DECLARp\ │ │ │ │ --SPEEDPCL WRAPPER1 slot WRITERUN-WRAPPp │ │ │ │ -ING-FUNC │ │ │ │ -*0000000CONDITIONS POSSIBILITIES slot WRITER000000000000p │ │ │ │ --VALIDIT │ │ │ │ -FUN-WRAP │ │ │ │ -BE-CACHESYSTEM TEST-FUNCTION slot WRITERp │ │ │ │ +PCL ACCESSOR-TYPE slot READER │ │ │ │ +1/pcl/gcp\ │ │ │ │ +SYSTEM STATICP slot READER │ │ │ │ +1-WRAPPEp\ │ │ │ │ +pv-table │ │ │ │ +PCL CACHE slot READERPPER-CACHE-p │ │ │ │ +PCL SIZE slot WRITER │ │ │ │ +00000000 │ │ │ │ +PCL CACHED-RI-VALID-P slot READERMBDA │ │ │ │ +WRAPPERSp │ │ │ │ +PCL PV-CELL slot WRITERQUOTE │ │ │ │ +PCL ARG-INFO-LAMBDA-LIST slot WRITERreg for thisp │ │ │ │ +SYSTEM INCLUDED slot READER │ │ │ │ +COMMON-LISP LENGTH slot WRITERE │ │ │ │ +gcl_pcl_ │ │ │ │ +PROBE-CA │ │ │ │ +SYSTEM INCLUDED slot WRITER │ │ │ │ +T-IN-CAC │ │ │ │ +.1/pcl/g │ │ │ │ +pv-table │ │ │ │ +PCL KEY slot WRITERN-PRELIMINARYp │ │ │ │ +00000100 │ │ │ │ +PCL CACHED-SHARED-INITIALIZE-T-FUNCTION slot WRITERIN-LAMBDA-FN │ │ │ │ +VALID-WR │ │ │ │ BE-CACHE │ │ │ │ -VOKE-EMF │ │ │ │ -,VALUES SYSTEM FROZEN slot READER │ │ │ │ --DECLARp\ │ │ │ │ -RGS-TAILPCL GF-INFO-SIMPLE-ACCESSOR-TYPE slot WRITERNTS-p │ │ │ │ -WRAPPERSPCL LINE-SIZE slot WRITER-CONSP │ │ │ │ --WRAPPER │ │ │ │ -PERS-TAI │ │ │ │ -PROBESYSTEM HAS-HOLES slot READER │ │ │ │ -MON-LISP │ │ │ │ --CONDITIONS EXPECTED-TYPE slot WRITER │ │ │ │ --PROGCOMMON-LISP STREAM slot WRITER-Tp │ │ │ │ -FUN-WRAP │ │ │ │ +,DECLARE │ │ │ │ +SYSTEM SLOT-DESCRIPTIONS slot WRITERH-DFUN-WRAPPp │ │ │ │ +PRELIMIN │ │ │ │ +SYSTEM NAMED slot READERE │ │ │ │ +EMLAMBDA │ │ │ │ +PCL CACHED-MAKE-INSTANCE-FUNCTION slot WRITER │ │ │ │ +SYSTEM CONC-NAME slot READERETQ │ │ │ │ N-WRAPPE │ │ │ │ --CONDITIONS FORMAT-ARGUMENTS slot READER │ │ │ │ -ETURN-VA │ │ │ │ -pcl/gcl_COMMON-LISP VECTOR slot WRITER │ │ │ │ -*0000000 │ │ │ │ -FAULT-ONPCL ARG-INFO-METATYPES slot WRITER │ │ │ │ -PCL ARG-INFO-KEYWORDS slot READERYMS │ │ │ │ -.MACROEPCL CACHED-VALID-P slot READER │ │ │ │ -SCAN-SETSYSTEM SLOT-POSITION slot WRITERp │ │ │ │ --CONTROL │ │ │ │ -,QUOPCL CPD-SUPERS slot WRITER │ │ │ │ -00000000 │ │ │ │ -ORDFORMAPCL GF-INFO-STATIC-C-A-M-EMF slot READERinding ~p │ │ │ │ -VARIABLE │ │ │ │ -th/gcl27 │ │ │ │ -PCL ARG-INFO-NUMBER-OPTIONAL slot WRITER │ │ │ │ -rgumentsSYSTEM REPORT-FUNCTION slot WRITERS │ │ │ │ -cient ar │ │ │ │ -VARIPCL CACHED-VALID-P slot WRITER │ │ │ │ -ible-pat │ │ │ │ --MACROLE │ │ │ │ -ALUE-SETPCL CPD-SUPERS slot READERUM │ │ │ │ -00000010 │ │ │ │ -00000000 │ │ │ │ -#*COMMON-LISP STREAM slot READER00p │ │ │ │ -00000000 │ │ │ │ -,AND SYSTEM INTERACTIVE-FUNCTION slot WRITER,EQ │ │ │ │ -PCL VALUEP slot READERLUE-SETQ │ │ │ │ +INVALID-p\ │ │ │ │ +SYSTEM REF slot WRITER │ │ │ │ +COMPILER NAME slot READER │ │ │ │ +CONDITIONS EXPECTED-TYPE slot WRITERTQ │ │ │ │ +INVALID-p │ │ │ │ +CONDITIONS OPERANDS slot READERAp │ │ │ │ +SYSTEM TEST-FUNCTION slot WRITERp │ │ │ │ +/gcl_pcl │ │ │ │ +00000000 │ │ │ │ +COMMON-LISP VECTOR slot WRITERTEp │ │ │ │ +ONLY-FUN │ │ │ │ +00000000 │ │ │ │ +PCL GF-PRECOMPUTE-DFUN-AND-EMF-P slot READERYP │ │ │ │ +COMPILER SWITCH slot READER │ │ │ │ +PCL CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL slot READER │ │ │ │ +SYSTEM INCLUDES slot READERF │ │ │ │ +-SETVVp\ │ │ │ │ +PCL CPD-CLASS slot READER.EXPECTp │ │ │ │ +*0000000p\ │ │ │ │ +PCL GF-INFO-STATIC-C-A-M-EMF slot WRITER00000000p │ │ │ │ +COMMON-LISP PATHNAME slot READERp │ │ │ │ +CONDITIONS OPERANDS slot WRITER,p │ │ │ │ +PCL VALUEP slot READER │ │ │ │ +.FORMAT-p │ │ │ │ +T-ARGUMEp\ │ │ │ │ +PCL VALUEP slot WRITERR/ │ │ │ │ +PCL CACHED-CONSTANTS slot READERp │ │ │ │ +:/build/ │ │ │ │ +PCL NLINES slot WRITER │ │ │ │ +PCL OWNER slot READERE │ │ │ │ +00000000 │ │ │ │ +PCL CPD-SUPERS slot WRITER000000p │ │ │ │ +PCL GF-PRECOMPUTE-DFUN-AND-EMF-P slot WRITERLE-Lp │ │ │ │ +COMPILER REF-CLB slot READERAN-Sp │ │ │ │ +COMPILER LABEL slot READERONSP │ │ │ │ +OPERATOR │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ @@ -163415,35 +162871,32 @@ │ │ │ │ ,FIXNUM5 │ │ │ │ ,OTHERWISE │ │ │ │ 3INFER-TP5 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION SLOT2 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +TRACED-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -,GENERIC-FUNCTION! │ │ │ │ -,STANDARD │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +TRACED-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -I(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T)) │ │ │ │ +TRACED-METHOD │ │ │ │ +/(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -163456,17 +162909,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -OPTIONS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -163487,77 +162937,186 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +TRACED-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -3FORMAT-CONTROL │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ +111111111111@ │ │ │ │ +00000000@i │ │ │ │ +APPER-OF │ │ │ │ +00000011 │ │ │ │ +PCL::ONE-CLASS class predicate │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +-OBJECT │ │ │ │ +#(FAST-METHOD DESCRIBE-OBJECT (T T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ -3FORMAT-CONTROL │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -3FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -3FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE6 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -FIND-METHOD-COMBINATION │ │ │ │ -,METHOD-COMBINATION-ERROR │ │ │ │ -8The method combination type STANDARD accepts no options. │ │ │ │ -*STANDARD-METHOD-COMBINATION* │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +,PACKAGEP │ │ │ │ +-OBJECT │ │ │ │ +DESCRIBE-PACKAGE │ │ │ │ +,FUNCALL │ │ │ │ +,DESCRIBE │ │ │ │ +DEFINITION-BEFORE-PCL │ │ │ │ +000000001100000 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -SHORT-METHOD-COMBINATION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-EFFECTIVE-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -SHORT-METHOD-COMBINATION │ │ │ │ -,DECLARE │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -SHORT-METHOD-COMBINATION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -T(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +;(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -163570,17 +163129,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ +,STREAM │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -163601,291 +163158,395 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-EFFECTIVE-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -SHORT-METHOD-COMBINATION │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -APPLICABLE-METHODS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -APPLICABLE-METHODS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -COMPUTE-EFFECTIVE-METHOD │ │ │ │ -METHOD-COMBINATION-TYPE │ │ │ │ -OPERATOR │ │ │ │ -SHORT-COMBINATION-OPERATOR │ │ │ │ -,SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT │ │ │ │ -METHOD-COMBINATION-OPTIONS │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +~A is a generic function.~% │ │ │ │ +Its arguments are:~% ~S~% │ │ │ │ +GENERIC-FUNCTION-PRETTY-ARGLIST │ │ │ │ +Its methods are: │ │ │ │ DOLIST271 │ │ │ │ -APPLICABLE-METHODS │ │ │ │ +GENERIC-FUNCTION-METHODS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ + ,IGNORABLE5 │ │ │ │ ,TAGBODY! │ │ │ │ -QUALIFIERS │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -,INVALID-METHOD-ERROR │ │ │ │ -The method ~S ~A.~%~ │ │ │ │ - The method combination type ~S was defined with the~%~ │ │ │ │ - short form of DEFINE-METHOD-COMBINATION and so requires~%~ │ │ │ │ - all methods have either the single qualifier ~S or the~%~ │ │ │ │ - single qualifier :AROUND. │ │ │ │ -INVALID-METHOD │ │ │ │ -#*IN-PRECOMPUTE-EFFECTIVE-METHODS-P* │ │ │ │ -,METHOD │ │ │ │ -INVALID │ │ │ │ -INVALID │ │ │ │ -QUALIFIERS │ │ │ │ -INVALID-METHOD │ │ │ │ -has no qualifiers │ │ │ │ -QUALIFIERS │ │ │ │ -INVALID-METHOD │ │ │ │ -has more than one qualifier │ │ │ │ -QUALIFIERS │ │ │ │ -1AROUND │ │ │ │ -QUALIFIERS │ │ │ │ -PRIMARY │ │ │ │ -PRIMARY │ │ │ │ -INVALID-METHOD │ │ │ │ -has an illegal qualifier │ │ │ │ -,RETURN-FROM │ │ │ │ -,NREVERSE │ │ │ │ -1MOST-SPECIFIC-LAST │ │ │ │ -,NREVERSE │ │ │ │ -PRIMARY │ │ │ │ -MAIN-METHOD │ │ │ │ -,CALL-METHOD │ │ │ │ -OPERATOR │ │ │ │ -,MAPCAR │ │ │ │ -,CALL-METHOD │ │ │ │ -%INVALID-QUALIFIERS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -%NO-PRIMARY-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -MAIN-METHOD │ │ │ │ -,CALL-METHOD │ │ │ │ -,MAKE-METHOD │ │ │ │ -MAIN-METHOD │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -COMMON-LISPFUNCTION │ │ │ │ -ARGUMENTS-LAMBDA-LIST │ │ │ │ --DECLARE │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --LAMBDA │ │ │ │ --LAMBDA │ │ │ │ --GENERIC-FUNCTION │ │ │ │ --DECLARE │ │ │ │ --GENERIC-FUNCTION │ │ │ │ --MAKE-INSTANCE │ │ │ │ -LONG-METHOD-COMBINATION │ │ │ │ -KEYWORDTYPE │ │ │ │ -.OPTIONS │ │ │ │ -.FUNCTION │ │ │ │ --FUNCTION │ │ │ │ -.ARGUMENTS-LAMBDA-LIST │ │ │ │ -ARGUMENTS-LAMBDA-LIST │ │ │ │ -.DOCUMENTATION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -LAMBDA-LIST │ │ │ │ -FROB-COMBINED-METHOD-ARGS │ │ │ │ -REQUIRED │ │ │ │ -LAMBDA-LIST │ │ │ │ -,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -REQUIRED │ │ │ │ -OPTIONAL │ │ │ │ ,TAGBODY │ │ │ │ - ANSI-LOOPNEXT-LOOP │ │ │ │ -2END-LOOP │ │ │ │ -,LAMBDA-LIST-KEYWORDS │ │ │ │ -KEYWORDTEST │ │ │ │ - ,&OPTIONAL │ │ │ │ -2END-LOOP │ │ │ │ -REQUIRED │ │ │ │ -,RPLACD/ │ │ │ │ -,VALUES │ │ │ │ -,VALUES4 │ │ │ │ -REQUIRED │ │ │ │ - ,&OPTIONAL │ │ │ │ -,RPLACD1 │ │ │ │ -,VALUES │ │ │ │ -,VALUES5 │ │ │ │ -OPTIONAL │ │ │ │ - 2NEXT-LOOP │ │ │ │ -2END-LOOP │ │ │ │ -,BUTLAST │ │ │ │ - ,MAKE-LIST │ │ │ │ +~2% ~{~S ~}~:S =>~% │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +UNPARSE-SPECIALIZERS │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +METHOD-FAST-FUNCTION │ │ │ │ +METHOD-FUNCTION │ │ │ │ ,RETURN-FROM │ │ │ │ -REQUIRED │ │ │ │ -OPTIONAL │ │ │ │ +#*DESCRIBE-METAOBJECTS-AS-OBJECTS-P* │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CCLOSURE@i │ │ │ │ +11001111 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEMOBJECT │ │ │ │ ,&OPTIONAL │ │ │ │ ,STREAM │ │ │ │ PCL-DESCRIBE │ │ │ │ ,*TERMINAL-IO* │ │ │ │ ,*STANDARD-OUTPUT* │ │ │ │ ,STREAM │ │ │ │ ,DESCRIBE-OBJECT │ │ │ │ -The direct superclasses are: ~:S, and the direct~%~ │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp-EQ │ │ │ │ +-~%~S is an instance of class ~S:~% The following slots have :INSTANCE allocation:BOUND.. │ │ │ │ +,~% The following slots have :CLASS allocation:00~% The following slots have allocation as shown:~% ~A ~S ~VT ~S~A is a generic function.~%0) │ │ │ │ +Its arguments are:~% ~S~%E │ │ │ │ +..SIts methods are:~2% ~{~S ~}~:S =>~%4 │ │ │ │ +#*000000*DESCRIBE-METAOBJECTS-AS-OBJECTS-P*1111111001111~&~S is a class, it is an instance of ~S.~%11111Its proper name is ~S.~%11) │ │ │ │ +-SIts name is ~S, but this is not a proper name.~%It has no name (the name is NIL).~%/pcl/gcl_pcl_The direct superclasses are: ~:S, and the direct~%~ │ │ │ │ subclasses are: ~:S. The class precedence list is:~%~S~%~ │ │ │ │ - There are ~D methods specialized for this class.E- │ │ │ │ -PCL::DISPATCH class predicate │ │ │ │ -OUNDP-ME │ │ │ │ -PCL::DFUN-INFO class predicate-S@i │ │ │ │ -00000000 │ │ │ │ -PCL::CACHE class predicate │ │ │ │ -SLOT-BOCACHE SLOT0 │ │ │ │ -NERIC-FU │ │ │ │ -ath/gcl2CACHE SLOT1 │ │ │ │ -INITIALI@( │ │ │ │ -INIT-FUNCACHE SLOT2 │ │ │ │ -*0000000 │ │ │ │ -NAL-SLOTCACHE SLOT3 │ │ │ │ -00000000 │ │ │ │ -CACHE SLOT4 │ │ │ │ -OT-GFS* │ │ │ │ -RNAL-SLOCACHE SLOT5 │ │ │ │ -INCACHE SLOT6 │ │ │ │ -CACHE SLOT7 │ │ │ │ -SLOT-GFS8* │ │ │ │ -ts_boot.CACHE SLOT8 │ │ │ │ -T-METHODCACHE SLOT9 │ │ │ │ -en bindiCACHE SLOT10 │ │ │ │ -CACHE SLOT11 │ │ │ │ -PCL::FAST-METHOD-CALL class predicate │ │ │ │ -FAST-METHOD-CALL SLOT0LARE │ │ │ │ - FAST-METHOD-CALL SLOT1ATION or a │ │ │ │ -FAST-METHOD-CALL SLOT2497 │ │ │ │ -,QUOFAST-METHOD-CALL SLOT3! │ │ │ │ -progncom │ │ │ │ -COMMON-LISP::RESTART class predicateERROR* │ │ │ │ -ation fu │ │ │ │ --path/gc │ │ │ │ -RESTART SLOT0 │ │ │ │ -,LAMRESTART SLOT1 │ │ │ │ - RESTART SLOT2 │ │ │ │ -on the g │ │ │ │ -ble-pathRESTART SLOT3 │ │ │ │ -side theRESTART SLOT4 │ │ │ │ --COMBINA │ │ │ │ -00000000 │ │ │ │ -00000000 │ │ │ │ -00000000(z │ │ │ │ --METHODS`X │ │ │ │ -MAKE-INSTANCE STANDARD-EFFECTIVE-SLOT-DEFINITION (:NAME :INITFORM :INITFUNCTION :INITARGS :ALLOCATION :TYPE :CLASS) NIL │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::SWITCH)UALIFIERS │ │ │ │ -l_pcl_co@i │ │ │ │ -00000000 │ │ │ │ -MAKE-INSTANCE STRUCTURE-CLASS (:NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :NAME) NIL00000) │ │ │ │ -/*INVALI │ │ │ │ -l_pcl_dfp\ │ │ │ │ -L-GENERI │ │ │ │ + There are ~D methods specialized for this class. │ │ │ │ +,Q~&~S is a ~S.~% │ │ │ │ +You can also call it~@[ ~{~S~^, ~} or~] ~S.~%PLYIt has ~D internal and ~D external symbols (~D total).~%T │ │ │ │ +-PUTIt uses the packages ~{~S~^, ~}.~% │ │ │ │ +COMMON-LIt is used by the packages ~{~S~^, ~}.~%OCK │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +TRACED-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +ACCESSOR-METHOD-SLOT-NAME │ │ │ │ +TRACED-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +TRACED-METHOD │ │ │ │ +7(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +ACCESSOR-METHOD-SLOT-NAME │ │ │ │ +TRACED-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +ACCESSOR-METHOD-SLOT-NAME │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +ACCESSOR-METHOD-SLOT-NAME │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisputside (FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))tion func │ │ │ │ +COMMON-L │ │ │ │ +bin.lisp │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + OFUNCTION │ │ │ │ +TRACE-METHOD-INTERNAL │ │ │ │ +,UNTRACE │ │ │ │ +SYSTEMFSET │ │ │ │ + OFUNCTION │ │ │ │ +,SYMBOL-FUNCTION │ │ │ │ +,APPL/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispproduciTRACE-METHOD-INTERNALpcl/gcl_pcl*TRACED-METHODS*~S is not a traced method? │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +UNDEFMETHOD-1 │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +PARSE-METHOD-OR-SPEC │ │ │ │ +,METHOD │ │ │ │ +,REMOVE-METHOD │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispE │ │ │ │ +/EUNDEFMETHOD-1 │ │ │ │ +Extra argument ~sTHOD-QUALIFIERS~@E-APPLICAB~@000Key ~s missing value000000000000Key ~s ~s not permitted000000000 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +TRACED-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +METHOD-SPECIALIZERS │ │ │ │ +TRACED-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +TRACED-METHOD │ │ │ │ +1(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-SPECIALIZERS │ │ │ │ +TRACED-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +METHOD-SPECIALIZERS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +METHOD-SPECIALIZERS │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ +ucible/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ +(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))N │ │ │ │ 00000000 │ │ │ │ -00000000@i │ │ │ │ 00000000 │ │ │ │ -T-ALL-DF` │ │ │ │ -CONDITIONS::FPE-XUODI class predicateNCTION │ │ │ │ -YPE+COUN │ │ │ │ -IT-FUNCT │ │ │ │ --ALL-GEN │ │ │ │ -F-DFUN-I │ │ │ │ -00000000 │ │ │ │ -NERIC-FU │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUODIducible-path/ │ │ │ │ -00000000(READER OPERATOR)000000110000000(FAST-READER-METHOD SLOT-OBJECT STREAM)000000000(FAST-READER-METHOD SLOT-OBJECT CACHED-COMBINED-INITARGS-FORM-LIST)CACHE: │ │ │ │ -TYPE-PREDICATE COMMON-LISP UNBOUND-SLOT │ │ │ │ -PCL(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::EXPECTED-TYPE)CHE │ │ │ │ -(FAST-READER-METHOD TYPE-ERROR CONDITIONS::DATUM)ACHE-SIZE │ │ │ │ --TO-LISTCONDITIONS POSSIBILITIES slot READERIST │ │ │ │ --SYSTEM NAMED slot READER │ │ │ │ -ERIC-FUN │ │ │ │ +ONE-INDE@i │ │ │ │ +KEYWORp\ │ │ │ │ +27-2.7.1@i │ │ │ │ +FS-OF-TY │ │ │ │ +-ALL-GEN@i │ │ │ │ 00000000 │ │ │ │ -00000000p\ │ │ │ │ 00000000 │ │ │ │ -11111111SYSTEM NAME slot READER000000000p │ │ │ │ -AJOR-ARE │ │ │ │ -01111111 │ │ │ │ -00000110p\ │ │ │ │ -11111111@! │ │ │ │ -11111111 │ │ │ │ 00000000@i │ │ │ │ 00000000 │ │ │ │ +,FUNCT@i │ │ │ │ +le-path/ │ │ │ │ +ST-ALL-D │ │ │ │ +OMMON-LI │ │ │ │ +DFUN-INF │ │ │ │ +-TO-LIST@i │ │ │ │ +RGE-CACH │ │ │ │ +#*000000 │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -LISPLAMBPCL OWNER slot READERNIMUM-CACHEp │ │ │ │ -.DAPCL SIZE slot READER │ │ │ │ -.EXPECTEp │ │ │ │ +MAKE-INSTANCE STRUCTURE-CLASS (:NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :NAME) NIL11111111111111 │ │ │ │ +00000000MAKE-INSTANCE STRUCTURE-EFFECTIVE-SLOT-DEFINITION (:DEFSTRUCT-ACCESSOR-SYMBOL :INTERNAL-READER-FUNCTION :INTERNAL-WRITER-FUNCTION :NAME :INITFORM :INITFUNCTION :INITARGS :ALLOCATION :TYPE :CLASS) NIL111111111@i │ │ │ │ 00000000 │ │ │ │ -DFUN-CACp\ │ │ │ │ -,FUNCTIOPCL CACHED-SHARED-INITIALIZE-NIL-FUNCTION slot WRITER │ │ │ │ -SLOT-NAMES │ │ │ │ -GENERIC-FUNCTIONH │ │ │ │ -REQUIRED │ │ │ │ -OPERATOR@` │ │ │ │ -ARGUMENTSa │ │ │ │ +000000000^ │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::SWITCH)E-TO-LIST* │ │ │ │ +l27-2.7. │ │ │ │ +-SETVV@i │ │ │ │ +,FUNCTIO │ │ │ │ +,MAKE-INSTANCE EQL-SPECIALIZER (:OBJECT) NILROGN 0+ │ │ │ │ +ARGUMENTS] │ │ │ │ POSSIBILITIES │ │ │ │ DESCRIPTION │ │ │ │ -STANCE-W │ │ │ │ -00000000 │ │ │ │ -111111118o │ │ │ │ -11111111 │ │ │ │ -10111000 │ │ │ │ -00000000 │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,END-OF-FILE │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,END-OF-FILE │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,END-OF-FILE │ │ │ │ -/(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ +6(PCL::FAST-METHOD PRINT-OBJECT (PRINT-NOT-READABLE T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -163929,15 +163590,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,END-OF-FILE │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -163959,44 +163620,71 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -Unexpected end of file: │ │ │ │ -#*111111111/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp000 │ │ │ │ -00000000@i │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +Object ~s is unreadable: │ │ │ │ +-SLOT-BOUNDP-NORMAL │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,PRINT-NOT-READABLE-OBJECT │ │ │ │ +0000000000100 │ │ │ │ +CE-FUNCT │ │ │ │ +Object ~s is unreadable: ast_ini │ │ │ │ +INTERNAL-SIMPLE-STREAM-ERROR │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-STREAM-ERROR class predicate00011111@i │ │ │ │ +11111111 │ │ │ │ 00000000 │ │ │ │ -T-POSITI │ │ │ │ -,MOST-PO@i │ │ │ │ -DD-FORMS │ │ │ │ -O-CACHE- │ │ │ │ -/gcl27-2 │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-READER-ERROR class predicateTS │ │ │ │ 00000000 │ │ │ │ 00000000 │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +11111111 │ │ │ │ +00000000 │ │ │ │ +00000000 │ │ │ │ +INTERNAL-SIMPLE-END-OF-FILEWISE │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-END-OF-FILE class predicate111111111@i │ │ │ │ +T-FORM-T │ │ │ │ +ITIVE-FI │ │ │ │ +INFO-CAC │ │ │ │ +eproduci │ │ │ │ +NSTANCE- │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ +/(FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) │ │ │ │ +COMMON-LISP::END-OF-FILE class predicate │ │ │ │ +/VALUE@i │ │ │ │ +0000000) │ │ │ │ +INTERNAL-SIMPLE-PARSE-ERRORNCE │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-PARSE-ERROR class predicate │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -TRACED-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +SHORT-METHOD-COMBINATION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -METHOD-SPECIALIZERS │ │ │ │ -TRACED-METHOD │ │ │ │ +COMPUTE-EFFECTIVE-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +SHORT-METHOD-COMBINATION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -TRACED-METHOD │ │ │ │ -1(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD)) │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +SHORT-METHOD-COMBINATION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +T(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -164009,14 +163697,17 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -164037,136 +163728,218 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-SPECIALIZERS │ │ │ │ -TRACED-METHOD │ │ │ │ +COMPUTE-EFFECTIVE-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +SHORT-METHOD-COMBINATION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +APPLICABLE-METHODS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -METHOD-SPECIALIZERS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +COMPUTE-EFFECTIVE-METHOD │ │ │ │ +METHOD-COMBINATION-TYPE │ │ │ │ +OPERATOR │ │ │ │ +SHORT-COMBINATION-OPERATOR │ │ │ │ +,SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT │ │ │ │ +METHOD-COMBINATION-OPTIONS │ │ │ │ +DOLIST271 │ │ │ │ +APPLICABLE-METHODS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,TAGBODY! │ │ │ │ +QUALIFIERS │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +,INVALID-METHOD-ERROR │ │ │ │ +The method ~S ~A.~%~ │ │ │ │ + The method combination type ~S was defined with the~%~ │ │ │ │ + short form of DEFINE-METHOD-COMBINATION and so requires~%~ │ │ │ │ + all methods have either the single qualifier ~S or the~%~ │ │ │ │ + single qualifier :AROUND. │ │ │ │ +INVALID-METHOD │ │ │ │ +#*IN-PRECOMPUTE-EFFECTIVE-METHODS-P* │ │ │ │ +,METHOD │ │ │ │ +INVALID │ │ │ │ +INVALID │ │ │ │ +QUALIFIERS │ │ │ │ +INVALID-METHOD │ │ │ │ +has no qualifiers │ │ │ │ +QUALIFIERS │ │ │ │ +INVALID-METHOD │ │ │ │ +has more than one qualifier │ │ │ │ +QUALIFIERS │ │ │ │ +1AROUND │ │ │ │ +QUALIFIERS │ │ │ │ +PRIMARY │ │ │ │ +PRIMARY │ │ │ │ +INVALID-METHOD │ │ │ │ +has an illegal qualifier │ │ │ │ +,RETURN-FROM │ │ │ │ +,NREVERSE │ │ │ │ +1MOST-SPECIFIC-LAST │ │ │ │ +,NREVERSE │ │ │ │ +PRIMARY │ │ │ │ +MAIN-METHOD │ │ │ │ +,CALL-METHOD │ │ │ │ +OPERATOR │ │ │ │ +,MAPCAR │ │ │ │ +,CALL-METHOD │ │ │ │ +%INVALID-QUALIFIERS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +%NO-PRIMARY-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +MAIN-METHOD │ │ │ │ +,CALL-METHOD │ │ │ │ +,MAKE-METHOD │ │ │ │ +MAIN-METHOD │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,FUNCTION │ │ │ │ +ARGUMENTS-LAMBDA-LIST │ │ │ │ +LOAD-LONG-DEFCOMBIN │ │ │ │ +SPECIALIZERS │ │ │ │ +,FIND-CLASS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +INTERN-EQL-SPECIALIZER │ │ │ │ +*THE-CLASS-T* │ │ │ │ +OLD-METHOD │ │ │ │ +GET-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +FIND-METHOD-COMBINATION │ │ │ │ +SPECIALIZERS │ │ │ │ +NEW-METHOD │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +,STANDARD-METHOD │ │ │ │ +KEYWORDQUALIFIERS │ │ │ │ +-SPECIALIZERS │ │ │ │ +SPECIALIZERS │ │ │ │ +-LAMBDA-LIST │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -METHOD-SPECIALIZERS │ │ │ │ +CM-ARGS │ │ │ │ +,LAMBDA │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +LONG-METHOD-COMBINATION │ │ │ │ +-OPTIONS │ │ │ │ +-FUNCTION │ │ │ │ +,FUNCTION │ │ │ │ +-ARGUMENTS-LAMBDA-LIST │ │ │ │ +ARGUMENTS-LAMBDA-LIST │ │ │ │ +-DOCUMENTATION │ │ │ │ +-DEFINITION-SOURCE │ │ │ │ +,DEFINE-METHOD-COMBINATION │ │ │ │ +LOAD-TRUENAME │ │ │ │ +#*LONG-METHOD-COMBINATION-FUNCTIONS* │ │ │ │ +,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP METHOD slot READER │ │ │ │ -SYSTEM:TAG SLOT0 │ │ │ │ -SYSTEM:TAG SLOT1 │ │ │ │ -SYSTEM:TAG SLOT2 │ │ │ │ -SYSTEM:TAG SLOT3 │ │ │ │ -SYSTEM:TAG SLOT4 │ │ │ │ -SYSTEM:TAG SLOT5 │ │ │ │ -SYSTEM:TAG SLOT6 │ │ │ │ -SYSTEM::S-DATA class predicateE-@i │ │ │ │ --IIS-ENT │ │ │ │ -ITARGS-T │ │ │ │ -SPECIALI │ │ │ │ -SYSTEM:S-DATA SLOT0e-path/gcl27- │ │ │ │ -ISYSTEM:S-DATA SLOT1 │ │ │ │ + ,IGNORABLE./ │ │ │ │ +SYSTEMHASH-SET./0 │ │ │ │ +OLD-METHOD │ │ │ │ +,REMOVE-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +FIND-METHOD-COMBINATION │ │ │ │ +OLD-METHOD │ │ │ │ +,ADD-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +FIND-METHOD-COMBINATION │ │ │ │ +NEW-METHOD │ │ │ │ +More than one method of type ~S ~ │ │ │ │ + with the same specializers.invalid quali │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +QUALIFIERS │ │ │ │ +QUALIFIER-CHECK-RUNTIME │ │ │ │ +,TAGBODY! │ │ │ │ +QUALIFIERS │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +QUALIFIERS │ │ │ │ +PATTERN │ │ │ │ +QUALIFIERS │ │ │ │ +PATTERN │ │ │ │ +PATTERN. │ │ │ │ +QUALIFIERS │ │ │ │ +QUALIFIERS │ │ │ │ +QUALIFIERS/ │ │ │ │ +,RETURN-FROM │ │ │ │ +/N/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp-QUALIFIER-CHECK-RUNTIMEUOTE │ │ │ │ +,In the method group specifier ~S,~%~ │ │ │ │ + ~S isn't a valid qualifier pattern.ARGS methods matching one of the patterns: ~{~S, ~} ~S │ │ │ │ +NO-PRIMARY-MEmethods matching the pattern: ~S.IGNORE. │ │ │ │ +INNER-RESULT. │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +LAMBDA-LIST │ │ │ │ +FROB-COMBINED-METHOD-ARGS │ │ │ │ +REQUIRED │ │ │ │ +LAMBDA-LIST │ │ │ │ ,DECLARE │ │ │ │ -SYSTEM:S-DATA SLOT2 │ │ │ │ -,PROGN SYSTEM:S-DATA SLOT3AR │ │ │ │ -%CCLOSUR │ │ │ │ -ISYSTEM:S-DATA SLOT4Q │ │ │ │ -ITARGS-T │ │ │ │ -SYSTEM:S-DATA SLOT5R │ │ │ │ -..SLOT-U8, │ │ │ │ -ath/gcl2SYSTEM:S-DATA SLOT6_precom2.lisp │ │ │ │ --QUOTESYSTEM:S-DATA SLOT7E │ │ │ │ --SIMPLE-VE │ │ │ │ -SYSTEM:S-DATA SLOT8MPLE-VECTOR │ │ │ │ -RDINSTANSYSTEM:S-DATA SLOT9 │ │ │ │ --SIMPLE-VECT │ │ │ │ -,QUOTE+SYSTEM:S-DATA SLOT10ER-OF │ │ │ │ - SYSTEM:S-DATA SLOT11,FUNCTION │ │ │ │ -INITASYSTEM:S-DATA SLOT12INSTANCE-REF │ │ │ │ -SYSTEM:S-DATA SLOT13TOR │ │ │ │ --FUNCTIOSYSTEM:S-DATA SLOT14IZER │ │ │ │ -ED-INITIHz │ │ │ │ -SPECIALISYSTEM:S-DATA SLOT15OTE! │ │ │ │ -CE-SIMPL │ │ │ │ -00000000SYSTEM:S-DATA SLOT16000000000000 │ │ │ │ -SYSTEM:S-DATA SLOT17 │ │ │ │ -PCL::PV-TABLE class predicateE-S@i │ │ │ │ -OD-P-BOD │ │ │ │ -CALL-NEXPV-TABLE SLOT0 │ │ │ │ -RAM-ERROPV-TABLE SLOT1 │ │ │ │ -nt argum │ │ │ │ -IMARY-MEPV-TABLE SLOT2 │ │ │ │ -ethod wh │ │ │ │ -27-2.7.1PV-TABLE SLOT3 │ │ │ │ - NO-PRIM8 │ │ │ │ -PCL::FAST-INSTANCE-BOUNDP class predicateUOTE │ │ │ │ -T-METHOD │ │ │ │ -PCL::INITIALIZE-INFO class predicateD-CALL. │ │ │ │ -MINITIALIZE-INFO SLOT0N │ │ │ │ -NEXT-MET X │ │ │ │ -INITIALIZE-INFO SLOT1-EXTENT │ │ │ │ -INITIALIZE-INFO SLOT2OD-P │ │ │ │ -COMBIN`% │ │ │ │ -ficient INITIALIZE-INFO SLOT3g ~s │ │ │ │ -INITIALIZE-INFO SLOT4IN │ │ │ │ -,LINITIALIZE-INFO SLOT5 │ │ │ │ -1FINITIALIZE-INFO SLOT6argument ~s │ │ │ │ -INITIALIZE-INFO SLOT7to ~s with │ │ │ │ - T │ │ │ │ -argumentINITIALIZE-INFO SLOT8 The metho │ │ │ │ -id quali │ │ │ │ -9/(INITIALIZE-INFO SLOT9UALIFIERS ( │ │ │ │ -/COMBINITIALIZE-INFO SLOT10,LIST* │ │ │ │ -,QUOINITIALIZE-INFO SLOT11D │ │ │ │ -IMARY-MEINITIALIZE-INFO SLOT12TE │ │ │ │ -7-2.7.1/0( │ │ │ │ --INIINITIALIZE-INFO SLOT13 │ │ │ │ +,DECLARE │ │ │ │ +REQUIRED │ │ │ │ +OPTIONAL │ │ │ │ +,TAGBODY │ │ │ │ + ANSI-LOOPNEXT-LOOP │ │ │ │ +2END-LOOP │ │ │ │ +,LAMBDA-LIST-KEYWORDS │ │ │ │ +KEYWORDTEST │ │ │ │ + ,&OPTIONAL │ │ │ │ +2END-LOOP │ │ │ │ +REQUIRED │ │ │ │ +,RPLACD/ │ │ │ │ +,VALUES │ │ │ │ +,VALUES4 │ │ │ │ +REQUIRED │ │ │ │ + ,&OPTIONAL │ │ │ │ +,RPLACD1 │ │ │ │ +,VALUES │ │ │ │ +,VALUES5 │ │ │ │ +OPTIONAL │ │ │ │ + 2NEXT-LOOP │ │ │ │ +2END-LOOP │ │ │ │ +,BUTLAST │ │ │ │ + ,MAKE-LIST │ │ │ │ +,RETURN-FROM │ │ │ │ +REQUIRED │ │ │ │ +OPTIONAL │ │ │ │ +LL-NO-NEXT/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lispPFROB-COMBINED-METHOD-ARGS.REST-A/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lispO(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))T-METHOD │ │ │ │ +CALL-NEX │ │ │ │ /build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_boot.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ METHOD-GROUP-SPECIFIERS │ │ │ │ DECLARATIONS │ │ │ │ REAL-BODY │ │ │ │ $WRAP-METHOD-GROUP-SPECIFIER-BINDINGS │ │ │ │ SPECIALIZER-CACHES │ │ │ │ @@ -165920,14 +165693,15 @@ │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111100011111111111111111111111111111111111111111111111111111111111000000) │ │ │ │ BUILT-IN-WRAPPER-OF │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ DEFAULT-LIMIT-FN │ │ │ │ ,OTHERWISE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cache.lisp │ │ │ │ +(CALL STANDARD-COMPUTE-EFFECTIVE-METHOD) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ EVAL-FORM │ │ │ │ ,FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ EVAL-FORM │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ "SLOT-INITARGS-FROM-STRUCTURE-SLOTD │ │ │ │ @@ -168454,83 +168228,75 @@ │ │ │ │ -OPTIMIZE │ │ │ │ *SLOT-UNBOUND* │ │ │ │ -SIMPLE-VECTOR │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ INSTANCE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots_boot.lisp(BOUNDP TYPE) │ │ │ │ gcl_pcl_braid.o │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-STREAM-ERROR class predicate │ │ │ │ -INTERNAL-SIMPLE-STREAM-ERROR │ │ │ │ -Object ~s is unreadable: │ │ │ │ -COMMON-LISP::PRINT-NOT-READABLE class predicate │ │ │ │ -PCL::STD-CLASS class predicate │ │ │ │ -(FAST-METHOD PRINT-OBJECT (PRINT-NOT-READABLE T)) │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-PRINT-NOT-READABLE class predicate │ │ │ │ -INTERNAL-SIMPLE-PRINT-NOT-READABLE │ │ │ │ -~s is not of type ~s: │ │ │ │ -COMMON-LISP::TYPE-ERROR class predicate │ │ │ │ -(FAST-METHOD PRINT-OBJECT (TYPE-ERROR T)) │ │ │ │ -COMMON-LISP::SIMPLE-TYPE-ERROR class predicate │ │ │ │ CONDITIONS::INTERNAL-SIMPLE-TYPE-ERROR class predicate │ │ │ │ +INTERNAL-SIMPLE-TYPE-ERROR │ │ │ │ +PCL::STD-CLASS class predicate │ │ │ │ +CONDITIONS::CASE-FAILURE class predicate │ │ │ │ +(FAST-METHOD PRINT-OBJECT (CONDITIONS::CASE-FAILURE T)) │ │ │ │ +CASE-FAILURE-POSSIBILITIES │ │ │ │ +CASE-FAILURE-NAMEK │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-CASE-FAILURE class predicate@ │ │ │ │ +INTERNAL-SIMPLE-CASE-FAILURE │ │ │ │ +CASE-FAILURE │ │ │ │ +STACK-OVERFLOW │ │ │ │ +(BOUNDP CONDITIONS::FUNCTION-NAME) │ │ │ │ +(WRITER CONDITIONS::FUNCTION-NAME) │ │ │ │ +(READER CONDITIONS::FUNCTION-NAME) │ │ │ │ COMMON-LISP::FUNCTION class predicate │ │ │ │ -PCL::FUNCALLABLE-STANDARD-OBJECT class predicate+M │ │ │ │ +PCL::FUNCALLABLE-STANDARD-OBJECT class predicate │ │ │ │ SYSTEMLAMBDA-CLOSURE │ │ │ │ COMMON-LISP&REST │ │ │ │ -DECLARE │ │ │ │ -DECLARE │ │ │ │ -OPTIMIZE │ │ │ │ -LAMBDA │ │ │ │ ~% │ │ │ │ -~% The following slots have allocation as shown:~% ~A ~S ~VT ~S │ │ │ │ -~% The following slots have :CLASS allocation: │ │ │ │ -Its methods are: │ │ │ │ -~% The following slots have :INSTANCE allocation: │ │ │ │ -~%~S is an instance of class ~S:~A is a generic function.~% │ │ │ │ +(FAST-METHOD MAKE-LOAD-FORM (STANDARD-OBJECT)) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T)) │ │ │ │ +(FAST-METHOD MAKE-LOAD-FORM (CLASS)) │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ +RESTART SLOT4 │ │ │ │ +RESTART SLOT3 │ │ │ │ +RESTART SLOT2 │ │ │ │ +RESTART SLOT1 │ │ │ │ +RESTART SLOT0 │ │ │ │ +COMMON-LISP::RESTART class predicate │ │ │ │ +PCL::PCL-CLASS class predicate │ │ │ │ +FAST-METHOD-CALL SLOT3 │ │ │ │ +FAST-METHOD-CALL SLOT2 │ │ │ │ +FAST-METHOD-CALL SLOT1 │ │ │ │ +FAST-METHOD-CALL SLOT0 │ │ │ │ +PCL::FAST-METHOD-CALL class predicate │ │ │ │ +CACHE SLOT11 │ │ │ │ +CACHE SLOT10 │ │ │ │ +CACHE SLOT9 │ │ │ │ +CACHE SLOT8 │ │ │ │ +CACHE SLOT7 │ │ │ │ +CACHE SLOT6 │ │ │ │ +CACHE SLOT5 │ │ │ │ COMMON-LISP::STRUCTURE-OBJECT class predicate │ │ │ │ SLOT-NAME-FORM │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ READ/WRITE │ │ │ │ SPARAMETER │ │ │ │ SLOT-NAME │ │ │ │ NEW-VALUE │ │ │ │ @@ -182796,15 +182562,15 @@ │ │ │ │ function COMPUTE-EFFECTIVE-METHOD). │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_combin.lisp │ │ │ │ *METHOD-COMBINATION-ERROR* │ │ │ │ METHOD-COMBINATION-ERROR was called outside the dynamic scope~%~ │ │ │ │ of a method combination function (inside the body of~%~ │ │ │ │ DEFINE-METHOD-COMBINATION or a method on the generic~%~ │ │ │ │ function COMPUTE-EFFECTIVE-METHOD). │ │ │ │ -SYSTEM:TAG SLOT7GENERATE-DISCRIMINATION-NET │ │ │ │ +(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))GENERATE-DISCRIMINATION-NET │ │ │ │ COMPUTE-SECONDARY-DISPATCH-FUNCTION1 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ METHOD-ALIST-P │ │ │ │ WRAPPERS-P │ │ │ │ ALL-APPLICABLE-P │ │ │ │ ALL-SORTED-P │ │ │ │ FUNCTION-P │ │ │ │ @@ -184756,16 +184522,15 @@ │ │ │ │ 0ARGUMENT-PRECEDENCE-ORDER │ │ │ │ ARGUMENT-PRECEDENCE-ORDER │ │ │ │ SET-ARG-INFO │ │ │ │ 0LAMBDA-LIST │ │ │ │ LAMBDA-LIST │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_boot.lisp │ │ │ │ MAKE-EARLY-GF │ │ │ │ -(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))L │ │ │ │ -MAKE-EAR │ │ │ │ +NERIC-FU@i │ │ │ │ ADD-READER-METHOD │ │ │ │ ADD-WRITER-METHOD │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SLOT-NAME │ │ │ │ ,&OPTIONAL │ │ │ │ INITIALIZE-INTERNAL-SLOT-GFS │ │ │ │ SLOT-READER-SYMBOL │ │ │ │ @@ -184788,74 +184553,86 @@ │ │ │ │ SLOT-NAME │ │ │ │ ,ENSURE-GENERIC-FUNCTION │ │ │ │ GENERIC-FUNCTION-METHODS │ │ │ │ ADD-BOUNDP-METHOD │ │ │ │ *THE-CLASS-SLOT-OBJECT* │ │ │ │ SLOT-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots_boot.lispINITIALIZE-INTERNAL-SLOT-GFS │ │ │ │ -(FAST-METHOD DESCRIBE-OBJECT (T T)) │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T)) │ │ │ │ -DESCRIBE-PACKAGE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT)) │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp# │ │ │ │ -(FAST-METHOD DESCRIBE-OBJECT (CLASS T)) │ │ │ │ +CACHE SLOT4 │ │ │ │ +CACHE SLOT3 │ │ │ │ +CACHE SLOT1 │ │ │ │ +CACHE SLOT0 │ │ │ │ +PCL::CACHE class predicate │ │ │ │ +PCL::DFUN-INFO class predicate │ │ │ │ +PCL::DISPATCH class predicate │ │ │ │ PCL::STRUCTURE-DIRECT-SLOT-DEFINITION class predicate │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +PCL::INITIAL-DISPATCH class predicate │ │ │ │ +PCL::CONSTANT-VALUE class predicate │ │ │ │ PCL::STRUCTURE-SLOT-DEFINITION class predicate │ │ │ │ +PCL::NO-METHODS class predicate │ │ │ │ +PCL::CACHING class predicate │ │ │ │ PCL::STRUCTURE-EFFECTIVE-SLOT-DEFINITION class predicate │ │ │ │ -FROB-COMBINED-METHOD-ARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -methods matching one of the patterns: ~{~S, ~} ~S │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -.LONG-METHOD-COMBINATION-FUNCTION. │ │ │ │ -.SPECIALIZERS. │ │ │ │ -.APPLICABLE-METHODS. │ │ │ │ -methods matching the pattern: ~S │ │ │ │ -.GENERIC-FUNCTION. │ │ │ │ -.METHOD-COMBINATION. │ │ │ │ -*LONG-METHOD-COMBINATION-FUNCTIONS* │ │ │ │ -.METHOD. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -LOAD-LONG-DEFCOMBIN │ │ │ │ +PCL::ACCESSOR-DFUN-INFO class predicate │ │ │ │ +PCL::N-N class predicate │ │ │ │ +PCL::ONE-INDEX-DFUN-INFO class predicate │ │ │ │ PCL::EFFECTIVE-SLOT-DEFINITION class predicate │ │ │ │ -has more than one qualifier │ │ │ │ -has an illegal qualifier │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -LOAD-SHORT-DEFCOMBIN │ │ │ │ -Extra argument ~s │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -MAKE-SHORT-METHOD-COMBINATION │ │ │ │ +PCL::ONE-INDEX class predicate │ │ │ │ +ONE-CLASS SLOT3 │ │ │ │ PCL::SLOT-DEFINITION class predicate │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -The method combination type STANDARD accepts no options. │ │ │ │ +ONE-INDEX-DFUN-INFO SLOT2R │ │ │ │ +ACCESSOR-DFUN-INFO SLOT1 │ │ │ │ +PCL::TWO-CLASS class predicate │ │ │ │ PCL::STANDARD-SLOT-DEFINITION class predicate │ │ │ │ +PCL::CHECKING class predicate │ │ │ │ +PCL::DEFAULT-METHOD-ONLY class predicatePC │ │ │ │ PCL::STANDARD-DIRECT-SLOT-DEFINITION class predicate │ │ │ │ +PCL::INITIAL class predicate │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION SLOT3 │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION SLOT1 │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION SLOT0 │ │ │ │ +PCL::CLASS-PRECEDENCE-DESCRIPTION class predicate │ │ │ │ +METHOD-CALL SLOT1 │ │ │ │ +METHOD-CALL SLOT0 │ │ │ │ PCL::STANDARD-METHOD-COMBINATION class predicate(z │ │ │ │ +PCL::METHOD-CALL class predicatep │ │ │ │ PCL::DEFINITION-SOURCE-MIXIN class predicate │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispa │ │ │ │ +PCL::ARG-INFO class predicate │ │ │ │ +INITIALIZE-INFO SLOT13 │ │ │ │ +INITIALIZE-INFO SLOT12 │ │ │ │ +INITIALIZE-INFO SLOT11 │ │ │ │ +INITIALIZE-INFO SLOT10 │ │ │ │ +INITIALIZE-INFO SLOT9 │ │ │ │ +INITIALIZE-INFO SLOT8 │ │ │ │ +INITIALIZE-INFO SLOT7 │ │ │ │ +INITIALIZE-INFO SLOT6 │ │ │ │ +INITIALIZE-INFO SLOT5 │ │ │ │ +INITIALIZE-INFO SLOT4 │ │ │ │ +INITIALIZE-INFO SLOT3 │ │ │ │ +INITIALIZE-INFO SLOT2 │ │ │ │ +INITIALIZE-INFO SLOT1 │ │ │ │ +INITIALIZE-INFO SLOT0 │ │ │ │ +PCL::INITIALIZE-INFO class predicate │ │ │ │ +PCL::FAST-INSTANCE-BOUNDP class predicate │ │ │ │ PCL::PLIST-MIXIN class predicate │ │ │ │ COMMON-LISP::STANDARD-OBJECT class predicate │ │ │ │ PCL::METAOBJECT class predicate │ │ │ │ -PCL::CLASS-PROTOTYPE-SPECIALIZER class predicateLP │ │ │ │ +PCL::CLASS-PROTOTYPE-SPECIALIZER class predicateM │ │ │ │ PCL::SPECIALIZER-WITH-OBJECT class predicate │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -PCL::SLOT-OBJECT class predicate. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispm │ │ │ │ +PCL::SLOT-OBJECT class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,FUNCTION │ │ │ │ ,&OPTIONAL │ │ │ │ ,DECLARE │ │ │ │ ,FUNCTION │ │ │ │ ,FUNCTION │ │ │ │ MAP-ALL-CLASSES │ │ │ │ @@ -187337,19 +187114,15 @@ │ │ │ │ RESET-INITIALIZE-INFO │ │ │ │ *INITIALIZE-INFO-CACHE-CLASS* │ │ │ │ *INITIALIZE-INFO-CACHE-INITARGS* │ │ │ │ INITARGS │ │ │ │ *INITIALIZE-INFO-CACHE-INFO* │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fast_init.lisp │ │ │ │ COMMON-LISP::BUILT-IN-CLASS class predicate │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_defcombin.lisp │ │ │ │ -(COMBINED-METHOD ENSURE-GENERIC-FUNCTION-USING-CLASS) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ COMMON-LISP::T class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ CACHED-EMF-P │ │ │ │ RETURN-VALUE-P │ │ │ │ METATYPES │ │ │ │ ,DECLARE │ │ │ │ -EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY │ │ │ │ @@ -188933,14 +188706,17 @@ │ │ │ │ METHOD-ALIST │ │ │ │ -DECLARE │ │ │ │ -OPTIMIZE │ │ │ │ -FUNCTION │ │ │ │ -FUNCTION │ │ │ │ -NO-APPLICABLE-METHOD │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_dfun.lisp │ │ │ │ +COMPILER::VAR SLOT4 │ │ │ │ +COMPILER::VAR SLOT5 │ │ │ │ +COMPILER::VAR SLOT6 │ │ │ │ COMPILER::VAR SLOT7 │ │ │ │ COMPILER::VAR SLOT8 │ │ │ │ COMPILER::VAR SLOT9 │ │ │ │ COMPILER::VAR SLOT10 │ │ │ │ COMPILER::VAR SLOT11 │ │ │ │ COMPILER::VAR SLOT12 │ │ │ │ COMPILER::VAR SLOT13 │ │ │ │ @@ -189377,136 +189153,18 @@ │ │ │ │ EXISTING │ │ │ │ ,FUNCTION │ │ │ │ #ENSURE-GENERIC-FUNCTION-USING-CLASS │ │ │ │ EXISTING │ │ │ │ FUNCTION-SPECIFIER │ │ │ │ ALL-KEYS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_boot.lisp │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -LONG-METHOD-COMBINATION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -COMPUTE-EFFECTIVE-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -LONG-METHOD-COMBINATION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -LONG-METHOD-COMBINATION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -S(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-EFFECTIVE-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -LONG-METHOD-COMBINATION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -COMPUTE-EFFECTIVE-METHOD │ │ │ │ -,FUNCALL │ │ │ │ -,GETHASH │ │ │ │ -METHOD-COMBINATION-TYPE │ │ │ │ -#*LONG-METHOD-COMBINATION-FUNCTIONS* │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -APPLICABLE-METHODS │ │ │ │ -7.1/pcl/gcl_pcl │ │ │ │ +IC-FUNCT@i │ │ │ │ +11111111 │ │ │ │ +-METHODS │ │ │ │ +/gcl27-2 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ FORMAT-ARGUMENTS │ │ │ │ FORMAT-STRING │ │ │ │ ,METHOD-COMBINATION-ERROR │ │ │ │ *METHOD-COMBINATION-ERROR* │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_combin.lisp │ │ │ │ @@ -189654,15 +189312,15 @@ │ │ │ │ -FAST-FUNCTION │ │ │ │ QUALIFIERS │ │ │ │ UNPARSED │ │ │ │ INITARGS │ │ │ │ SLOT-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_boot.lisp │ │ │ │ EARLY-MAKE-A-METHOD │ │ │ │ -MAKE-A-METHOD │ │ │ │ +SYSTEM:TAG SLOT7MAKE-A-METHOD │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ GENERIC-FUNCTION-NAME │ │ │ │ QUALIFIERS │ │ │ │ SPECIALIZERS │ │ │ │ INITARGS │ │ │ │ EARLY-ADD-NAMED-METHOD │ │ │ │ ,ENSURE-GENERIC-FUNCTION │ │ │ │ @@ -192422,14 +192080,23 @@ │ │ │ │ ,CHECK-TYPE │ │ │ │ DEFAULT-METHOD-ONLY │ │ │ │ DEFAULT-METHOD-ONLY-CACHE │ │ │ │ CSTRUCT*OBJECT │ │ │ │ .C-STRSTD-SSELF │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_dfun.lisp │ │ │ │ DEFAULT-METHOD-ONLY-CACHE │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::NAMES) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::TYPE-SYMBOLS) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT ANSI-LOOP::OPERATIONS) │ │ │ │ +(#0)->s.s_dbind!=OBJNULL │ │ │ │ +@0;numberp(#0) │ │ │ │ +listp(#0) │ │ │ │ +STRUCTURE │ │ │ │ +@0;(listp(#0) || ({enum type _tp=type_of(#0);_tp>=t_string && _tp<=t_vector;})) │ │ │ │ +type_of(#0)==t_ratio │ │ │ │ (FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:SPICE) │ │ │ │ SYSTEM::CONTEXT class predicate │ │ │ │ SYSTEM::CONTEXT SLOT0 │ │ │ │ SYSTEM::CONTEXT SLOT1 │ │ │ │ SYSTEM::CONTEXT SLOT2 │ │ │ │ SYSTEM::INSTREAM class predicate@i │ │ │ │ SYSTEM::INSTREAM SLOT0 │ │ │ │ @@ -192439,26 +192106,23 @@ │ │ │ │ COMPILER::INFO SLOT0 │ │ │ │ COMPILER::INFO SLOT1 │ │ │ │ COMPILER::INFO SLOT2 │ │ │ │ COMPILER::INFO SLOT3 │ │ │ │ COMPILER::INFO SLOT4 │ │ │ │ COMPILER::INFO SLOT5 │ │ │ │ COMPILER::INFO SLOT6 │ │ │ │ -COMPILER::BINDING class predicaten │ │ │ │ +COMPILER::BINDING class predicateH │ │ │ │ COMPILER::BINDING SLOT0 │ │ │ │ COMPILER::BINDING SLOT1 │ │ │ │ COMPILER::OPAQUE class predicate@i │ │ │ │ COMPILER::VAR class predicate │ │ │ │ COMPILER::VAR SLOT0 │ │ │ │ COMPILER::VAR SLOT1 │ │ │ │ COMPILER::VAR SLOT2 │ │ │ │ COMPILER::VAR SLOT3 │ │ │ │ -COMPILER::VAR SLOT4 │ │ │ │ -COMPILER::VAR SLOT5 │ │ │ │ -COMPILER::VAR SLOT6 │ │ │ │ *METHOD-FUNCTION-PLIST* │ │ │ │ *BUILT-IN-OR-STRUCTURE-WRAPPER-TABLE* │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ PV-TABLEP │ │ │ │ ,BOOLEAN │ │ │ │ @@ -193564,43 +193228,25 @@ │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_dfun.lisp │ │ │ │ DFUN-UPDATE │ │ │ │ (BOUNDP SLOTS) │ │ │ │ REAL-REMOVE-METHOD │ │ │ │ REAL-GET-METHOD │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -METHOD-GROUP-SPECIFIER │ │ │ │ -PARSE-METHOD-GROUP-SPECIFIER │ │ │ │ -METHOD-GROUP-SPECIFIER │ │ │ │ -METHOD-GROUP-SPECIFIER │ │ │ │ -METHOD-GROUP-SPECIFIER- │ │ │ │ -METHOD-GROUP-SPECIFIER │ │ │ │ -PATTERNS │ │ │ │ -,TAGBODY │ │ │ │ - ANSI-LOOPNEXT-LOOP │ │ │ │ -2END-LOOP │ │ │ │ -KEYWORDDESCRIPTION │ │ │ │ -3REQUIRED │ │ │ │ -2END-LOOP │ │ │ │ -,RPLACD/ │ │ │ │ PATTERN │ │ │ │ -PATTERNS │ │ │ │ -,RPLACD1 │ │ │ │ PARSE-QUALIFIER-PATTERN │ │ │ │ +.QUALIFIERS. │ │ │ │ +,SYMBOLP │ │ │ │ PATTERN │ │ │ │ - 2NEXT-LOOP │ │ │ │ -2END-LOOP │ │ │ │ -,RETURN-FROM │ │ │ │ -3DESCRIPTION │ │ │ │ -%MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION │ │ │ │ -,NREVERSE │ │ │ │ -PATTERNS │ │ │ │ -3MOST-SPECIFIC-FIRST │ │ │ │ -3REQUIRED │ │ │ │ -GET-METHOD │ │ │ │ +.QUALIFIERS. │ │ │ │ +QUALIFIER-CHECK-RUNTIME │ │ │ │ +.QUALIFIERS. │ │ │ │ +[In the method group specifier ~S,~%~ │ │ │ │ + ~S isn't a valid qualifier pattern. │ │ │ │ +/gcl_pclSYSTEM:TAG SLOT0GET-METHOD │ │ │ │ FUNCTION-SPECIFIER │ │ │ │ GENERIC-FUNCTION-CLASS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ EXISTING │ │ │ │ FUNCTION-SPECIFIER │ │ │ │ ALL-KEYS │ │ │ │ ENVIRONMENT │ │ │ │ @@ -196147,23 +195793,23 @@ │ │ │ │ PCL.PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,PACKAGE-ERROR │ │ │ │ +,FILE-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,PACKAGE-ERROR │ │ │ │ +,FILE-ERROR │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,PACKAGE-ERROR │ │ │ │ -1(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T)) │ │ │ │ +,FILE-ERROR │ │ │ │ +.(PCL::FAST-METHOD PRINT-OBJECT (FILE-ERROR T)) │ │ │ │ ,MACROLET │ │ │ │ -PV-ENV │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ @@ -196207,15 +195853,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ ,PRINT-OBJECT │ │ │ │ -,PACKAGE-ERROR │ │ │ │ +,FILE-ERROR │ │ │ │ -CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -196238,89 +195884,117 @@ │ │ │ │ ,IGNORABLE │ │ │ │ ,PRINT-OBJECT │ │ │ │ ,*PRINT-ESCAPE* │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -Package error on ~s: │ │ │ │ +File error on ~s: │ │ │ │ -SLOT-BOUNDP-NORMAL │ │ │ │ -,PACKAGE │ │ │ │ -,PACKAGE-ERROR-PACKAGE │ │ │ │ --VECTOR- │ │ │ │ +,PATHNAME │ │ │ │ +,FILE-ERROR-PATHNAME │ │ │ │ ,RETURN- │ │ │ │ -eproduci │ │ │ │ +/gcl_pclp │ │ │ │ PILE-FUN │ │ │ │ -,LOCALLY │ │ │ │ -Package error on ~s: OTE │ │ │ │ -,FIXNUp+ │ │ │ │ -INTERNAL-SIMPLE-CELL-ERRORSYSTEM │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-CELL-ERROR class predicateLE-STD-INS@i │ │ │ │ -N-LISPLA │ │ │ │ +File error on ~s: ! │ │ │ │ +,LAMBDA/ │ │ │ │ +INTERNAL-SIMPLE-PACKAGE-ERRORP │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-PACKAGE-ERROR class predicateD-CALL │ │ │ │ +D-CALL-P │ │ │ │ +LL-CALL- │ │ │ │ +/gcl27-2 │ │ │ │ +ILE-FUNC │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lispXT-(FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T)) │ │ │ │ +LE-VECTOp\ │ │ │ │ +COMMON-LISP::PACKAGE-ERROR class predicateE │ │ │ │ +ALL-METH │ │ │ │ +/gcl27-2 │ │ │ │ NERATORS │ │ │ │ --INSTANC │ │ │ │ -INTERNAL-SIMPLE-UNDEFINED-FUNCTION │ │ │ │ -,SIMPLE-VECTO │ │ │ │ -CONDITIONS::INTERNAL-SIMPLE-UNDEFINED-FUNCTION class predicateNT@i │ │ │ │ -eproduci │ │ │ │ -N-LISPLA │ │ │ │ -PILE-FUN │ │ │ │ -OD-CALL- │ │ │ │ +OD-CALL-p │ │ │ │ NCE-SLOT │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_condition_definitions.lisp │ │ │ │ -,F(FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))PPLY │ │ │ │ -.FUNCTION@i │ │ │ │ -COMMON-LISP::UNDEFINED-FUNCTION class predicate │ │ │ │ -ONS slot │ │ │ │ -MAKE-INSTANCE STANDARD-CLASS (:DIRECT-SUPERCLASSES :DIRECT-SLOTS :DEFINITION-SOURCE) NIL │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT LIMIT-FN) │ │ │ │ -(BOUNDP CONDITIONS::FORMAT-ARGUMENTS) │ │ │ │ -(WRITER CONDITIONS::POSSIBILITIES) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-CONDITION │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT MASK) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SIZE)RGS │ │ │ │ --SET(FAST-READER-METHOD SLOT-OBJECT SYSTEM::TEST-FUNCTION) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-UNBOUND-SLOTINIT-FUNCT │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PROGRAM-ERROR │ │ │ │ -uild/repMAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :NAME :READERS :WRITERS :INITARGS) NIL │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT OVERFLOW)NCTION- │ │ │ │ -TYPE-PREDICATE COMMON-LISP WARNING │ │ │ │ -,QUOTE(FAST-READER-METHOD PACKAGE-ERROR PACKAGE)-SETVV(PCL::FAST-METHOD PRINT-OBJECT (ARITHMETIC-ERROR T))C ENSURE-GEN │ │ │ │ -TYPE-PREDICATE COMMON-LISP SERIOUS-CONDITIONQUOT │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-END-OF-FILEMON-LISPLAM(BOUNDP PATHNAME)DEFGENERIC ENSU │ │ │ │ -TYPE-PREDICATE COMMON-LISP ARITHMETIC-ERROROTE │ │ │ │ -#(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))ENERIC-FUNCTION(FAST-READER-METHOD CONDITIONS::CASE-FAILURE CONDITIONS::NAME)ui(FAST-READER-METHOD SLOT-OBJECT CACHE)cl_pcl_gen(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::FORMAT-CONTROL)UNCTI │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XO(READER STREAM) │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) │ │ │ │ -(CALL REAL-REMOVE-METHOD)S │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-UDISETVV │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT GF-INFO-STATIC-C-A-M-EMF)STANCE)(FAST-WRITER-METHOD SLOT-OBJECT CACHED-COMBINED-INITARGS-FORM-LIST)IC4 │ │ │ │ -,QU(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::TEST-FUNCTION)(DEFGENERI │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FLOATING-POINT-UNDERFLOWE │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::FUNCTION-NAME)cl27-2 │ │ │ │ -TYPE-PREDICATE COMMON-LISP STYLE-WARNING │ │ │ │ -TYPE-PREDICATE COMMON-LISP ERROR(BOUNDP CONDITIONS::POSSIBILITIES)KE-INSTANCE │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::NAME) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PATHNAME-ERRORENERIC M(WRITER CONDITIONS::OPERANDS)TIO(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::POSSIBILITIES),QUOTEP │ │ │ │ --INIT-FUMAKE-INSTANCE STANDARD-METHOD (:QUALIFIERS :SPECIALIZERS :LAMBDA-LIST :DEFINITION-SOURCE :METHOD-SPEC :FAST-FUNCTION :PLIST) NIL(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::OPERANDS)TE │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XODST │ │ │ │ -,QU(FAST-WRITER-METHOD SLOT-OBJECT ACCESSOR-TYPE)/g(FAST-READER-METHOD SLOT-OBJECT NKEYS) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUODHOD │ │ │ │ -/PROCLA(FAST-WRITER-METHOD SLOT-OBJECT METHOD)HOD │ │ │ │ -TYPE-PREDICATE CONDITIONS STACK-OVERFLOW │ │ │ │ -,QU(FAST-WRITER-METHOD SLOT-OBJECT PV-SIZE) │ │ │ │ -TYPE-PREDICATE COMMON-LISP SIMPLE-WARNING)424 │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CALL-METHOD-ARGS)OAD-DEFGENERIC4(FAST-WRITER-METHOD SLOT-OBJECT VECTOR)N-LISPLAM │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PARSE-ERROR │ │ │ │ -NO(FAST-WRITER-METHOD SLOT-OBJECT FIELD)NCTION │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-UNBOUND-VARIABLEneric_ │ │ │ │ -TYPE-PREDICATE COMMON-LISP CONDITION │ │ │ │ +Package error on ~s: -VECTOR │ │ │ │ +INTERNAL-SIMPLE-CELL-ERRORP │ │ │ │ +CONDITIONS::INTERNAL-SIMPLE-CELL-ERROR class predicateST │ │ │ │ +.CM-ARGS │ │ │ │ +CONDITIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +PCLPV-CELL │ │ │ │ +-CVECTOR │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +-CVECTOR │ │ │ │ +-PV-CELL │ │ │ │ +,DECLARE │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +-CVECTOR │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ ,FUNCTION │ │ │ │ -(READER PACKAGE) │ │ │ │ -TYPE-PREDICATE COMMON-LISP PRINT-NOT-READABLE,QU │ │ │ │ +-INSTANCE │ │ │ │ +-INITARGS │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +-IIS-BODY │ │ │ │ +-INITARGS-TAIL │ │ │ │ +-INITARGS-TAIL │ │ │ │ +-INITARGS-TAIL │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +-CVECTOR │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +-CVECTOR │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-..SLOT-UNBOUND.. │ │ │ │ +-%INSTANCE-REF │ │ │ │ +-INITARGS │ │ │ │ +.1/pcl/gcl_pclTYPE-PREDICATE CONDITIONS FPE-XUOI │ │ │ │ +DEFGENER │ │ │ │ +MAKE-INSTANCE FORWARD-REFERENCED-CLASS (:NAME :NAME) NILERIC │ │ │ │ +CONDITIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +DEFAULT-REPORT │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +INIT-FU/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispOTE │ │ │ │ +DEFAULT-REPORT │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::REPORT-FUNCTION))422 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEMOBJECT │ │ │ │ SLOT-NAMES │ │ │ │ ENVIRONMENT │ │ │ │ ,DECLARE │ │ │ │ ENVIRONMENT │ │ │ │ ,MAKE-LOAD-FORM-SAVING-SLOTS │ │ │ │ @@ -196349,280 +196023,912 @@ │ │ │ │ SLOT-NAME │ │ │ │ ,RETURN-FROM │ │ │ │ ,VALUES │ │ │ │ ,ALLOCATE-INSTANCE │ │ │ │ ,FIND-CLASS │ │ │ │ ,CLASS-NAME │ │ │ │ ,NREVERSE │ │ │ │ -ns.l/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispINITIAL │ │ │ │ -TYPE-PREDICATE COMMON-LISP FLOATING-POINT-OVERFLOW │ │ │ │ -,G(FAST-READER-METHOD SHORT-METHOD-COMBINATION IDENTITY-WITH-ONE-ARGUMENT) │ │ │ │ -,QU(BOUNDP CONDITIONS::NAME) │ │ │ │ --SETV(READER CONDITIONS::NAME) │ │ │ │ -(FAST-READER-METHOD FILE-ERROR PATHNAME)E)430 │ │ │ │ -TYPE-PREDICATE COMMON-LISP SIMPLE-CONDITIONERIC4 │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XODIA │ │ │ │ -(WRITER CONDITIONS::DATUM)IZE)43 │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-UOI │ │ │ │ -,GEN(PCL::FAST-METHOD PRINT-OBJECT (FILE-ERROR T))R-(READER CONDITIONS::INSTANCE)duc(FAST-READER-METHOD SLOT-OBJECT CPD-CLASS)functi(FAST-WRITER-METHOD SLOT-OBJECT CACHED-MAKE-INSTANCE-FUNCTION)AR(FAST-READER-METHOD SLOT-OBJECT CACHED-MAKE-INSTANCE-FUNCTION)EN │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-ERRORT(BOUNDP IDENTITY-WITH-ONE-ARGUMENT)DENT │ │ │ │ --SETV(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::OPERANDS)IC UPDATE-D(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::FORMAT-ARGUMENTS) │ │ │ │ -/L(FAST-WRITER-METHOD SLOT-OBJECT CACHED-INITARGS-FORM-LIST)SPLAMB │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-ABORT-FAILUREOTE │ │ │ │ -UPDA(FAST-READER-METHOD UNBOUND-SLOT CONDITIONS::INSTANCE) │ │ │ │ -INITARGS │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-UODIcl/gcl_pcl_gen │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispADER-ME(FAST-READER-METHOD SLOT-OBJECT GF-INFO-SIMPLE-ACCESSOR-TYPE)S │ │ │ │ +TYPE-PREDICATE COMMON-LISP READER-ERRORTE │ │ │ │ +MAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS :LAMBDA-LIST :DEFINITION-SOURCE) NILGp │ │ │ │ +l/gcl_pcMAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:LAMBDA-LIST :DEFINITION-SOURCE) NILHAR │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-CASE-FAILUREUOTE! │ │ │ │ +/M(FAST-READER-METHOD PRINT-NOT-READABLE OBJECT)ET(READER STREAM) │ │ │ │ +(COMBINED-METHOD COMPUTE-EFFECTIVE-METHOD) │ │ │ │ +,QU(FAST-READER-METHOD SLOT-OBJECT CPD-CLASS)DATE-D │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-ODI │ │ │ │ +CONDITIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SLOT-INITIALIZATIONS │ │ │ │ +,MAKE-CONDITION │ │ │ │ +SYSTEMCONDITION-CLASS-P │ │ │ │ +,SIMPLE-TYPE-ERROR │ │ │ │ +KEYWORDDATUM │ │ │ │ +.EXPECTED-TYPE │ │ │ │ + ,SATISFIES │ │ │ │ +-CONDITION-CLASS-P │ │ │ │ +.FORMAT-CONTROL │ │ │ │ +not a condition type: ~s │ │ │ │ +.FORMAT-ARGUMENTS │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +SLOT-INITIALIZATIONS │ │ │ │ +RENT-CLASS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ +#,(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::OPERANDS) │ │ │ │ +,QUOTE**THIS-PACKAGE* │ │ │ │ +(WRITER PACKAGE) │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-END-OF-FILE2 │ │ │ │ +TYPE-PREDICATE COMMON-LISP TYPE-ERROR │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CACHED-MAKE-INSTANCE-FUNCTION)DI │ │ │ │ +TYPE-PREDICATE COMMON-LISP SIMPLE-WARNINGTANCE-F │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STYLE-WARNINGUOTE │ │ │ │ +G/b(FAST-WRITER-METHOD SLOT-OBJECT OVERFLOW)l_pcl_g(FAST-READER-METHOD SLOT-OBJECT SYSTEM::NAME) │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XDIERENT-CLASS │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XOIOR-REDEFINED-CL(FAST-READER-METHOD SLOT-OBJECT LIMIT-FN)/DISCAR(FAST-WRITER-METHOD SLOT-OBJECT MAX-LOCATION) │ │ │ │ +(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))NED-CLASS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +OPTIONS │ │ │ │ +TRACE-METHOD │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +PARSE-METHOD-OR-SPEC │ │ │ │ + TFUNCTION │ │ │ │ +TRACE-METHOD-INTERNAL │ │ │ │ +METHOD-FUNCTION │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +TRACED-METHOD │ │ │ │ +KEYWORDMETHOD │ │ │ │ +-FUNCTION │ │ │ │ + TFUNCTION │ │ │ │ +,REMOVE-METHOD │ │ │ │ +OMETHOD │ │ │ │ +,ADD-METHOD │ │ │ │ +TMETHOD │ │ │ │ +TMETHOD │ │ │ │ +*TRACED-METHODS* │ │ │ │ +,ADJOIN. │ │ │ │ +*TRACED-METHODS* │ │ │ │ +_/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ +,FTRACE-METHOD │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT NKEYS)LAIM-DEFGE(FAST-READER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-T-FUNCTION) │ │ │ │ +(WRITER CONDITIONS::INSTANCE) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::EXPECTED-TYPE) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT CACHED-DEFAULT-INITARGS-FUNCTION) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT PACKAGE) │ │ │ │ +TYPE-PREDICATE COMMON-LISP PRINT-NOT-READABLE │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::FORMAT-ARGUMENTS) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT FIELD) │ │ │ │ +(PCL::FAST-METHOD PRINT-OBJECT (STREAM-ERROR T))(WRITER IDENTITY-WITH-ONE-ARGUMENT) │ │ │ │ +TYPE-PREDICATE COMMON-LISP SIMPLE-TYPE-ERRORLIST(FAST-WRITER-METHOD SLOT-OBJECT VECTOR)HOD-BODY │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-UNBOUND-SLOT │ │ │ │ +O-NEXT-MMAKE-INSTANCE STANDARD-CLASS (:NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DEFINITION-SOURCE :PREDICATE-NAME) NILOD │ │ │ │ +-INSTANC@i │ │ │ │ +-METHOD- │ │ │ │ +,CAL(FAST-READER-METHOD SLOT-OBJECT CACHED-MAKE-INSTANCE-FUNCTION),L(READER OPERATOR)ST-ARG. │ │ │ │ +TYPE-PREDICATE COMMON-LISP PARSE-ERROR │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::TEST-FUNCTION)NTROL │ │ │ │ +&Ins(FAST-READER-METHOD STREAM-ERROR STREAM)RMAT-ARG(PCL::FAST-METHOD PRINT-OBJECT (FILE-ERROR T)),LP │ │ │ │ +/MAKE-INSTANCE STANDARD-METHOD (:QUALIFIERS :SPECIALIZERS :LAMBDA-LIST :FUNCTION :DEFINITION-SOURCE) NILOTE │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XOD111111111111) │ │ │ │ +(READER CONDITIONS::NAME)RROR │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-READER-ERRORONS │ │ │ │ +,PCL-DESCRIBE │ │ │ │ +(FAST-READER-METHOD CELL-ERROR CONDITIONS::NAME)(FAST-READER-METHOD SLOT-OBJECT SIZE) │ │ │ │ +(BOUNDP CONDITIONS::FORMAT-CONTROL),ALLOCATE-INS │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-WARNINGSETVV │ │ │ │ +,QUOT(FAST-WRITER-METHOD SLOT-OBJECT LIMIT-FN)E │ │ │ │ +/FIN(READER CONDITIONS::FORMAT-CONTROL) │ │ │ │ +0/(FAST-METH(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))NCTION │ │ │ │ +,APPLY(FAST-READER-METHOD CONDITIONS::CASE-FAILURE CONDITIONS::POSSIBILITIES)000000000(FAST-WRITER-METHOD SLOT-OBJECT CACHED-INITARGS-FORM-LIST)000000(FAST-READER-METHOD TYPE-ERROR CONDITIONS::EXPECTED-TYPE)INALIZE │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XUO │ │ │ │ +#*00000(FAST-READER-METHOD SLOT-OBJECT CACHED-COMBINED-INITIALIZE-FUNCTION)000000000000(FAST-READER-METHOD SLOT-OBJECT KEY)0000000) │ │ │ │ +/(FAST-READER-METHOD TRACED-METHOD FUNCTION)L │ │ │ │ +!(WRITER OPERATOR)BDA │ │ │ │ + .PV-CELL.(CALL REAL-GET-METHOD),CLASS │ │ │ │ +.R(FAST-WRITER-METHOD TRACED-METHOD GENERIC-FUNCTION)-METHOD-CALL.(FAST-READER-METHOD ARITHMETIC-ERROR CONDITIONS::OPERANDS) │ │ │ │ +,DECL(WRITER CONDITIONS::EXPECTED-TYPE)ANCE │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FLOATING-POINT-OVERFLOWLASS │ │ │ │ +0(PCL::FAST-METHOD PRINT-OBJECT (ARITHMETIC-ERROR T))MACROLET │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT METHOD)V-PARAMET │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STACK-OVERFLOW │ │ │ │ +TYPE-PREDICATE COMMON-LISP FLOATING-POINT-OVERFLOWLIST │ │ │ │ +(READER CONDITIONS::FORMAT-ARGUMENTS)UOTE │ │ │ │ +TYPE-PREDICATE COMMON-LISP FLOATING-POINT-INEXACT │ │ │ │ +(READER PATHNAME)E │ │ │ │ +,QU(FAST-WRITER-METHOD SLOT-OBJECT OWNER)MACROLET (FAST-READER-METHOD SLOT-OBJECT PATHNAME),LIST* │ │ │ │ +(WRITER CONDITIONS::OPERATION)EX(FAST-WRITER-METHOD SLOT-OBJECT GF-INFO-STATIC-C-A-M-EMF) │ │ │ │ +HOD-CALL │ │ │ │ +CNM-ARGMAKE-INSTANCE STANDARD-CLASS (:DIRECT-SUPERCLASSES :DIRECT-SLOTS :DEFINITION-SOURCE) NIL │ │ │ │ +CNM-AR(FAST-READER-METHOD SLOT-OBJECT GF-INFO-STATIC-C-A-M-EMF) │ │ │ │ +TYPE-PREDICATE COMMON-LISP STREAM-ERROR-ARGS │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-OD(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::FUNCTION-NAME) │ │ │ │ +,QUO(FAST-WRITER-METHOD SLOT-OBJECT SIZE) │ │ │ │ CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ IS-WARNING │ │ │ │ ,WARNING │ │ │ │ --DEFGENERIC │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispUS │ │ │ │ -/CURRENT │ │ │ │ -IS-WARNING │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::DATUM)R-DIFFERENT-CL(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::OPERATION)3 │ │ │ │ -(DEFGENE(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::NAME)IT-FUNCTION │ │ │ │ -,(FAST-WRITER-METHOD SLOT-OBJECT MAX-LOCATION)4 │ │ │ │ --FOR-DIF` │ │ │ │ -NSTANCE- │ │ │ │ -TYPE-PREDICATE CONDITIONS ABORT-FAILUREUOTE3 │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-UOD │ │ │ │ -TYPE-PREDICATE COMMON-LISP CELL-ERROR-FOR-REDEFI(FAST-READER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-NIL-FUNCTION)ED-CLASS │ │ │ │ -TYPE-PREDICATE COMMON-LISP DIVISION-BY-ZEROLIST │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-LAMBDA-LIST)th/gcl27-2.SI │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FLOATING-POINT-INEXACT(FAST-READER-METHOD SLOT-OBJECT SYSTEM::NAME)FGE(FAST-READER-METHOD ARITHMETIC-ERROR CONDITIONS::OPERANDS)DIRECT(FAST-READER-METHOD TYPE-ERROR CONDITIONS::EXPECTED-TYPE) │ │ │ │ -(BOUNDP CONDITIONS::OPERATION) │ │ │ │ +,CALL-NEXT/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ +CALL-NEXT-MEIS-WARNING │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT CACHED-NEW-KEYS)(CALL REAL-ENSURE-GF-USING-CLASS--NULL)DECLARE │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-UOICTION │ │ │ │ +,NEXT-ME(FAST-WRITER-METHOD SLOT-OBJECT MASK)LASS │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PRINT-NOT-READABLE │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-UO(FAST-READER-METHOD SLOT-OBJECT SYSTEM::REPORT-FUNCTION)T-ARGUME(WRITER PATHNAME)OTE │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CACHE)ABLE │ │ │ │ +TYPE-PREDICATE PCL SHORT-METHOD-COMBINATIONNCE │ │ │ │ +TYPE-PREDICATE COMMON-LISP STORAGE-CONDITIONCE │ │ │ │ +LLOCATE-0 │ │ │ │ +,QU(BOUNDP CONDITIONS::EXPECTED-TYPE),QUOTE │ │ │ │ +/P(FAST-WRITER-METHOD SLOT-OBJECT CALL-METHOD-ARGS) │ │ │ │ +,CLA(FAST-WRITER-METHOD SLOT-OBJECT CALL-LIST) │ │ │ │ +-SETV(WRITER CONDITIONS::FORMAT-CONTROL)TRUCTOR │ │ │ │ +-S(FAST-READER-METHOD SLOT-OBJECT PV-CELL) │ │ │ │ +,QUOT(BOUNDP METHOD) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::NAME)ST-METHOD ALLOC │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XD(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::POSSIBILITIES)TOR; │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-UD(z │ │ │ │ +STRUCTURMAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :INITFUNCTION :NAME :READERS :WRITERS :INITARGS :TYPE :INITFORM :INITFORM :TYPE :INITARGS :WRITERS :READERS :NAME :INITFUNCTION :CLASS) NILSTRUCTURE-CLASS(FAST-WRITER-METHOD SLOT-OBJECT ACCESSOR-TYPE)E- │ │ │ │ +TYPE-PREDICATE COMMON-LISP FLOATING-POINT-UNDERFLOW-SYMBOL │ │ │ │ +PV-P(FAST-READER-METHOD UNBOUND-SLOT CONDITIONS::INSTANCE) │ │ │ │ +(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T)) │ │ │ │ +MAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS :NAME) NIL,QUOTE │ │ │ │ +:/buildMAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:NAME) NILp │ │ │ │ +//(FAST-M(FAST-READER-METHOD CONDITIONS::CASE-FAILURE CONDITIONS::NAME) │ │ │ │ +TYPE-PREDICATE COMMON-LISP DIVISION-BY-ZERO-INIT(FAST-WRITER-METHOD SLOT-OBJECT CACHED-DEFAULT-INITARGS-FUNCTION) │ │ │ │ +/SLOT-NAMES │ │ │ │ +(CALL REAL-MAKE-METHOD-LAMBDA)AS(FAST-READER-METHOD SLOT-OBJECT OPERATOR)RED-INI │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PACKAGE-ERROR │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XUOD │ │ │ │ +/CHE(READER CONDITIONS::DATUM)TVV │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::TEST-FUNCTION)HECK-INITA(FAST-WRITER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)00000 │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-DIVISION-BY-ZERO000000 │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-UDICK-INITARGS-VAL │ │ │ │ +CONDITIONS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -SYSTEML! │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE. │ │ │ │ -UNDEFMETHOD │ │ │ │ -,DECLARE │ │ │ │ -{METHOD-QUALIFIER}* │ │ │ │ -SPECIALIZERS │ │ │ │ -UNDEFMETHOD │ │ │ │ -UNDEFMETHOD-1 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -UNDEFMETHOD │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUO │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUI │ │ │ │ -CALL-N(WRITER OPERATOR) │ │ │ │ -METHOD-NAME-DE(READER IDENTITY-WITH-ONE-ARGUMENT)E │ │ │ │ -,(WRITER PACKAGE)(FAST-WRITER-METHOD SLOT-OBJECT CPD-AFTER) │ │ │ │ -,QU(READER CONDITIONS::EXPECTED-TYPE)IST │ │ │ │ -(BOUNDP PACKAGE)(FAST-READER-METHOD SIMPLE-CONDITION CONDITIONS::FORMAT-ARGUMENTS). │ │ │ │ -,AND(FAST-READER-METHOD SLOT-OBJECT CACHED-DEFAULT-INITARGS-FUNCTION)M-ARGS │ │ │ │ -,QUOTE(READER CONDITIONS::POSSIBILITIES)EFFECTIVE-METH(FAST-READER-METHOD CELL-ERROR CONDITIONS::NAME)(FAST-READER-METHOD SLOT-OBJECT SYSTEM::INTERACTIVE-FUNCTION)E-M(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) │ │ │ │ -,Q(FAST-READER-METHOD SLOT-OBJECT LINE-SIZE)EST-AR(PCL::FAST-METHOD MAKE-LOAD-FORM (CONDITION)) │ │ │ │ +IS-CONDITION │ │ │ │ +CONDITIONP │ │ │ │ +000000000/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ +/CHECK-INITARIS-CONDITION │ │ │ │ +(BOUNDP CONDITIONS::OPERANDS)000 │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FLOATING-POINT-INVALID-OPERATION1000) (FAST-WRITER-METHOD SLOT-OBJECT CACHED-NEW-KEYS)(BOUNDP CONDITIONS::DATUM)000000(FAST-READER-METHOD TRACED-METHOD GENERIC-FUNCTION)0000000000000 │ │ │ │ +NITARGS- │ │ │ │ +/GDEFMAKE-INSTANCE FORWARD-REFERENCED-CLASS (:NAME) NIL │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XI(z │ │ │ │ +00000000MAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :INITFUNCTION :NAME :READERS :WRITERS :INITARGS :TYPE :INITFORM) NIL000000(READER CONDITIONS::INSTANCE)000(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::FUNCTION-NAME)000000(FAST-WRITER-METHOD SLOT-OBJECT CPD-SUPERS) │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-UODI00000000000000 │ │ │ │ +TYPE-PREDICATE COMMON-LISP PACKAGE-ERROR00000000SI │ │ │ │ +TYPE-PREDICATE COMMON-LISP SIMPLE-CONDITION │ │ │ │ +TYPE-PREDICATE COMMON-LISP SIMPLE-ERROR110111011(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::NAME)000(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::NAME)000000000000) │ │ │ │ +/METHMAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS :NAME :LAMBDA-LIST :DEFINITION-SOURCE) NILK │ │ │ │ +CHECK-IN(PCL::FAST-METHOD MAKE-LOAD-FORM (CONDITION))FUN(FAST-WRITER-METHOD SLOT-OBJECT CPD-AFTER)L │ │ │ │ + ,C(FAST-READER-METHOD SLOT-OBJECT NEXT-METHOD-CALL)ION │ │ │ │ +TYPE-PREDICATE COMMON-LISP CELL-ERRORPLY │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-OI │ │ │ │ @01;((fixnum)((#0)>=(#1)?(#0):#1)) │ │ │ │ immnum_gt(#0,#1)(#0)==(#1) │ │ │ │ @01;((double)((#0)<=(#1)?(#0):#1)) │ │ │ │ immnum_min(#0,#1) │ │ │ │ -@01;((float)((#0)<=(#1)?(#0):#1))` │ │ │ │ +@01;((float)((#0)<=(#1)?(#0):#1))f │ │ │ │ (#0)==(#1) │ │ │ │ (#0)==(#1) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT VALUEP)RGS-2-PLI@i │ │ │ │ --MAKE-INSTANCE EQL-SPECIALIZER (:OBJECT) NILEGAL │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XDILARE │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT PV-CELL)GN │ │ │ │ -,IF(WRITER IDENTITY-WITH-ONE-ARGUMENT)OM │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CPD-COUNT). │ │ │ │ -,S(READER CONDITIONS::OPERANDS)IST │ │ │ │ -TYPE-PREDICATE COMMON-LISP PROGRAM-ERRORPROGRAM- │ │ │ │ -id initi │ │ │ │ -.PV-CELL@i │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT COMPILER::SWITCH) │ │ │ │ -,DECLARE │ │ │ │ - MAP-DEPp\ │ │ │ │ -PCL WRAPPER1 slot READER,IGNORAB │ │ │ │ -ETHOD-CA@i │ │ │ │ -HOD-P-BO0- │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT VALUEP) │ │ │ │ -,RETUR(FAST-WRITER-METHOD SLOT-OBJECT SLOT-NAME-LISTS)(FAST-WRITER-METHOD SLOT-OBJECT KEY)sp │ │ │ │ -7/(FAST(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::OFFSET)T(FAST-WRITER-METHOD SLOT-OBJECT CPD-COUNT) │ │ │ │ -,QUOT(FAST-READER-METHOD SLOT-OBJECT SYSTEM::INCLUDED)QUOTE │ │ │ │ -,QUOTE(FAST-READER-METHOD SLOT-OBJECT COMPILER::LABEL)(FAST-READER-METHOD SLOT-OBJECT CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL)MAP-DEPENDE(FAST-READER-METHOD SLOT-OBJECT ARG-INFO-PRECEDENCE).ARG-INFO │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CACHED-RI-VALID-P)11111111111111(FAST-READER-METHOD SLOT-OBJECT CACHED-VALID-P),(FAST-READER-METHOD SLOT-OBJECT GF-INFO-C-A-M-EMF-STD-P)00000000(FAST-READER-METHOD SLOT-OBJECT SYSTEM:REF)00011(FAST-READER-METHOD SLOT-OBJECT GF-INFO-FAST-MF-P)PLIST-VALUEJ │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT GF-PRECOMPUTE-DFUN-AND-EMF-P)ELL(FAST-READER-METHOD SLOT-OBJECT SYSTEM::INCLUDES)ECLARE │ │ │ │ - ,IGNOR(FAST-READER-METHOD SLOT-OBJECT ARG-INFO-NUMBER-OPTIONAL)METAOBJ(FAST-READER-METHOD SLOT-OBJECT INDEX) │ │ │ │ -METHOD-(FAST-READER-METHOD SLOT-OBJECT SYSTEM::HAS-HOLES) │ │ │ │ -,DECLARE(FAST-READER-METHOD SLOT-OBJECT OWNER)AOBJECT │ │ │ │ -D(FAST-READER-METHOD SLOT-OBJECT CACHED-CONSTANTS)VE-DEPENDENT (D(FAST-READER-METHOD SLOT-OBJECT NLINES) │ │ │ │ -PV-ENV (FAST-READER-METHOD SLOT-OBJECT ARG-INFO-KEY/REST-P) │ │ │ │ -,D(FAST-READER-METHOD SLOT-OBJECT ARG-INFO-METATYPES),LIST* │ │ │ │ -,QUO(FAST-READER-METHOD SLOT-OBJECT OVERFLOW)CAR │ │ │ │ - .P(FAST-READER-METHOD SLOT-OBJECT ARG-INFO-KEYWORDS) │ │ │ │ -,QUO(FAST-READER-METHOD SLOT-OBJECT CALL-METHOD-ARGS)E-CALLS-TYPE-DE(FAST-READER-METHOD SLOT-OBJECT CPD-AFTER)E │ │ │ │ -,L(FAST-READER-METHOD SLOT-OBJECT VECTOR)RMS │ │ │ │ -,M(FAST-READER-METHOD SLOT-OBJECT SYSTEM::FROZEN) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT COMPILER::VAR)HO(FAST-READER-METHOD SLOT-OBJECT SYSTEM::RAW) │ │ │ │ -,LI(FAST-READER-METHOD SLOT-OBJECT COMPILER::UNWIND-EXIT) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::INCLUDED)AOBJECT │ │ │ │ - DEPEND(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::LABEL)(FAST-WRITER-METHOD SLOT-OBJECT CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL)D │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-PRECEDENCE) │ │ │ │ -,LI(FAST-WRITER-METHOD SLOT-OBJECT CACHED-RI-VALID-P)TION │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CACHED-VALID-P) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT GF-INFO-C-A-M-EMF-STD-P)N │ │ │ │ -,QUO(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:REF) │ │ │ │ -,QU(FAST-WRITER-METHOD SLOT-OBJECT GF-INFO-FAST-MF-P),LIST │ │ │ │ -,QUOTE(FAST-WRITER-METHOD SLOT-OBJECT GF-PRECOMPUTE-DFUN-AND-EMF-P)CAL(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::INCLUDES) │ │ │ │ -CNM-ARGS │ │ │ │ -,EQ(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-NUMBER-OPTIONAL)-NO-NEX(FAST-WRITER-METHOD SLOT-OBJECT INDEX)HOD-NAME-D(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::HAS-HOLES)L-NO-NEXT-METH(FAST-WRITER-METHOD SLOT-OBJECT CACHED-CONSTANTS)ION │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-KEY/REST-P),QUOTE │ │ │ │ -,NOT(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-METATYPES)L. │ │ │ │ -CALL-NEX(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO-KEYWORDS)T │ │ │ │ -CNM-ARGS │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::FROZEN)T(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::VAR)UP(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::RAW) │ │ │ │ -NEX(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::UNWIND-EXIT)CALL-NEXT-(FAST-READER-METHOD SLOT-OBJECT WRAPPER0)* │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT WRAPPER1)ETAOBJE(FAST-READER-METHOD SLOT-OBJECT COMPILER::REF-CCB)R./ │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT COMPILER::REF-CLB)MAT-CONTROL │ │ │ │ -&I(FAST-READER-METHOD SLOT-OBJECT COMPILER::NAME)A(FAST-READER-METHOD SLOT-OBJECT SYSTEM::CONC-NAME) │ │ │ │ -,LET(FAST-READER-METHOD SLOT-OBJECT SYSTEM::SIZE)ES │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT PV-SIZE) argumen(FAST-READER-METHOD SLOT-OBJECT LENGTH) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT SYSTEM::NAMED)ER(FAST-READER-METHOD SLOT-OBJECT SYSTEM::SLOT-POSITION)rgument ~s(FAST-READER-METHOD SLOT-OBJECT SYSTEM::PRINT-FUNCTION),CAR. │ │ │ │ -,(FAST-READER-METHOD SLOT-OBJECT SYSTEM:STATICP)E(FAST-READER-METHOD SLOT-OBJECT ACCESSOR-TYPE)EN(FAST-READER-METHOD SLOT-OBJECT CALL-LIST)TF1 │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT SYSTEM::CONSTRUCTORS)LIST-VALUE │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT SYSTEM::SLOT-DESCRIPTIONS) │ │ │ │ -,FU(FAST-READER-METHOD SLOT-OBJECT SLOT-NAME-LISTS)(FAST-READER-METHOD SLOT-OBJECT SYSTEM::OFFSET)c(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER0) REMOVE(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER1) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REF-CCB)ETHOD │ │ │ │ -,QUOTE(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REF-CLB)T-UPDATE-MIXIN(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::NAME)*(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::CONC-NAME)-DEPENDENT (DE(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::SIZE).AR(FAST-WRITER-METHOD SLOT-OBJECT LENGTH)NERIC │ │ │ │ -,(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::NAMED) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::SLOT-POSITION)/(FAST-MET(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::PRINT-FUNCTION)FUNCTION │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:STATICP), │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::DATUM) │ │ │ │ +(WRITER CONDITIONS::OPERANDS)SUP(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::OPERATION) │ │ │ │ +2the clas │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-ERROR │ │ │ │ +(READER METHOD) │ │ │ │ +TYPE-PREDICATE COMMON-LISP CONTROL-ERRORhe super │ │ │ │ +TYPE-PREDICATE COMMON-LISP SERIOUS-CONDITION-TYP │ │ │ │ +TYPE-PREDICATE COMMON-LISP ARITHMETIC-ERRORET │ │ │ │ +(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T)) │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PATHNAME-ERROR00000000(FAST-READER-METHOD SLOT-OBJECT NKEYS)0000000000(BOUNDP STREAM) │ │ │ │ +TYPE-PREDICATE CONDITIONS STACK-OVERFLOWSS-NAME2 │ │ │ │ +TYPE-PREDICATE CONDITIONS INTERNAL-CONDITIONLAMB │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XUDET │ │ │ │ +CLASS-OR-(READER CONDITIONS::EXPECTED-TYPE)CLASS │ │ │ │ +,(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::INTERACTIVE-FUNCTION),CL(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::INSTANCE) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::INTERACTIVE-FUNCTION)pea │ │ │ │ +TYPE-PREDICATE COMMON-LISP STYLE-WARNING │ │ │ │ +REASON(FAST-WRITER-METHOD SLOT-OBJECT GF-INFO-SIMPLE-ACCESSOR-TYPE) cl(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))the(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::EXPECTED-TYPE) │ │ │ │ +,CAR(WRITER METHOD) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::OPERATION)d/reproduc(FAST-READER-METHOD SLOT-OBJECT CACHED-INITARGS-FORM-LIST)E-REAS(FAST-WRITER-METHOD SLOT-OBJECT OPERATOR)CYCLE-R(FAST-READER-METHOD SLOT-OBJECT ARG-INFO-LAMBDA-LIST)00000000000 │ │ │ │ +TYPE-PREDICATE CONDITIONS FPE-XO(BOUNDP CONDITIONS::POSSIBILITIES)00000000000000(z │ │ │ │ +,MAKE-INSTANCE STRUCTURE-DIRECT-SLOT-DEFINITION (:CLASS :NAME :DEFSTRUCT-ACCESSOR-SYMBOL :INTERNAL-READER-FUNCTION :INTERNAL-WRITER-FUNCTION :TYPE :INITFORM :INITFUNCTION) NIL,C(FAST-WRITER-METHOD SLOT-OBJECT CACHED-COMBINED-INITIALIZE-FUNCTION)E │ │ │ │ +OLIST271 │ │ │ │ CLE-REAS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -INSTANCE │ │ │ │ -,DECLARE │ │ │ │ -PRINT-STD-INSTANCE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -INSTANCE │ │ │ │ -0000/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fixup.lisp11111p │ │ │ │ -INTERNAL-CONDITION-FUNCTION-NAME@2;(sethash(#0,#1,#2),#2)IES-DEF(#0)==(#1) │ │ │ │ -PCL::DFUN-INFO SLOT0R │ │ │ │ - BEEPCL::CACHE SLOT10 │ │ │ │ -,LET*PCL::SYSTEM:S-DATA SLOT15 │ │ │ │ -,SETQPCL::CACHE SLOT9PCL::PV-TABLE SLOT3BLOCK │ │ │ │ -,LETPCL::ARG-INFO SLOT7CPD-AFTER │ │ │ │ -,PCL::CACHE SLOT0PCL::SYSTEM:TAG SLOT5 │ │ │ │ - ,IGNORABLPCL::SYSTEM:S-DATA SLOT5 │ │ │ │ -,PCL::INITIALIZE-INFO SLOT7ASE │ │ │ │ -PCL::METHOD-CALL SLOT0SETQ0 │ │ │ │ -,CPCL::SYSTEM:S-DATA SLOT171 │ │ │ │ -,REPCL::ARG-INFO SLOT10-CYCLE │ │ │ │ -CYCPCL::ARG-INFO SLOT9S │ │ │ │ - PCL::CACHE SLOT2PCL::INITIALIZE-INFO SLOT10BODY1PCL::SYSTEM:S-DATA SLOT72 │ │ │ │ -,PROPCL::CLASS-PRECEDENCE-DESCRIPTION SLOT0 │ │ │ │ -,IFPCL::INITIALIZE-INFO SLOT9S │ │ │ │ -PCL::ARG-INFO SLOT0 │ │ │ │ -,LPCL::RESTART SLOT1R │ │ │ │ -REAPCL::INITIALIZE-INFO SLOT0BLOCK │ │ │ │ -PCL::SYSTEM:S-DATA SLOT10PD │ │ │ │ -,CPCL::CACHE SLOT4PCL::INITIALIZE-INFO SLOT12,IF │ │ │ │ -PCL::SYSTEM:S-DATA SLOT9 │ │ │ │ -PCL::CLASS-PRECEDENCE-DESCRIPTION SLOT2 │ │ │ │ --TEPCL::ARG-INFO SLOT2TURN-FROM │ │ │ │ -PCL::SYSTEM:TAG SLOT0IST │ │ │ │ -C2PCL::SYSTEM:S-DATA SLOT0TQ │ │ │ │ -REASPCL::RESTART SLOT3ONS │ │ │ │ -PCL::INITIALIZE-INFO SLOT21 │ │ │ │ -,RPCL::SYSTEM:S-DATA SLOT12 │ │ │ │ -T2PCL::CACHE SLOT6PCL::PV-TABLE SLOT0 │ │ │ │ -PCL::FAST-METHOD-CALL SLOT1S │ │ │ │ -,PCL::ARG-INFO SLOT4 │ │ │ │ -CYPCL::ONE-CLASS SLOT3 │ │ │ │ -0PCL::SYSTEM:TAG SLOT2AR0 │ │ │ │ -,DECLPCL::SYSTEM:S-DATA SLOT2BODY1 │ │ │ │ -PCL::TWO-CLASS SLOT4 │ │ │ │ -,PCL::INITIALIZE-INFO SLOT4OUNT │ │ │ │ -PCL::SYSTEM:S-DATA SLOT14 │ │ │ │ -,SETQPCL::CACHE SLOT8PCL::PV-TABLE SLOT2ETURN-FROM │ │ │ │ -PCL::FAST-METHOD-CALL SLOT3/builPCL::ARG-INFO SLOT6/gcl27-2.7.1/PCL::SYSTEM:TAG SLOT4 │ │ │ │ -/FIND-CYPCL::SYSTEM:S-DATA SLOT4 │ │ │ │ --SETVPCL::INITIALIZE-INFO SLOT6IN-SUPPCL::CHECKING SLOT1VV │ │ │ │ -,QUOTEPCL::CACHE SLOT11e class ~A by fPCL::SYSTEM:S-DATA SLOT16 PCL::ARG-INFO SLOT8 superclass cPCL::CACHE SLOT1PCL::SYSTEM:TAG SLOT6 PCL::SYSTEM:S-DATA SLOT6~A │ │ │ │ --SPCL::INITIALIZE-INFO SLOT8 ~A isPCL::FAST-INSTANCE-BOUNDP SLOT0 PCL::METHOD-CALL SLOT1lass ~A isPCL::RESTART SLOT0UOTE │ │ │ │ -"/CPL-FORPCL::ACCESSOR-DFUN-INFO SLOT1 │ │ │ │ --IPCL::CACHE SLOT3PCL::INITIALIZE-INFO SLOT11E │ │ │ │ -PCL::SYSTEM:S-DATA SLOT8 │ │ │ │ -,TPCL::CLASS-PRECEDENCE-DESCRIPTION SLOT1000000000PCL::ARG-INFO SLOT10000000000000PCL::RESTART SLOT211111110000000PCL::INITIALIZE-INFO SLOT1L-ERROPCL::SYSTEM:S-DATA SLOT11SS-NAMEPCL::CACHE SLOT5PCL::INITIALIZE-INFO SLOT13 │ │ │ │ -PCL PCL::CLASS-PRECEDENCE-DESCRIPTION SLOT3RD-CLASS PCL::FAST-METHOD-CALL SLOT0ENCEDPCL::ARG-INFO SLOT3T │ │ │ │ -CLASS-ORPCL::SYSTEM:TAG SLOT1 │ │ │ │ -,CLASS-NAPCL::SYSTEM:S-DATA SLOT1amed ~S │ │ │ │ -PCL::RESTART SLOT4ASS │ │ │ │ -PCL::INITIALIZE-INFO SLOT3,FUNCTPCL::SYSTEM:S-DATA SLOT13 │ │ │ │ -FINDPCL::CACHE SLOT7PCL::PV-TABLE SLOT1CLASS │ │ │ │ - CPL-EPCL::FAST-METHOD-CALL SLOT2is a PCL::ARG-INFO SLOT5class.~@ │ │ │ │ - PCL::ONE-INDEX-DFUN-INFO SLOT2~APCL::SYSTEM:TAG SLOT3RWARD-CLASSPCL::SYSTEM:S-DATA SLOT3D-CLASS │ │ │ │ -PCL::INITIALIZE-INFO SLOT5S │ │ │ │ -,F/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/SS-OR-NAME │ │ │ │ -,CLINIT-READLINE │ │ │ │ - /build/reproducible-path/gcl27-2.7.1/erclass cha/usr/share/info/ │ │ │ │ - ~%INFO-DATA │ │ │ │ -MKGCMONITOR │ │ │ │ -lass ~A,TKCONNECT │ │ │ │ -*TK-LIBRARY* │ │ │ │ -((#0) ^ (#1)) │ │ │ │ -immnum_xor((#0),(#1))ducible-patget(#0,#1,Cnil) │ │ │ │ -get(#0,#1,#2) │ │ │ │ -gcl_dwtestcases │ │ │ │ -XGCL-DEMO │ │ │ │ -PCL::ARG-INFO class predicate │ │ │ │ -LLABLE-S │ │ │ │ +GNORABLE │ │ │ │ + .IN-SUP │ │ │ │ +d from t │ │ │ │ + │ │ │ │ +ough: ~A │ │ │ │ +ng at th │ │ │ │ +ss ~A is │ │ │ │ + │ │ │ │ +/CPL-FOR │ │ │ │ +PERCLASS │ │ │ │ 00000000 │ │ │ │ -,BLOCARG-INFO SLOT0 │ │ │ │ -ION (FUN │ │ │ │ -PARAMETEARG-INFO SLOT1 │ │ │ │ -CALARG-INFO SLOT2 │ │ │ │ -ECLARATIARG-INFO SLOT3 │ │ │ │ -,ARG-INFO SLOT4 │ │ │ │ -HOD-CALLARG-INFO SLOT5 │ │ │ │ - ARG-INFO SLOT6 │ │ │ │ -ARG-INFO SLOT7 │ │ │ │ -ARG-INFO SLOT8 │ │ │ │ -MAARG-INFO SLOT9 │ │ │ │ --STANDARh │ │ │ │ -G15ARG-INFO SLOT10 │ │ │ │ -PCL::METHOD-CALL class predicate@i │ │ │ │ --NAME-DE │ │ │ │ -D-NAME-D │ │ │ │ - INVOKMETHOD-CALL SLOT0D-FUNCTION │ │ │ │ -,METHOD-CALL SLOT1RGS │ │ │ │ -PCL::CLASS-PRECEDENCE-DESCRIPTION class predicateNEXT-METHOD-P-B@i │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION SLOT0ECLARE │ │ │ │ -MAKE-REA │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION SLOT1 │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION SLOT2 │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION SLOT3 │ │ │ │ -PCL::INITIAL class predicateQUOT@i │ │ │ │ -CALL-NEX │ │ │ │ -RAM-ERRO │ │ │ │ -nt argumDFUN-INFO SLOT0 │ │ │ │ -PCL::DEFAULT-METHOD-ONLY class predicateLE-VALUE@i │ │ │ │ --KEYWORD │ │ │ │ -PCL::CHECKING class predicate │ │ │ │ -/OPTIOCHECKING SLOT1 │ │ │ │ -AST-METH │ │ │ │ -PCL::TWO-CLASS class predicateHO@i │ │ │ │ - ,IGNTWO-CLASS SLOT4 │ │ │ │ -,ACCESSOR-DFUN-INFO SLOT1. │ │ │ │ -E-METHODONE-INDEX-DFUN-INFO SLOT2-METHOD │ │ │ │ -CNM-ARGONE-CLASS SLOT3 │ │ │ │ -L-NO-NEX │ │ │ │ -PCL::ONE-CLASS class predicateDE@i │ │ │ │ --OTHER-K( │ │ │ │ -PCL::ONE-INDEX class predicate │ │ │ │ -PCL::ONE-INDEX-DFUN-INFO class predicate= │ │ │ │ -PCL::N-N class predicate │ │ │ │ -PCL::ACCESSOR-DFUN-INFO class predicate │ │ │ │ -PCL::CACHING class predicate │ │ │ │ -debug_rn │ │ │ │ -PCL::NO-METHODS class predicate │ │ │ │ -PCL::CONSTANT-VALUE class predicate │ │ │ │ -PCL::INITIAL-DISPATCH class predicate │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_fixup.o │ │ │ │ +00000000 │ │ │ │ +01110010 │ │ │ │ +ASS-NAME │ │ │ │ +D-CLASS │ │ │ │ +CLASS-NA │ │ │ │ +ASS-CHAI │ │ │ │ +S-OR-NAM │ │ │ │ +a direct │ │ │ │ +A by fol │ │ │ │ +he direc │ │ │ │ + │ │ │ │ +lass ~A, │ │ │ │ +2.7.1/pc │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +LONG-METHOD-COMBINATION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +COMPUTE-EFFECTIVE-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +LONG-METHOD-COMBINATION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +LONG-METHOD-COMBINATION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +S(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +COMPUTE-EFFECTIVE-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +LONG-METHOD-COMBINATION │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +COMPUTE-EFFECTIVE-METHOD │ │ │ │ +,FUNCALL │ │ │ │ +,GETHASH │ │ │ │ +METHOD-COMBINATION-TYPE │ │ │ │ +#*LONG-METHOD-COMBINATION-FUNCTIONS* │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +APPLICABLE-METHODS │ │ │ │ +,FUNCTION │ │ │ │ +ITER-MET@ │ │ │ │ +FAST-MET@i │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +'(FAST-METHOD DESCRIBE-OBJECT (CLASS T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +PRETTY-CLASS │ │ │ │ +,CLASS-NAME │ │ │ │ +,MACROLET │ │ │ │ ++~&~S is a class, it is an instance of ~S.~% │ │ │ │ +PRETTY-CLASS │ │ │ │ +,CLASS-OF │ │ │ │ +,CLASS-NAME │ │ │ │ +,FIND-CLASS │ │ │ │ +Its proper name is ~S.~% │ │ │ │ +0Its name is ~S, but this is not a proper name.~% │ │ │ │ +#It has no name (the name is NIL).~% │ │ │ │ +The direct superclasses are: ~:S, and the direct~%~ │ │ │ │ + subclasses are: ~:S. The class precedence list is:~%~S~%~ │ │ │ │ + There are ~D methods specialized for this class. │ │ │ │ +,FUNCTION │ │ │ │ +PRETTY-CLASS │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +,FUNCTION │ │ │ │ +PRETTY-CLASS │ │ │ │ +CLASS-DIRECT-SUBCLASSES │ │ │ │ +,FUNCTION │ │ │ │ +PRETTY-CLASS │ │ │ │ +CLASS-PRECEDENCE-LIST │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +#*DESCRIBE-METAOBJECTS-AS-OBJECTS-P* │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispSETF0 │ │ │ │ +(FAST-METHOD DESCRIBE-OBJECT (CLASS T))D │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +SLOTS-TO-INSPECT │ │ │ │ +SLOT-CLASS │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +SLOT-OBJECT │ │ │ │ +SLOT-CLASS │ │ │ │ +7(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +-OBJECT │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SLOTS-TO-INSPECT │ │ │ │ +SLOT-CLASS │ │ │ │ +SLOT-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOTS-TO-INSPECT │ │ │ │ +CLASS-SLOTS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispD │ │ │ │ +,QU(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))E │ │ │ │ +BDA-LIST │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +SLOT-OBJECT │ │ │ │ +-(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +SLOT-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +-OBJECT │ │ │ │ +,DESCRIBE-OBJECT │ │ │ │ +,CLASS-OF │ │ │ │ +SLOTS-TO-INSPECT │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ +INSTANCE-SLOTDS │ │ │ │ +CLASS-SLOTDS │ │ │ │ +OTHER-SLOTDS │ │ │ │ +ADJUST-SLOT-NAME-LENGTH │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ +,LENGTH │ │ │ │ +,SYMBOL-NAME │ │ │ │ +DESCRIBE-SLOT │ │ │ │ + ,&OPTIONAL │ │ │ │ +ALLOCATION │ │ │ │ +~% ~A ~S ~VT ~S │ │ │ │ +ALLOCATION │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ +~% ~A~VT ~S │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,TAGBODY! │ │ │ │ +,TAGBODY │ │ │ │ +ADJUST-SLOT-NAME-LENGTH │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +2INSTANCE │ │ │ │ +INSTANCE-SLOTDS │ │ │ │ +INSTANCE-SLOTDS │ │ │ │ +CLASS-SLOTDS │ │ │ │ +CLASS-SLOTDS │ │ │ │ + ,OTHERWISE │ │ │ │ +OTHER-SLOTDS │ │ │ │ +OTHER-SLOTDS │ │ │ │ +,RETURN-FROM │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ +MAX-SLOT-NAME-LENGTH │ │ │ │ + ~%~S is an instance of class ~S: │ │ │ │ +INSTANCE-SLOTDS │ │ │ │ +1~% The following slots have :INSTANCE allocation: │ │ │ │ +,NREVERSE │ │ │ │ +INSTANCE-SLOTDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,TAGBODY7 │ │ │ │ +DESCRIBE-SLOT │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-VALUE-OR-DEFAULT │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +,RETURN-FROM │ │ │ │ +CLASS-SLOTDS │ │ │ │ +.~% The following slots have :CLASS allocation: │ │ │ │ +,NREVERSE │ │ │ │ +CLASS-SLOTDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,TAGBODY7 │ │ │ │ +DESCRIBE-SLOT │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-VALUE-OR-DEFAULT │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +,RETURN-FROM │ │ │ │ +OTHER-SLOTDS │ │ │ │ +0~% The following slots have allocation as shown: │ │ │ │ +,NREVERSE │ │ │ │ +OTHER-SLOTDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,TAGBODY7 │ │ │ │ +DESCRIBE-SLOT │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-VALUE-OR-DEFAULT │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +,RETURN-FROM │ │ │ │ +;/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lispsp │ │ │ │ +/(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SYSTEMOBJECT │ │ │ │ +DESCRIBE-PACKAGE │ │ │ │ +,PACKAGEP │ │ │ │ +-OBJECT │ │ │ │ +,FIND-PACKAGE │ │ │ │ +~&~S is a ~S.~% │ │ │ │ +,TYPE-OF │ │ │ │ +,PACKAGE-NICKNAMES │ │ │ │ +-OBJECT │ │ │ │ +-You can also call it~@[ ~{~S~^, ~} or~] ~S.~% │ │ │ │ +,BUTLAST │ │ │ │ +INTERNAL-COUNT │ │ │ │ +EXTERNAL-COUNT │ │ │ │ +WPI-PL368 │ │ │ │ +-OBJECT! │ │ │ │ +WPI-P372! │ │ │ │ +WPI-Q373! │ │ │ │ +WPI-QL374 │ │ │ │ +WPI-X369 │ │ │ │ +WPI-Y370 │ │ │ │ +WPI-ILIM371 │ │ │ │ +WPI-ELIM375 │ │ │ │ +WPI-L376! │ │ │ │ +WPI-A377 │ │ │ │ +,DECLARE │ │ │ │ +,INTEGER │ │ │ │ + ,IGNORABLE2345 │ │ │ │ + ,MEMBER-IF │ │ │ │ +,DECLARE │ │ │ │ +,STRING= │ │ │ │ + -INH-MATCH │ │ │ │ +PROG12666 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE: │ │ │ │ +,SYMBOL-NAME │ │ │ │ + -PACK-HASH │ │ │ │ +-PACKAGE-INTERNAL/ │ │ │ │ +-PACKAGE-INTERNAL_SIZE/ │ │ │ │ +-NEXT-VAR │ │ │ │ +-PACKAGE-EXTERNAL/ │ │ │ │ +-PACKAGE-EXTERNAL_SIZE/ │ │ │ │ +-NEXT-VAR │ │ │ │ +KEYWORDINHERITED │ │ │ │ +-NEXT-VAR │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE: │ │ │ │ +-PACKAGE-EXTERNAL037 │ │ │ │ + │ │ │ │ @@ -196802,34 +197108,37 @@ │ │ │ │ OBJECT-FORM │ │ │ │ SLOT-NAME-FORM │ │ │ │ SLOT-BOUNDP-NORMAL │ │ │ │ OBJECT-FORM │ │ │ │ SLOT-NAME-FORM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ SLOT-BOUNDP36 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_std_class.o │ │ │ │ gcl_pcl_fixup.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ SLOT-OBJECT-SIMPLE-TYPEP-FN │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ SLOT-OBJECT-SIMPLE-TYPEP-FN │ │ │ │ -Welcome to xgcl! Try (xgcl-demo) for a demonstration. │ │ │ │ -,DEbuild │ │ │ │ -reproducible-path-OBJECT330 │ │ │ │ -,Lgcl27-2.7.1 │ │ │ │ -gcl_auto_new │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/lsp/gcl_auto_new.lspment ~sXGCL │ │ │ │ -(((int(*)(int,void *))dlputc)(char_code(,CDR03 │ │ │ │ -)->sm.sm_fp)) │ │ │ │ -(((int(*)(int,void *))dlputc)(D-,( │ │ │ │ -)->sm.sm_fp)) │ │ │ │ -gc-monitoro │ │ │ │ -GCL-TK-DEMO │ │ │ │ -terpri(Cnil) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/L! │ │ │ │ +,DEINIT-READLINE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/RROR │ │ │ │ +,QUO/usr/share/info/ │ │ │ │ +EINFO-DATA │ │ │ │ +MKGCMONITOR │ │ │ │ +,TKCONNECT │ │ │ │ +*TK-LIBRARY* │ │ │ │ +((#0) ^ (#1)) │ │ │ │ +immnum_xor((#0),(#1)) │ │ │ │ +get(#0,#1,Cnil) │ │ │ │ +get(#0,#1,#2) │ │ │ │ +gcl_dwtestcases │ │ │ │ +/gcl27-2XGCL-DEMO │ │ │ │ +gcl27-2.7.1 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEML! │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE. │ │ │ │ SLOT-VALUE32 │ │ │ │ OBJECT-FORM │ │ │ │ ,PROGRAM-ERROR │ │ │ │ @@ -196907,112 +197216,35 @@ │ │ │ │ NEW-VALUE-FORM │ │ │ │ SET-SLOT-VALUE-NORMAL │ │ │ │ OBJECT-FORM │ │ │ │ SLOT-NAME-FORM │ │ │ │ NEW-VALUE-FORM │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ SET-SLOT-VALUE34`F │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_std_class.o │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ - ,&OPTIONAL │ │ │ │ -TYPE-MODIFIER │ │ │ │ -TYPES-FROM-ARGUMENTS │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ - METATYPES │ │ │ │ -ARG-INFO │ │ │ │ -GET-GENERIC-FUNCTION-INFO │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - METATYPES │ │ │ │ - TYPES-REV │ │ │ │ -DOTIMES272 │ │ │ │ -,CHECK-TYPE- │ │ │ │ -,INTEGER │ │ │ │ -DOTIMES273 │ │ │ │ -,MOST-POSITIVE-FIXNUM │ │ │ │ -,TAGBODY! │ │ │ │ -,TAGBODY │ │ │ │ - ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -.The function ~S requires at least ~D arguments │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -GENERIC-FUNCTION-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ - ARGUMENTS │ │ │ │ - ARGUMENTS2 │ │ │ │ -TYPE-MODIFIER │ │ │ │ -TYPE-MODIFIER │ │ │ │ - TYPES-REV │ │ │ │ - TYPES-REV │ │ │ │ -,RETURN-FROM │ │ │ │ -,MOST-POSITIVE-FIXNUM │ │ │ │ -,MOST-POSITIVE-FIXNUM │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ - ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -.The function ~S requires at least ~D arguments │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -GENERIC-FUNCTION-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ - ARGUMENTS │ │ │ │ - ARGUMENTS5 │ │ │ │ -TYPE-MODIFIER │ │ │ │ -TYPE-MODIFIER │ │ │ │ - TYPES-REV │ │ │ │ - TYPES-REV │ │ │ │ -,MOST-POSITIVE-FIXNUM │ │ │ │ -,TAGBODY/ │ │ │ │ -,TAGBODY │ │ │ │ - ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -.The function ~S requires at least ~D arguments │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -GENERIC-FUNCTION-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ - ARGUMENTS │ │ │ │ - ARGUMENTS7 │ │ │ │ -TYPE-MODIFIER │ │ │ │ -TYPE-MODIFIER │ │ │ │ - TYPES-REV │ │ │ │ - TYPES-REV │ │ │ │ -,RETURN-FROM │ │ │ │ -,NREVERSE │ │ │ │ - TYPES-REV │ │ │ │ -ARG-INFO │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -TYPES-FROM-ARGUMENTS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,COMPUTE-APPLICABLE-METHODS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -=(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ +:(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -197025,16 +197257,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -197055,58 +197285,44 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,COMPUTE-APPLICABLE-METHODS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,COMPUTE-APPLICABLE-METHODS │ │ │ │ -,VALUES │ │ │ │ -&COMPUTE-APPLICABLE-METHODS-USING-TYPES │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -TYPES-FROM-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - ARGUMENTS │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) │ │ │ │ -gcl_pcl_methods.o │ │ │ │ -ARGUMENTS │ │ │ │ +(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ NEW-SUPER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -197203,32 +197419,32 @@ │ │ │ │ NEW-SUPER │ │ │ │ *THE-CLASS-T* │ │ │ │ ,CLASS-OF │ │ │ │ ,CLASS-OF │ │ │ │ NEW-SUPER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ (FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS)) │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_fsc.o │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - PCL-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-FINALIZED-P │ │ │ │ - PCL-CLASS │ │ │ │ -,DECLARE │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - PCL-CLASS │ │ │ │ -+(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS)) │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +8(FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -197269,88 +197485,141 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-FINALIZED-P │ │ │ │ - PCL-CLASS │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -CLASS-FINALIZED-P │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -,CLASS4 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP5 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL WRAPPER slot READER │ │ │ │ + ,IGNORABLE │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ +*THE-CLASS-T* │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS)) │ │ │ │ -gcl_pcl_std_class.o │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ + ,&OPTIONAL │ │ │ │ +TYPE-MODIFIER │ │ │ │ +TYPES-FROM-ARGUMENTS │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ + METATYPES │ │ │ │ +ARG-INFO │ │ │ │ +GET-GENERIC-FUNCTION-INFO │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ + METATYPES │ │ │ │ + TYPES-REV │ │ │ │ +DOTIMES272 │ │ │ │ +,CHECK-TYPE- │ │ │ │ +,INTEGER │ │ │ │ +DOTIMES273 │ │ │ │ +,MOST-POSITIVE-FIXNUM │ │ │ │ +,TAGBODY! │ │ │ │ +,TAGBODY │ │ │ │ + ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +.The function ~S requires at least ~D arguments │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +GENERIC-FUNCTION-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ + ARGUMENTS │ │ │ │ + ARGUMENTS2 │ │ │ │ +TYPE-MODIFIER │ │ │ │ +TYPE-MODIFIER │ │ │ │ + TYPES-REV │ │ │ │ + TYPES-REV │ │ │ │ +,RETURN-FROM │ │ │ │ +,MOST-POSITIVE-FIXNUM │ │ │ │ +,MOST-POSITIVE-FIXNUM │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ + ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +.The function ~S requires at least ~D arguments │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +GENERIC-FUNCTION-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ + ARGUMENTS │ │ │ │ + ARGUMENTS5 │ │ │ │ +TYPE-MODIFIER │ │ │ │ +TYPE-MODIFIER │ │ │ │ + TYPES-REV │ │ │ │ + TYPES-REV │ │ │ │ +,MOST-POSITIVE-FIXNUM │ │ │ │ +,TAGBODY/ │ │ │ │ +,TAGBODY │ │ │ │ + ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +.The function ~S requires at least ~D arguments │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +GENERIC-FUNCTION-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ + ARGUMENTS │ │ │ │ + ARGUMENTS7 │ │ │ │ +TYPE-MODIFIER │ │ │ │ +TYPE-MODIFIER │ │ │ │ + TYPES-REV │ │ │ │ + TYPES-REV │ │ │ │ +,RETURN-FROM │ │ │ │ +,NREVERSE │ │ │ │ + TYPES-REV │ │ │ │ +ARG-INFO │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +TYPES-FROM-ARGUMENTS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -,DECLARE │ │ │ │ +,COMPUTE-APPLICABLE-METHODS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -'(FAST-METHOD SPECIALIZER-CLASS (CLASS)) │ │ │ │ + ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +=(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -197363,15 +197632,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -197392,65 +197662,75 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ +,COMPUTE-APPLICABLE-METHODS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ + ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,COMPUTE-APPLICABLE-METHODS │ │ │ │ +,VALUES │ │ │ │ +&COMPUTE-APPLICABLE-METHODS-USING-TYPES │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +TYPES-FROM-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + ARGUMENTS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-CLASS (CLASS)) │ │ │ │ -SYSTEM OBJECT slot READER │ │ │ │ +(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) │ │ │ │ +gcl_pcl_methods.o │ │ │ │ +ARGUMENTS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -1(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +1(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -197463,15 +197743,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -197492,206 +197772,99 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -pv-table │ │ │ │ -SPECIALIZER │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -SPECIALIZER │ │ │ │ -3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -SPECIALIZER │ │ │ │ -3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -SPECIALIZER │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -,CLASS-OF │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM4 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMESYSTEM OBJECT slot READER │ │ │ │ -SPECIALIZER4 │ │ │ │ +,METHOD │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +PLIST-VALUE │ │ │ │ +QUALIFIERS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) │ │ │ │ +(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ - SLOT-NAME │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -,SLOT-UNBOUND │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ - SLOT-NAME │ │ │ │ -INSTANCE │ │ │ │ -"(FAST-METHOD SLOT-UNBOUND (T T T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -INSTANCE │ │ │ │ - SLOT-NAME │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -,SLOT-UNBOUND │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ - SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +SPECIALIZERS │ │ │ │ + ,&OPTIONAL │ │ │ │ +REAL-GET-METHOD │ │ │ │ +GENERIC-FUNCTION-METHODS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +SPECIALIZERS │ │ │ │ +ARG-INFO-METATYPES │ │ │ │ +GF-ARG-INFO │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ - SLOT-NAME │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +6Specializer list ~S does not match generic function ~S │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZERS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +DOLIST271 │ │ │ │ +GENERIC-FUNCTION-METHODS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,SLOT-UNBOUND │ │ │ │ -,UNBOUND-SLOT │ │ │ │ - SLOT-NAME │ │ │ │ -1INSTANCE │ │ │ │ -INSTANCE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-UNBOUND (T T T)) │ │ │ │ -gcl_pcl_slots.o │ │ │ │ -PCL DIRECT-METHODS slot READER │ │ │ │ + ,IGNORABLE. │ │ │ │ +,TAGBODY! │ │ │ │ +QUALIFIERS │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +,FUNCTION │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +SPECIALIZERS │ │ │ │ +METHOD-SPECIALIZERS │ │ │ │ +,METHOD │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +9No method on ~S with qualifiers ~:S and specializers ~:S. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +SPECIALIZERS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_init.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ + PCL-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +CLASS-FINALIZED-P │ │ │ │ + PCL-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -:(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS)) │ │ │ │ + PCL-CLASS │ │ │ │ ++(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -197704,15 +197877,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -197733,139 +197905,89 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +CLASS-FINALIZED-P │ │ │ │ + PCL-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ pv-table │ │ │ │ -SPECIALIZER │ │ │ │ .SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ -SPECIALIZER │ │ │ │ 3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -SPECIALIZER │ │ │ │ 3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ -SPECIALIZER │ │ │ │ ,OTHERWISE │ │ │ │ 3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ -SPECIALIZER │ │ │ │ +CLASS-FINALIZED-P │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE4 │ │ │ │ ,DECLARE │ │ │ │ VARIABLE-REBINDING4 │ │ │ │ -SPECIALIZER4 │ │ │ │ +,CLASS4 │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM7 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER7 │ │ │ │ -3INFER-TP: │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM: │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP: │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -8PCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER: │ │ │ │ -,MACROLET │ │ │ │ -ITERATEGATHER │ │ │ │ -.GATHERING1. │ │ │ │ -DOLIST271 │ │ │ │ -3INFER-TP@ │ │ │ │ +3INFER-TP5 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM@ │ │ │ │ +,FIXNUM5 │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP@ │ │ │ │ +3INFER-TP5 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -8PCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER@ │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE? │ │ │ │ -,TAGBODY! │ │ │ │ -,RPLACD= │ │ │ │ -METHOD-GENERIC-FUNCTION │ │ │ │ -,RETURN-FROM │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE9 │ │ │ │ -,RPLACD9;; │ │ │ │ +SLOT-ACCESSOR-NAMEPCL WRAPPER slot READER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS)) │ │ │ │ +gcl_pcl_std_class.o │ │ │ │ +PCL ACCESSOR-FLAGS slot READER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -=(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER)) │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +?(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -197878,15 +198000,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -197907,147 +198028,110 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -*CLASS-EQ-SPECIALIZER-METHODS* │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ +,OPTIMIZE │ │ │ │ +5INFER-TP6 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM6 │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP6 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL ACCESSOR-FLAGS slot READER │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -8(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ +*SLOTD-ALL-FUNCTION-STD-P* │ │ │ │ +*SLOTD-READER-FUNCTION-STD-P* │ │ │ │ +*SLOTD-WRITER-FUNCTION-STD-P* │ │ │ │ +*SLOTD-BOUNDP-FUNCTION-STD-P* │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ +,FIXNUM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +SLOT-BOUNDP-USING-CLASS-DFUN │ │ │ │ +,FUNCALL │ │ │ │ +SLOT-DEFINITION-BOUNDP-FUNCTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +SLOT-BOUNDP-USING-CLASS-DFUN │ │ │ │ +gcl_pcl_slots.o │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SET-WRAPPER │ │ │ │ +STD-INSTANCE-P │ │ │ │ +STR-REFSET304 │ │ │ │ +STR-REFSET305 │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +/C-STRSTD-SSELF- │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,RPLACA011 │ │ │ │ +What kind of instance is this? │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +SET-WRAPPER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +OWRAPPER │ │ │ │ +NWRAPPER │ │ │ │ +INSTANCE │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -*EQL-SPECIALIZER-METHODS* │ │ │ │ +OWRAPPER │ │ │ │ +FLUSH-CACHE-TRAP │ │ │ │ +SET-WRAPPER │ │ │ │ +INSTANCE │ │ │ │ +NWRAPPER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER)) │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ -PCL PROTOTYPE slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ @@ -198144,14 +198228,15 @@ │ │ │ │ CONSTRUCTOR │ │ │ │ ,FUNCALL │ │ │ │ CONSTRUCTOR │ │ │ │ &Can't allocate an instance of class ~S │ │ │ │ ,CLASS-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ (FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS)) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_fsc.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ @@ -198242,32 +198327,31 @@ │ │ │ │ Retry call │ │ │ │ ZNo matching method for the generic-function ~S,~@ │ │ │ │ when called with arguments ~S. │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ (FAST-METHOD NO-APPLICABLE-METHOD (T)) │ │ │ │ -PCL ACCESSOR-FLAGS slot READER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +GENERIC-FUNCTION-LAMBDA-LIST │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -?(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +=(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -198308,93 +198392,59 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +GENERIC-FUNCTION-LAMBDA-LIST │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -5INFER-TP6 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM6 │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP6 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL ACCESSOR-FLAGS slot READER │ │ │ │ -,DECLARE │ │ │ │ -*SLOTD-ALL-FUNCTION-STD-P* │ │ │ │ -*SLOTD-READER-FUNCTION-STD-P* │ │ │ │ -*SLOTD-WRITER-FUNCTION-STD-P* │ │ │ │ -*SLOTD-BOUNDP-FUNCTION-STD-P* │ │ │ │ -,DECLARE │ │ │ │ -,FIXNUM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ -PCL FAST-FUNCTION slot READER │ │ │ │ +GENERIC-FUNCTION-LAMBDA-LIST │ │ │ │ +GF-LAMBDA-LIST │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) │ │ │ │ +PCL ARG-INFO slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -METHOD-FUNCTION │ │ │ │ -,STANDARD-METHOD │ │ │ │ +GF-FAST-METHOD-FUNCTION-P │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -/(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD)) │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +C(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -198407,15 +198457,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -198436,16 +198485,16 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-FUNCTION │ │ │ │ -,STANDARD-METHOD │ │ │ │ +GF-FAST-METHOD-FUNCTION-P │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -198459,87 +198508,62 @@ │ │ │ │ 0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,METHOD │ │ │ │ pv-table │ │ │ │ -,METHOD │ │ │ │ .SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ 3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ 3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ 3INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -METHOD-FUNCTION │ │ │ │ -,DECLARE! │ │ │ │ +GF-FAST-METHOD-FUNCTION-P │ │ │ │ +GF-INFO-FAST-MF-P │ │ │ │ +,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM7 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP FUNCTION slot READER │ │ │ │ -,METHOD7 │ │ │ │ -3INFER-TP9 │ │ │ │ +3INFER-TP4 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM9 │ │ │ │ +,FIXNUM4 │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP9 │ │ │ │ +3INFER-TP4 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -8PCL FAST-FUNCTION slot READER │ │ │ │ -,METHOD9 │ │ │ │ -)~S doesn't seem to have a method-function │ │ │ │ -,METHOD │ │ │ │ -.NEW-VALUE. │ │ │ │ -"METHOD-FUNCTION-FROM-FAST-FUNCTION │ │ │ │ -,DECLARE6 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM: │ │ │ │ -.NEW-VALUE. │ │ │ │ - 8COMMON-LISP FUNCTION slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL ARG-INFO slot READER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD)) │ │ │ │ +(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) │ │ │ │ pv-table │ │ │ │ -PCL ARG-INFO slot READER │ │ │ │ +PCL FAST-FUNCTION slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -GF-FAST-METHOD-FUNCTION-P │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +METHOD-FUNCTION │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -C(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +/(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -198552,14 +198576,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -198580,16 +198605,16 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -GF-FAST-METHOD-FUNCTION-P │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +METHOD-FUNCTION │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -198603,61 +198628,87 @@ │ │ │ │ 0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +,METHOD │ │ │ │ pv-table │ │ │ │ +,METHOD │ │ │ │ .SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ 3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ 3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ 3INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -GF-FAST-METHOD-FUNCTION-P │ │ │ │ -GF-INFO-FAST-MF-P │ │ │ │ -,DECLARE │ │ │ │ +METHOD-FUNCTION │ │ │ │ +,DECLARE! │ │ │ │ ,OPTIMIZE │ │ │ │ -3INFER-TP4 │ │ │ │ +3INFER-TP7 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM4 │ │ │ │ +,FIXNUM7 │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP4 │ │ │ │ +3INFER-TP7 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL ARG-INFO slot READER │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP FUNCTION slot READER │ │ │ │ +,METHOD7 │ │ │ │ +3INFER-TP9 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM9 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP9 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +8PCL FAST-FUNCTION slot READER │ │ │ │ +,METHOD9 │ │ │ │ +)~S doesn't seem to have a method-function │ │ │ │ +,METHOD │ │ │ │ +.NEW-VALUE. │ │ │ │ +"METHOD-FUNCTION-FROM-FAST-FUNCTION │ │ │ │ +,DECLARE6 │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM: │ │ │ │ +.NEW-VALUE. │ │ │ │ + 8COMMON-LISP FUNCTION slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD)) │ │ │ │ +REAL-METHOD-COMBINATION-ERROR │ │ │ │ pv-table │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +INSTANCE │ │ │ │ + SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-DEFAULT-INITARGS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +,SLOT-UNBOUND │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -5(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS)) │ │ │ │ + SLOT-NAME │ │ │ │ +INSTANCE │ │ │ │ +"(FAST-METHOD SLOT-UNBOUND (T T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -198670,14 +198721,17 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ +INSTANCE │ │ │ │ + SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -198698,338 +198752,58 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-DEFAULT-INITARGS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +,SLOT-UNBOUND │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +INSTANCE │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INSTANCE │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INSTANCE │ │ │ │ + SLOT-NAME │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -CLASS-DEFAULT-INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -CLASS-DEFAULT-INITARGS │ │ │ │ -SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -SLOT-CLASS │ │ │ │ -1(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-DEFAULT-INITARGS │ │ │ │ -SLOT-CLASS │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -CLASS-DEFAULT-INITARGS │ │ │ │ -PLIST-VALUE │ │ │ │ -DEFAULT-INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -NO-PRIMARY-METHOD │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -;(FAST-METHOD NO-PRIMARY-METHOD (STANDARD-GENERIC-FUNCTION)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -NO-PRIMARY-METHOD │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -.REST-ARG. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -NO-PRIMARY-METHOD │ │ │ │ -Try again. │ │ │ │ -FNo primary method when calling generic function ~S with arguments ~S~% │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ -(FAST-METHOD NO-PRIMARY-METHOD (STANDARD-GENERIC-FUNCTION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -%NO-PRIMARY-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -NO-PRIMARY-METHOD │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -GENERIC-FUNCTION-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -=(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -GENERIC-FUNCTION-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -GENERIC-FUNCTION-LAMBDA-LIST │ │ │ │ -GF-LAMBDA-LIST │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -CLASS-CAN-PRECEDE-P │ │ │ │ -CLASS-CAN-PRECEDE-LIST │ │ │ │ +,SLOT-UNBOUND │ │ │ │ +,UNBOUND-SLOT │ │ │ │ + SLOT-NAME │ │ │ │ +1INSTANCE │ │ │ │ +INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOT-UNBOUND (T T T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +CLASS-CAN-PRECEDE-P │ │ │ │ +CLASS-CAN-PRECEDE-LIST │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ DNET-METHODS-P │ │ │ │ METHODS │ │ │ │ UNORDERED-METHODS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ DNET-METHODS-P │ │ │ │ @@ -199324,771 +199098,14 @@ │ │ │ │ ,DECLARE │ │ │ │ SLOT-VALUE-USING-CLASS-DFUN │ │ │ │ ,FUNCALL │ │ │ │ SLOT-DEFINITION-READER-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ SLOT-VALUE-USING-CLASS-DFUN │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -SET-WRAPPER │ │ │ │ -STD-INSTANCE-P │ │ │ │ -STR-REFSET304 │ │ │ │ -STR-REFSET305 │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -/C-STRSTD-SSELF- │ │ │ │ -FUNCALLABLE-INSTANCE-P │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,RPLACA011 │ │ │ │ -What kind of instance is this? │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -SET-WRAPPER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -OWRAPPER │ │ │ │ -NWRAPPER │ │ │ │ -INSTANCE │ │ │ │ -,DECLARE │ │ │ │ -OWRAPPER │ │ │ │ -FLUSH-CACHE-TRAP │ │ │ │ -SET-WRAPPER │ │ │ │ -INSTANCE │ │ │ │ -NWRAPPER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SWAP-WRAPPERS-AND-SLOTS │ │ │ │ -,MACROLET │ │ │ │ -INTERRUPTS-ON │ │ │ │ -INTERRUPTS-OFF │ │ │ │ -STD-INSTANCE-P │ │ │ │ -%STD-INSTANCE-WRAPPER │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -STR-REFSET304 │ │ │ │ -STR-REFSET305 │ │ │ │ -%STD-INSTANCE-WRAPPER │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -/C-STRSTD-SSELF- │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -/*OBJECT │ │ │ │ -/C-STRSTD-SSELF- │ │ │ │ -/*OBJECT │ │ │ │ -/C-STRSTD-SSELF- │ │ │ │ -/*OBJECT │ │ │ │ -/C-STRSTD-SSELF- │ │ │ │ -FUNCALLABLE-INSTANCE-P │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,RPLACA011 │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE2 │ │ │ │ -,RPLACA233 │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,RPLACA455 │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,RPLACA677 │ │ │ │ -What kind of instance is this? │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -SWAP-WRAPPERS-AND-SLOTS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_init.o │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - CALL-LIST │ │ │ │ -CHECK-INITARGS-VALUES │ │ │ │ -METHODS │ │ │ │ -,FUNCTION │ │ │ │ - ,COPY-LIST │ │ │ │ -,COMPUTE-APPLICABLE-METHODS │ │ │ │ -GDEFINITION │ │ │ │ - CALL-LIST │ │ │ │ -,FUNCTION │ │ │ │ -,APPEND │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-INITARGS │ │ │ │ -CLASS-SLOTS │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -ALLOW-OTHER-KEYS │ │ │ │ -ANALYZE-LAMBDA-LIST │ │ │ │ -EARLY-METHOD-LAMBDA-LIST │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,DECLARE │ │ │ │ -ALLOW-OTHER-KEYS │ │ │ │ -,RETURN-FROM │ │ │ │ -CHECK-INITARGS-VALUES │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -REMOVE-DIRECT-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -1(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ -,METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -REMOVE-DIRECT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -pv-table │ │ │ │ -SPECIALIZER │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -SPECIALIZER │ │ │ │ -5INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -SPECIALIZER │ │ │ │ -5INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -SPECIALIZER │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -REMOVE-DIRECT-METHOD │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING6 │ │ │ │ -SPECIALIZER6 │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -5INFER-TP9 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM9 │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP9 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER9 │ │ │ │ -5INFER-TP< │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM< │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP< │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -:PCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER< │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE7 │ │ │ │ -,RPLACA7;; │ │ │ │ -5INFER-TP> │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM> │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP> │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -:PCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER> │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE= │ │ │ │ -,RPLACD=?? │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -REMOVE-DIRECT-METHOD │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -C(FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ -,METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -REMOVE-DIRECT-METHOD │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -REMOVE-DIRECT-METHOD │ │ │ │ -SYSTEMOBJECT │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ -SPECIALIZER │ │ │ │ -,GETHASH │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,RPLACA677 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE8 │ │ │ │ -,RPLACD899 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) │ │ │ │ -gcl_pcl_fsc.o │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOTS-FETCHER │ │ │ │ -,STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-CLASS │ │ │ │ -,(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOTS-FETCHER │ │ │ │ -,STANDARD-CLASS │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOTS-FETCHER │ │ │ │ -STD-INSTANCE-SLOTS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS)) │ │ │ │ -SLOTS-FETCHER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOTS-FETCHER │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -8(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOTS-FETCHER │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOTS-FETCHER │ │ │ │ -FSC-INSTANCE-SLOTS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ -(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -,STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-CLASS │ │ │ │ -.(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -,STANDARD-CLASS │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -STD-INSTANCE-WRAPPER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS)) │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -:(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -WRAPPER-FETCHER │ │ │ │ -FSC-INSTANCE-WRAPPER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ -(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ -COMMON-LISP::ARRAY class predicate │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ @@ -200096,24 +199113,24 @@ │ │ │ │ STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ ,STANDARD-OBJECT │ │ │ │ ,DECLARE │ │ │ │ "STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ STD-CLASS │ │ │ │ ,STANDARD-OBJECT │ │ │ │ "STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ "STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,STANDARD-OBJECT │ │ │ │ STD-CLASS │ │ │ │ -h(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +c(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -200155,15 +199172,15 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ STD-CLASS │ │ │ │ ,STANDARD-OBJECT │ │ │ │ "STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ @@ -200186,57 +199203,56 @@ │ │ │ │ 2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ LOCATION │ │ │ │ SLOT-DEFINITION-LOCATION │ │ │ │ LOCATION │ │ │ │ -INFER-TP │ │ │ │ LOCATION │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ STD-INSTANCE-P │ │ │ │ -OBJECT │ │ │ │ %STD-INSTANCE-WRAPPER │ │ │ │ CHECK-WRAPPER-VALIDITY │ │ │ │ +-OBJECT │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -OBJECT │ │ │ │ LOCATION │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ FUNCALLABLE-INSTANCE-P │ │ │ │ -OBJECT │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ CHECK-WRAPPER-VALIDITY │ │ │ │ +-OBJECT │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ -OBJECT │ │ │ │ LOCATION │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ What kind of instance is this? │ │ │ │ -INFER-TP │ │ │ │ LOCATION │ │ │ │ #*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ LOCATION │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE7 │ │ │ │ -,RPLACD788 │ │ │ │ ,OTHERWISE │ │ │ │ -INFER-TP │ │ │ │ LOCATION │ │ │ │ #*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ - so it can't be written by the default ~s method. │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ + so it can't be read by the default ~s method. │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +,SLOT-UNBOUND │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -200245,24 +199261,24 @@ │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ ,STRUCTURE-OBJECT │ │ │ │ ,DECLARE │ │ │ │ #STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ ,STRUCTURE-OBJECT │ │ │ │ #STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ #STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,STRUCTURE-OBJECT │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ -p(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +k(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -200304,15 +199320,15 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ ,STRUCTURE-OBJECT │ │ │ │ #STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ @@ -200335,198 +199351,525 @@ │ │ │ │ 2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ - Structure slots can't be unbound │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))@$ │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ -SLOT-BOUNDP-USING-CLASS-DFUN │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +,FUNCTION │ │ │ │ +(SLOT-DEFINITION-INTERNAL-READER-FUNCTION │ │ │ │ ,FUNCALL │ │ │ │ -SLOT-DEFINITION-BOUNDP-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -SLOT-BOUNDP-USING-CLASS-DFUN │ │ │ │ +,FUNCTION │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +,SLOT-UNBOUND │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ + SLOT-NAME │ │ │ │ +,SLOT-VALUE │ │ │ │ +,CLASS-OF │ │ │ │ +SLOT-DEFINITION │ │ │ │ +FIND-SLOT-DEFINITION │ │ │ │ + SLOT-NAME │ │ │ │ +SLOT-DEFINITION │ │ │ │ +,SLOT-MISSING │ │ │ │ + SLOT-NAME │ │ │ │ +,SLOT-VALUE │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +SLOT-DEFINITION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +SLOT-VALUE-NORMAL │ │ │ │ +SET-SLOT-VALUE-NORMAL │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ +DOLIST271 │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,STANDARD-OBJECT │ │ │ │ - STD-CLASS │ │ │ │ -d(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ +CAN-PRECEDE-LIST │ │ │ │ +,ADJOIN/ │ │ │ │ +,SLOT-VALUE01 │ │ │ │ ,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ + ,IGNORABLE01 │ │ │ │ +SET-SLOT-VALUE012 │ │ │ │ +,RETURN-FROM │ │ │ │ +UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +UPDATE-CPL │ │ │ │ +CLASS-FINALIZED-P │ │ │ │ +CLASS-PRECEDENCE-LIST │ │ │ │ +FORCE-CACHE-FLUSHES │ │ │ │ +SET-SLOT-VALUE │ │ │ │ +CLASS-PRECEDENCE-LIST │ │ │ │ +UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +UPDATE-CPL │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_cpl.o │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +FIND-SUPERCLASS-CHAIN │ │ │ │ +,RETURN-FROM │ │ │ │ +FIND-SUPERCLASS-CHAIN │ │ │ │ +,NREVERSE │ │ │ │ +DOLIST271 │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ ,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ +,RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +FIND-SUPERCLASS-CHAIN │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +FORMAT-STRING │ │ │ │ +FORMAT-ARGS │ │ │ │ + CPL-ERROR │ │ │ │ +>While computing the class precedence list of the class ~A.~%~A │ │ │ │ +,CLASS-NAME │ │ │ │ +named ~S │ │ │ │ +,CLASS-NAME │ │ │ │ +,FUNCTION │ │ │ │ +FORMAT-STRING │ │ │ │ +FORMAT-ARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPL-ERROR │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +FORWARD-CLASS │ │ │ │ +"CPL-FORWARD-REFERENCED-CLASS-ERROR │ │ │ │ +CLASS-OR-NAME │ │ │ │ +,CLASS-NAME │ │ │ │ +named ~S │ │ │ │ +,CLASS-NAME │ │ │ │ +,FUNCTION │ │ │ │ +CLASS-OR-NAME │ │ │ │ +FIND-SUPERCLASS-CHAIN │ │ │ │ +FORWARD-CLASS │ │ │ │ + CPL-ERROR │ │ │ │ +SThe class ~A is a forward referenced class.~@ │ │ │ │ + The class ~A is ~A. │ │ │ │ +CLASS-OR-NAME │ │ │ │ +FORWARD-CLASS │ │ │ │ +CLASS-OR-NAME │ │ │ │ +FORWARD-CLASS │ │ │ │ +#a direct superclass of the class ~A │ │ │ │ +CLASS-OR-NAME │ │ │ │ +reached from the class ~A by following~@ │ │ │ │ + the direct superclass chain through: ~A~ │ │ │ │ + ~% ending at the class ~A │ │ │ │ +CLASS-OR-NAME │ │ │ │ +~{~% the class ~A,~} │ │ │ │ +,BUTLAST │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPL-FORWARD-REFERENCED-CLASS-ERROR │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ +,OPTIMIZE │ │ │ │ +,CHECK-TYPE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ + CPD-CLASS │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +.C-STRSTD-SSELF │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPD-CLASS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +MAKE-CPD │ │ │ │ + CPD-CLASS │ │ │ │ +CPD-SUPERS │ │ │ │ + CPD-AFTER │ │ │ │ + CPD-COUNT │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +SYSTEMMAKE-STRUCTURE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ + CPD-CLASS │ │ │ │ +CPD-SUPERS │ │ │ │ + CPD-AFTER │ │ │ │ + CPD-COUNT │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +MAKE-CPD │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +COMPUTE-STD-CPL-PHASE-1 │ │ │ │ +NCLASSES │ │ │ │ +ALL-CPDS │ │ │ │ +,MAKE-HASH-TABLE │ │ │ │ +KEYWORDSIZE │ │ │ │ +)*COMPUTE-STD-CPL-CLASS->ENTRY-TABLE-SIZE* │ │ │ │ +,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ +NCLASSES │ │ │ │ +,GETHASH │ │ │ │ +MAKE-CPD │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ + ,IGNORABLE./ │ │ │ │ +SYSTEMHASH-SET./0 │ │ │ │ +FORWARD-REFERENCED-CLASS-P │ │ │ │ +"CPL-FORWARD-REFERENCED-CLASS-ERROR │ │ │ │ + CPD-CLASS │ │ │ │ +STR-REFSET304 │ │ │ │ +STR-REFSET305 │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +4C-STRSTD-SSELF2 │ │ │ │ +NCLASSES │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT5 │ │ │ │ +NCLASSES5 │ │ │ │ +ALL-CPDS │ │ │ │ +ALL-CPDS │ │ │ │ ,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ +4*OBJECT │ │ │ │ +4C-STRSTD-SSELF2 │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE7 │ │ │ │ +,TAGBODY! │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +,RETURN-FROM │ │ │ │ +ALL-CPDS │ │ │ │ +NCLASSES │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +COMPUTE-STD-CPL-PHASE-1 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,CHECK-TYPE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +CPD-SUPERS │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +.C-STRSTD-SSELF │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPD-SUPERS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,CHECK-TYPE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ + CPD-COUNT │ │ │ │ +,FIXNUM │ │ │ │ +CSTRUCT*FIXNUM │ │ │ │ +.C-STRSTD-SSELF │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPD-COUNT │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,CHECK-TYPE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ + CPD-AFTER │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +.C-STRSTD-SSELF │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPD-AFTER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +ALL-CPDS │ │ │ │ +COMPUTE-STD-CPL-PHASE-2 │ │ │ │ +DOLIST271 │ │ │ │ +ALL-CPDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ +CPD-SUPERS │ │ │ │ +STR-REFSET304 │ │ │ │ +STR-REFSET305 │ │ │ │ + CPD-AFTER │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +1C-STRSTD-SSELF/ │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT4 │ │ │ │ + CPD-COUNT24 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE2 │ │ │ │ +1*FIXNUM │ │ │ │ +1C-STRSTD-SSELF/ │ │ │ │ +,TAGBODY. │ │ │ │ +,TAGBODY │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT7 │ │ │ │ + CPD-COUNT57 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE5 │ │ │ │ +1*FIXNUM │ │ │ │ +1C-STRSTD-SSELF/ │ │ │ │ + CPD-AFTER9 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE9 │ │ │ │ +1*OBJECT │ │ │ │ +1C-STRSTD-SSELF/ │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +COMPUTE-STD-CPL-PHASE-2 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +ALL-CPDS │ │ │ │ +FIND-CYCLE-REASONS │ │ │ │ + BEEN-HERE │ │ │ │ +CYCLE-REASONS │ │ │ │ +KEYWORDTEST! │ │ │ │ +RECORD-CYCLE │ │ │ │ +,NREVERSE │ │ │ │ + BEEN-HERE │ │ │ │ + BEEN-HERE │ │ │ │ + BEEN-HERE │ │ │ │ +DOLIST271 │ │ │ │ + CPD-AFTER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,TAGBODY! │ │ │ │ +,RETURN-FROM │ │ │ │ +RECORD-CYCLE │ │ │ │ +,TAGBODY1 │ │ │ │ +CPD-SUPERS │ │ │ │ +REASONS │ │ │ │ +REASONS │ │ │ │ +ALL-CPDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,TAGBODY1 │ │ │ │ +CPD-SUPERS │ │ │ │ +,RETURN-FROM │ │ │ │ + -IN-SUPERS │ │ │ │ +REASONS │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +,NREVERSE │ │ │ │ +REASONS │ │ │ │ +CYCLE-REASONS │ │ │ │ +CYCLE-REASONS │ │ │ │ +ALL-CPDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,TAGBODY1 │ │ │ │ + CPD-COUNT │ │ │ │ +,RETURN-FROM │ │ │ │ +CYCLE-REASONS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +FIND-CYCLE-REASONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +REASONS │ │ │ │ +FORMAT-CYCLE-REASONS │ │ │ │ +CLASS-OR-NAME │ │ │ │ + CPD-CLASS │ │ │ │ +,CLASS-NAME │ │ │ │ +named ~S │ │ │ │ +,CLASS-NAME │ │ │ │ +,FUNCTION │ │ │ │ +KEYWORDSUPER │ │ │ │ +2the class ~A appears in the supers of the class ~A │ │ │ │ +CLASS-OR-NAME │ │ │ │ +CLASS-OR-NAME │ │ │ │ + -IN-SUPERS │ │ │ │ +?the class ~A follows the class ~A in the supers of the class ~A │ │ │ │ +CLASS-OR-NAME │ │ │ │ +CLASS-OR-NAME │ │ │ │ +CLASS-OR-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +FORMAT-CYCLE-REASONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +ALL-CPDS │ │ │ │ +CPL-INCONSISTENT-ERROR │ │ │ │ +FIND-CYCLE-REASONS │ │ │ │ +ALL-CPDS │ │ │ │ + CPL-ERROR │ │ │ │ +It is not possible to compute the class precedence list because~@ │ │ │ │ + there ~A in the local precedence relations.~@ │ │ │ │ + ~A because:~{~% ~A~}. │ │ │ │ +are circularities │ │ │ │ +is a circularity │ │ │ │ +These arise │ │ │ │ +This arises │ │ │ │ +FORMAT-CYCLE-REASONS │ │ │ │ ,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CPL-INCONSISTENT-ERROR │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +ALL-CPDS │ │ │ │ +NCLASSES │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +NCLASSES │ │ │ │ +COMPUTE-STD-CPL-PHASE-3 │ │ │ │ +CANDIDATES │ │ │ │ +NEXT-CPD │ │ │ │ +DOLIST271 │ │ │ │ +ALL-CPDS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -LOCATION │ │ │ │ -SLOT-DEFINITION-LOCATION │ │ │ │ -LOCATION │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ + CPD-COUNT │ │ │ │ +CANDIDATES │ │ │ │ +CANDIDATES │ │ │ │ +,RETURN-FROM │ │ │ │ +,TAGBODY! │ │ │ │ +CANDIDATES │ │ │ │ +NCLASSES │ │ │ │ +,RETURN-FROM │ │ │ │ +,REVERSE │ │ │ │ +CPL-INCONSISTENT-ERROR │ │ │ │ +ALL-CPDS │ │ │ │ +NEXT-CPD │ │ │ │ +CANDIDATES │ │ │ │ +PROG1266 │ │ │ │ +CANDIDATES │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE1 │ │ │ │ +CANDIDATES │ │ │ │ +TIE-BREAKER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY. │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ + CPD-CLASS │ │ │ │ +CANDIDATES │ │ │ │ +KEYWORDTEST! │ │ │ │ +,RETURN-FROM │ │ │ │ +TIE-BREAKER │ │ │ │ +CANDIDATES │ │ │ │ +CANDIDATES │ │ │ │ +CANDIDATES4 │ │ │ │ +CANDIDATES │ │ │ │ +,TAGBODY. │ │ │ │ + CPD-CLASS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE5 │ │ │ │ +,RPLACD566 │ │ │ │ +,RETURN-FROM │ │ │ │ +TIE-BREAKER │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +NCLASSES │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT8 │ │ │ │ +NCLASSES8 │ │ │ │ + CPD-CLASS │ │ │ │ +NEXT-CPD │ │ │ │ + CPD-AFTER │ │ │ │ +NEXT-CPD │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY. │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT< │ │ │ │ + CPD-COUNT:< │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE: │ │ │ │ +STR-REFSET304: │ │ │ │ +STR-REFSET305; │ │ │ │ +CSTRUCT*FIXNUM │ │ │ │ +?C-STRSTD-SSELF= │ │ │ │ +CANDIDATES │ │ │ │ +CANDIDATES │ │ │ │ +,RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +COMPUTE-STD-CPL-PHASE-3 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +COMPUTE-STD-CPL │ │ │ │ +COMPUTE-STD-CPL │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +ALL-CPDS │ │ │ │ +NCLASSES │ │ │ │ +COMPUTE-STD-CPL-PHASE-1 │ │ │ │ +COMPUTE-STD-CPL-PHASE-2 │ │ │ │ +ALL-CPDS │ │ │ │ +COMPUTE-STD-CPL-PHASE-3 │ │ │ │ +ALL-CPDS │ │ │ │ +NCLASSES │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +COMPUTE-STD-CPL │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,CHECK-TYPE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +!COPY-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +,COPY-STRUCTURE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +COPY-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + CPD-CLASS │ │ │ │ +CPD-SUPERS │ │ │ │ + CPD-AFTER │ │ │ │ + CPD-COUNT │ │ │ │ +'__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +SYSTEMMAKE-STRUCTURE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ + CPD-CLASS │ │ │ │ +CPD-SUPERS │ │ │ │ + CPD-AFTER │ │ │ │ + CPD-COUNT │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION-P │ │ │ │ +,BOOLEAN │ │ │ │ -INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -STD-INSTANCE-P │ │ │ │ --OBJECT │ │ │ │ -%STD-INSTANCE-WRAPPER │ │ │ │ -CHECK-WRAPPER-VALIDITY │ │ │ │ --OBJECT │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ --OBJECT │ │ │ │ -LOCATION │ │ │ │ -FUNCALLABLE-INSTANCE-P │ │ │ │ --OBJECT │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -CHECK-WRAPPER-VALIDITY │ │ │ │ --OBJECT │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ --OBJECT │ │ │ │ -LOCATION │ │ │ │ -What kind of instance is this? │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +CSTRUCTC-STRUCTURE-DEF │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -LOCATION │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ + ,STRUCTURE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +-INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ + ,STRUCTURE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ ,OTHERWISE │ │ │ │ -INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ - so it can't be read by the default ~s method. │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ + ,STRUCTURE │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +CLASS-PRECEDENCE-DESCRIPTION-P │ │ │ │ +Key ~s missing value │ │ │ │ +Key ~s ~s not permitted │ │ │ │ +*COMPUTE-STD-CPL-CLASS->ENTRY-TABLE-SIZE* │ │ │ │ +named ~S │ │ │ │ +While computing the class precedence list of the class ~A.~%~A │ │ │ │ +named ~S │ │ │ │ +a direct superclass of the class ~A │ │ │ │ +~{~% the class ~A,~} │ │ │ │ +reached from the class ~A by following~@ │ │ │ │ + the direct superclass chain through: ~A~ │ │ │ │ + ~% ending at the class ~A │ │ │ │ +The class ~A is a forward referenced class.~@ │ │ │ │ + The class ~A is ~A. │ │ │ │ +are circularities │ │ │ │ +is a circularityThese arise │ │ │ │ +This arises │ │ │ │ +It is not possible to compute the class precedence list because~@ │ │ │ │ + there ~A in the local precedence relations.~@ │ │ │ │ + ~A because:~{~% ~A~}. │ │ │ │ +named ~S │ │ │ │ +the class ~A appears in the supers of the class ~A │ │ │ │ +the class ~A follows the class ~A in the supers of the class ~A │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +COMPUTE-CLASS-PRECEDENCE-LIST │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -l(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +SLOT-CLASS │ │ │ │ +8(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -200539,15 +199882,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -200568,76 +199910,63 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +COMPUTE-CLASS-PRECEDENCE-LIST │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +COMPUTE-CLASS-PRECEDENCE-LIST │ │ │ │ +COMPUTE-STD-CPL │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ +(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS)) │ │ │ │ +gcl_pcl_cpl.o │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - NEW-VALUE │ │ │ │ -SYSTEMOBJECT │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +(COMPUTE-APPLICABLE-METHODS-USING-CLASSES │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ - NEW-VALUE │ │ │ │ -t(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +K(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -200650,15 +199979,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ - NEW-VALUE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +CLASSES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -200679,85 +200009,69 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +(COMPUTE-APPLICABLE-METHODS-USING-CLASSES │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - NEW-VALUE │ │ │ │ - NEW-VALUE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ - NEW-VALUE │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE6 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -,FUNCTION │ │ │ │ -(SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ - NEW-VALUE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +(COMPUTE-APPLICABLE-METHODS-USING-CLASSES │ │ │ │ +&COMPUTE-APPLICABLE-METHODS-USING-TYPES │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +TYPES-FROM-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +CLASS-EQ │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +STRUCTURE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +STRUCTURE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -k(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +STRUCTURE-SLOT-DEFINITION │ │ │ │ +D(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -200770,15 +200084,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -200799,83 +200112,58 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,STRUCTURE-OBJECT │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +STRUCTURE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -,FUNCTION │ │ │ │ -(SLOT-DEFINITION-INTERNAL-READER-FUNCTION │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ -,SLOT-UNBOUND │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -COMMON-LISP::CHARACTER class predicate │ │ │ │ -COMMON-LISP::COMPLEX class predicate │ │ │ │ -COMMON-LISP::FLOAT class predicate │ │ │ │ -COMMON-LISP::REAL class predicate │ │ │ │ -COMMON-LISP::INTEGER class predicate │ │ │ │ -COMMON-LISP::RATIO class predicate │ │ │ │ -COMMON-LISP::RATIONAL class predicate │ │ │ │ -COMMON-LISP::NUMBER class predicate │ │ │ │ -COMMON-LISP::STRING class predicate │ │ │ │ -COMMON-LISP::BIT-VECTOR class predicate │ │ │ │ -COMMON-LISP::VECTOR class predicate │ │ │ │ -COMMON-LISP::SEQUENCE class predicate │ │ │ │ -COMMON-LISP::CONS class predicate │ │ │ │ -COMMON-LISP::LIST class predicate │ │ │ │ -(COMBINED-METHOD CHANGE-CLASS) │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +0INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-PREDICATE-NAME │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -&(FAST-METHOD CLASS-PREDICATE-NAME (T)) │ │ │ │ + STD-CLASS │ │ │ │ +*(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -200916,15 +200204,16 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-PREDICATE-NAME │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -200938,166 +200227,52 @@ │ │ │ │ 0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -CLASS-PREDICATE-NAME │ │ │ │ -FUNCTION-RETURNING-NIL │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ +PLIST-VALUE │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-PREDICATE-NAME (T)) │ │ │ │ +(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS)) │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -ENSURE-CLASS-VALUES │ │ │ │ -INITARGS │ │ │ │ - ,COPY-LIST │ │ │ │ -UNSUPPLIED │ │ │ │ -SUPPLIED-META │ │ │ │ -INITARGS │ │ │ │ -KEYWORDMETACLASS │ │ │ │ -UNSUPPLIED │ │ │ │ -SUPPLIED-SUPERS │ │ │ │ -INITARGS │ │ │ │ --DIRECT-SUPERCLASSES │ │ │ │ -UNSUPPLIED │ │ │ │ -SUPPLIED-SLOTS │ │ │ │ -INITARGS │ │ │ │ --DIRECT-SLOTS │ │ │ │ -UNSUPPLIED │ │ │ │ -SUPPLIED-META │ │ │ │ -UNSUPPLIED │ │ │ │ -,FIND-CLASS │ │ │ │ -SUPPLIED-META │ │ │ │ -FORWARD-REFERENCED-CLASS-P │ │ │ │ -*THE-CLASS-STANDARD-CLASS* │ │ │ │ -,CLASS-OF │ │ │ │ - FIX-SUPER │ │ │ │ -LEGAL-CLASS-NAME-P │ │ │ │ -(~S is not a class or a legal class name. │ │ │ │ -,FIND-CLASS │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -FORWARD-REFERENCED-CLASS │ │ │ │ +ESLOTDS │ │ │ │ +COMPUTE-CLASS-SLOTS │ │ │ │ +,MACROLET │ │ │ │ +ITERATEGATHER │ │ │ │ +.GATHERING1. │ │ │ │ +DOLIST271 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE. │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -,FIND-CLASS/. │ │ │ │ -INITARGS │ │ │ │ --DIRECT-SLOTS │ │ │ │ - SLOT-NAME │ │ │ │ -,TAGBODY │ │ │ │ - ANSI-LOOPNEXT-LOOP │ │ │ │ -1END-LOOP │ │ │ │ -LOOP-DESETQ-TEMP0 │ │ │ │ - SLOT-NAME │ │ │ │ - SLOT-NAME │ │ │ │ -,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -'More than one direct slot with name ~S. │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ -,TAGBODY │ │ │ │ - 1NEXT-LOOP │ │ │ │ -1END-LOOP │ │ │ │ --ALLOCATION │ │ │ │ --INITFORM │ │ │ │ --DOCUMENTATION │ │ │ │ -UNSUPPLIED │ │ │ │ -UNSUPPLIED │ │ │ │ -,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -%Duplicate slot option ~S for slot ~S. │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ - 1NEXT-LOOP │ │ │ │ -1END-LOOP │ │ │ │ - 1NEXT-LOOP │ │ │ │ -1END-LOOP │ │ │ │ -INITARGS │ │ │ │ --DIRECT-DEFAULT-INITARGS │ │ │ │ -,TAGBODY │ │ │ │ - 1NEXT-LOOP │ │ │ │ -1END-LOOP │ │ │ │ -INITARG │ │ │ │ -,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -]Duplicate initialization argument ~ │ │ │ │ - name ~S in :default-initargs of class ~A. │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ - 1NEXT-LOOP │ │ │ │ -1END-LOOP │ │ │ │ -,TAGBODY! │ │ │ │ - -METACLASS │ │ │ │ -INITARGS │ │ │ │ -,TAGBODY! │ │ │ │ -!Odd-length property list in REMF. │ │ │ │ -,RETURN-FROM │ │ │ │ -INITARGS7 │ │ │ │ -,RETURN-FROM │ │ │ │ -,SETQ8;9< │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -,TAGBODY! │ │ │ │ --DIRECT-SUPERCLASSES │ │ │ │ -INITARGS │ │ │ │ -,TAGBODY: │ │ │ │ -!Odd-length property list in REMF. │ │ │ │ -,RETURN-FROM │ │ │ │ -INITARGS? │ │ │ │ -,RETURN-FROM │ │ │ │ -,SETQ@BAC │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ + ,IGNORABLE0 │ │ │ │ ,TAGBODY! │ │ │ │ --DIRECT-SLOTS │ │ │ │ -INITARGS │ │ │ │ -,TAGBODY: │ │ │ │ -!Odd-length property list in REMF. │ │ │ │ -,RETURN-FROM │ │ │ │ -INITARGSF │ │ │ │ -,RETURN-FROM │ │ │ │ -,SETQGIHJ │ │ │ │ -,RETURN-FROM │ │ │ │ +,RPLACD. │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ ,RETURN-FROM │ │ │ │ --DIRECT-SUPERCLASSES │ │ │ │ -SUPPLIED-SUPERS │ │ │ │ -UNSUPPLIED │ │ │ │ -,FUNCTION │ │ │ │ - FIX-SUPER │ │ │ │ -SUPPLIED-SUPERS │ │ │ │ --DIRECT-SLOTS │ │ │ │ -SUPPLIED-SLOTS │ │ │ │ -UNSUPPLIED │ │ │ │ -SUPPLIED-SLOTS │ │ │ │ -INITARGS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -ENSURE-CLASS-VALUES │ │ │ │ -(COMBINED-METHOD INITIALIZE-INSTANCE) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +COMPUTE-CLASS-SLOTS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -METAOBJECT │ │ │ │ -,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -MAP-DEPENDENTS │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ -,DECLARE │ │ │ │ +,MAKE-INSTANCES-OBSOLETE │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,FUNCTION │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ -7(FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +,SYMBOL │ │ │ │ +.(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201110,16 +200285,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -METAOBJECT │ │ │ │ -,FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -201140,85 +200313,69 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -MAP-DEPENDENTS │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ +,MAKE-INSTANCES-OBSOLETE │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -METAOBJECT │ │ │ │ -,FUNCTION │ │ │ │ -METAOBJECT │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -METAOBJECT │ │ │ │ -,FUNCTION │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,FUNCTION │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -METAOBJECT │ │ │ │ -MAP-DEPENDENTS │ │ │ │ -DOLIST271 │ │ │ │ -PLIST-VALUE │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENTS │ │ │ │ - DEPENDENT │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE5 │ │ │ │ -,TAGBODY! │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ - DEPENDENT │ │ │ │ - DEPENDENT │ │ │ │ -,RETURN-FROM │ │ │ │ +,MAKE-INSTANCES-OBSOLETE │ │ │ │ +,MAKE-INSTANCES-OBSOLETE │ │ │ │ +,FIND-CLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL)) │ │ │ │ +COMMON-LISP::ARRAY class predicate │ │ │ │ +COMMON-LISP::CHARACTER class predicate │ │ │ │ +COMMON-LISP::COMPLEX class predicate │ │ │ │ +COMMON-LISP::FLOAT class predicate │ │ │ │ +COMMON-LISP::REAL class predicate │ │ │ │ +COMMON-LISP::INTEGER class predicate │ │ │ │ +COMMON-LISP::RATIO class predicate │ │ │ │ +COMMON-LISP::RATIONAL class predicate │ │ │ │ +COMMON-LISP::NUMBER class predicate │ │ │ │ +COMMON-LISP::STRING class predicate │ │ │ │ +COMMON-LISP::BIT-VECTOR class predicate │ │ │ │ +COMMON-LISP::VECTOR class predicate │ │ │ │ +COMMON-LISP::SEQUENCE class predicate │ │ │ │ +COMMON-LISP::CONS class predicate │ │ │ │ +COMMON-LISP::LIST class predicate │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -DIRECT-SLOT │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -WRITER-METHOD-CLASS │ │ │ │ -SLOT-CLASS │ │ │ │ +CLASS-PREDICATE-NAME │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -DIRECT-SLOT │ │ │ │ -SLOT-CLASS │ │ │ │ -0(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T)) │ │ │ │ +&(FAST-METHOD CLASS-PREDICATE-NAME (T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201231,105 +200388,85 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -DIRECT-SLOT │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -WRITER-METHOD-CLASS │ │ │ │ -SLOT-CLASS │ │ │ │ +CLASS-PREDICATE-NAME │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -DIRECT-SLOT │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOT │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOT │ │ │ │ -INITARGS │ │ │ │ -,LIST*. │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -DIRECT-SLOT │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ -INITARGS │ │ │ │ -WRITER-METHOD-CLASS │ │ │ │ -,FIND-CLASS │ │ │ │ -STANDARD-WRITER-METHOD │ │ │ │ + ,IGNORABLE │ │ │ │ +CLASS-PREDICATE-NAME │ │ │ │ +FUNCTION-RETURNING-NIL │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))` │ │ │ │ -DIRECT-SLOT │ │ │ │ -DEPENDENT │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD CLASS-PREDICATE-NAME (T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -KEYWORDAFTER │ │ │ │ +CLASS-DEFAULT-INITARGS │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -SLOT-CLASS │ │ │ │ -7(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS)) │ │ │ │ +SLOT-CLASS │ │ │ │ +1(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201344,102 +200481,86 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ +CLASS-DEFAULT-INITARGS │ │ │ │ SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -MAP-DEPENDENTS │ │ │ │ -,FUNCTION │ │ │ │ - DEPENDENT │ │ │ │ -,FUNCTION │ │ │ │ -UPDATE-DEPENDENT │ │ │ │ - DEPENDENT │ │ │ │ -INITARGS │ │ │ │ +CLASS-DEFAULT-INITARGS │ │ │ │ +PLIST-VALUE │ │ │ │ +DEFAULT-INITARGS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS)) │ │ │ │ -(COMBINED-METHOD SHARED-INITIALIZE) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS)) │ │ │ │ +REAL-INVALID-METHOD-ERROR │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -KEYWORDAFTER │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ +CLASS-DEFAULT-INITARGS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,DOCUMENTATION │ │ │ │ -DOCUMENTATION-P │ │ │ │ -SLOT-NAMES │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ ->(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +5(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201452,118 +200573,87 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ +CLASS-DEFAULT-INITARGS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -.FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -.FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ -.FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -.FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ -.DOCUMENTATION │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -.FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ -.FORMAT-ARGUMENTS │ │ │ │ -,DOCUMENTATION │ │ │ │ -DOCUMENTATION-P4 │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE6 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -DOCUMENTATION-P │ │ │ │ -,DOCUMENTATION │ │ │ │ -,DOCUMENTATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE78 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -PLIST-VALUE978 │ │ │ │ +CLASS-DEFAULT-INITARGS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS)) │ │ │ │ +PCL PROTOTYPE slot READER │ │ │ │ +PCL PROTOTYPE slot WRITER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -SLOT-OBJECT │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -SLOT-NAMES │ │ │ │ -INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ -/(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) │ │ │ │ + STD-CLASS │ │ │ │ +)(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201576,269 +200666,138 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INSTANCE │ │ │ │ -SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -SLOT-OBJECT │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ -SLOT-NAMES │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -INSTANCE │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -SLOT-NAMES │ │ │ │ -.PLIST-TAIL. │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,TAGBODY! │ │ │ │ -.PLIST-TAIL. │ │ │ │ -,RETURN-FROM │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.4 │ │ │ │ -.PLIST-TAIL. │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -3Malformed plist in doplist, odd number of elements. │ │ │ │ -,SYMBOLP │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Supplied key is not a symbol. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.7 │ │ │ │ -,RETURN-FROM │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -.FUNCTION. │ │ │ │ -3INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION │ │ │ │ -INITIALIZE-INFO │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -1UNKNOWN │ │ │ │ -UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ -INITIALIZE-INFO │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -SHARED-INITIALIZE-T-FUNCTION │ │ │ │ -3INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION │ │ │ │ -INITIALIZE-INFO │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -.FUNCTION. │ │ │ │ -.FUNCTION.! │ │ │ │ -CALL-INITIALIZE-INSTANCE-SIMPLE │ │ │ │ -INITIALIZE-INSTANCE-SIMPLE │ │ │ │ -.FUNCTION. │ │ │ │ -.FUNCTION. │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -.FUNCTION. │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -INSTANCE │ │ │ │ -SLOT-NAMES │ │ │ │ -.PLIST-TAIL. │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,TAGBODY! │ │ │ │ -.PLIST-TAIL. │ │ │ │ -,RETURN-FROM │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.; │ │ │ │ -.PLIST-TAIL. │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -3Malformed plist in doplist, odd number of elements. │ │ │ │ -,SYMBOLP │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Supplied key is not a symbol. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.< │ │ │ │ -,RETURN-FROM │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -.FUNCTION. │ │ │ │ -5INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION │ │ │ │ -INITIALIZE-INFO │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ -INITIALIZE-INFO │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -SHARED-INITIALIZE-NIL-FUNCTION │ │ │ │ -5INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION │ │ │ │ -INITIALIZE-INFO │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -.FUNCTION. │ │ │ │ -.FUNCTION.9 │ │ │ │ -INITIALIZE-INSTANCE-SIMPLE │ │ │ │ -.FUNCTION. │ │ │ │ -.FUNCTION. │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -.FUNCTION. │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -INSTANCE │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -CLASS-SLOTS │ │ │ │ -STD-INSTANCE-P │ │ │ │ -INSTANCE │ │ │ │ -FUNCALLABLE-INSTANCE-P │ │ │ │ -INSTANCE │ │ │ │ -DOLIST271 │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE= │ │ │ │ -,TAGBODY! │ │ │ │ - SLOT-NAME │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-INITARGS │ │ │ │ -SLOT-DEFINITION-INITARGS │ │ │ │ -.PLIST-TAIL. │ │ │ │ -INITARGS │ │ │ │ -,TAGBODY! │ │ │ │ -.PLIST-TAIL. │ │ │ │ -,RETURN-FROM │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.@ │ │ │ │ -.PLIST-TAIL. │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -3Malformed plist in doplist, odd number of elements. │ │ │ │ -,SYMBOLP │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Supplied key is not a symbol. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.A │ │ │ │ -SLOT-INITARGS │ │ │ │ -INSTANCE │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLECDE │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-VALUE-USING-CLASSFCDE │ │ │ │ -,RETURN-FROM │ │ │ │ -SLOT-NAMES │ │ │ │ -SLOT-NAMES │ │ │ │ - SLOT-NAME │ │ │ │ -SLOT-NAMES │ │ │ │ -SLOT-NAMES │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -INSTANCE │ │ │ │ -INITFUNCTION │ │ │ │ -SLOT-DEFINITION-INITFUNCTION │ │ │ │ -INITFUNCTION │ │ │ │ -INSTANCE │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -INITFUNCTION │ │ │ │ + ,IGNORABLE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLEGHI │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-VALUE-USING-CLASSJGHI │ │ │ │ -,RETURN-FROM │ │ │ │ -INSTANCE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) │ │ │ │ -MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL │ │ │ │ -PCL CLASS-EQ-SPECIALIZER slot WRITER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +,CLASS4 │ │ │ │ +,DECLARE! │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM7 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL PROTOTYPE slot READER │ │ │ │ +3INFER-TP9 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM9 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP9 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +8PCL PROTOTYPE slot READER │ │ │ │ +,CLASS9 │ │ │ │ +.NEW-VALUE. │ │ │ │ +,ALLOCATE-INSTANCE │ │ │ │ +,DECLARE6 │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM: │ │ │ │ +.NEW-VALUE. │ │ │ │ +8PCL PROTOTYPE slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS)) │ │ │ │ +EXPAND-SHORT-DEFCOMBIN │ │ │ │ +PCL DEFSTRUCT-CONSTRUCTOR slot READER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -KEYWORDBEFORE │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SLOT-NAMES │ │ │ │ -1(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T)) │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +/(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201851,137 +200810,192 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ -SYSTEMKB │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ -,DECLARE │ │ │ │ pv-table │ │ │ │ .SLOTS0. │ │ │ │ -6INFER-TP │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -6INFER-TP │ │ │ │ +3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ -6INFER-TP │ │ │ │ +3INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -.NEW-VALUE. │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ ,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +,CLASS4 │ │ │ │ +,DECLARE! │ │ │ │ ,OPTIMIZE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM8 │ │ │ │ -.NEW-VALUE. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP TYPE slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ +,FIXNUM7 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL PROTOTYPE slot READER │ │ │ │ +3INFER-TP9 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM9 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP9 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +8PCL PROTOTYPE slot READER │ │ │ │ +,CLASS9 │ │ │ │ .NEW-VALUE. │ │ │ │ -/MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +3INFER-TP: │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM: │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP: │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +%8PCL DEFSTRUCT-CONSTRUCTOR slot READER │ │ │ │ +,ALLOCATE-INSTANCE │ │ │ │ +ALLOCATE-STANDARD-INSTANCE │ │ │ │ +3INFER-TP; │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM; │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP; │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +8PCL WRAPPER slot READER │ │ │ │ +,DECLARE6 │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM< │ │ │ │ .NEW-VALUE. │ │ │ │ -$9PCL CLASS-EQ-SPECIALIZER slot WRITER │ │ │ │ +8PCL PROTOTYPE slot WRITER │ │ │ │ .NEW-VALUE. │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T)) │ │ │ │ +(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) │ │ │ │ +pv-table │ │ │ │ +pv-table │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + CALL-LIST │ │ │ │ +CHECK-INITARGS-VALUES │ │ │ │ +METHODS │ │ │ │ +,FUNCTION │ │ │ │ + ,COPY-LIST │ │ │ │ +,COMPUTE-APPLICABLE-METHODS │ │ │ │ +GDEFINITION │ │ │ │ + CALL-LIST │ │ │ │ +,FUNCTION │ │ │ │ +,APPEND │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-DEFINITION-INITARGS │ │ │ │ +CLASS-SLOTS │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +ALLOW-OTHER-KEYS │ │ │ │ +ANALYZE-LAMBDA-LIST │ │ │ │ +EARLY-METHOD-LAMBDA-LIST │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,DECLARE │ │ │ │ +ALLOW-OTHER-KEYS │ │ │ │ +,RETURN-FROM │ │ │ │ +CHECK-INITARGS-VALUES │ │ │ │ +,RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +PCL DIRECT-METHODS slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -KEYWORDAFTER │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +REMOVE-DIRECT-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -METHOD-SPEC │ │ │ │ -QUALIFIERS │ │ │ │ -INITARGS │ │ │ │ -SLOT-NAMES │ │ │ │ -,STANDARD-METHOD │ │ │ │ -:(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +1(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -201994,119 +201008,162 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SLOT-NAMES │ │ │ │ +SPECIALIZER │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +REMOVE-DIRECT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ --FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ -INITARGS │ │ │ │ -,LIST*/! │ │ │ │ -SYSTEMKB │ │ │ │ --QUALIFIERS │ │ │ │ --METHOD-SPEC │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -QUALIFIERS │ │ │ │ -METHOD-SPEC │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE9 │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ +SPECIALIZER │ │ │ │ +pv-table │ │ │ │ +SPECIALIZER │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +SPECIALIZER │ │ │ │ +5INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +SPECIALIZER │ │ │ │ +5INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +SPECIALIZER │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +REMOVE-DIRECT-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ ,DECLARE │ │ │ │ -METHOD-SPEC │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -INITIALIZE-METHOD-FUNCTION │ │ │ │ -INITARGS │ │ │ │ -QUALIFIERS │ │ │ │ -QUALIFIERS │ │ │ │ +VARIABLE-REBINDING6 │ │ │ │ +SPECIALIZER6 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE;< │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -PLIST-VALUE=;< │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T)) │ │ │ │ -is not a non-null atom │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +,OPTIMIZE │ │ │ │ +5INFER-TP9 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM9 │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP9 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER9 │ │ │ │ +5INFER-TP< │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM< │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP< │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +:PCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER< │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE7 │ │ │ │ +,RPLACA7;; │ │ │ │ +5INFER-TP> │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM> │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP> │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +:PCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER> │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE= │ │ │ │ +,RPLACD=?? │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-QUALIFIER-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -3(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +'(FAST-METHOD SPECIALIZER-CLASS (CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202119,14 +201176,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202147,64 +201205,65 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-QUALIFIER-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-QUALIFIER-P │ │ │ │ -is not a non-null atom │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +SPECIALIZER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-QUALIFIER-P │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD SPECIALIZER-CLASS (CLASS)) │ │ │ │ +SYSTEM OBJECT slot READER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -4(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +1(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202217,14 +201276,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202245,80 +201305,98 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +EQL-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -IMPROPER-LIST │ │ │ │ -,RETURN-FROM │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -Is not a proper list. │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -,TAGBODY! │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -,RETURN-FROM │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -.DOLIST-CAREFULLY.7 │ │ │ │ -LEGAL-QUALIFIER-P │ │ │ │ -,RETURN-FROM │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -Contains ~S which ~A │ │ │ │ -IMPROPER-LIST │ │ │ │ +SPECIALIZER │ │ │ │ +pv-table │ │ │ │ +SPECIALIZER │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +SPECIALIZER │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +SPECIALIZER │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +SPECIALIZER │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +,CLASS-OF │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP4 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM4 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP4 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMESYSTEM OBJECT slot READER │ │ │ │ +SPECIALIZER4 │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +SPECIALIZER │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - STD-CLASS │ │ │ │ -:(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T)) │ │ │ │ +SPECIALIZER │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +=(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202331,14 +201409,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202359,61 +201438,66 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ - STD-CLASS │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ -"INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +*CLASS-EQ-SPECIALIZER-METHODS* │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER)) │ │ │ │ +SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -@(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STRUCTURE-CLASS T)) │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +L(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202426,14 +201510,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202454,61 +201539,80 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STRUCTURE-CLASS T))@i │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +SPECIALIZER │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +SYSTEMOBJECT │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +SPECIALIZER │ │ │ │ +,GETHASH │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +SPECIALIZER │ │ │ │ +,MACROLET │ │ │ │ +ITERATEGATHER │ │ │ │ +.GATHERING1. │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE9 │ │ │ │ +,TAGBODY! │ │ │ │ +,RPLACD7 │ │ │ │ +METHOD-GENERIC-FUNCTION │ │ │ │ +,RETURN-FROM │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,RPLACD455 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-LAMBDA-LIST-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -5(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +:(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202521,14 +201625,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202549,63 +201654,141 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-LAMBDA-LIST-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -LEGAL-LAMBDA-LIST-P │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-LAMBDA-LIST-P │ │ │ │ -is neither a class object nor an eql specializer │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +SPECIALIZER │ │ │ │ +pv-table │ │ │ │ +SPECIALIZER │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +SPECIALIZER │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +SPECIALIZER │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +SPECIALIZER │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +SPECIALIZER4 │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM7 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER7 │ │ │ │ +3INFER-TP: │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM: │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP: │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +8PCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER: │ │ │ │ +,MACROLET │ │ │ │ +ITERATEGATHER │ │ │ │ +.GATHERING1. │ │ │ │ +DOLIST271 │ │ │ │ +3INFER-TP@ │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM@ │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP@ │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +8PCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER@ │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE? │ │ │ │ +,TAGBODY! │ │ │ │ +,RPLACD= │ │ │ │ +METHOD-GENERIC-FUNCTION │ │ │ │ +,RETURN-FROM │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE9 │ │ │ │ +,RPLACD9;; │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS)) │ │ │ │ +pv-table │ │ │ │ +(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-SPECIALIZER-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -5(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +8(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202618,14 +201801,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202646,67 +201830,67 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-SPECIALIZER-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +EQL-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-SPECIALIZER-P │ │ │ │ -#*ALLOW-EXPERIMENTAL-SPECIALIZERS-P* │ │ │ │ -SPECIALIZERP │ │ │ │ -EQL-SPECIALIZER-P │ │ │ │ -0is neither a class object nor an eql specializer │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-SPECIALIZER-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +*EQL-SPECIALIZER-METHODS* │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER)) │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +,DECLARE │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +REMOVE-DIRECT-METHOD │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -6(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +C(FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202719,14 +201903,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -202747,80 +201933,81 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +REMOVE-DIRECT-METHOD │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -IMPROPER-LIST │ │ │ │ -,RETURN-FROM │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -Is not a proper list. │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -,TAGBODY! │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -,RETURN-FROM │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -.DOLIST-CAREFULLY. │ │ │ │ -.DOLIST-CAREFULLY.7 │ │ │ │ -LEGAL-SPECIALIZER-P │ │ │ │ -,RETURN-FROM │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -Contains ~S which ~A │ │ │ │ -IMPROPER-LIST │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T)) │ │ │ │ +SPECIALIZER │ │ │ │ +REMOVE-DIRECT-METHOD │ │ │ │ +SYSTEMOBJECT │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +SPECIALIZER │ │ │ │ +,GETHASH │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,RPLACA677 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE8 │ │ │ │ +,RPLACD899 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ +INSTANCE │ │ │ │ +NEW-CLASS-NAME │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +NEW-CLASS-NAME │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ +,CHANGE-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ INITARGS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ ->(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ +NEW-CLASS-NAME │ │ │ │ +INSTANCE │ │ │ │ +%(FAST-METHOD CHANGE-CLASS (T SYMBOL)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202833,97 +202020,117 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INITARGS │ │ │ │ +INSTANCE │ │ │ │ +NEW-CLASS-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,CHANGE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INITARGS │ │ │ │ +INSTANCE │ │ │ │ +NEW-CLASS-NAME │ │ │ │ +.REST-ARG. │ │ │ │ +INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +INSTANCE │ │ │ │ +NEW-CLASS-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +NEW-CLASS-NAME │ │ │ │ INITARGS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -INITARGS │ │ │ │ -DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ +NEW-CLASS-NAME │ │ │ │ +INSTANCE │ │ │ │ +,CHANGE-CLASS │ │ │ │ +,FUNCTION │ │ │ │ +,CHANGE-CLASS │ │ │ │ +INSTANCE │ │ │ │ ,FIND-CLASS │ │ │ │ - STRUCTURE-DIRECT-SLOT-DEFINITION │ │ │ │ +NEW-CLASS-NAME │ │ │ │ +INITARGS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ +(FAST-METHOD CHANGE-CLASS (T SYMBOL)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ +INSTANCE │ │ │ │ + NEW-CLASS │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +INSTANCE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ + NEW-CLASS │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +,CHANGE-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ INITARGS │ │ │ │ - STD-CLASS │ │ │ │ -8(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ + NEW-CLASS │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +INSTANCE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +G(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -202936,98 +202143,233 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INITARGS │ │ │ │ +INSTANCE │ │ │ │ + NEW-CLASS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ - STD-CLASS │ │ │ │ +,CHANGE-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INITARGS │ │ │ │ +INSTANCE │ │ │ │ + NEW-CLASS │ │ │ │ +.REST-ARG. │ │ │ │ +INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +INSTANCE │ │ │ │ + NEW-CLASS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ + NEW-CLASS │ │ │ │ INITARGS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ + NEW-CLASS │ │ │ │ +INSTANCE │ │ │ │ +,DECLARE │ │ │ │ INITARGS │ │ │ │ -DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ -,FIND-CLASS │ │ │ │ -STANDARD-DIRECT-SLOT-DEFINITION │ │ │ │ +,CHANGE-CLASS │ │ │ │ +fCan't change the class of ~S to ~S~@ │ │ │ │ + because it isn't already an instance with metaclass ~S. │ │ │ │ +INSTANCE │ │ │ │ + NEW-CLASS │ │ │ │ +,STANDARD-CLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -a function │ │ │ │ +(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SWAP-WRAPPERS-AND-SLOTS │ │ │ │ +,MACROLET │ │ │ │ +INTERRUPTS-ON │ │ │ │ +INTERRUPTS-OFF │ │ │ │ +STD-INSTANCE-P │ │ │ │ +%STD-INSTANCE-WRAPPER │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +STR-REFSET304 │ │ │ │ +STR-REFSET305 │ │ │ │ +%STD-INSTANCE-WRAPPER │ │ │ │ +CSTRUCT*OBJECT │ │ │ │ +/C-STRSTD-SSELF- │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +/*OBJECT │ │ │ │ +/C-STRSTD-SSELF- │ │ │ │ +/*OBJECT │ │ │ │ +/C-STRSTD-SSELF- │ │ │ │ +/*OBJECT │ │ │ │ +/C-STRSTD-SSELF- │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,RPLACA011 │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE2 │ │ │ │ +,RPLACA233 │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,RPLACA455 │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,RPLACA677 │ │ │ │ +What kind of instance is this? │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +SWAP-WRAPPERS-AND-SLOTS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +INITARGS │ │ │ │ + ,&OPTIONAL │ │ │ │ +CHECK-INITARGS-2-PLIST │ │ │ │ +INITARGS │ │ │ │ +INITARGS │ │ │ │ +KEYWORDALLOW-OTHER-KEYS │ │ │ │ +-ALLOW-OTHER-KEYS │ │ │ │ +.PLIST-TAIL. │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ +,TAGBODY! │ │ │ │ +.PLIST-TAIL. │ │ │ │ +,RETURN-FROM │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.0 │ │ │ │ +.PLIST-TAIL. │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +3Malformed plist in doplist, odd number of elements. │ │ │ │ +,SYMBOLP │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Supplied key is not a symbol. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.1 │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +/Invalid initialization argument ~S for class ~S │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +,CLASS-NAME │ │ │ │ +,RETURN-FROM │ │ │ │ +CHECK-INITARGS-2-PLIST │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +CHECK-INITARGS-2-PLIST │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +INITKEYS │ │ │ │ + ,&OPTIONAL │ │ │ │ +CHECK-INITARGS-2-LIST │ │ │ │ +KEYWORDALLOW-OTHER-KEYS │ │ │ │ +INITKEYS │ │ │ │ +DOLIST271 │ │ │ │ +INITKEYS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE/ │ │ │ │ +,TAGBODY! │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +/Invalid initialization argument ~S for class ~S │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +,CLASS-NAME │ │ │ │ +,RETURN-FROM │ │ │ │ +CHECK-INITARGS-2-LIST │ │ │ │ +,RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +CHECK-INITARGS-2-LIST │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +INITARGS │ │ │ │ + CALL-LIST │ │ │ │ + ,&OPTIONAL │ │ │ │ +CHECK-INITARGS-1 │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +ALLOW-OTHER-KEYS │ │ │ │ +CHECK-INITARGS-VALUES │ │ │ │ + CALL-LIST │ │ │ │ +ALLOW-OTHER-KEYS │ │ │ │ +CHECK-INITARGS-2-PLIST │ │ │ │ +INITARGS │ │ │ │ +CHECK-INITARGS-2-LIST │ │ │ │ +INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(COMBINED-METHOD SHARED-INITIALIZE) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-METHOD-FUNCTION-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -9(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T)) │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +KEYWORDAFTER │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,DOCUMENTATION │ │ │ │ +DOCUMENTATION-P │ │ │ │ +SLOT-NAMES │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ +>(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -203040,94 +202382,118 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-METHOD-FUNCTION-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ +.FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +.FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +.FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +.FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +.DOCUMENTATION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +.FORMAT-CONTROL │ │ │ │ +Key ~s missing value │ │ │ │ +.FORMAT-ARGUMENTS │ │ │ │ +,DOCUMENTATION │ │ │ │ +DOCUMENTATION-P4 │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE6 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-METHOD-FUNCTION-P │ │ │ │ - ,FUNCTIONP │ │ │ │ -a function │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-METHOD-FUNCTION-P │ │ │ │ -a string or NULL │ │ │ │ +SLOT-NAMES │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +DOCUMENTATION-P │ │ │ │ +,DOCUMENTATION │ │ │ │ +,DOCUMENTATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE78 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +PLIST-VALUE978 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ +INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-DOCUMENTATION-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -7(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T)) │ │ │ │ +INITARGS │ │ │ │ +SLOT-NAMES │ │ │ │ +INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ +/(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -203140,103 +202506,269 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-DOCUMENTATION-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +SLOT-OBJECT │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ +INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +INSTANCE │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +SLOT-NAMES │ │ │ │ +.PLIST-TAIL. │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ +,TAGBODY! │ │ │ │ +.PLIST-TAIL. │ │ │ │ +,RETURN-FROM │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.4 │ │ │ │ +.PLIST-TAIL. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +3Malformed plist in doplist, odd number of elements. │ │ │ │ +,SYMBOLP │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Supplied key is not a symbol. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.7 │ │ │ │ +,RETURN-FROM │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +.FUNCTION. │ │ │ │ +3INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION │ │ │ │ +INITIALIZE-INFO │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +1UNKNOWN │ │ │ │ +UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ +INITIALIZE-INFO │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +SHARED-INITIALIZE-T-FUNCTION │ │ │ │ +3INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION │ │ │ │ +INITIALIZE-INFO │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +.FUNCTION. │ │ │ │ +.FUNCTION.! │ │ │ │ +CALL-INITIALIZE-INSTANCE-SIMPLE │ │ │ │ +INITIALIZE-INSTANCE-SIMPLE │ │ │ │ +.FUNCTION. │ │ │ │ +.FUNCTION. │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +.FUNCTION. │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ +.PLIST-TAIL. │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,TAGBODY! │ │ │ │ +.PLIST-TAIL. │ │ │ │ +,RETURN-FROM │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.; │ │ │ │ +.PLIST-TAIL. │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +3Malformed plist in doplist, odd number of elements. │ │ │ │ +,SYMBOLP │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Supplied key is not a symbol. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.< │ │ │ │ +,RETURN-FROM │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +.FUNCTION. │ │ │ │ +5INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION │ │ │ │ +INITIALIZE-INFO │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ +INITIALIZE-INFO │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +SHARED-INITIALIZE-NIL-FUNCTION │ │ │ │ +5INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION │ │ │ │ +INITIALIZE-INFO │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +.FUNCTION. │ │ │ │ +.FUNCTION.9 │ │ │ │ +INITIALIZE-INSTANCE-SIMPLE │ │ │ │ +.FUNCTION. │ │ │ │ +.FUNCTION. │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +.FUNCTION. │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +INSTANCE │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +CLASS-SLOTS │ │ │ │ +STD-INSTANCE-P │ │ │ │ +INSTANCE │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +INSTANCE │ │ │ │ +DOLIST271 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-DOCUMENTATION-P │ │ │ │ -,STRINGP │ │ │ │ -a string or NULL │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-DOCUMENTATION-P │ │ │ │ + ,IGNORABLE= │ │ │ │ +,TAGBODY! │ │ │ │ + SLOT-NAME │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-INITARGS │ │ │ │ +SLOT-DEFINITION-INITARGS │ │ │ │ +.PLIST-TAIL. │ │ │ │ +INITARGS │ │ │ │ +,TAGBODY! │ │ │ │ +.PLIST-TAIL. │ │ │ │ +,RETURN-FROM │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.@ │ │ │ │ +.PLIST-TAIL. │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +3Malformed plist in doplist, odd number of elements. │ │ │ │ +,SYMBOLP │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Supplied key is not a symbol. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL. │ │ │ │ +.PLIST-TAIL.A │ │ │ │ +SLOT-INITARGS │ │ │ │ +INSTANCE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLECDE │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-VALUE-USING-CLASSFCDE │ │ │ │ +,RETURN-FROM │ │ │ │ +SLOT-NAMES │ │ │ │ +SLOT-NAMES │ │ │ │ + SLOT-NAME │ │ │ │ +SLOT-NAMES │ │ │ │ +SLOT-NAMES │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ +INSTANCE │ │ │ │ +INITFUNCTION │ │ │ │ +SLOT-DEFINITION-INITFUNCTION │ │ │ │ +INITFUNCTION │ │ │ │ +INSTANCE │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +INITFUNCTION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLEGHI │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-VALUE-USING-CLASSJGHI │ │ │ │ +,RETURN-FROM │ │ │ │ +INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) │ │ │ │ +MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL │ │ │ │ +PCL CLASS-EQ-SPECIALIZER slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ KEYWORDBEFORE │ │ │ │ -,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,DOCUMENTATION │ │ │ │ -FAST-FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -SPECIALIZERS │ │ │ │ -LAMBDA-LIST │ │ │ │ -QUALIFIERS │ │ │ │ SLOT-NAMES │ │ │ │ -,STANDARD-METHOD │ │ │ │ -;(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T)) │ │ │ │ +1(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -203284,15 +202816,14 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -203306,78 +202837,56 @@ │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ -FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ SYSTEMKB │ │ │ │ --QUALIFIERS │ │ │ │ --LAMBDA-LIST │ │ │ │ --SPECIALIZERS │ │ │ │ --FUNCTION │ │ │ │ --FAST-FUNCTION │ │ │ │ --DOCUMENTATION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -FORMAT-CONTROL │ │ │ │ Key ~s missing value │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ -QUALIFIERS │ │ │ │ -LAMBDA-LIST │ │ │ │ -SPECIALIZERS │ │ │ │ -,FUNCTION │ │ │ │ -FAST-FUNCTION │ │ │ │ -,DOCUMENTATION │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE? │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ +SLOT-NAMES │ │ │ │ +,DECLARE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -~When initializing the method ~S:~%~ │ │ │ │ - The ~S initialization argument was: ~S.~%~ │ │ │ │ - which ~A. │ │ │ │ -CHECK-QUALIFIERS │ │ │ │ -LEGAL-QUALIFIERS-P │ │ │ │ -QUALIFIERS │ │ │ │ -CHECK-LAMBDA-LIST │ │ │ │ -LEGAL-LAMBDA-LIST-P │ │ │ │ -LAMBDA-LIST │ │ │ │ -CHECK-SPECIALIZERS │ │ │ │ -LEGAL-SPECIALIZERS-P │ │ │ │ -SPECIALIZERS │ │ │ │ -CHECK-FUNCTION │ │ │ │ -LEGAL-METHOD-FUNCTION-P │ │ │ │ -,METHOD │ │ │ │ -,FUNCTION │ │ │ │ -FAST-FUNCTION │ │ │ │ -CHECK-DOCUMENTATION │ │ │ │ -LEGAL-DOCUMENTATION-P │ │ │ │ -,DOCUMENTATION │ │ │ │ -CHECK-QUALIFIERS │ │ │ │ --QUALIFIERS │ │ │ │ -QUALIFIERS │ │ │ │ -CHECK-QUALIFIERS │ │ │ │ -CHECK-LAMBDA-LIST │ │ │ │ --LAMBDA-LIST │ │ │ │ -LAMBDA-LIST │ │ │ │ -CHECK-LAMBDA-LIST │ │ │ │ -CHECK-SPECIALIZERS │ │ │ │ --SPECIALIZERS │ │ │ │ -SPECIALIZERS │ │ │ │ -CHECK-SPECIALIZERS │ │ │ │ -CHECK-FUNCTION │ │ │ │ --FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -CHECK-FUNCTION │ │ │ │ -CHECK-DOCUMENTATION │ │ │ │ --DOCUMENTATION │ │ │ │ -,DOCUMENTATION │ │ │ │ -CHECK-DOCUMENTATION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T)) │ │ │ │ +.NEW-VALUE. │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM8 │ │ │ │ +.NEW-VALUE. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP TYPE slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +.NEW-VALUE. │ │ │ │ +/MAKE-INSTANCE CLASS-EQ-SPECIALIZER (:CLASS) NIL │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM: │ │ │ │ +.NEW-VALUE. │ │ │ │ +$9PCL CLASS-EQ-SPECIALIZER slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ @@ -203489,39 +202998,35 @@ │ │ │ │ SLOT-NAMES │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ ALLOCATION │ │ │ │ -INSTANCE │ │ │ │ .structure slots must have :instance allocation │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ (FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T)) │ │ │ │ -COMMON-LISP CLASS slot READER │ │ │ │ -PCL ALLOCATION slot READER │ │ │ │ -PCL ALLOCATION slot WRITER │ │ │ │ +PCL DIRECT-SUPERCLASSES slot WRITER │ │ │ │ +PCL DIRECT-SUPERCLASSES slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -KEYWORDAFTER │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SLOT-NAMES │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ -C(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T)) │ │ │ │ +INITARGS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +>(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -203534,171 +203039,97 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SLOT-NAMES │ │ │ │ +INITARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ +DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ --FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -4INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -4INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE5 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING5 │ │ │ │ -.NEW-VALUE. │ │ │ │ -,DECLARE! │ │ │ │ -,OPTIMIZE │ │ │ │ -4INFER-TP8 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM8 │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP8 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL ALLOCATION slot READER │ │ │ │ -4INFER-TP: │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM: │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP: │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -9COMMON-LISP CLASS slot READER │ │ │ │ -4INFER-TP; │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM; │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP; │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -9PCL ALLOCATION slot READER │ │ │ │ -,DECLARE7 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM< │ │ │ │ -.NEW-VALUE. │ │ │ │ -9PCL ALLOCATION slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T)) │ │ │ │ -PCL DIRECT-SUPERCLASSES slot WRITER │ │ │ │ -PCL DIRECT-SUPERCLASSES slot READER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ INITARGS │ │ │ │ -MAKE-DIRECT-SLOTD │ │ │ │ -INITARGS │ │ │ │ -KEYWORDCLASS │ │ │ │ -INITARGS │ │ │ │ -,FUNCTION │ │ │ │ -,MAKE-INSTANCE │ │ │ │ DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ -INITARGS │ │ │ │ -INITARGS │ │ │ │ +,FIND-CLASS │ │ │ │ + STRUCTURE-DIRECT-SLOT-DEFINITION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -MAKE-DIRECT-SLOTD │ │ │ │ -PCL DIRECT-SLOTS slot WRITER │ │ │ │ -PCL DIRECT-SLOTS slot READER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STRUCTURE-SLOT-DEFINITION │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -STRUCTURE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ + STD-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -STRUCTURE-SLOT-DEFINITION │ │ │ │ -D(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION)) │ │ │ │ +INITARGS │ │ │ │ + STD-CLASS │ │ │ │ +8(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -203711,14 +203142,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +INITARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -203739,41 +203171,64 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -STRUCTURE-SLOT-DEFINITION │ │ │ │ +DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -0INSTANCE │ │ │ │ +INITARGS │ │ │ │ +DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ +,FIND-CLASS │ │ │ │ +STANDARD-DIRECT-SLOT-DEFINITION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION)) │ │ │ │ +(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +INITARGS │ │ │ │ +MAKE-DIRECT-SLOTD │ │ │ │ +INITARGS │ │ │ │ +KEYWORDCLASS │ │ │ │ +INITARGS │ │ │ │ +,FUNCTION │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +DIRECT-SLOT-DEFINITION-CLASS │ │ │ │ +INITARGS │ │ │ │ +INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +MAKE-DIRECT-SLOTD │ │ │ │ +PCL DIRECT-SLOTS slot WRITER │ │ │ │ +PCL DIRECT-SLOTS slot READER │ │ │ │ PCL PREDICATE-NAME slot READER │ │ │ │ PCL PREDICATE-NAME slot WRITER │ │ │ │ PCL DIRECT-SUBCLASSES slot READER │ │ │ │ PCL DIRECT-SUBCLASSES slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -204173,36 +203628,35 @@ │ │ │ │ ,IGNORABLE │ │ │ │ MAKE-READER-METHOD-FUNCTION │ │ │ │ MAKE-STD-READER-METHOD-FUNCTION │ │ │ │ ,CLASS-NAME │ │ │ │ SLOT-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ (FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T)) │ │ │ │ -MAKE-READER-METHOD-FUNCTION │ │ │ │ +gcl_pcl_fsc.o │ │ │ │ +NEW-CLASS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -ADD-READER-METHOD │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ SLOT-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ SLOT-CLASS │ │ │ │ -0(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T)) │ │ │ │ +8(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -204215,16 +203669,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -204246,81 +203698,174 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -ADD-READER-METHOD │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ + SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ + SLOT-NAME │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +MAKE-STD-WRITER-METHOD-FUNCTION │ │ │ │ +,CLASS-NAME │ │ │ │ + SLOT-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + SLOT-NAME │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ + SLOT-NAME │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +H(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + SLOT-NAME │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ + SLOT-NAME │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -ADD-READER-METHOD │ │ │ │ -,ADD-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -MAKE-A-METHOD │ │ │ │ -STANDARD-READER-METHOD │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +MAKE-STD-WRITER-METHOD-FUNCTION │ │ │ │ ,CLASS-NAME │ │ │ │ -SYSTEMOBJECT │ │ │ │ -MAKE-READER-METHOD-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ -%automatically generated reader method │ │ │ │ - SLOT-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T)) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ +(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T)) │ │ │ │ +MAKE-WRITER-METHOD-FUNCTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -REMOVE-READER-METHOD │ │ │ │ -SLOT-CLASS │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,STANDARD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -SLOT-CLASS │ │ │ │ -1(FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T)) │ │ │ │ +,STANDARD-CLASS │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +M(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -204333,15 +203878,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -204362,71 +203906,158 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -REMOVE-READER-METHOD │ │ │ │ -SLOT-CLASS │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,STANDARD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ +(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS)) │ │ │ │ +EXPAND-LONG-DEFCOMBIN │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +1(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -REMOVE-READER-METHOD │ │ │ │ -GET-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,METHOD │ │ │ │ -,REMOVE-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T)) │ │ │ │ -REMOVE-READER-METHOD │ │ │ │ +(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS)) │ │ │ │ +MAKE-READER-METHOD-FUNCTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +ADD-READER-METHOD │ │ │ │ SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-CLASS │ │ │ │ -8(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ +0(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -204439,14 +204070,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -204468,68 +204101,81 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +ADD-READER-METHOD │ │ │ │ SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ -MAKE-STD-WRITER-METHOD-FUNCTION │ │ │ │ +ADD-READER-METHOD │ │ │ │ +,ADD-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +MAKE-A-METHOD │ │ │ │ +STANDARD-READER-METHOD │ │ │ │ ,CLASS-NAME │ │ │ │ +SYSTEMOBJECT │ │ │ │ +MAKE-READER-METHOD-FUNCTION │ │ │ │ + SLOT-NAME │ │ │ │ +%automatically generated reader method │ │ │ │ SLOT-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ +(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ +REMOVE-READER-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - SLOT-NAME │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -H(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +SLOT-CLASS │ │ │ │ +1(FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -204542,15 +204188,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ - SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -204571,50 +204217,52 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ +REMOVE-READER-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ -MAKE-STD-WRITER-METHOD-FUNCTION │ │ │ │ -,CLASS-NAME │ │ │ │ - SLOT-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ -(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T)) │ │ │ │ -MAKE-WRITER-METHOD-FUNCTION │ │ │ │ +REMOVE-READER-METHOD │ │ │ │ +GET-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,METHOD │ │ │ │ +,REMOVE-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T)) │ │ │ │ +REMOVE-READER-METHOD │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ @@ -205168,25 +204816,28 @@ │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ KEYWORDAFTER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ +METHOD-SPEC │ │ │ │ +QUALIFIERS │ │ │ │ +INITARGS │ │ │ │ SLOT-NAMES │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -:(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +:(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -205234,15 +204885,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -205255,507 +204906,62 @@ │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ -FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ +INITARGS │ │ │ │ +,LIST*/! │ │ │ │ +SYSTEMKB │ │ │ │ +-QUALIFIERS │ │ │ │ +-METHOD-SPEC │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Key ~s missing value │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +QUALIFIERS │ │ │ │ +METHOD-SPEC │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE9 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -4INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -4INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -.NEW-VALUE. │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ +SLOT-NAMES │ │ │ │ ,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ -.NEW-VALUE. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP TYPE slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T)) │ │ │ │ -PCL FROM-DEFCLASS-P slot READER │ │ │ │ -PCL INTERNAL-READER-FUNCTION slot WRITER │ │ │ │ -PCL INTERNAL-WRITER-FUNCTION slot WRITER │ │ │ │ -PCL DEFSTRUCT-FORM slot WRITER │ │ │ │ -PCL DEFSTRUCT-CONSTRUCTOR slot WRITER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/sb_ansi_gcl/gcl_pcl_cpl.o │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -FIND-SUPERCLASS-CHAIN │ │ │ │ -,RETURN-FROM │ │ │ │ -FIND-SUPERCLASS-CHAIN │ │ │ │ -,NREVERSE │ │ │ │ -DOLIST271 │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -FIND-SUPERCLASS-CHAIN │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -FORMAT-STRING │ │ │ │ -FORMAT-ARGS │ │ │ │ - CPL-ERROR │ │ │ │ ->While computing the class precedence list of the class ~A.~%~A │ │ │ │ -,CLASS-NAME │ │ │ │ -named ~S │ │ │ │ -,CLASS-NAME │ │ │ │ -,FUNCTION │ │ │ │ -FORMAT-STRING │ │ │ │ -FORMAT-ARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPL-ERROR │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -FORWARD-CLASS │ │ │ │ -"CPL-FORWARD-REFERENCED-CLASS-ERROR │ │ │ │ -CLASS-OR-NAME │ │ │ │ -,CLASS-NAME │ │ │ │ -named ~S │ │ │ │ -,CLASS-NAME │ │ │ │ -,FUNCTION │ │ │ │ -CLASS-OR-NAME │ │ │ │ -FIND-SUPERCLASS-CHAIN │ │ │ │ -FORWARD-CLASS │ │ │ │ - CPL-ERROR │ │ │ │ -SThe class ~A is a forward referenced class.~@ │ │ │ │ - The class ~A is ~A. │ │ │ │ -CLASS-OR-NAME │ │ │ │ -FORWARD-CLASS │ │ │ │ -CLASS-OR-NAME │ │ │ │ -FORWARD-CLASS │ │ │ │ -#a direct superclass of the class ~A │ │ │ │ -CLASS-OR-NAME │ │ │ │ -reached from the class ~A by following~@ │ │ │ │ - the direct superclass chain through: ~A~ │ │ │ │ - ~% ending at the class ~A │ │ │ │ -CLASS-OR-NAME │ │ │ │ -~{~% the class ~A,~} │ │ │ │ -,BUTLAST │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPL-FORWARD-REFERENCED-CLASS-ERROR │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ - CPD-CLASS │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -.C-STRSTD-SSELF │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPD-CLASS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -MAKE-CPD │ │ │ │ - CPD-CLASS │ │ │ │ -CPD-SUPERS │ │ │ │ - CPD-AFTER │ │ │ │ - CPD-COUNT │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -SYSTEMMAKE-STRUCTURE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ - CPD-CLASS │ │ │ │ -CPD-SUPERS │ │ │ │ - CPD-AFTER │ │ │ │ - CPD-COUNT │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -MAKE-CPD │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -COMPUTE-STD-CPL-PHASE-1 │ │ │ │ -NCLASSES │ │ │ │ -ALL-CPDS │ │ │ │ -,MAKE-HASH-TABLE │ │ │ │ -KEYWORDSIZE │ │ │ │ -)*COMPUTE-STD-CPL-CLASS->ENTRY-TABLE-SIZE* │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -NCLASSES │ │ │ │ -,GETHASH │ │ │ │ -MAKE-CPD │ │ │ │ +METHOD-SPEC │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +INITIALIZE-METHOD-FUNCTION │ │ │ │ +INITARGS │ │ │ │ +QUALIFIERS │ │ │ │ +QUALIFIERS │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE./ │ │ │ │ -SYSTEMHASH-SET./0 │ │ │ │ -FORWARD-REFERENCED-CLASS-P │ │ │ │ -"CPL-FORWARD-REFERENCED-CLASS-ERROR │ │ │ │ - CPD-CLASS │ │ │ │ -STR-REFSET304 │ │ │ │ -STR-REFSET305 │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -4C-STRSTD-SSELF2 │ │ │ │ -NCLASSES │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT5 │ │ │ │ -NCLASSES5 │ │ │ │ -ALL-CPDS │ │ │ │ -ALL-CPDS │ │ │ │ -,FUNCTION │ │ │ │ -4*OBJECT │ │ │ │ -4C-STRSTD-SSELF2 │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE7 │ │ │ │ -,TAGBODY! │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -,RETURN-FROM │ │ │ │ -ALL-CPDS │ │ │ │ -NCLASSES │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -COMPUTE-STD-CPL-PHASE-1 │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -CPD-SUPERS │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -.C-STRSTD-SSELF │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPD-SUPERS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ - CPD-COUNT │ │ │ │ -,FIXNUM │ │ │ │ -CSTRUCT*FIXNUM │ │ │ │ -.C-STRSTD-SSELF │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPD-COUNT │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ - CPD-AFTER │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -.C-STRSTD-SSELF │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPD-AFTER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -ALL-CPDS │ │ │ │ -COMPUTE-STD-CPL-PHASE-2 │ │ │ │ -DOLIST271 │ │ │ │ -ALL-CPDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ -CPD-SUPERS │ │ │ │ -STR-REFSET304 │ │ │ │ -STR-REFSET305 │ │ │ │ - CPD-AFTER │ │ │ │ -CSTRUCT*OBJECT │ │ │ │ -1C-STRSTD-SSELF/ │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT4 │ │ │ │ - CPD-COUNT24 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE2 │ │ │ │ -1*FIXNUM │ │ │ │ -1C-STRSTD-SSELF/ │ │ │ │ -,TAGBODY. │ │ │ │ -,TAGBODY │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT7 │ │ │ │ - CPD-COUNT57 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE5 │ │ │ │ -1*FIXNUM │ │ │ │ -1C-STRSTD-SSELF/ │ │ │ │ - CPD-AFTER9 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE9 │ │ │ │ -1*OBJECT │ │ │ │ -1C-STRSTD-SSELF/ │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -COMPUTE-STD-CPL-PHASE-2 │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -ALL-CPDS │ │ │ │ -FIND-CYCLE-REASONS │ │ │ │ - BEEN-HERE │ │ │ │ -CYCLE-REASONS │ │ │ │ -KEYWORDTEST! │ │ │ │ -RECORD-CYCLE │ │ │ │ -,NREVERSE │ │ │ │ - BEEN-HERE │ │ │ │ - BEEN-HERE │ │ │ │ - BEEN-HERE │ │ │ │ -DOLIST271 │ │ │ │ - CPD-AFTER │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,TAGBODY! │ │ │ │ -,RETURN-FROM │ │ │ │ -RECORD-CYCLE │ │ │ │ -,TAGBODY1 │ │ │ │ -CPD-SUPERS │ │ │ │ -REASONS │ │ │ │ -REASONS │ │ │ │ -ALL-CPDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,TAGBODY1 │ │ │ │ -CPD-SUPERS │ │ │ │ -,RETURN-FROM │ │ │ │ - -IN-SUPERS │ │ │ │ -REASONS │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -,NREVERSE │ │ │ │ -REASONS │ │ │ │ -CYCLE-REASONS │ │ │ │ -CYCLE-REASONS │ │ │ │ -ALL-CPDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,TAGBODY1 │ │ │ │ - CPD-COUNT │ │ │ │ -,RETURN-FROM │ │ │ │ -CYCLE-REASONS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -FIND-CYCLE-REASONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -REASONS │ │ │ │ -FORMAT-CYCLE-REASONS │ │ │ │ -CLASS-OR-NAME │ │ │ │ - CPD-CLASS │ │ │ │ -,CLASS-NAME │ │ │ │ -named ~S │ │ │ │ -,CLASS-NAME │ │ │ │ -,FUNCTION │ │ │ │ -KEYWORDSUPER │ │ │ │ -2the class ~A appears in the supers of the class ~A │ │ │ │ -CLASS-OR-NAME │ │ │ │ -CLASS-OR-NAME │ │ │ │ - -IN-SUPERS │ │ │ │ -?the class ~A follows the class ~A in the supers of the class ~A │ │ │ │ -CLASS-OR-NAME │ │ │ │ -CLASS-OR-NAME │ │ │ │ -CLASS-OR-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -FORMAT-CYCLE-REASONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -ALL-CPDS │ │ │ │ -CPL-INCONSISTENT-ERROR │ │ │ │ -FIND-CYCLE-REASONS │ │ │ │ -ALL-CPDS │ │ │ │ - CPL-ERROR │ │ │ │ -It is not possible to compute the class precedence list because~@ │ │ │ │ - there ~A in the local precedence relations.~@ │ │ │ │ - ~A because:~{~% ~A~}. │ │ │ │ -are circularities │ │ │ │ -is a circularity │ │ │ │ -These arise │ │ │ │ -This arises │ │ │ │ -FORMAT-CYCLE-REASONS │ │ │ │ + ,IGNORABLE;< │ │ │ │ +,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CPL-INCONSISTENT-ERROR │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -ALL-CPDS │ │ │ │ -NCLASSES │ │ │ │ -,DECLARE │ │ │ │ -NCLASSES │ │ │ │ -COMPUTE-STD-CPL-PHASE-3 │ │ │ │ -CANDIDATES │ │ │ │ -NEXT-CPD │ │ │ │ -DOLIST271 │ │ │ │ -ALL-CPDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ - CPD-COUNT │ │ │ │ -CANDIDATES │ │ │ │ -CANDIDATES │ │ │ │ -,RETURN-FROM │ │ │ │ -,TAGBODY! │ │ │ │ -CANDIDATES │ │ │ │ -NCLASSES │ │ │ │ -,RETURN-FROM │ │ │ │ -,REVERSE │ │ │ │ -CPL-INCONSISTENT-ERROR │ │ │ │ -ALL-CPDS │ │ │ │ -NEXT-CPD │ │ │ │ -CANDIDATES │ │ │ │ -PROG1266 │ │ │ │ -CANDIDATES │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE1 │ │ │ │ -CANDIDATES │ │ │ │ -TIE-BREAKER │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY. │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ - CPD-CLASS │ │ │ │ -CANDIDATES │ │ │ │ -KEYWORDTEST! │ │ │ │ -,RETURN-FROM │ │ │ │ -TIE-BREAKER │ │ │ │ -CANDIDATES │ │ │ │ -CANDIDATES │ │ │ │ -CANDIDATES4 │ │ │ │ -CANDIDATES │ │ │ │ -,TAGBODY. │ │ │ │ - CPD-CLASS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE5 │ │ │ │ -,RPLACD566 │ │ │ │ -,RETURN-FROM │ │ │ │ -TIE-BREAKER │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -NCLASSES │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT8 │ │ │ │ -NCLASSES8 │ │ │ │ - CPD-CLASS │ │ │ │ -NEXT-CPD │ │ │ │ - CPD-AFTER │ │ │ │ -NEXT-CPD │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY. │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT< │ │ │ │ - CPD-COUNT:< │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE: │ │ │ │ -STR-REFSET304: │ │ │ │ -STR-REFSET305; │ │ │ │ -CSTRUCT*FIXNUM │ │ │ │ -?C-STRSTD-SSELF= │ │ │ │ -CANDIDATES │ │ │ │ -CANDIDATES │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -COMPUTE-STD-CPL-PHASE-3 │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -COMPUTE-STD-CPL │ │ │ │ -COMPUTE-STD-CPL │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -ALL-CPDS │ │ │ │ -NCLASSES │ │ │ │ -COMPUTE-STD-CPL-PHASE-1 │ │ │ │ -COMPUTE-STD-CPL-PHASE-2 │ │ │ │ -ALL-CPDS │ │ │ │ -COMPUTE-STD-CPL-PHASE-3 │ │ │ │ -ALL-CPDS │ │ │ │ -NCLASSES │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -COMPUTE-STD-CPL │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,CHECK-TYPE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -!COPY-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -,COPY-STRUCTURE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -COPY-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - CPD-CLASS │ │ │ │ -CPD-SUPERS │ │ │ │ - CPD-AFTER │ │ │ │ - CPD-COUNT │ │ │ │ -'__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -SYSTEMMAKE-STRUCTURE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ - CPD-CLASS │ │ │ │ -CPD-SUPERS │ │ │ │ - CPD-AFTER │ │ │ │ - CPD-COUNT │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION-P │ │ │ │ -,BOOLEAN │ │ │ │ --INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -CSTRUCTC-STRUCTURE-DEF │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ --INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ - ,STRUCTURE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ --INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ - ,STRUCTURE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ - ,OTHERWISE │ │ │ │ --INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ - ,STRUCTURE │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -CLASS-PRECEDENCE-DESCRIPTION-P │ │ │ │ -Key ~s missing value │ │ │ │ -Key ~s ~s not permitted │ │ │ │ -*COMPUTE-STD-CPL-CLASS->ENTRY-TABLE-SIZE* │ │ │ │ -named ~S │ │ │ │ -While computing the class precedence list of the class ~A.~%~A │ │ │ │ -named ~S │ │ │ │ -a direct superclass of the class ~A │ │ │ │ -~{~% the class ~A,~} │ │ │ │ -reached from the class ~A by following~@ │ │ │ │ - the direct superclass chain through: ~A~ │ │ │ │ - ~% ending at the class ~A │ │ │ │ -The class ~A is a forward referenced class.~@ │ │ │ │ - The class ~A is ~A. │ │ │ │ -are circularities │ │ │ │ -is a circularityThese arise │ │ │ │ -This arises │ │ │ │ -It is not possible to compute the class precedence list because~@ │ │ │ │ - there ~A in the local precedence relations.~@ │ │ │ │ - ~A because:~{~% ~A~}. │ │ │ │ -named ~S │ │ │ │ -the class ~A appears in the supers of the class ~A │ │ │ │ -the class ~A follows the class ~A in the supers of the class ~A │ │ │ │ +PLIST-VALUE=;< │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T)) │ │ │ │ +PCL SPECIALIZERS slot READER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-CLASS-PRECEDENCE-LIST │ │ │ │ -SLOT-CLASS │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SLOT-CLASS │ │ │ │ -8(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS)) │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +>(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -205768,14 +204974,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -205796,16 +205003,16 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-CLASS-PRECEDENCE-LIST │ │ │ │ -SLOT-CLASS │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -205819,88 +205026,62 @@ │ │ │ │ 0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -COMPUTE-CLASS-PRECEDENCE-LIST │ │ │ │ -COMPUTE-STD-CPL │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_cpl.lisp │ │ │ │ -(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS)) │ │ │ │ -gcl_pcl_cpl.o │ │ │ │ -PCL NAME slot READER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -STANDARD-SVUC-METHOD │ │ │ │ -(*STANDARD-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ --*STANDARD-SETF-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ -)*STANDARD-SLOT-BOUNDP-USING-CLASS-METHOD* │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -STANDARD-SVUC-METHOD │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -STRUCTURE-SVUC-METHOD │ │ │ │ -)*STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ -.*STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ -**STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD* │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -STRUCTURE-SVUC-METHOD │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -GET-ACCESSOR-METHOD-FUNCTION │ │ │ │ -STD-METHOD │ │ │ │ -STANDARD-SVUC-METHOD │ │ │ │ -STR-METHOD │ │ │ │ -STRUCTURE-SVUC-METHOD │ │ │ │ -CLASS-EQ │ │ │ │ -METHODS │ │ │ │ -&COMPUTE-APPLICABLE-METHODS-USING-TYPES │ │ │ │ -*GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION │ │ │ │ -&GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION │ │ │ │ -GET-SECONDARY-DISPATCH-FUNCTION │ │ │ │ -STD-METHOD │ │ │ │ -METHODS │ │ │ │ -STR-METHOD │ │ │ │ -%error in get-accessor-method-function │ │ │ │ -8GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ -METHOD-SPECIALIZERS │ │ │ │ -*THE-CLASS-T* │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -WRAPPERS │ │ │ │ -WRAPPER-OF │ │ │ │ -CLASS-WRAPPER │ │ │ │ -WRAPPER-OF │ │ │ │ -CLASS-WRAPPER │ │ │ │ -*THE-CLASS-T* │ │ │ │ -WRAPPERS │ │ │ │ -WRAPPERS │ │ │ │ +,METHOD │ │ │ │ +pv-table │ │ │ │ +,METHOD │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP4 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM4 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP4 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL SPECIALIZERS slot READER │ │ │ │ +,METHOD4 │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -GET-ACCESSOR-METHOD-FUNCTION │ │ │ │ -PCL ACCESSOR-FLAGS slot WRITER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +STANDARD-WRITER-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +STANDARD-WRITER-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -H(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ +STANDARD-WRITER-METHOD │ │ │ │ +<(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -205913,15 +205094,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -205942,327 +205123,99 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +STANDARD-WRITER-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +,METHOD │ │ │ │ pv-table │ │ │ │ -.SLOTS1. │ │ │ │ +,METHOD │ │ │ │ +.SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ -6INFER-TP │ │ │ │ +3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -6INFER-TP │ │ │ │ +3INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ -6INFER-TP │ │ │ │ +3INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -*SLOTD-READER-FUNCTION-STD-P* │ │ │ │ -*SLOTD-WRITER-FUNCTION-STD-P* │ │ │ │ -*SLOTD-BOUNDP-FUNCTION-STD-P* │ │ │ │ -,DECLARE! │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -6INFER-TP8 │ │ │ │ +3INFER-TP4 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ -.SLOTS1. │ │ │ │ -,FIXNUM8 │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM4 │ │ │ │ ,OTHERWISE │ │ │ │ -6INFER-TP8 │ │ │ │ +3INFER-TP4 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL ACCESSOR-FLAGS slot READER │ │ │ │ -,DECLARE │ │ │ │ -.NEW-VALUE. │ │ │ │ -,FIXNUM │ │ │ │ -,FIXNUM │ │ │ │ -,LOGAND │ │ │ │ -,DECLARE7 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS1. │ │ │ │ -,FIXNUM: │ │ │ │ -.NEW-VALUE. │ │ │ │ -9PCL ACCESSOR-FLAGS slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ -PCL::SLOT-ACCESSOR-STD-P │ │ │ │ -PCL::SLOT-DEFINITION-WRITER-FUNCTION │ │ │ │ -PCL::SLOT-DEFINITION-BOUNDP-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,FUNCTION │ │ │ │ -K(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -,FUNCTION │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,FUNCTION │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-READER-FUNCTION76 │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE8 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-WRITER-FUNCTION98 │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE: │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-BOUNDP-FUNCTION;: │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ +SLOT-ACCESSOR-NAMEPCL SPECIALIZERS slot READER │ │ │ │ +,METHOD4 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD)) │ │ │ │ +MAKE-LONG-METHOD-COMBINATION-FUNCTION │ │ │ │ +pv-table │ │ │ │ +pv-table │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +DEAL-WITH-ARGUMENTS-OPTION │ │ │ │ +PCL SLOT-DEFINITION slot WRITER │ │ │ │ +PCL SLOT-NAME slot READER │ │ │ │ +PCL SLOT-DEFINITION slot READER │ │ │ │ +PCL SLOT-NAME slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -B(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -SLOT-DEFINITION-READER-FUNCTION │ │ │ │ -SLOT-DEFINITION-WRITER-FUNCTION │ │ │ │ -SLOT-DEFINITION-BOUNDP-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ -SLOT-ACCESSOR-FUNCTION │ │ │ │ -PCL::SLOT-ACCESSOR-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +KEYWORDAFTER │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -H(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)) │ │ │ │ +SLOT-NAMES │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +C(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -206275,308 +205228,203 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ +SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +SLOT-NAMES │ │ │ │ pv-table │ │ │ │ +,METHOD │ │ │ │ .SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ -6INFER-TP │ │ │ │ +4INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -6INFER-TP │ │ │ │ +4INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ -6INFER-TP │ │ │ │ +4INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE5 │ │ │ │ ,DECLARE │ │ │ │ +VARIABLE-REBINDING5 │ │ │ │ +,METHOD5 │ │ │ │ +,DECLARE! │ │ │ │ ,OPTIMIZE │ │ │ │ -6INFER-TP8 │ │ │ │ +4INFER-TP8 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM8 │ │ │ │ ,OTHERWISE │ │ │ │ -6INFER-TP8 │ │ │ │ +4INFER-TP8 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL NAME slot READER │ │ │ │ -6INFER-TP: │ │ │ │ +SLOT-ACCESSOR-NAMEPCL SLOT-DEFINITION slot READER │ │ │ │ +,METHOD8 │ │ │ │ +ACCESSOR-METHOD-CLASS │ │ │ │ +,METHOD │ │ │ │ +SLOT-CLASS-P │ │ │ │ +.NEW-VALUE. │ │ │ │ +4INFER-TP: │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM: │ │ │ │ ,OTHERWISE │ │ │ │ -6INFER-TP: │ │ │ │ +4INFER-TP: │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -9COMMON-LISP CLASS slot READER │ │ │ │ - OLD-SLOTD │ │ │ │ -FIND-SLOT-DEFINITION │ │ │ │ - OLD-STD-P │ │ │ │ - OLD-SLOTD │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ - OLD-SLOTD │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -,FUNCTION │ │ │ │ -*BOOT-STATE* │ │ │ │ -COMPLETE │ │ │ │ -GET-ACCESSOR-METHOD-FUNCTION │ │ │ │ -*GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE;< │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-ACCESSOR-STD-P=;< │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE>? │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-ACCESSOR-FUNCTION@>? │ │ │ │ - OLD-SLOTD │ │ │ │ - OLD-STD-P │ │ │ │ -SLOT-ACCESSOR-STD-P │ │ │ │ -*PV-TABLE-CACHE-UPDATE-INFO* │ │ │ │ -*PV-TABLE-CACHE-UPDATE-INFO* │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)) │ │ │ │ -COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -L(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ -EFFECTIVE-SLOT-DEFINITION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ +9PCL SLOT-NAME slot READER │ │ │ │ +,METHOD: │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ ,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +,DECLARE7 │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM< │ │ │ │ +.NEW-VALUE. │ │ │ │ +9PCL SLOT-DEFINITION slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +,METHOD │ │ │ │ +4INFER-TP= │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM= │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP5 │ │ │ │ +4INFER-TP= │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +9PCL SLOT-DEFINITION slot READER │ │ │ │ +,METHOD= │ │ │ │ +4INFER-TP> │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ +,FIXNUM> │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP5 │ │ │ │ +4INFER-TP> │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL NAME slot READER │ │ │ │ -3INFER-TP7 │ │ │ │ +9PCL SLOT-NAME slot READER │ │ │ │ +,METHOD> │ │ │ │ +.NEW-VALUE. │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +4INFER-TP? │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM7 │ │ │ │ +,FIXNUM? │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP7 │ │ │ │ +4INFER-TP? │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -6COMMON-LISP CLASS slot READER │ │ │ │ -,GETHASH │ │ │ │ -*NAME->CLASS->SLOTD-TABLE* │ │ │ │ -*NAME->CLASS->SLOTD-TABLE* │ │ │ │ -,MAKE-HASH-TABLE │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE89 │ │ │ │ -3HASH-SET89: │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE;< │ │ │ │ -3HASH-SET;<= │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE> │ │ │ │ -,TAGBODY! │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -SLOT-BOUNDP-USING-CLASS │ │ │ │ -GDEFINITION │ │ │ │ -COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ -,RETURN-FROM │ │ │ │ -INITIALIZE-INTERNAL-SLOT-GFS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -pv-table │ │ │ │ -INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +9PCL SLOT-DEFINITION slot READER │ │ │ │ +,METHOD? │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM@ │ │ │ │ +.NEW-VALUE. │ │ │ │ +9PCL SLOT-NAME slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +is not a symbol and so cannot be bound │ │ │ │ +is a keyword and so cannot be bound │ │ │ │ +is a constant and so cannot be bound │ │ │ │ +cannot be bound │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -KEYWORDAROUND │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-SLOT-NAME-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -5(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +3(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -206617,68 +205465,76 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +LEGAL-SLOT-NAME-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS)) │ │ │ │ -PCL CLASS-PRECEDENCE-LIST slot READER │ │ │ │ -gcl_pcl_init.o │ │ │ │ +-OBJECT │ │ │ │ +LEGAL-SLOT-NAME-P │ │ │ │ +,SYMBOLP │ │ │ │ +&is not a symbol and so cannot be bound │ │ │ │ +,KEYWORDP │ │ │ │ +#is a keyword and so cannot be bound │ │ │ │ +cannot be bound │ │ │ │ + ,CONSTANTP │ │ │ │ +$is a constant and so cannot be bound │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-SLOT-NAME-P │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,INITIALIZE-INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +KEYWORDBEFORE │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ -/(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ +SLOT-DEFINITION │ │ │ │ + SLOT-NAME │ │ │ │ +SLOT-NAMES │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +D(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -206691,15 +205547,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -206725,69 +205581,76 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,INITIALIZE-INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ +SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ -INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +SYSTEMKB │ │ │ │ + -SLOT-NAME │ │ │ │ +-SLOT-DEFINITION │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Key ~s missing value │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ + SLOT-NAME │ │ │ │ +SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE7 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -INSTANCE │ │ │ │ -,INITIALIZE-INSTANCE │ │ │ │ -,FUNCTION │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ -(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ -LAMBDA-LIST-P │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +SLOT-NAMES │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +SLOT-DEFINITION │ │ │ │ +LEGAL-SLOT-NAME-P │ │ │ │ + SLOT-NAME │ │ │ │ +'The value of the :SLOT-NAME initarg ~A. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +is not a non-null atom │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,INITIALIZE-INSTANCE │ │ │ │ -KEYWORDAFTER │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-QUALIFIER-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -LAMBDA-LIST │ │ │ │ -LAMBDA-LIST-P │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -D(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +3(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -206802,132 +205665,90 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,INITIALIZE-INSTANCE │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +LEGAL-QUALIFIER-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SYSTEMKB │ │ │ │ --LAMBDA-LIST │ │ │ │ --ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -LAMBDA-LIST │ │ │ │ -LAMBDA-LIST-P1 │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -6INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -6INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -6INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,INITIALIZE-INSTANCE │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE7 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING7 │ │ │ │ -LAMBDA-LIST-P │ │ │ │ -SET-ARG-INFO │ │ │ │ --LAMBDA-LIST │ │ │ │ -LAMBDA-LIST │ │ │ │ --ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -SET-ARG-INFO │ │ │ │ -ARG-INFO-VALID-P │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -6INFER-TP8 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM8 │ │ │ │ - ,OTHERWISE │ │ │ │ -6INFER-TP8 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL ARG-INFO slot READER │ │ │ │ -UPDATE-DFUN │ │ │ │ +-OBJECT │ │ │ │ +LEGAL-QUALIFIER-P │ │ │ │ +is not a non-null atom │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-QUALIFIER-P │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -1(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +4(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -206968,57 +205789,81 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +-OBJECT │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +IMPROPER-LIST │ │ │ │ +,RETURN-FROM │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +Is not a proper list. │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +,TAGBODY! │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +,RETURN-FROM │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +.DOLIST-CAREFULLY.7 │ │ │ │ +LEGAL-QUALIFIER-P │ │ │ │ +,RETURN-FROM │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +Contains ~S which ~A │ │ │ │ +IMPROPER-LIST │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-DOCUMENTATION-P │ │ │ │ +a string or NULL │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-DOCUMENTATION-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ --(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +7(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -207059,116 +205904,66 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +LEGAL-DOCUMENTATION-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -,FUNCTION │ │ │ │ -SUPERCLASS │ │ │ │ -,FUNCTION │ │ │ │ -!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ -SUPERCLASS │ │ │ │ -,REVERSE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM4 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL CLASS-PRECEDENCE-LIST slot READER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS)) │ │ │ │ -pv-table │ │ │ │ +-OBJECT │ │ │ │ +LEGAL-DOCUMENTATION-P │ │ │ │ +,STRINGP │ │ │ │ +a string or NULL │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +WRAP-METHOD-GROUP-SPECIFIER-BINDINGS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -INSTANCE-ESLOTDS │ │ │ │ -COMPUTE-LAYOUT │ │ │ │ -,MACROLET │ │ │ │ -ITERATEGATHER │ │ │ │ -.GATHERING1. │ │ │ │ -DOLIST271 │ │ │ │ -INSTANCE-ESLOTDS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,TAGBODY! │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -KEYWORDINSTANCE │ │ │ │ -,RPLACD. │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -,RETURN-FROM │ │ │ │ -CLASS-SLOTS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,TAGBODY1 │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -,RETURN-FROM │ │ │ │ -,SLOT-BOUNDP │ │ │ │ -,REVERSE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -COMPUTE-LAYOUT │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-SLOT-CELLS │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-LAMBDA-LIST-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - STD-CLASS │ │ │ │ -*(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +5(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -207209,62 +206004,63 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-SLOT-CELLS │ │ │ │ - STD-CLASS │ │ │ │ +LEGAL-LAMBDA-LIST-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -CLASS-SLOT-CELLS │ │ │ │ -PLIST-VALUE │ │ │ │ -CLASS-SLOT-CELLS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS)) │ │ │ │ -CLASS-SLOT-CELLS@i │ │ │ │ -PCL::SLOT-DEFINITION-LOCATION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +LEGAL-LAMBDA-LIST-P │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-LAMBDA-LIST-P │ │ │ │ +is neither a class object nor an eql specializer │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -KEYWORDAROUND │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-SPECIALIZER-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - STD-CLASS │ │ │ │ -/(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +5(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -207305,102 +206101,67 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-SLOTS │ │ │ │ - STD-CLASS │ │ │ │ +LEGAL-SPECIALIZER-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CLASS-PRECEDENCE-LIST │ │ │ │ -INSTANCE-SLOTS │ │ │ │ -CLASS-SLOTS │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE3 │ │ │ │ -,TAGBODY! │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ --INSTANCE │ │ │ │ -INSTANCE-SLOTS │ │ │ │ -INSTANCE-SLOTS │ │ │ │ -CLASS-SLOTS │ │ │ │ -CLASS-SLOTS │ │ │ │ -,RETURN-FROM │ │ │ │ -NLAYOUT │ │ │ │ -COMPUTE-LAYOUT │ │ │ │ -INSTANCE-SLOTS │ │ │ │ -INSTANCE-SLOTS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE3 │ │ │ │ -,TAGBODY4 │ │ │ │ -,POSITION │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE7 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-LOCATION87 │ │ │ │ -,RETURN-FROM │ │ │ │ -CLASS-SLOTS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE3 │ │ │ │ -,TAGBODY4 │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -CLASS-SLOT-CELLS │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE9 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-LOCATION:9 │ │ │ │ -,RETURN-FROM │ │ │ │ -,FUNCTION │ │ │ │ -"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +-OBJECT │ │ │ │ +LEGAL-SPECIALIZER-P │ │ │ │ +#*ALLOW-EXPERIMENTAL-SPECIALIZERS-P* │ │ │ │ +SPECIALIZERP │ │ │ │ +EQL-SPECIALIZER-P │ │ │ │ +0is neither a class object nor an eql specializer │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-SPECIALIZER-P │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -COMPUTE-SLOTS │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - STD-CLASS │ │ │ │ -'(FAST-METHOD COMPUTE-SLOTS (STD-CLASS)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +6(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -207441,94 +206202,81 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -COMPUTE-SLOTS │ │ │ │ - STD-CLASS │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -COMPUTE-SLOTS │ │ │ │ -NAME-DSLOTDS-ALIST │ │ │ │ -DOLIST271 │ │ │ │ -CLASS-PRECEDENCE-LIST │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE3 │ │ │ │ +-OBJECT │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +IMPROPER-LIST │ │ │ │ +,RETURN-FROM │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +Is not a proper list. │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ ,TAGBODY! │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE3 │ │ │ │ -,TAGBODY4 │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -NAME-DSLOTDS-ALIST │ │ │ │ -,FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE6 │ │ │ │ -,RPLACD677 │ │ │ │ -NAME-DSLOTDS-ALIST │ │ │ │ -NAME-DSLOTDS-ALIST │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ ,RETURN-FROM │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +.DOLIST-CAREFULLY. │ │ │ │ +.DOLIST-CAREFULLY.7 │ │ │ │ +LEGAL-SPECIALIZER-P │ │ │ │ ,RETURN-FROM │ │ │ │ -,FUNCTION │ │ │ │ -!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,NREVERSE │ │ │ │ -NAME-DSLOTDS-ALIST │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-SLOTS (STD-CLASS)) │ │ │ │ -PCL SLOTS slot WRITER │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +Contains ~S which ~A │ │ │ │ +IMPROPER-LIST │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T)) │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +a function │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -KEYWORDAFTER │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -PREDICATE-NAME │ │ │ │ -PREDICATE-NAME-P │ │ │ │ -DIRECT-DEFAULT-INITARGS │ │ │ │ -DIRECT-SLOTS │ │ │ │ -DIRECT-SLOTS-P │ │ │ │ -DIRECT-SUPERCLASSES │ │ │ │ -DIRECT-SUPERCLASSES-P │ │ │ │ -SLOT-NAMES │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -:(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T)) │ │ │ │ +LEGAL-METHOD-FUNCTION-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,STANDARD-METHOD │ │ │ │ +9(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -207541,395 +206289,103 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +LEGAL-METHOD-FUNCTION-P │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SLOT-NAMES │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ --FORMAT-CONTROL │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SLOT-NAMES │ │ │ │ -SYSTEMKB │ │ │ │ --DIRECT-SUPERCLASSES │ │ │ │ --DIRECT-SLOTS │ │ │ │ --DIRECT-DEFAULT-INITARGS │ │ │ │ --PREDICATE-NAME │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SUPERCLASSES │ │ │ │ -DIRECT-SUPERCLASSES-P3 │ │ │ │ -DIRECT-SLOTS │ │ │ │ -DIRECT-SLOTS-P5 │ │ │ │ -DIRECT-DEFAULT-INITARGS │ │ │ │ -PREDICATE-NAME │ │ │ │ -PREDICATE-NAME-P9 │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE; │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ -,DECLARE │ │ │ │ -DIRECT-DEFAULT-INITARGS │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ - │ │ │ │ -(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,METHOD │ │ │ │ -pv-table │ │ │ │ -,METHOD │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM4 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL SPECIALIZERS slot READER │ │ │ │ -,METHOD4 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -STANDARD-WRITER-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -STANDARD-WRITER-METHOD │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -STANDARD-WRITER-METHOD │ │ │ │ -<(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ +~When initializing the method ~S:~%~ │ │ │ │ + The ~S initialization argument was: ~S.~%~ │ │ │ │ + which ~A. │ │ │ │ +CHECK-QUALIFIERS │ │ │ │ +LEGAL-QUALIFIERS-P │ │ │ │ +QUALIFIERS │ │ │ │ +CHECK-LAMBDA-LIST │ │ │ │ +LEGAL-LAMBDA-LIST-P │ │ │ │ +LAMBDA-LIST │ │ │ │ +CHECK-SPECIALIZERS │ │ │ │ +LEGAL-SPECIALIZERS-P │ │ │ │ +SPECIALIZERS │ │ │ │ +CHECK-FUNCTION │ │ │ │ +LEGAL-METHOD-FUNCTION-P │ │ │ │ ,METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -STANDARD-WRITER-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ +FAST-FUNCTION │ │ │ │ +CHECK-DOCUMENTATION │ │ │ │ +LEGAL-DOCUMENTATION-P │ │ │ │ +,DOCUMENTATION │ │ │ │ +CHECK-QUALIFIERS │ │ │ │ +-QUALIFIERS │ │ │ │ +QUALIFIERS │ │ │ │ +CHECK-QUALIFIERS │ │ │ │ +CHECK-LAMBDA-LIST │ │ │ │ +-LAMBDA-LIST │ │ │ │ +LAMBDA-LIST │ │ │ │ +CHECK-LAMBDA-LIST │ │ │ │ +CHECK-SPECIALIZERS │ │ │ │ +-SPECIALIZERS │ │ │ │ +SPECIALIZERS │ │ │ │ +CHECK-SPECIALIZERS │ │ │ │ +CHECK-FUNCTION │ │ │ │ +-FUNCTION │ │ │ │ ,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,METHOD │ │ │ │ -pv-table │ │ │ │ -,METHOD │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM4 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP4 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL SPECIALIZERS slot READER │ │ │ │ -,METHOD4 │ │ │ │ +CHECK-FUNCTION │ │ │ │ +CHECK-DOCUMENTATION │ │ │ │ +-DOCUMENTATION │ │ │ │ +,DOCUMENTATION │ │ │ │ +CHECK-DOCUMENTATION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD)) │ │ │ │ -pv-table │ │ │ │ -pv-table │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -PCL SLOT-DEFINITION slot WRITER │ │ │ │ -PCL SLOT-NAME slot READER │ │ │ │ -PCL SLOT-DEFINITION slot READER │ │ │ │ -PCL SLOT-NAME slot WRITER │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T)) │ │ │ │ +COMMON-LISP CLASS slot READER │ │ │ │ +PCL ALLOCATION slot READER │ │ │ │ +PCL ALLOCATION slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ KEYWORDAFTER │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ SLOT-NAMES │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ -C(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ +C(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -208453,15 +206599,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -208480,15 +206626,14 @@ │ │ │ │ SLOT-NAMES │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ SLOT-NAMES │ │ │ │ pv-table │ │ │ │ -,METHOD │ │ │ │ .SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ 4INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ 4INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ @@ -208497,124 +206642,81 @@ │ │ │ │ 4INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE5 │ │ │ │ ,DECLARE │ │ │ │ VARIABLE-REBINDING5 │ │ │ │ -,METHOD5 │ │ │ │ +.NEW-VALUE. │ │ │ │ ,DECLARE! │ │ │ │ ,OPTIMIZE │ │ │ │ 4INFER-TP8 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM8 │ │ │ │ ,OTHERWISE │ │ │ │ 4INFER-TP8 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL SLOT-DEFINITION slot READER │ │ │ │ -,METHOD8 │ │ │ │ -ACCESSOR-METHOD-CLASS │ │ │ │ -,METHOD │ │ │ │ -SLOT-CLASS-P │ │ │ │ -.NEW-VALUE. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL ALLOCATION slot READER │ │ │ │ 4INFER-TP: │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM: │ │ │ │ ,OTHERWISE │ │ │ │ 4INFER-TP: │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -9PCL SLOT-NAME slot READER │ │ │ │ -,METHOD: │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ -,FUNCTION │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -,DECLARE7 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM< │ │ │ │ -.NEW-VALUE. │ │ │ │ -9PCL SLOT-DEFINITION slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -,METHOD │ │ │ │ -4INFER-TP= │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM= │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP= │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -9PCL SLOT-DEFINITION slot READER │ │ │ │ -,METHOD= │ │ │ │ -4INFER-TP> │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM> │ │ │ │ - ,OTHERWISE │ │ │ │ -4INFER-TP> │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -9PCL SLOT-NAME slot READER │ │ │ │ -,METHOD> │ │ │ │ -.NEW-VALUE. │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -4INFER-TP? │ │ │ │ +9COMMON-LISP CLASS slot READER │ │ │ │ +4INFER-TP; │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM? │ │ │ │ +,FIXNUM; │ │ │ │ ,OTHERWISE │ │ │ │ -4INFER-TP? │ │ │ │ +4INFER-TP; │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -9PCL SLOT-DEFINITION slot READER │ │ │ │ -,METHOD? │ │ │ │ +9PCL ALLOCATION slot READER │ │ │ │ +,DECLARE7 │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM@ │ │ │ │ +,FIXNUM< │ │ │ │ .NEW-VALUE. │ │ │ │ -9PCL SLOT-NAME slot WRITER │ │ │ │ +9PCL ALLOCATION slot WRITER │ │ │ │ .NEW-VALUE. │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ -is not a symbol and so cannot be bound │ │ │ │ -is a keyword and so cannot be bound │ │ │ │ -is a constant and so cannot be bound │ │ │ │ -cannot be bound │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +EQL-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -LEGAL-SLOT-NAME-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +KEYWORDAFTER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -3(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T)) │ │ │ │ +SLOT-NAMES │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +:(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -208627,104 +206729,123 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -LEGAL-SLOT-NAME-P │ │ │ │ -,STANDARD-METHOD │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +EQL-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +SLOT-NAMES │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ --OBJECT │ │ │ │ -LEGAL-SLOT-NAME-P │ │ │ │ -,SYMBOLP │ │ │ │ -&is not a symbol and so cannot be bound │ │ │ │ -,KEYWORDP │ │ │ │ -#is a keyword and so cannot be bound │ │ │ │ -cannot be bound │ │ │ │ - ,CONSTANTP │ │ │ │ -$is a constant and so cannot be bound │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T)) │ │ │ │ -LEGAL-SLOT-NAME-P │ │ │ │ +SLOT-NAMES │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +4INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +4INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +4INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +.NEW-VALUE. │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ +.NEW-VALUE. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP TYPE slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ KEYWORDBEFORE │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SLOT-DEFINITION │ │ │ │ - SLOT-NAME │ │ │ │ +INITARGS │ │ │ │ SLOT-NAMES │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ -D(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +:(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -208772,15 +206893,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -208793,57 +206914,60 @@ │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ -FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ -SYSTEMKB │ │ │ │ - -SLOT-NAME │ │ │ │ --SLOT-DEFINITION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ -SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE7 │ │ │ │ +INITARGS │ │ │ │ +,LIST*/ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -SLOT-DEFINITION │ │ │ │ -LEGAL-SLOT-NAME-P │ │ │ │ - SLOT-NAME │ │ │ │ -'The value of the :SLOT-NAME initarg ~A. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +SLOT-NAMES │ │ │ │ +,DECLARE │ │ │ │ +INITARGS │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +7Attempt to initialize or reinitialize a built in class. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T)) │ │ │ │ +PCL METHOD-CLASS slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -KEYWORDAFTER │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +KEYWORDBEFORE │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,METHOD-COMBINATION │ │ │ │ +METHOD-COMBINATION-SUPPLIED-P │ │ │ │ +METHOD-CLASS │ │ │ │ +METHOD-CLASS-SUPPLIED-P │ │ │ │ +,DOCUMENTATION │ │ │ │ +DECLARATIONS │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +LAMBDA-LIST │ │ │ │ +LAMBDA-LIST-P │ │ │ │ SLOT-NAMES │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -?(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +E(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -208856,14 +206980,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ @@ -208891,89 +207016,186 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ SLOT-NAMES │ │ │ │ -FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ +SYSTEMKB │ │ │ │ +-LAMBDA-LIST │ │ │ │ +-ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +-DECLARATIONS │ │ │ │ +-DOCUMENTATION │ │ │ │ +-METHOD-CLASS │ │ │ │ +-METHOD-COMBINATION │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Key ~s missing value │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +LAMBDA-LIST │ │ │ │ +LAMBDA-LIST-P5 │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +DECLARATIONS │ │ │ │ +,DOCUMENTATION │ │ │ │ +METHOD-CLASS │ │ │ │ +METHOD-CLASS-SUPPLIED-P= │ │ │ │ +,METHOD-COMBINATION │ │ │ │ +METHOD-COMBINATION-SUPPLIED-P? │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNOREA │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +SLOT-NAMES │ │ │ │ +,DECLARE │ │ │ │ +LAMBDA-LIST-P │ │ │ │ +LAMBDA-LIST │ │ │ │ +,DOCUMENTATION │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +DECLARATIONS │ │ │ │ pv-table │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ .SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -4INFER-TP │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +BINFER-TP │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -4INFER-TP │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +BINFER-TP │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,OTHERWISE │ │ │ │ -4INFER-TP │ │ │ │ +BINFER-TP │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -.NEW-VALUE. │ │ │ │ -CLASS-EQ │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -,DECLARE │ │ │ │ +SET-FUNCTION-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +INITARG-ERROR │ │ │ │ +When initializing the generic-function ~S:~%~ │ │ │ │ + The ~S initialization argument was: ~A.~%~ │ │ │ │ + It must be ~A. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +METHOD-CLASS-SUPPLIED-P │ │ │ │ +,SYMBOLP │ │ │ │ +METHOD-CLASS │ │ │ │ +METHOD-CLASS │ │ │ │ +,FIND-CLASS │ │ │ │ +METHOD-CLASS │ │ │ │ +METHOD-CLASS │ │ │ │ + *SUBTYPEP │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +METHOD-CLASS │ │ │ │ +*THE-CLASS-METHOD* │ │ │ │ +INITARG-ERROR │ │ │ │ +-METHOD-CLASS │ │ │ │ +METHOD-CLASS │ │ │ │ +a subclass of the class METHOD │ │ │ │ +.NEW-VALUE. │ │ │ │ +METHOD-CLASS │ │ │ │ +,DECLARE! │ │ │ │ ,OPTIMIZE │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ +,FIXNUMD │ │ │ │ .NEW-VALUE. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP TYPE slot WRITER │ │ │ │ +SLOT-ACCESSOR-NAMEPCL METHOD-CLASS slot WRITER │ │ │ │ .NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLAREC │ │ │ │ +BINFER-TPH │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUMH │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ + ,OTHERWISE │ │ │ │ +BINFER-TPH │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SLOT-BOUNDP-NORMAL │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +METHOD-CLASS │ │ │ │ +INITARG-ERROR │ │ │ │ +-METHOD-CLASS │ │ │ │ +not supplied │ │ │ │ +a subclass of the class METHOD │ │ │ │ +METHOD-COMBINATION-SUPPLIED-P │ │ │ │ +METHOD-COMBINATION-P │ │ │ │ +,METHOD-COMBINATION │ │ │ │ +INITARG-ERROR │ │ │ │ +-METHOD-COMBINATION │ │ │ │ +,METHOD-COMBINATION │ │ │ │ +a method combination object │ │ │ │ +BINFER-TPI │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUMI │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ + ,OTHERWISE │ │ │ │ +BINFER-TPI │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SLOT-BOUNDP-NORMAL │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,METHOD-COMBINATION │ │ │ │ +INITARG-ERROR │ │ │ │ +-METHOD-COMBINATION │ │ │ │ +not supplied │ │ │ │ +a method combination object │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -KEYWORDBEFORE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +KEYWORDAFTER │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ SLOT-NAMES │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -:(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T)) │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +?(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209021,15 +207243,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,SHARED-INITIALIZE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -209042,57 +207264,118 @@ │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ -FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -FORMAT-ARGUMENTS │ │ │ │ SLOT-NAMES │ │ │ │ -INITARGS │ │ │ │ -,LIST*/ │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOT-NAMES │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ -INITARGS │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -7Attempt to initialize or reinitialize a built in class. │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOT-NAMES │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +4INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +4INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +4INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +.NEW-VALUE. │ │ │ │ +CLASS-EQ │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ +.NEW-VALUE. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP TYPE slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T)) │ │ │ │ -SLOT-NAMES │ │ │ │ -DOCUMENTATION-P │ │ │ │ -DIRECT-SUPERCLASSES-P │ │ │ │ -DIRECT-SLOTS-P │ │ │ │ -DIRECT-DEFAULT-INITARGS-P │ │ │ │ -PREDICATE-NAME-P │ │ │ │ -METHOD-SPEC │ │ │ │ -METHOD-CLASS-SUPPLIED-P │ │ │ │ -METHOD-COMBINATION-SUPPLIED-P │ │ │ │ +(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T)) │ │ │ │ +PCL FROM-DEFCLASS-P slot READER │ │ │ │ +PCL INTERNAL-READER-FUNCTION slot WRITER │ │ │ │ +PCL INTERNAL-WRITER-FUNCTION slot WRITER │ │ │ │ +PCL DEFSTRUCT-FORM slot WRITER │ │ │ │ +PCL DEFSTRUCT-CONSTRUCTOR slot WRITER │ │ │ │ +PCL NAME slot READER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +STANDARD-SVUC-METHOD │ │ │ │ +(*STANDARD-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ +-*STANDARD-SETF-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ +)*STANDARD-SLOT-BOUNDP-USING-CLASS-METHOD* │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +STANDARD-SVUC-METHOD │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +STRUCTURE-SVUC-METHOD │ │ │ │ +)*STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ +.*STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD* │ │ │ │ +**STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD* │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +STRUCTURE-SVUC-METHOD │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +GET-ACCESSOR-METHOD-FUNCTION │ │ │ │ +STD-METHOD │ │ │ │ +STANDARD-SVUC-METHOD │ │ │ │ +STR-METHOD │ │ │ │ +STRUCTURE-SVUC-METHOD │ │ │ │ +CLASS-EQ │ │ │ │ +METHODS │ │ │ │ +&COMPUTE-APPLICABLE-METHODS-USING-TYPES │ │ │ │ +*GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION │ │ │ │ +&GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION │ │ │ │ +GET-SECONDARY-DISPATCH-FUNCTION │ │ │ │ +STD-METHOD │ │ │ │ +METHODS │ │ │ │ +STR-METHOD │ │ │ │ +%error in get-accessor-method-function │ │ │ │ +8GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ +METHOD-SPECIALIZERS │ │ │ │ +*THE-CLASS-T* │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +WRAPPERS │ │ │ │ +WRAPPER-OF │ │ │ │ +CLASS-WRAPPER │ │ │ │ +WRAPPER-OF │ │ │ │ +CLASS-WRAPPER │ │ │ │ +*THE-CLASS-T* │ │ │ │ +WRAPPERS │ │ │ │ +WRAPPERS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +GET-ACCESSOR-METHOD-FUNCTION │ │ │ │ +PCL ACCESSOR-FLAGS slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ -1(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +H(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209105,114 +207388,138 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INSTANCE │ │ │ │ +,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -SLOT-OBJECT │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ -.REST-ARG. │ │ │ │ -INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -INSTANCE │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -INITIALIZE-INFO │ │ │ │ -INITARGS │ │ │ │ -VALID-P │ │ │ │ -!INITIALIZE-INFO-CACHED-RI-VALID-P │ │ │ │ -0UNKNOWN │ │ │ │ -UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ -RI-VALID-P │ │ │ │ -!INITIALIZE-INFO-CACHED-RI-VALID-P │ │ │ │ -VALID-P │ │ │ │ -0INVALID │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -/Invalid initialization argument ~S for class ~S │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,CLASS-NAME │ │ │ │ -,FUNCTION │ │ │ │ -,SHARED-INITIALIZE │ │ │ │ -INSTANCE │ │ │ │ -INITARGS │ │ │ │ -INSTANCE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ -(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ +pv-table │ │ │ │ +.SLOTS1. │ │ │ │ +SYSTEMTP6 │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ +*SLOTD-READER-FUNCTION-STD-P* │ │ │ │ +*SLOTD-WRITER-FUNCTION-STD-P* │ │ │ │ +*SLOTD-BOUNDP-FUNCTION-STD-P* │ │ │ │ +,DECLARE! │ │ │ │ +,OPTIMIZE │ │ │ │ +6INFER-TP8 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS1. │ │ │ │ +,FIXNUM8 │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP8 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL ACCESSOR-FLAGS slot READER │ │ │ │ +,DECLARE │ │ │ │ +.NEW-VALUE. │ │ │ │ +,FIXNUM │ │ │ │ +,FIXNUM │ │ │ │ +,LOGAND │ │ │ │ +,DECLARE7 │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS1. │ │ │ │ +,FIXNUM: │ │ │ │ +.NEW-VALUE. │ │ │ │ +9PCL ACCESSOR-FLAGS slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ +PCL::SLOT-ACCESSOR-STD-P │ │ │ │ +PCL::SLOT-DEFINITION-READER-FUNCTION │ │ │ │ +PCL::SLOT-DEFINITION-WRITER-FUNCTION │ │ │ │ +PCL::SLOT-DEFINITION-BOUNDP-FUNCTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SUBCLASS │ │ │ │ +,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -SUBCLASS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -REMOVE-DIRECT-SUBCLASS │ │ │ │ -,DECLARE │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SUBCLASS │ │ │ │ -2(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS)) │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,FUNCTION │ │ │ │ +K(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209225,15 +207532,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SUBCLASS │ │ │ │ +,QUOTE! │ │ │ │ +,FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -209254,123 +207562,84 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -REMOVE-DIRECT-SUBCLASS │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SUBCLASS │ │ │ │ +,FUNCTION │ │ │ │ +,FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -SUBCLASS │ │ │ │ +,FUNCTION │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -SUBCLASS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SUBCLASS │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -REMOVE-DIRECT-SUBCLASS │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE6 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING6 │ │ │ │ -.NEW-VALUE. │ │ │ │ -SUBCLASS │ │ │ │ -,DECLARE! │ │ │ │ -,OPTIMIZE │ │ │ │ -5INFER-TP8 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM8 │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP8 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL DIRECT-SUBCLASSES slot READER │ │ │ │ -,DECLARE7 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM: │ │ │ │ -.NEW-VALUE. │ │ │ │ -!9PCL DIRECT-SUBCLASSES slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -SUBCLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -REMOVE-DIRECT-SUBCLASSES │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -DOLIST271 │ │ │ │ -,SET-DIFFERENCE │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-DEFINITION-READER-FUNCTION76 │ │ │ │ +,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ -REMOVE-DIRECT-SUBCLASS │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -REMOVE-DIRECT-SUBCLASSES │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -DSLOTDS │ │ │ │ -REMOVE-SLOT-ACCESSORS │ │ │ │ -FIX-SLOT-ACCESSORS │ │ │ │ + ,IGNORABLE8 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-DEFINITION-WRITER-FUNCTION98 │ │ │ │ +,FUNCTION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE: │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-DEFINITION-BOUNDP-FUNCTION;: │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -REMOVE-SLOT-ACCESSORS │ │ │ │ +(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -KEYWORDBEFORE │ │ │ │ -SLOT-CLASS │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SLOT-CLASS │ │ │ │ -8(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS)) │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +B(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209385,96 +207654,91 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -SLOT-CLASS │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -REMOVE-DIRECT-SUBCLASSES │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ -REMOVE-SLOT-ACCESSORS │ │ │ │ -CLASS-DIRECT-SLOTS │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +SLOT-DEFINITION-READER-FUNCTION │ │ │ │ +SLOT-DEFINITION-WRITER-FUNCTION │ │ │ │ +SLOT-DEFINITION-BOUNDP-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS)) │ │ │ │ +(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T)) │ │ │ │ +SLOT-ACCESSOR-FUNCTION │ │ │ │ +PCL::SLOT-ACCESSOR-FUNCTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -KEYWORDAFTER │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER-P │ │ │ │ -LAMBDA-LIST │ │ │ │ -LAMBDA-LIST-P │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -F(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +H(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209487,144 +207751,157 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -,LIST*/! │ │ │ │ -SYSTEMKB │ │ │ │ --LAMBDA-LIST │ │ │ │ --ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Key ~s missing value │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -LAMBDA-LIST │ │ │ │ -LAMBDA-LIST-P1 │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER-P3 │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ pv-table │ │ │ │ .SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ 6INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ 6INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ 6INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE7 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING7 │ │ │ │ -LAMBDA-LIST-P │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER-P │ │ │ │ -SET-ARG-INFO │ │ │ │ --LAMBDA-LIST │ │ │ │ -LAMBDA-LIST │ │ │ │ --ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER │ │ │ │ -SET-ARG-INFO │ │ │ │ --LAMBDA-LIST │ │ │ │ -LAMBDA-LIST │ │ │ │ -SET-ARG-INFO │ │ │ │ -ARG-INFO-VALID-P │ │ │ │ +COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ 6INFER-TP8 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM8 │ │ │ │ ,OTHERWISE │ │ │ │ 6INFER-TP8 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL ARG-INFO slot READER │ │ │ │ -LAMBDA-LIST-P │ │ │ │ -UPDATE-DFUN │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +SLOT-ACCESSOR-NAMEPCL NAME slot READER │ │ │ │ +6INFER-TP: │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM: │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP: │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +9COMMON-LISP CLASS slot READER │ │ │ │ + OLD-SLOTD │ │ │ │ +FIND-SLOT-DEFINITION │ │ │ │ + OLD-STD-P │ │ │ │ + OLD-SLOTD │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ + OLD-SLOTD │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +,FUNCTION │ │ │ │ +*BOOT-STATE* │ │ │ │ +COMPLETE │ │ │ │ +GET-ACCESSOR-METHOD-FUNCTION │ │ │ │ +*GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE;< │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-ACCESSOR-STD-P=;< │ │ │ │ +,FUNCTION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE>? │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-ACCESSOR-FUNCTION@>? │ │ │ │ + OLD-SLOTD │ │ │ │ + OLD-STD-P │ │ │ │ +SLOT-ACCESSOR-STD-P │ │ │ │ +*PV-TABLE-CACHE-UPDATE-INFO* │ │ │ │ +*PV-TABLE-CACHE-UPDATE-INFO* │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)) │ │ │ │ +COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -,STANDARD-METHOD │ │ │ │ -5(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD)) │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ +L(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209637,94 +207914,145 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL NAME slot READER │ │ │ │ +3INFER-TP7 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM7 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP7 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +6COMMON-LISP CLASS slot READER │ │ │ │ +,GETHASH │ │ │ │ +*NAME->CLASS->SLOTD-TABLE* │ │ │ │ +*NAME->CLASS->SLOTD-TABLE* │ │ │ │ +,MAKE-HASH-TABLE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE89 │ │ │ │ +3HASH-SET89: │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE;< │ │ │ │ +3HASH-SET;<= │ │ │ │ +DOLIST271 │ │ │ │ ,DECLARE │ │ │ │ -INITARGS │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -[Attempt to reinitialize the method ~S.~%~ │ │ │ │ - Method objects cannot be reinitialized. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD)) │ │ │ │ -ARGUMENT-PRECEDENCE-ORDER-P │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ + ,IGNORABLE> │ │ │ │ +,TAGBODY! │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ +GDEFINITION │ │ │ │ +COMPUTE-SLOT-ACCESSOR-INFO │ │ │ │ +,RETURN-FROM │ │ │ │ +INITIALIZE-INTERNAL-SLOT-GFS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +pv-table │ │ │ │ +INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - PCL-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -ENSURE-CLASS-USING-CLASS │ │ │ │ - PCL-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +KEYWORDAROUND │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - PCL-CLASS │ │ │ │ -4(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS)) │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +5(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209739,103 +208067,87 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -ENSURE-CLASS-USING-CLASS │ │ │ │ - PCL-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -ENSURE-CLASS-USING-CLASS │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -INITARGS │ │ │ │ -ENSURE-CLASS-VALUES │ │ │ │ -,CLASS-OF │ │ │ │ -,FUNCTION │ │ │ │ -,CHANGE-CLASS │ │ │ │ -INITARGS │ │ │ │ -,FUNCTION │ │ │ │ -,REINITIALIZE-INSTANCE │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,FUNCALL │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ -,FIND-CLASS54 │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ +"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS)) │ │ │ │ +PCL CLASS-PRECEDENCE-LIST slot READER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -ENSURE-CLASS-USING-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -/(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL)) │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +-(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209850,108 +208162,144 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -ENSURE-CLASS-USING-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -ENSURE-CLASS-USING-CLASS │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -INITARGS │ │ │ │ -ENSURE-CLASS-VALUES │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ -,FUNCTION │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -,FIND-CLASS54 │ │ │ │ -INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +3INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +,FUNCTION │ │ │ │ +SUPERCLASS │ │ │ │ +,FUNCTION │ │ │ │ +!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ +SUPERCLASS │ │ │ │ +,REVERSE │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP4 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM4 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP4 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL CLASS-PRECEDENCE-LIST slot READER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL)) │ │ │ │ -COMMON-LISP::NULL class predicate │ │ │ │ -NEW-CLASS-NAME │ │ │ │ +(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS)) │ │ │ │ +pv-table │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ +INSTANCE-ESLOTDS │ │ │ │ +COMPUTE-LAYOUT │ │ │ │ +,MACROLET │ │ │ │ +ITERATEGATHER │ │ │ │ +.GATHERING1. │ │ │ │ +DOLIST271 │ │ │ │ +INSTANCE-ESLOTDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,TAGBODY! │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +KEYWORDINSTANCE │ │ │ │ +,RPLACD. │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +,RETURN-FROM │ │ │ │ +CLASS-SLOTS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE0 │ │ │ │ +,TAGBODY1 │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +,RETURN-FROM │ │ │ │ +,SLOT-BOUNDP │ │ │ │ +,REVERSE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +COMPUTE-LAYOUT │ │ │ │ +PCL::SLOT-DEFINITION-LOCATION │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -NEW-CLASS-NAME │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,CHANGE-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +KEYWORDAROUND │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -INSTANCE │ │ │ │ -%(FAST-METHOD CHANGE-CLASS (T SYMBOL)) │ │ │ │ + STD-CLASS │ │ │ │ +/(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -209964,105 +208312,130 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INSTANCE │ │ │ │ -NEW-CLASS-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,CHANGE-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -.REST-ARG. │ │ │ │ -INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -INSTANCE │ │ │ │ -,CHANGE-CLASS │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CLASS-PRECEDENCE-LIST │ │ │ │ +INSTANCE-SLOTS │ │ │ │ +CLASS-SLOTS │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +,TAGBODY! │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +-INSTANCE │ │ │ │ +INSTANCE-SLOTS │ │ │ │ +INSTANCE-SLOTS │ │ │ │ +CLASS-SLOTS │ │ │ │ +CLASS-SLOTS │ │ │ │ +,RETURN-FROM │ │ │ │ +NLAYOUT │ │ │ │ +COMPUTE-LAYOUT │ │ │ │ +INSTANCE-SLOTS │ │ │ │ +INSTANCE-SLOTS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +,TAGBODY4 │ │ │ │ +,POSITION │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE7 │ │ │ │ +,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ -,CHANGE-CLASS │ │ │ │ -INSTANCE │ │ │ │ -,FIND-CLASS │ │ │ │ -NEW-CLASS-NAME │ │ │ │ -INITARGS │ │ │ │ +SLOT-DEFINITION-LOCATION87 │ │ │ │ +,RETURN-FROM │ │ │ │ +CLASS-SLOTS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +,TAGBODY4 │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +CLASS-SLOT-CELLS │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE9 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +SLOT-DEFINITION-LOCATION:9 │ │ │ │ +,RETURN-FROM │ │ │ │ +,FUNCTION │ │ │ │ +"INITIALIZE-INTERNAL-SLOT-FUNCTIONS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CHANGE-CLASS (T SYMBOL)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,MAKE-INSTANCE │ │ │ │ +COMPUTE-SLOTS │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -,SYMBOL │ │ │ │ -$(FAST-METHOD MAKE-INSTANCE (SYMBOL)) │ │ │ │ + STD-CLASS │ │ │ │ +'(FAST-METHOD COMPUTE-SLOTS (STD-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -210077,101 +208450,120 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,MAKE-INSTANCE │ │ │ │ +COMPUTE-SLOTS │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,MAKE-INSTANCE │ │ │ │ +COMPUTE-SLOTS │ │ │ │ +NAME-DSLOTDS-ALIST │ │ │ │ +DOLIST271 │ │ │ │ +CLASS-PRECEDENCE-LIST │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +,TAGBODY! │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +,TAGBODY4 │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +NAME-DSLOTDS-ALIST │ │ │ │ ,FUNCTION │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -,FIND-CLASS │ │ │ │ -INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ -(FAST-METHOD MAKE-INSTANCE (SYMBOL)) │ │ │ │ -COMMON-LISP::SYMBOL class predicate │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,RPLACD677 │ │ │ │ +NAME-DSLOTDS-ALIST │ │ │ │ +NAME-DSLOTDS-ALIST │ │ │ │ +,RETURN-FROM │ │ │ │ +,RETURN-FROM │ │ │ │ +,FUNCTION │ │ │ │ +!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,NREVERSE │ │ │ │ +NAME-DSLOTDS-ALIST │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD COMPUTE-SLOTS (STD-CLASS)) │ │ │ │ +PCL SLOTS slot WRITER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ - NEW-CLASS │ │ │ │ +SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -INSTANCE │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -,DECLARE │ │ │ │ - NEW-CLASS │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,CHANGE-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +KEYWORDAFTER │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ - NEW-CLASS │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -INSTANCE │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -G(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +PREDICATE-NAME │ │ │ │ +PREDICATE-NAME-P │ │ │ │ +DIRECT-DEFAULT-INITARGS │ │ │ │ +DIRECT-SLOTS │ │ │ │ +DIRECT-SLOTS-P │ │ │ │ +DIRECT-SUPERCLASSES │ │ │ │ +DIRECT-SUPERCLASSES-P │ │ │ │ +SLOT-NAMES │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +:(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -210184,16 +208576,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INSTANCE │ │ │ │ - NEW-CLASS │ │ │ │ +SLOT-NAMES │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -210219,128 +208610,338 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,CHANGE-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ - NEW-CLASS │ │ │ │ +SLOT-NAMES │ │ │ │ .REST-ARG. │ │ │ │ -INSTANCE │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ - NEW-CLASS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ - NEW-CLASS │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ - NEW-CLASS │ │ │ │ -INSTANCE │ │ │ │ -,DECLARE │ │ │ │ -INITARGS │ │ │ │ -,CHANGE-CLASS │ │ │ │ -fCan't change the class of ~S to ~S~@ │ │ │ │ - because it isn't already an instance with metaclass ~S. │ │ │ │ -INSTANCE │ │ │ │ - NEW-CLASS │ │ │ │ -,STANDARD-CLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -INITARGS │ │ │ │ - ,&OPTIONAL │ │ │ │ -CHECK-INITARGS-2-PLIST │ │ │ │ -INITARGS │ │ │ │ -INITARGS │ │ │ │ -KEYWORDALLOW-OTHER-KEYS │ │ │ │ --ALLOW-OTHER-KEYS │ │ │ │ -.PLIST-TAIL. │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,TAGBODY! │ │ │ │ -.PLIST-TAIL. │ │ │ │ -,RETURN-FROM │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.0 │ │ │ │ -.PLIST-TAIL. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -FORMAT-CONTROL │ │ │ │ -3Malformed plist in doplist, odd number of elements. │ │ │ │ -,SYMBOLP │ │ │ │ -,PROGRAM-ERROR │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ -FORMAT-CONTROL │ │ │ │ -Supplied key is not a symbol. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL. │ │ │ │ -.PLIST-TAIL.1 │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SLOT-NAMES │ │ │ │ +SYSTEMKB │ │ │ │ +-DIRECT-SUPERCLASSES │ │ │ │ +-DIRECT-SLOTS │ │ │ │ +-DIRECT-DEFAULT-INITARGS │ │ │ │ +-PREDICATE-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -FORMAT-CONTROL │ │ │ │ -/Invalid initialization argument ~S for class ~S │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +Key ~s missing value │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +DIRECT-SUPERCLASSES │ │ │ │ +DIRECT-SUPERCLASSES-P3 │ │ │ │ +DIRECT-SLOTS │ │ │ │ +DIRECT-SLOTS-P5 │ │ │ │ +DIRECT-DEFAULT-INITARGS │ │ │ │ +PREDICATE-NAME │ │ │ │ +PREDICATE-NAME-P9 │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE; │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOT-NAMES │ │ │ │ +,DECLARE │ │ │ │ +DIRECT-DEFAULT-INITARGS │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ + │ │ │ │ += │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE@ │ │ │ │ -,TAGBODY! │ │ │ │ -OCLASS-SLOTS │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,FUNCALL │ │ │ │ ,FUNCTION │ │ │ │ -,RETURN-FROM │ │ │ │ -SWAP-WRAPPERS-AND-SLOTS │ │ │ │ -INSTANCE │ │ │ │ -#,UPDATE-INSTANCE-FOR-REDEFINED-CLASS │ │ │ │ -INSTANCE │ │ │ │ - DISCARDED │ │ │ │ -NWRAPPER │ │ │ │ +,FIND-CLASS54 │ │ │ │ +INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL)) │ │ │ │ +COMMON-LISP::NULL class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SYSTEMOBJECT │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -,DECLARE │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,STANDARD-OBJECT │ │ │ │ - STD-CLASS │ │ │ │ -c(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -LOCATION │ │ │ │ -SLOT-DEFINITION-LOCATION │ │ │ │ -LOCATION │ │ │ │ --INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -STD-INSTANCE-P │ │ │ │ --OBJECT │ │ │ │ -%STD-INSTANCE-WRAPPER │ │ │ │ -CHECK-WRAPPER-VALIDITY │ │ │ │ --OBJECT │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ --OBJECT │ │ │ │ -LOCATION │ │ │ │ -FUNCALLABLE-INSTANCE-P │ │ │ │ --OBJECT │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -CHECK-WRAPPER-VALIDITY │ │ │ │ --OBJECT │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ --OBJECT │ │ │ │ -LOCATION │ │ │ │ -What kind of instance is this? │ │ │ │ --INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -LOCATION │ │ │ │ - ,OTHERWISE │ │ │ │ --INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ - so it can't be read by the default ~s method. │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ -,SLOT-UNBOUND │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SYSTEMOBJECT │ │ │ │ - SLOT-NAME │ │ │ │ -,SLOT-VALUE │ │ │ │ -,CLASS-OF │ │ │ │ -SLOT-DEFINITION │ │ │ │ -FIND-SLOT-DEFINITION │ │ │ │ - SLOT-NAME │ │ │ │ -SLOT-DEFINITION │ │ │ │ -,SLOT-MISSING │ │ │ │ - SLOT-NAME │ │ │ │ -,SLOT-VALUE │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -SLOT-DEFINITION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -SLOT-VALUE-NORMAL │ │ │ │ -SET-SLOT-VALUE-NORMAL │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE- │ │ │ │ -,TAGBODY! │ │ │ │ -CAN-PRECEDE-LIST │ │ │ │ -,ADJOIN/ │ │ │ │ -,SLOT-VALUE01 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE01 │ │ │ │ -SET-SLOT-VALUE012 │ │ │ │ -,RETURN-FROM │ │ │ │ -UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -UPDATE-CPL │ │ │ │ -CLASS-FINALIZED-P │ │ │ │ -CLASS-PRECEDENCE-LIST │ │ │ │ -FORCE-CACHE-FLUSHES │ │ │ │ -SET-SLOT-VALUE │ │ │ │ -CLASS-PRECEDENCE-LIST │ │ │ │ -UPDATE-CLASS-CAN-PRECEDE-P │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -UPDATE-CPL │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -ESLOTDS │ │ │ │ -COMPUTE-CLASS-SLOTS │ │ │ │ -,MACROLET │ │ │ │ -ITERATEGATHER │ │ │ │ -.GATHERING1. │ │ │ │ -DOLIST271 │ │ │ │ +.REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE0 │ │ │ │ -,TAGBODY! │ │ │ │ -,RPLACD. │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -CLASS-SLOT-CELLS │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -,RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -COMPUTE-CLASS-SLOTS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,MAKE-INSTANCES-OBSOLETE │ │ │ │ +,MAKE-INSTANCE │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ +INITARGS │ │ │ │ ,SYMBOL │ │ │ │ -.(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL)) │ │ │ │ +$(FAST-METHOD MAKE-INSTANCE (SYMBOL)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -211784,67 +209894,71 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,MAKE-INSTANCES-OBSOLETE │ │ │ │ +,MAKE-INSTANCE │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,MAKE-INSTANCES-OBSOLETE │ │ │ │ -,MAKE-INSTANCES-OBSOLETE │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +,FUNCTION │ │ │ │ +,MAKE-INSTANCE │ │ │ │ ,FIND-CLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL)) │ │ │ │ +INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD MAKE-INSTANCE (SYMBOL)) │ │ │ │ +COMMON-LISP::SYMBOL class predicate │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ @@ -212049,106 +210163,14 @@ │ │ │ │ SET-SLOT-VALUE7 │ │ │ │ NWRAPPER │ │ │ │ OWRAPPER │ │ │ │ NWRAPPER │ │ │ │ UPDATE-PV-TABLE-CACHE-INFO │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ UPDATE-SLOTS │ │ │ │ -MAKE-LONG-METHOD-COMBINATION-FUNCTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - .PV-CELL. │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-NAME │ │ │ │ -CLASS-SLOTS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -*(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS)) │ │ │ │ -,MACROLET │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ -,DECLARE │ │ │ │ -PV-TABLE-SYMBOL │ │ │ │ -PV-PARAMETERS │ │ │ │ - .PV-CELL. │ │ │ │ - .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -MAKE-PV-TYPE-DECLARATION │ │ │ │ -MAKE-CALLS-TYPE-DECLARATION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,MACROLET │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -%CHECK-CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CNM-ARGS │ │ │ │ - BIND-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NO-NEXT-METHOD │ │ │ │ -METHOD-NAME-DECLARATION │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -.NEXT-METHOD-CALL. │ │ │ │ -CALL-NEXT-METHOD-BIND │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -CNM-ARGS │ │ │ │ -,DECLARE │ │ │ │ -,DYNAMIC-EXTENT │ │ │ │ -CNM-ARGS │ │ │ │ -CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-SLOTS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -CNM-ARGS │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -NEXT-METHOD-P-BODY │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -,FUNCTION │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,FUNCTION │ │ │ │ -,NEXT-METHOD-P │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -CLASS-SLOTS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ PRECOMPUTE-P │ │ │ │ MEC-ALL-CLASSES-INTERNAL │ │ │ │ SPECIALIZER-CLASS │ │ │ │ PRECOMPUTE-P │ │ │ │ *THE-CLASS-T* │ │ │ │ *THE-CLASS-SLOT-OBJECT* │ │ │ │ @@ -212854,14 +210876,21 @@ │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ FINALIZE-INHERITANCE │ │ │ │ UPDATE-CLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ (FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS)) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS)) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ +(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T)) │ │ │ │ +ADDED-SLOTS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ @@ -212943,16 +210972,14 @@ │ │ │ │ Extra argument ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ FINALIZE-INHERITANCE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ @@ -213044,34 +211071,313 @@ │ │ │ │ ,DECLARE │ │ │ │ INITARGS │ │ │ │ ,ALLOCATE-INSTANCE │ │ │ │ CLASS-FINALIZED-P │ │ │ │ FINALIZE-INHERITANCE │ │ │ │ ALLOCATE-FUNCALLABLE-INSTANCE │ │ │ │ CLASS-WRAPPER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ -(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ -PCL PROTOTYPE slot WRITER │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +PROPERTY-LIST │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +INSTANCE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +#,UPDATE-INSTANCE-FOR-REDEFINED-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +INITARGS │ │ │ │ +PROPERTY-LIST │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +ADDED-SLOTS │ │ │ │ +INSTANCE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +I(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +PROPERTY-LIST │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +#,UPDATE-INSTANCE-FOR-REDEFINED-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +PROPERTY-LIST │ │ │ │ +.REST-ARG. │ │ │ │ +INSTANCE │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +ADDED-SLOTS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +PROPERTY-LIST │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +PROPERTY-LIST │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +INSTANCE │ │ │ │ +#,UPDATE-INSTANCE-FOR-REDEFINED-CLASS │ │ │ │ +CHECK-INITARGS-1 │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +#,UPDATE-INSTANCE-FOR-REDEFINED-CLASS │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +PROPERTY-LIST │ │ │ │ +INITARGS │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +INITARGS │ │ │ │ +,FUNCTION │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +INSTANCE │ │ │ │ +ADDED-SLOTS │ │ │ │ +INITARGS │ │ │ │ +DISCARDED-SLOTS │ │ │ │ +PROPERTY-LIST │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ +OWRAPPER │ │ │ │ +NWRAPPER │ │ │ │ +INSTANCE │ │ │ │ +OBSOLETE-INSTANCE-TRAP │ │ │ │ +STD-INSTANCE-P │ │ │ │ +INSTANCE │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +INSTANCE │ │ │ │ +*IN-OBSOLETE-INSTANCE-TRAP* │ │ │ │ +!*THE-WRAPPER-OF-STRUCTURE-OBJECT* │ │ │ │ +*IN-OBSOLETE-INSTANCE-TRAP* │ │ │ │ +,DECLARE │ │ │ │ +,SPECIAL │ │ │ │ +*IN-OBSOLETE-INSTANCE-TRAP* │ │ │ │ +The structure ~S is obsolete. │ │ │ │ +INSTANCE │ │ │ │ +NWRAPPER │ │ │ │ +,ALLOCATE-INSTANCE │ │ │ │ +OLAYOUT │ │ │ │ +OWRAPPER │ │ │ │ +NLAYOUT │ │ │ │ +NWRAPPER │ │ │ │ +SYSTEMTP6 │ │ │ │ +INSTANCE │ │ │ │ +-INFER-TP │ │ │ │ +INSTANCE │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +INSTANCE │ │ │ │ +-INFER-TP │ │ │ │ +INSTANCE │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +INSTANCE │ │ │ │ + ,OTHERWISE │ │ │ │ +-INFER-TP │ │ │ │ +INSTANCE │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,TYPE-ERROR │ │ │ │ +KEYWORDDATUM │ │ │ │ +INSTANCE │ │ │ │ +/EXPECTED-TYPE │ │ │ │ +-STD-INSTANCE │ │ │ │ +-FUNCALLABLE-STD-INSTANCE │ │ │ │ +-INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +-INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +-INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +/EXPECTED-TYPE │ │ │ │ +-STD-INSTANCE │ │ │ │ +-FUNCALLABLE-STD-INSTANCE │ │ │ │ +OCLASS-SLOTS │ │ │ │ +OWRAPPER │ │ │ │ + DISCARDED │ │ │ │ +ITERATEITERATE-TEMP-1 │ │ │ │ +1ITERATE-TEMP-2 │ │ │ │ +,TAGBODY! │ │ │ │ +PROG1266 │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +,RETURN-FROM0 │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +,FUNCALL! │ │ │ │ +,FUNCTION │ │ │ │ +1ITERATE-TEMP-13 │ │ │ │ +1ITERATE-TEMP-2 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +1ITERATE-TEMP-2 │ │ │ │ +1ITERATE-TEMP-2 │ │ │ │ +,POSITION │ │ │ │ +,FUNCTION │ │ │ │ +,DECLARE │ │ │ │ + DISCARDED │ │ │ │ + DISCARDED │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE7 │ │ │ │ +PLIST87 │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +OCLASS-SLOTS │ │ │ │ +OCLASS-SLOT-AND-VAL │ │ │ │ +,TAGBODY! │ │ │ │ +OCLASS-SLOT-AND-VAL │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +,RETURN-FROM: │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE3 │ │ │ │ +1ITERATE-TEMP-1 │ │ │ │ +,FUNCALL4 │ │ │ │ +1ITERATE-TEMP-13 │ │ │ │ +OCLASS-SLOT-AND-VAL │ │ │ │ +OCLASS-SLOT-AND-VAL │ │ │ │ +,POSITION │ │ │ │ +OCLASS-SLOT-AND-VAL │ │ │ │ + DISCARDED │ │ │ │ + DISCARDED │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE= │ │ │ │ +PLIST>= │ │ │ │ +DOLIST271 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE@ │ │ │ │ +,TAGBODY! │ │ │ │ +OCLASS-SLOTS │ │ │ │ +,FUNCTION │ │ │ │ +,RETURN-FROM │ │ │ │ +SWAP-WRAPPERS-AND-SLOTS │ │ │ │ +INSTANCE │ │ │ │ +#,UPDATE-INSTANCE-FOR-REDEFINED-CLASS │ │ │ │ +INSTANCE │ │ │ │ + DISCARDED │ │ │ │ +NWRAPPER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ STD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ STD-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,STANDARD-OBJECT │ │ │ │ STD-CLASS │ │ │ │ -)(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS)) │ │ │ │ +d(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213084,14 +211390,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -213112,110 +211419,111 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ STD-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ +LOCATION │ │ │ │ +SLOT-DEFINITION-LOCATION │ │ │ │ +LOCATION │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +STD-INSTANCE-P │ │ │ │ +-OBJECT │ │ │ │ +%STD-INSTANCE-WRAPPER │ │ │ │ +CHECK-WRAPPER-VALIDITY │ │ │ │ +-OBJECT │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +-OBJECT │ │ │ │ +LOCATION │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +-OBJECT │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -,CLASS4 │ │ │ │ -,DECLARE! │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM7 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL PROTOTYPE slot READER │ │ │ │ -3INFER-TP9 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +CHECK-WRAPPER-VALIDITY │ │ │ │ +-OBJECT │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM9 │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +-OBJECT │ │ │ │ +LOCATION │ │ │ │ +What kind of instance is this? │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +LOCATION │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP9 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -8PCL PROTOTYPE slot READER │ │ │ │ -,CLASS9 │ │ │ │ -.NEW-VALUE. │ │ │ │ -,ALLOCATE-INSTANCE │ │ │ │ -,DECLARE6 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM: │ │ │ │ -.NEW-VALUE. │ │ │ │ -8PCL PROTOTYPE slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS)) │ │ │ │ -WRAP-METHOD-GROUP-SPECIFIER-BINDINGS │ │ │ │ -PCL DEFSTRUCT-CONSTRUCTOR slot READER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ + so it can't be read by the default ~s method. │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ -/(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) │ │ │ │ +l(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213228,14 +211536,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -213256,148 +211565,191 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ ,STRUCTURE-CLASS │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -pv-table │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -3INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ +SLOT-BOUNDP-USING-CLASS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + NEW-VALUE │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ +METHOD-NAME │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ + NEW-VALUE │ │ │ │ +t(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -,CLASS4 │ │ │ │ -,DECLARE! │ │ │ │ -,OPTIMIZE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM7 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP7 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL PROTOTYPE slot READER │ │ │ │ -3INFER-TP9 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM9 │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP9 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -8PCL PROTOTYPE slot READER │ │ │ │ -,CLASS9 │ │ │ │ -.NEW-VALUE. │ │ │ │ -3INFER-TP: │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM: │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP: │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -%8PCL DEFSTRUCT-CONSTRUCTOR slot READER │ │ │ │ -,ALLOCATE-INSTANCE │ │ │ │ -ALLOCATE-STANDARD-INSTANCE │ │ │ │ -3INFER-TP; │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM; │ │ │ │ - ,OTHERWISE │ │ │ │ -3INFER-TP; │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -8PCL WRAPPER slot READER │ │ │ │ -,DECLARE6 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM< │ │ │ │ -.NEW-VALUE. │ │ │ │ -8PCL PROTOTYPE slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS)) │ │ │ │ -pv-table │ │ │ │ -pv-table │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SYSTEMOBJECT │ │ │ │ - SLOT-NAME │ │ │ │ -GET-CLASS-SLOT-VALUE-1 │ │ │ │ - SLOT-NAME │ │ │ │ -,SLOT-MISSING │ │ │ │ - SLOT-NAME │ │ │ │ -,SLOT-VALUE │ │ │ │ -*SLOT-UNBOUND* │ │ │ │ -,SLOT-UNBOUND │ │ │ │ - SLOT-NAME │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + NEW-VALUE │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ + NEW-VALUE │ │ │ │ + NEW-VALUE │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ + NEW-VALUE │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE6 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +,FUNCTION │ │ │ │ +(SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ + NEW-VALUE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -GET-CLASS-SLOT-VALUE-1 │ │ │ │ +(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +(INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO) │ │ │ │ +pv-table │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - SLOT-NAME │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ - STD-CLASS │ │ │ │ +DEFAULT-INITARGS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - SLOT-NAME │ │ │ │ - STD-CLASS │ │ │ │ -,(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T)) │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +SLOT-CLASS │ │ │ │ +-(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213410,15 +211762,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ - SLOT-NAME │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -213439,73 +211791,95 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ - STD-CLASS │ │ │ │ +DEFAULT-INITARGS │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - SLOT-NAME │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ -CLASS-WRAPPER │ │ │ │ - PROTOTYPE │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ -GET-CLASS-SLOT-VALUE-1 │ │ │ │ - PROTOTYPE │ │ │ │ - SLOT-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T)) │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +DEFAULT-INITARGS │ │ │ │ +.FUNCTION. │ │ │ │ +0INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION │ │ │ │ +INITIALIZE-INFO │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +1UNKNOWN │ │ │ │ +UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ +INITIALIZE-INFO │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +DEFAULT-INITARGS-FUNCTION │ │ │ │ +0INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION │ │ │ │ +INITIALIZE-INFO │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +.FUNCTION. │ │ │ │ +.FUNCTION. │ │ │ │ +CALL-INITIALIZE-INSTANCE-SIMPLE │ │ │ │ +INITIALIZE-INSTANCE-SIMPLE │ │ │ │ +.FUNCTION. │ │ │ │ +.FUNCTION. │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +.FUNCTION. │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T)) │ │ │ │ +SUPPLIED-INITARGS │ │ │ │ +Invalid initialization argument ~S for class ~S │ │ │ │ +(COMBINED-METHOD INITIALIZE-INSTANCE) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ +INSTANCE │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ +INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -L(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ +INITARGS │ │ │ │ +INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ +/(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213518,110 +211892,101 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ +INSTANCE │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ +INSTANCE │ │ │ │ +.REST-ARG. │ │ │ │ +INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ -SYSTEMOBJECT │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ -SPECIALIZER │ │ │ │ -,GETHASH │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -SPECIALIZER │ │ │ │ -,MACROLET │ │ │ │ -ITERATEGATHER │ │ │ │ -.GATHERING1. │ │ │ │ -DOLIST271 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE9 │ │ │ │ -,TAGBODY! │ │ │ │ -,RPLACD7 │ │ │ │ -METHOD-GENERIC-FUNCTION │ │ │ │ -,RETURN-FROM │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ -,RPLACD455 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ -SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +INSTANCE │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ +,FUNCTION │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ +KEYWORDAFTER │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -0(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS)) │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +LAMBDA-LIST │ │ │ │ +LAMBDA-LIST-P │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +D(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213634,131 +211999,141 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +SYSTEMKB │ │ │ │ +-LAMBDA-LIST │ │ │ │ +-ARGUMENT-PRECEDENCE-ORDER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Key ~s missing value │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +LAMBDA-LIST │ │ │ │ +LAMBDA-LIST-P1 │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ pv-table │ │ │ │ -SPECIALIZER │ │ │ │ .SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -SPECIALIZER │ │ │ │ -3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ +6INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ -SPECIALIZER │ │ │ │ -3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ +6INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ -SPECIALIZER │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP │ │ │ │ -SPECIALIZER │ │ │ │ +6INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ -SPECIALIZER │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE4 │ │ │ │ + ,IGNORABLE7 │ │ │ │ ,DECLARE │ │ │ │ -VARIABLE-REBINDING4 │ │ │ │ -SPECIALIZER4 │ │ │ │ +VARIABLE-REBINDING7 │ │ │ │ +LAMBDA-LIST-P │ │ │ │ +SET-ARG-INFO │ │ │ │ +-LAMBDA-LIST │ │ │ │ +LAMBDA-LIST │ │ │ │ +-ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +SET-ARG-INFO │ │ │ │ +ARG-INFO-VALID-P │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ -3INFER-TP5 │ │ │ │ +6INFER-TP8 │ │ │ │ #*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ -,FIXNUM5 │ │ │ │ +,FIXNUM8 │ │ │ │ ,OTHERWISE │ │ │ │ -3INFER-TP5 │ │ │ │ +6INFER-TP8 │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMEPCL DIRECT-METHODS slot READER │ │ │ │ -SPECIALIZER5 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))@ │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +SLOT-ACCESSOR-NAMEPCL ARG-INFO slot READER │ │ │ │ +UPDATE-DFUN │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION │ │ │ │ +Invalid initialization argument ~S for class ~S │ │ │ │ +Insufficient arguments when binding ~s │ │ │ │ +Malformed plist in doplist, odd number of elements. │ │ │ │ +Supplied key is not a symbol. │ │ │ │ +Invalid initialization argument ~S for class ~S │ │ │ │ +Invalid initialization argument ~S for class ~S │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ +,MAKE-INSTANCE │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -B(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ +INITARGS │ │ │ │ +#(FAST-METHOD MAKE-INSTANCE (CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213771,99 +212146,123 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ +,MAKE-INSTANCE │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 0FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-DIRECT-METHODS │ │ │ │ -,GETHASH │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -SPECIALIZER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +CLASS-FINALIZED-P │ │ │ │ +FINALIZE-INHERITANCE │ │ │ │ +INITARGS │ │ │ │ +DEFAULT-INITARGS │ │ │ │ +INITARGS │ │ │ │ +INITIALIZE-INFO │ │ │ │ +INITARGS │ │ │ │ +VALID-P │ │ │ │ +INITIALIZE-INFO-CACHED-VALID-P │ │ │ │ +0UNKNOWN │ │ │ │ +UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ +INITIALIZE-INFO-CACHED-VALID-P │ │ │ │ +VALID-P │ │ │ │ +0INVALID │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +/Invalid initialization argument ~S for class ~S │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,CLASS-NAME │ │ │ │ +INSTANCE │ │ │ │ +,FUNCTION │ │ │ │ +,ALLOCATE-INSTANCE │ │ │ │ +INITARGS │ │ │ │ +,FUNCTION │ │ │ │ +,INITIALIZE-INSTANCE │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD MAKE-INSTANCE (CLASS)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +SPECIALIZERS │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -,DECLARE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -ADD-DIRECT-METHOD │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -,DECLARE │ │ │ │ +,FIND-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ -@(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) │ │ │ │ + ,&OPTIONAL │ │ │ │ +SPECIALIZERS │ │ │ │ +QUALIFIERS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +9(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213876,113 +212275,125 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -SPECIALIZER │ │ │ │ -,METHOD │ │ │ │ +,QUOTE! │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +SPECIALIZERS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -ADD-DIRECT-METHOD │ │ │ │ -SPECIALIZER-WITH-OBJECT │ │ │ │ +,FIND-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +SPECIALIZERS │ │ │ │ +.REST-ARG. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +QUALIFIERS │ │ │ │ +SPECIALIZERS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZERS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -SPECIALIZER │ │ │ │ -ADD-DIRECT-METHOD │ │ │ │ -SYSTEMOBJECT │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER-METHOD-TABLE │ │ │ │ -SPECIALIZER │ │ │ │ -,GETHASH │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE67 │ │ │ │ -5HASH-SET678 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE9 │ │ │ │ -,RPLACA9:: │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE; │ │ │ │ -,RPLACD;<< │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))@i │ │ │ │ + ,IGNORABLE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,FIND-METHOD │ │ │ │ +REAL-GET-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +QUALIFIERS │ │ │ │ +PARSE-SPECIALIZERS │ │ │ │ +SPECIALIZERS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ -SPECIALIZER │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ +,NO-NEXT-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ -:(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +H(FAST-METHOD NO-NEXT-METHOD (STANDARD-GENERIC-FUNCTION STANDARD-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -213995,87 +212406,102 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -SPECIALIZER │ │ │ │ -SPECIALIZER │ │ │ │ +,NO-NEXT-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +.REST-ARG. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,NO-NEXT-METHOD │ │ │ │ +Try again. │ │ │ │ +INo next method to ~S when calling generic function ~S with arguments ~S~% │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ +(FAST-METHOD NO-NEXT-METHOD (STANDARD-GENERIC-FUNCTION STANDARD-METHOD)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +DIRECT-SLOTDS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,DECLARE │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +KEYWORDAROUND │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -.(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) │ │ │ │ +DIRECT-SLOTDS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +T(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214088,14 +212514,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214116,63 +212543,73 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +DIRECT-SLOTDS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ +-DEFSTRUCT-ACCESSOR-SYMBOL │ │ │ │ +)SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL │ │ │ │ +-INTERNAL-READER-FUNCTION │ │ │ │ +(SLOT-DEFINITION-INTERNAL-READER-FUNCTION │ │ │ │ +-INTERNAL-WRITER-FUNCTION │ │ │ │ +(SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +DIRECT-SLOTDS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -L(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) │ │ │ │ +DIRECT-SLOTDS │ │ │ │ +SLOT-CLASS │ │ │ │ +G(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214185,14 +212622,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214213,67 +212651,102 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +DIRECT-SLOTDS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +DIRECT-SLOTDS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -SPECIALIZER-CLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +INITFUNCTION │ │ │ │ +INITFORM │ │ │ │ +INITARGS │ │ │ │ +ALLOCATION │ │ │ │ +DOLIST271 │ │ │ │ +DIRECT-SLOTDS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE5 │ │ │ │ +,TAGBODY! │ │ │ │ +SLOT-DEFINITION-NAME │ │ │ │ +SLOT-DEFINITION-INITFUNCTION │ │ │ │ +INITFORM │ │ │ │ +SLOT-DEFINITION-INITFORM │ │ │ │ +INITFUNCTION │ │ │ │ +SLOT-DEFINITION-INITFUNCTION │ │ │ │ +ALLOCATION │ │ │ │ +SLOT-DEFINITION-ALLOCATION │ │ │ │ +INITARGS │ │ │ │ +SLOT-DEFINITION-INITARGS │ │ │ │ +INITARGS │ │ │ │ +SLOTD-TYPE │ │ │ │ +SLOT-DEFINITION-TYPE │ │ │ │ +SLOTD-TYPE │ │ │ │ + *SUBTYPEP │ │ │ │ +SLOTD-TYPE │ │ │ │ +SLOTD-TYPE │ │ │ │ +,RETURN-FROM │ │ │ │ +1INITFORM │ │ │ │ +INITFORM │ │ │ │ +1INITFUNCTION │ │ │ │ +INITFUNCTION │ │ │ │ +1INITARGS │ │ │ │ +INITARGS │ │ │ │ +1ALLOCATION │ │ │ │ +ALLOCATION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T)) │ │ │ │ +DIRECT-SLOTDS │ │ │ │ +COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -,DECLARE │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -B(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) │ │ │ │ +INITARGS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +A(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214286,14 +212759,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +INITARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214314,70 +212788,68 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -EQL-SPECIALIZER │ │ │ │ -EQL-SPECIALIZER │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ -SPECIALIZER-OBJECT │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -(INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO) │ │ │ │ -pv-table │ │ │ │ +INITARGS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ +,FIND-CLASS │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-CLASS │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,STANDARD-CLASS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-CLASS │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -M(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS)) │ │ │ │ +INITARGS │ │ │ │ + STD-CLASS │ │ │ │ +;(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214390,14 +212862,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +INITARGS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214418,65 +212891,66 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ -FUNCALLABLE-STANDARD-CLASS │ │ │ │ -,STANDARD-CLASS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ -(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS)) │ │ │ │ +INITARGS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ +,FIND-CLASS │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ -FORWARD-REFERENCED-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ +!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ SLOT-CLASS │ │ │ │ -FORWARD-REFERENCED-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -FORWARD-REFERENCED-CLASS │ │ │ │ SLOT-CLASS │ │ │ │ -G(FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS)) │ │ │ │ +>(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214489,14 +212963,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ +DSLOTDS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214517,17 +212992,16 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ +!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ SLOT-CLASS │ │ │ │ -FORWARD-REFERENCED-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -214542,37 +213016,45 @@ │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ +!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +INITARGS │ │ │ │ +*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ +INITARGS │ │ │ │ +,FUNCTION │ │ │ │ +,MAKE-INSTANCE │ │ │ │ +INITARGS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS)) │ │ │ │ +(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ + SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,DECLARE │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ -8(FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS)) │ │ │ │ + SLOT-NAME │ │ │ │ +SLOT-CLASS │ │ │ │ +8(FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214585,14 +213067,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ + SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214613,62 +213096,69 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ -,BUILT-IN-CLASS │ │ │ │ +MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ + SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -VALIDATE-SUPERCLASS │ │ │ │ -*THE-CLASS-T* │ │ │ │ +MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ +MAKE-STD-BOUNDP-METHOD-FUNCTION │ │ │ │ +,CLASS-NAME │ │ │ │ + SLOT-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS)) │ │ │ │ -NEW-SUPER │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +(FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ +MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +REMOVE-BOUNDP-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -1(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD)) │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +SLOT-CLASS │ │ │ │ +1(FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214681,15 +213171,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,METHOD │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -214710,109 +213200,73 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -,STANDARD-METHOD │ │ │ │ +REMOVE-BOUNDP-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -0FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -0FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE1 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,METHOD │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -PLIST-VALUE │ │ │ │ -QUALIFIERS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD)) │ │ │ │ -MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ -SPECIALIZERS │ │ │ │ - ,&OPTIONAL │ │ │ │ -REAL-GET-METHOD │ │ │ │ -GENERIC-FUNCTION-METHODS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -SPECIALIZERS │ │ │ │ -ARG-INFO-METATYPES │ │ │ │ -GF-ARG-INFO │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -6Specializer list ~S does not match generic function ~S │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZERS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -DOLIST271 │ │ │ │ -GENERIC-FUNCTION-METHODS │ │ │ │ +REMOVE-BOUNDP-METHOD │ │ │ │ +GET-METHOD │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE. │ │ │ │ -,TAGBODY! │ │ │ │ -QUALIFIERS │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -,FUNCTION │ │ │ │ -SAME-SPECIALIZER-P │ │ │ │ -SPECIALIZERS │ │ │ │ -METHOD-SPECIALIZERS │ │ │ │ ,METHOD │ │ │ │ -,RETURN-FROM │ │ │ │ -,RETURN-FROM │ │ │ │ -9No method on ~S with qualifiers ~:S and specializers ~:S. │ │ │ │ +,REMOVE-METHOD │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ -SPECIALIZERS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T)) │ │ │ │ +REMOVE-BOUNDP-METHOD │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ -SPECIALIZERS │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ + SLOT-NAME │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,FIND-METHOD │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +ADD-BOUNDP-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - ,&OPTIONAL │ │ │ │ -SPECIALIZERS │ │ │ │ -QUALIFIERS │ │ │ │ + SLOT-NAME │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -9(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T)) │ │ │ │ +SLOT-CLASS │ │ │ │ +0(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214827,123 +213281,114 @@ │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ ,QUOTE! │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ -SPECIALIZERS │ │ │ │ + SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,FIND-METHOD │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ +ADD-BOUNDP-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ -SPECIALIZERS │ │ │ │ -.REST-ARG. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -QUALIFIERS │ │ │ │ -SPECIALIZERS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ + SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -SPECIALIZERS │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,FIND-METHOD │ │ │ │ -REAL-GET-METHOD │ │ │ │ +ADD-BOUNDP-METHOD │ │ │ │ +,ADD-METHOD │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ -QUALIFIERS │ │ │ │ -PARSE-SPECIALIZERS │ │ │ │ -SPECIALIZERS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T)) │ │ │ │ +MAKE-A-METHOD │ │ │ │ +STANDARD-BOUNDP-METHOD │ │ │ │ +,CLASS-NAME │ │ │ │ +SYSTEMOBJECT │ │ │ │ +MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ + SLOT-NAME │ │ │ │ +%automatically generated boundp method │ │ │ │ + SLOT-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))0 │ │ │ │ +ADD-BOUNDP-METHOD │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +DIRECT-SLOT │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,NO-NEXT-METHOD │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -,STANDARD-METHOD │ │ │ │ +READER-METHOD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -H(FAST-METHOD NO-NEXT-METHOD (STANDARD-GENERIC-FUNCTION STANDARD-METHOD)) │ │ │ │ +INITARGS │ │ │ │ +DIRECT-SLOT │ │ │ │ +SLOT-CLASS │ │ │ │ +0(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -214956,16 +213401,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,METHOD │ │ │ │ +DIRECT-SLOT │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -214991,67 +213435,69 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,NO-NEXT-METHOD │ │ │ │ -,STANDARD-GENERIC-FUNCTION │ │ │ │ -,STANDARD-METHOD │ │ │ │ +READER-METHOD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +DIRECT-SLOT │ │ │ │ .REST-ARG. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +DIRECT-SLOT │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ +DIRECT-SLOT │ │ │ │ +INITARGS │ │ │ │ +,LIST*. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,NO-NEXT-METHOD │ │ │ │ -Try again. │ │ │ │ -INo next method to ~S when calling generic function ~S with arguments ~S~% │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ -(FAST-METHOD NO-NEXT-METHOD (STANDARD-GENERIC-FUNCTION STANDARD-METHOD)) │ │ │ │ +DIRECT-SLOT │ │ │ │ +,DECLARE │ │ │ │ +INITARGS │ │ │ │ +READER-METHOD-CLASS │ │ │ │ +,FIND-CLASS │ │ │ │ +STANDARD-READER-METHOD │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))` │ │ │ │ +DIRECT-SLOT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -DIRECT-SLOTDS │ │ │ │ -,DECLARE │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -KEYWORDAROUND │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -,DECLARE │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +,STANDARD-METHOD │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -DIRECT-SLOTDS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -T(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T)) │ │ │ │ +INITARGS │ │ │ │ +,STANDARD-METHOD │ │ │ │ +5(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215064,102 +213510,221 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ --FORMAT-CONTROL │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ --FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ --FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ + ,IGNORABLE │ │ │ │ +,DECLARE │ │ │ │ +INITARGS │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +[Attempt to reinitialize the method ~S.~%~ │ │ │ │ + Method objects cannot be reinitialized. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +INSTANCE │ │ │ │ +.REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ --DEFSTRUCT-ACCESSOR-SYMBOL │ │ │ │ -)SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL │ │ │ │ --INTERNAL-READER-FUNCTION │ │ │ │ -(SLOT-DEFINITION-INTERNAL-READER-FUNCTION │ │ │ │ --INTERNAL-WRITER-FUNCTION │ │ │ │ -(SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +INITARGS │ │ │ │ +INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ +1(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +INSTANCE │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T)) │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +SLOT-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +INSTANCE │ │ │ │ +.REST-ARG. │ │ │ │ +INSTANCE │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +INSTANCE │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +INITIALIZE-INFO │ │ │ │ +INITARGS │ │ │ │ +VALID-P │ │ │ │ +!INITIALIZE-INFO-CACHED-RI-VALID-P │ │ │ │ +0UNKNOWN │ │ │ │ +UPDATE-INITIALIZE-INFO-INTERNAL │ │ │ │ +RI-VALID-P │ │ │ │ +!INITIALIZE-INFO-CACHED-RI-VALID-P │ │ │ │ +VALID-P │ │ │ │ +0INVALID │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +/Invalid initialization argument ~S for class ~S │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,CLASS-NAME │ │ │ │ +,FUNCTION │ │ │ │ +,SHARED-INITIALIZE │ │ │ │ +INSTANCE │ │ │ │ +INITARGS │ │ │ │ +INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_init.lisp │ │ │ │ +(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +METAOBJECT │ │ │ │ +,FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -SLOT-CLASS │ │ │ │ +MAP-DEPENDENTS │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -DIRECT-SLOTDS │ │ │ │ -SLOT-CLASS │ │ │ │ -G(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T)) │ │ │ │ +,FUNCTION │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ +7(FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215172,15 +213737,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +METAOBJECT │ │ │ │ +,FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -215201,102 +213767,85 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -SLOT-CLASS │ │ │ │ +MAP-DEPENDENTS │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +METAOBJECT │ │ │ │ +,FUNCTION │ │ │ │ +METAOBJECT │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +METAOBJECT │ │ │ │ +,FUNCTION │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +,FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -INITFUNCTION │ │ │ │ -INITFORM │ │ │ │ -INITARGS │ │ │ │ -ALLOCATION │ │ │ │ -DOLIST271 │ │ │ │ -DIRECT-SLOTDS │ │ │ │ +METAOBJECT │ │ │ │ +MAP-DEPENDENTS │ │ │ │ +DOLIST271 │ │ │ │ +PLIST-VALUE │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENTS │ │ │ │ + DEPENDENT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE5 │ │ │ │ ,TAGBODY! │ │ │ │ -SLOT-DEFINITION-NAME │ │ │ │ -SLOT-DEFINITION-INITFUNCTION │ │ │ │ -INITFORM │ │ │ │ -SLOT-DEFINITION-INITFORM │ │ │ │ -INITFUNCTION │ │ │ │ -SLOT-DEFINITION-INITFUNCTION │ │ │ │ -ALLOCATION │ │ │ │ -SLOT-DEFINITION-ALLOCATION │ │ │ │ -INITARGS │ │ │ │ -SLOT-DEFINITION-INITARGS │ │ │ │ -INITARGS │ │ │ │ -SLOTD-TYPE │ │ │ │ -SLOT-DEFINITION-TYPE │ │ │ │ -SLOTD-TYPE │ │ │ │ - *SUBTYPEP │ │ │ │ -SLOTD-TYPE │ │ │ │ -SLOTD-TYPE │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ + DEPENDENT │ │ │ │ + DEPENDENT │ │ │ │ ,RETURN-FROM │ │ │ │ -1INITFORM │ │ │ │ -INITFORM │ │ │ │ -1INITFUNCTION │ │ │ │ -INITFUNCTION │ │ │ │ -1INITARGS │ │ │ │ -INITARGS │ │ │ │ -1ALLOCATION │ │ │ │ -ALLOCATION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T)) │ │ │ │ -DIRECT-SLOTDS │ │ │ │ -COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ +(FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INITARGS │ │ │ │ -,DECLARE │ │ │ │ +DIRECT-SLOT │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +WRITER-METHOD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ INITARGS │ │ │ │ - STD-CLASS │ │ │ │ -;(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ +DIRECT-SLOT │ │ │ │ +SLOT-CLASS │ │ │ │ +0(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215309,97 +213858,206 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INITARGS │ │ │ │ +DIRECT-SLOT │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ - STD-CLASS │ │ │ │ +WRITER-METHOD-CLASS │ │ │ │ +SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INITARGS │ │ │ │ +DIRECT-SLOT │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +DIRECT-SLOT │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +DIRECT-SLOT │ │ │ │ INITARGS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,LIST*. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +DIRECT-SLOT │ │ │ │ +,DECLARE │ │ │ │ INITARGS │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ +WRITER-METHOD-CLASS │ │ │ │ ,FIND-CLASS │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +STANDARD-WRITER-METHOD │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T)) │ │ │ │ +(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))` │ │ │ │ +DEPENDENT │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +KEYWORDAFTER │ │ │ │ +SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +INITARGS │ │ │ │ +SLOT-CLASS │ │ │ │ +7(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +SLOT-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +.REST-ARG. │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +INITARGS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +MAP-DEPENDENTS │ │ │ │ +,FUNCTION │ │ │ │ + DEPENDENT │ │ │ │ +,FUNCTION │ │ │ │ +UPDATE-DEPENDENT │ │ │ │ + DEPENDENT │ │ │ │ INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SUBCLASS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +,DECLARE │ │ │ │ +SUBCLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +REMOVE-DIRECT-SUBCLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ -A(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ +SUBCLASS │ │ │ │ +2(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215412,15 +214070,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INITARGS │ │ │ │ +SUBCLASS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -215441,66 +214099,123 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ -,STRUCTURE-CLASS │ │ │ │ +REMOVE-DIRECT-SUBCLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INITARGS │ │ │ │ +SUBCLASS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +SUBCLASS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -INITARGS │ │ │ │ +SUBCLASS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -INITARGS │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ -,FIND-CLASS │ │ │ │ -#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +SUBCLASS │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +REMOVE-DIRECT-SUBCLASS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE6 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING6 │ │ │ │ +.NEW-VALUE. │ │ │ │ +SUBCLASS │ │ │ │ +,DECLARE! │ │ │ │ +,OPTIMIZE │ │ │ │ +5INFER-TP8 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM8 │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP8 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL DIRECT-SUBCLASSES slot READER │ │ │ │ +,DECLARE7 │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM: │ │ │ │ +.NEW-VALUE. │ │ │ │ +!9PCL DIRECT-SUBCLASSES slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +SUBCLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T)) │ │ │ │ +(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +REMOVE-DIRECT-SUBCLASSES │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +DOLIST271 │ │ │ │ +,SET-DIFFERENCE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE- │ │ │ │ +,TAGBODY! │ │ │ │ +REMOVE-DIRECT-SUBCLASS │ │ │ │ +,RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +REMOVE-DIRECT-SUBCLASSES │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +DSLOTDS │ │ │ │ +REMOVE-SLOT-ACCESSORS │ │ │ │ +FIX-SLOT-ACCESSORS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +REMOVE-SLOT-ACCESSORS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,DECLARE │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +KEYWORDBEFORE │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ SLOT-CLASS │ │ │ │ ->(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T)) │ │ │ │ +8(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215513,98 +214228,98 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -DSLOTDS │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ SLOT-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -!COMPUTE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -INITARGS │ │ │ │ -*COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS │ │ │ │ -EFFECTIVE-SLOT-DEFINITION-CLASS │ │ │ │ -INITARGS │ │ │ │ -,FUNCTION │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -INITARGS │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +REMOVE-DIRECT-SUBCLASSES │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +REMOVE-SLOT-ACCESSORS │ │ │ │ +CLASS-DIRECT-SLOTS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T)) │ │ │ │ +(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - SLOT-NAME │ │ │ │ -,DECLARE │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ -SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ -METHOD-LAMBDA-LIST │ │ │ │ - SLOT-NAME │ │ │ │ -SLOT-CLASS │ │ │ │ -8(FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +KEYWORDAFTER │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER-P │ │ │ │ +LAMBDA-LIST │ │ │ │ +LAMBDA-LIST-P │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +F(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215617,98 +214332,146 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ - SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ -SLOT-CLASS │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - SLOT-NAME │ │ │ │ +.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +-FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +,LIST*/! │ │ │ │ +SYSTEMKB │ │ │ │ +-LAMBDA-LIST │ │ │ │ +-ARGUMENT-PRECEDENCE-ORDER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +-FORMAT-CONTROL │ │ │ │ +Key ~s missing value │ │ │ │ +-FORMAT-ARGUMENTS │ │ │ │ +LAMBDA-LIST │ │ │ │ +LAMBDA-LIST-P1 │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER-P3 │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ -MAKE-STD-BOUNDP-METHOD-FUNCTION │ │ │ │ -,CLASS-NAME │ │ │ │ - SLOT-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T)) │ │ │ │ -MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE7 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING7 │ │ │ │ +LAMBDA-LIST-P │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER-P │ │ │ │ +SET-ARG-INFO │ │ │ │ +-LAMBDA-LIST │ │ │ │ +LAMBDA-LIST │ │ │ │ +-ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER │ │ │ │ +SET-ARG-INFO │ │ │ │ +-LAMBDA-LIST │ │ │ │ +LAMBDA-LIST │ │ │ │ +SET-ARG-INFO │ │ │ │ +ARG-INFO-VALID-P │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +6INFER-TP8 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM8 │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP8 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL ARG-INFO slot READER │ │ │ │ +LAMBDA-LIST-P │ │ │ │ +UPDATE-DFUN │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +ARGUMENT-PRECEDENCE-ORDER-P │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ +FORWARD-REFERENCED-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -REMOVE-BOUNDP-METHOD │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ SLOT-CLASS │ │ │ │ +FORWARD-REFERENCED-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +FORWARD-REFERENCED-CLASS │ │ │ │ SLOT-CLASS │ │ │ │ -1(FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T)) │ │ │ │ +G(FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215721,15 +214484,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -215750,73 +214512,60 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -REMOVE-BOUNDP-METHOD │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ SLOT-CLASS │ │ │ │ +FORWARD-REFERENCED-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -REMOVE-BOUNDP-METHOD │ │ │ │ -GET-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,METHOD │ │ │ │ -,REMOVE-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +VALIDATE-SUPERCLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T)) │ │ │ │ -REMOVE-BOUNDP-METHOD │ │ │ │ +(FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS)) │ │ │ │ +NEW-SUPER │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +,DECLARE │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -ADD-BOUNDP-METHOD │ │ │ │ -SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - SLOT-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -SLOT-CLASS │ │ │ │ -0(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T)) │ │ │ │ +.(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215829,17 +214578,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -215860,85 +214606,63 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -ADD-BOUNDP-METHOD │ │ │ │ -SLOT-CLASS │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ - SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -ADD-BOUNDP-METHOD │ │ │ │ -,ADD-METHOD │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -MAKE-A-METHOD │ │ │ │ -STANDARD-BOUNDP-METHOD │ │ │ │ -,CLASS-NAME │ │ │ │ -SYSTEMOBJECT │ │ │ │ -MAKE-BOUNDP-METHOD-FUNCTION │ │ │ │ - SLOT-NAME │ │ │ │ -%automatically generated boundp method │ │ │ │ - SLOT-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))0 │ │ │ │ -ADD-BOUNDP-METHOD │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -DIRECT-SLOT │ │ │ │ -.REST-ARG. │ │ │ │ -,DECLARE │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -.REST-ARG. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-CLASS │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -READER-METHOD-CLASS │ │ │ │ -SLOT-CLASS │ │ │ │ -,DECLARE │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INITARGS │ │ │ │ -DIRECT-SLOT │ │ │ │ -SLOT-CLASS │ │ │ │ -0(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T)) │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +L(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -215951,116 +214675,95 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -DIRECT-SLOT │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ BIND-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ -.REST-ARG. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ CALL-NO-NEXT-METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ -.REST-ARG. │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -READER-METHOD-CLASS │ │ │ │ -SLOT-CLASS │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -DIRECT-SLOT │ │ │ │ -.REST-ARG. │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOT │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DIRECT-SLOT │ │ │ │ -INITARGS │ │ │ │ -,LIST*. │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -DIRECT-SLOT │ │ │ │ -,DECLARE │ │ │ │ -INITARGS │ │ │ │ -READER-METHOD-CLASS │ │ │ │ -,FIND-CLASS │ │ │ │ -STANDARD-READER-METHOD │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))` │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ - NEW-VALUE │ │ │ │ -SYSTEMOBJECT │ │ │ │ - SLOT-NAME │ │ │ │ -SET-CLASS-SLOT-VALUE-1 │ │ │ │ - SLOT-NAME │ │ │ │ -,SLOT-MISSING │ │ │ │ - SLOT-NAME │ │ │ │ - NEW-VALUE │ │ │ │ - NEW-VALUE │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE. │ │ │ │ -,RPLACD.// │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -SET-CLASS-SLOT-VALUE-1 │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +SPECIALIZER-CLASS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ +EQL-SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - SLOT-NAME │ │ │ │ - STD-CLASS │ │ │ │ -5(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T)) │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +B(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -216073,16 +214776,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ - SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -216103,83 +214804,68 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ - STD-CLASS │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +EQL-SPECIALIZER │ │ │ │ +EQL-SPECIALIZER │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ - SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -CLASS-SLOT-VALUE │ │ │ │ -CLASS-WRAPPER │ │ │ │ - PROTOTYPE │ │ │ │ -CLASS-PROTOTYPE │ │ │ │ -SET-CLASS-SLOT-VALUE-1 │ │ │ │ - PROTOTYPE │ │ │ │ - SLOT-NAME │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T)) │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) │ │ │ │ +SAME-SPECIALIZER-P │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - NEW-VALUE │ │ │ │ -SYSTEMOBJECT │ │ │ │ +SPECIALIZER │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ - STD-CLASS │ │ │ │ -,DECLARE │ │ │ │ -,STANDARD-OBJECT │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ ,DECLARE │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +ADD-DIRECT-METHOD │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ -,STANDARD-OBJECT │ │ │ │ - STD-CLASS │ │ │ │ - NEW-VALUE │ │ │ │ -l(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +@(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -216192,15 +214878,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ - NEW-VALUE │ │ │ │ +SPECIALIZER │ │ │ │ +,METHOD │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -216221,94 +214908,62 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ - STD-CLASS │ │ │ │ -,STANDARD-OBJECT │ │ │ │ -"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +ADD-DIRECT-METHOD │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - NEW-VALUE │ │ │ │ - NEW-VALUE │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ - NEW-VALUE │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE6 │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -LOCATION │ │ │ │ -SLOT-DEFINITION-LOCATION │ │ │ │ -LOCATION │ │ │ │ --INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -STD-INSTANCE-P │ │ │ │ --OBJECT │ │ │ │ -%STD-INSTANCE-WRAPPER │ │ │ │ -CHECK-WRAPPER-VALIDITY │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ --OBJECT │ │ │ │ -LOCATION │ │ │ │ - NEW-VALUE │ │ │ │ -FUNCALLABLE-INSTANCE-P │ │ │ │ --OBJECT │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ -CHECK-WRAPPER-VALIDITY │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ --OBJECT │ │ │ │ -LOCATION │ │ │ │ - NEW-VALUE │ │ │ │ -What kind of instance is this? │ │ │ │ --INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -LOCATION │ │ │ │ - NEW-VALUE │ │ │ │ +SPECIALIZER │ │ │ │ +ADD-DIRECT-METHOD │ │ │ │ +SYSTEMOBJECT │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +SPECIALIZER │ │ │ │ +,GETHASH │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE67 │ │ │ │ +5HASH-SET678 │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE8 │ │ │ │ -,RPLACD899 │ │ │ │ - ,OTHERWISE │ │ │ │ --INFER-TP │ │ │ │ -LOCATION │ │ │ │ -#*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ - so it can't be written by the default ~s method. │ │ │ │ -SLOT-VALUE-USING-CLASS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ -(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ + ,IGNORABLE9 │ │ │ │ +,RPLACA9:: │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE; │ │ │ │ +,RPLACD;<< │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))@i │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ NEW-TYPE │ │ │ │ KNOWN-TYPE │ │ │ │ AUGMENT-TYPE │ │ │ │ KNOWN-TYPE │ │ │ │ NEW-TYPE │ │ │ │ NEW-TYPE │ │ │ │ @@ -216854,138 +215509,243 @@ │ │ │ │ 3INFER-TP< │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ ..SLOT-UNBOUND.. │ │ │ │ 7PCL DFUN-STATE slot READER │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ (FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION)) │ │ │ │ -Insufficient arguments when binding ~s │ │ │ │ +PARSE-QUALIFIER-PATTERN │ │ │ │ pv-table │ │ │ │ -(CALL STANDARD-COMPUTE-EFFECTIVE-METHOD) │ │ │ │ -MAKE-INSTANCE STANDARD-WRITER-METHOD (:QUALIFIERS :LAMBDA-LIST :SPECIALIZERS :DOCUMENTATION :SLOT-NAME :ALLOW-OTHER-KEYS :METHOD-SPEC :FAST-FUNCTION :PLIST) T │ │ │ │ -PCL::SLOT-DEFINITION-READER-FUNCTION │ │ │ │ Insufficient arguments when binding ~s │ │ │ │ -Key ~s missing value │ │ │ │ -CONSTRUCTORS │ │ │ │ -*EQL-SPECIALIZER-METHODS* │ │ │ │ -*CLASS-EQ-SPECIALIZER-METHODS* │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -COMMON-LISPFUNCTION │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --LAMBDA │ │ │ │ --FUNCALL │ │ │ │ --FUNCTION │ │ │ │ -CLASS-EQ-SPECIALIZER │ │ │ │ --FUNCALL │ │ │ │ --FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -ALL-GENERIC-FUNCTIONS │ │ │ │ -COMMON-LISPFUNCTION │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --LAMBDA │ │ │ │ -DOLIST271 │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ --DECLARE │ │ │ │ - -IGNORABLE. │ │ │ │ --TAGBODY! │ │ │ │ --GETHASH │ │ │ │ -ALL-GENERIC-FUNCTIONS │ │ │ │ -ALL-GENERIC-FUNCTIONS │ │ │ │ --DECLARE │ │ │ │ - -IGNORABLE01 │ │ │ │ -,HASH-SET012 │ │ │ │ --FUNCALL │ │ │ │ --FUNCTION │ │ │ │ --RETURN-FROM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -More than one direct slot with name ~S. │ │ │ │ -Duplicate slot option ~S for slot ~S. │ │ │ │ -Duplicate initialization argument ~ │ │ │ │ - name ~S in :default-initargs of class ~A. │ │ │ │ -Odd-length property list in REMF. │ │ │ │ -~S is not a class or a legal class name. │ │ │ │ -The class ~S was specified as a~%super-class of the class ~S;~%~ │ │ │ │ - but the meta-classes ~S and~%~S are incompatible.~% │ │ │ │ - Define a method for ~S to avoid this error. │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -COMMON-LISPCLASS │ │ │ │ +MAKE-INSTANCE STANDARD-WRITER-METHOD (:QUALIFIERS :LAMBDA-LIST :SPECIALIZERS :DOCUMENTATION :SLOT-NAME :ALLOW-OTHER-KEYS :METHOD-SPEC :FAST-FUNCTION :PLIST) T │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +NO-PRIMARY-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +;(FAST-METHOD NO-PRIMARY-METHOD (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +NO-PRIMARY-METHOD │ │ │ │ +,STANDARD-GENERIC-FUNCTION │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +.REST-ARG. │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +NO-PRIMARY-METHOD │ │ │ │ +Try again. │ │ │ │ +FNo primary method when calling generic function ~S with arguments ~S~% │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ +(FAST-METHOD NO-PRIMARY-METHOD (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +%NO-PRIMARY-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +NO-PRIMARY-METHOD │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_braid.lisp │ │ │ │ +(COMBINED-METHOD CHANGE-CLASS) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.REST-ARG. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ + PCL-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +ENSURE-CLASS-USING-CLASS │ │ │ │ + PCL-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ + PCL-CLASS │ │ │ │ +4(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +.REST-ARG. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.REST-ARG. │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +ENSURE-CLASS-USING-CLASS │ │ │ │ + PCL-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +.REST-ARG. │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +ENSURE-CLASS-USING-CLASS │ │ │ │ +,MULTIPLE-VALUE-BIND │ │ │ │ +INITARGS │ │ │ │ +ENSURE-CLASS-VALUES │ │ │ │ +,CLASS-OF │ │ │ │ +,FUNCTION │ │ │ │ +,CHANGE-CLASS │ │ │ │ INITARGS │ │ │ │ - DEPENDENT │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --FUNCTION │ │ │ │ -UPDATE-DEPENDENT │ │ │ │ - DEPENDENT │ │ │ │ +,FUNCTION │ │ │ │ +,REINITIALIZE-INSTANCE │ │ │ │ INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -~s structure class ~a │ │ │ │ -~s structure class │ │ │ │ -~a constructor │ │ │ │ -~A~A reader │ │ │ │ -~A~A writer │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -READER-NAME │ │ │ │ -WRITER-NAME │ │ │ │ ,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -GDEFINITION │ │ │ │ -READER-NAME │ │ │ │ -WRITER-NAME │ │ │ │ -GDEFINITION │ │ │ │ -WRITER-NAME │ │ │ │ -SLOT-ACCESSOR-NAMEPCL INTERNAL-READER-FUNCTION slot WRITER │ │ │ │ -(-PCL INTERNAL-WRITER-FUNCTION slot WRITER │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -COMMON-LISP&REST │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --FUNCALL │ │ │ │ --DECLARE │ │ │ │ - -IGNORABLE. │ │ │ │ --RPLACA.// │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -GF-TABLE │ │ │ │ -GF-TABLE │ │ │ │ -COMMON-LISPCLASS │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ --DECLARE │ │ │ │ --OPTIMIZE │ │ │ │ -COLLECT-GFS │ │ │ │ -DOLIST271 │ │ │ │ -$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ --DECLARE │ │ │ │ - -IGNORABLE. │ │ │ │ --TAGBODY! │ │ │ │ -GF-TABLE │ │ │ │ --DECLARE │ │ │ │ - -IGNORABLE01 │ │ │ │ -,HASH-SET012 │ │ │ │ --RETURN-FROM │ │ │ │ --FUNCTION │ │ │ │ -COLLECT-GFS │ │ │ │ -CLASS-DIRECT-SUPERCLASSES │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +,FIND-CLASS54 │ │ │ │ +INFORM-TYPE-SYSTEM-ABOUT-CLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -COLLECT-GFS │ │ │ │ -automatically generated reader method │ │ │ │ -automatically generated writer method │ │ │ │ -automatically generated boundp method │ │ │ │ -*IN-OBSOLETE-INSTANCE-TRAP* │ │ │ │ -*THE-WRAPPER-OF-STRUCTURE-OBJECT* │ │ │ │ -The structure ~S is obsolete. │ │ │ │ -Extra argument ~s │ │ │ │ -Can't change the class of ~S to ~S~@ │ │ │ │ - because it isn't already an instance with metaclass ~S. │ │ │ │ -Attempt to initialize or reinitialize a built in class. │ │ │ │ -DEPENDENTS │ │ │ │ +(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ENSURE-CLASS │ │ │ │ ,FUNCTION │ │ │ │ ENSURE-CLASS-USING-CLASS │ │ │ │ ,FIND-CLASS │ │ │ │ ,CLASS-NAME │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ @@ -217006,15 +215766,172 @@ │ │ │ │ SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ SETF-SLOT-VALUE-USING-CLASS-DFUN │ │ │ │ ,FUNCALL │ │ │ │ SLOT-DEFINITION-WRITER-FUNCTION │ │ │ │ NEW-VALUE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -SETF-SLOT-VALUE-USING-CLASS-DFUNP │ │ │ │ +SETF-SLOT-VALUE-USING-CLASS-DFUN │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + NEW-VALUE │ │ │ │ +SYSTEMOBJECT │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ + STD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ + STD-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,STANDARD-OBJECT │ │ │ │ + STD-CLASS │ │ │ │ + NEW-VALUE │ │ │ │ +l(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + NEW-VALUE │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ + STD-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ + NEW-VALUE │ │ │ │ + NEW-VALUE │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ + NEW-VALUE │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE6 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +LOCATION │ │ │ │ +SLOT-DEFINITION-LOCATION │ │ │ │ +LOCATION │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +STD-INSTANCE-P │ │ │ │ +-OBJECT │ │ │ │ +%STD-INSTANCE-WRAPPER │ │ │ │ +CHECK-WRAPPER-VALIDITY │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +-OBJECT │ │ │ │ +LOCATION │ │ │ │ + NEW-VALUE │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +-OBJECT │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +CHECK-WRAPPER-VALIDITY │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +-OBJECT │ │ │ │ +LOCATION │ │ │ │ + NEW-VALUE │ │ │ │ +What kind of instance is this? │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +LOCATION │ │ │ │ + NEW-VALUE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE8 │ │ │ │ +,RPLACD899 │ │ │ │ + ,OTHERWISE │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ + so it can't be written by the default ~s method. │ │ │ │ +SLOT-VALUE-USING-CLASS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEMOBJECT │ │ │ │ SLOT-NAME │ │ │ │ NEW-VALUE │ │ │ │ SET-SLOT-VALUE │ │ │ │ ,CLASS-OF │ │ │ │ SLOT-DEFINITION │ │ │ │ @@ -217144,28 +216061,33 @@ │ │ │ │ COMMON-LISP METHOD-COMBINATION slot BOUNDP │ │ │ │ PCL FROM-DEFCLASS-P slot BOUNDP │ │ │ │ FAST-INTERNAL-READER-METHOD │ │ │ │ (FAST-INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ + NEW-VALUE │ │ │ │ +SYSTEMOBJECT │ │ │ │ +DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,STANDARD-METHOD │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,STANDARD-METHOD │ │ │ │ -,DECLARE │ │ │ │ +,DOCUMENTATION │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,STANDARD-METHOD │ │ │ │ -.(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T)) │ │ │ │ +DOC-TYPE │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ + NEW-VALUE │ │ │ │ +<(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -217178,15 +216100,17 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ +,QUOTE! │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -217207,104 +216131,78 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,STANDARD-METHOD │ │ │ │ +,DOCUMENTATION │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ + NEW-VALUE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ + NEW-VALUE │ │ │ │ +2FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,METHOD │ │ │ │ -pv-table │ │ │ │ -,METHOD │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-READABLY* │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ +DOC-TYPE │ │ │ │ +,DOCUMENTATION │ │ │ │ +,DOCUMENTATION │ │ │ │ + NEW-VALUE │ │ │ │ ,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -5INFER-TP6 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM6 │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP6 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -SLOT-BOUNDP-NORMAL │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -METHOD-GENERIC-FUNCTION │ │ │ │ -,CLASS-NAME │ │ │ │ -CAPITALIZE-WORDS │ │ │ │ -,CLASS-NAME │ │ │ │ -,CLASS-OF │ │ │ │ -~A ~S ~{~S ~}~:S │ │ │ │ -,CLASS-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -GENERIC-FUNCTION-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,METHOD-QUALIFIERS │ │ │ │ -UNPARSE-SPECIALIZERS │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,STREAM │ │ │ │ -5ADDRESS │ │ │ │ -,STREAM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T)) │ │ │ │ + ,IGNORABLE78 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +PLIST-VALUE978 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -INSTANCE │ │ │ │ + NEW-VALUE │ │ │ │ +SYSTEMOBJECT │ │ │ │ +DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,DECLARE │ │ │ │ +,DOCUMENTATION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -INSTANCE │ │ │ │ - (FAST-METHOD PRINT-OBJECT (T T)) │ │ │ │ +DOC-TYPE │ │ │ │ + NEW-VALUE │ │ │ │ +*(FAST-METHOD (SETF DOCUMENTATION) (T T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -217317,16 +216215,17 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -INSTANCE │ │ │ │ -,STREAM │ │ │ │ +,QUOTE! │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -217347,73 +216246,74 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ +,DOCUMENTATION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -INSTANCE │ │ │ │ -INSTANCE │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ + NEW-VALUE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -INSTANCE │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ + NEW-VALUE │ │ │ │ +2FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-READABLY* │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ -INSTANCE │ │ │ │ -,STREAM │ │ │ │ -,CLASS-NAME │ │ │ │ -,CLASS-OF │ │ │ │ -INSTANCE │ │ │ │ -Instance │ │ │ │ -,STREAM │ │ │ │ -SYSTEMADDRESS │ │ │ │ -INSTANCE │ │ │ │ -,STREAM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (T T))@i │ │ │ │ +,DOCUMENTATION │ │ │ │ +-SET-DOCUMENTATION │ │ │ │ +DOC-TYPE │ │ │ │ + NEW-VALUE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD (SETF DOCUMENTATION) (T T T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -SLOT-DEFINITION │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +,DOCUMENTATION │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -SLOT-DEFINITION │ │ │ │ -.(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T)) │ │ │ │ +DOC-TYPE │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ + NEW-VALUE │ │ │ │ +A(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -217426,15 +216326,17 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ +,QUOTE! │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -217455,58 +216357,95 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -SLOT-DEFINITION │ │ │ │ +,DOCUMENTATION │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ + NEW-VALUE │ │ │ │ +DOC-TYPE │ │ │ │ + NEW-VALUE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ + NEW-VALUE │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE4 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -NAMED-OBJECT-PRINT-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T)) │ │ │ │ +DOC-TYPE │ │ │ │ +pv-table │ │ │ │ +.SLOTS1. │ │ │ │ +SYSTEMTP6 │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +6INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +6INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,DOCUMENTATION │ │ │ │ +.NEW-VALUE. │ │ │ │ + NEW-VALUE │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS1. │ │ │ │ +,FIXNUM7 │ │ │ │ +.NEW-VALUE. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP DOCUMENTATION slot WRITER │ │ │ │ +.NEW-VALUE. │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION T)) │ │ │ │ +DOC-TYPE │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ +,DOCUMENTATION │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -$(FAST-METHOD PRINT-OBJECT (CLASS T)) │ │ │ │ +DOC-TYPE │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ +8(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -217519,15 +216458,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ +DOC-TYPE │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -217548,60 +216487,98 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ +,DOCUMENTATION │ │ │ │ +STANDARD-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ +DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ +DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -NAMED-OBJECT-PRINT-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (CLASS T)) │ │ │ │ +DOC-TYPE │ │ │ │ +pv-table │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,DOCUMENTATION │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +5INFER-TP6 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM6 │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP6 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMECOMMON-LISP DOCUMENTATION slot READER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STANDARD-METHOD-COMBINATION │ │ │ │ + STD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -STANDARD-METHOD-COMBINATION │ │ │ │ -,DECLARE │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ + STD-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -STANDARD-METHOD-COMBINATION │ │ │ │ -:(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T)) │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,STANDARD-OBJECT │ │ │ │ + STD-CLASS │ │ │ │ +h(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -217614,15 +216591,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ +,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -217643,69 +216620,114 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -STANDARD-METHOD-COMBINATION │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ + STD-CLASS │ │ │ │ +,STANDARD-OBJECT │ │ │ │ +"STANDARD-EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-READABLY* │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ -Method-Combination ~S ~S │ │ │ │ -SLOT-VALUE-OR-DEFAULT │ │ │ │ -SLOT-VALUE-OR-DEFAULT │ │ │ │ -,STREAM │ │ │ │ -SYSTEMADDRESS │ │ │ │ -,STREAM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T)) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::SLOT-DESCRIPTIONS) │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +LOCATION │ │ │ │ +SLOT-DEFINITION-LOCATION │ │ │ │ +LOCATION │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +STD-INSTANCE-P │ │ │ │ +-OBJECT │ │ │ │ +%STD-INSTANCE-WRAPPER │ │ │ │ +CHECK-WRAPPER-VALIDITY │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +-OBJECT │ │ │ │ +LOCATION │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +FUNCALLABLE-INSTANCE-P │ │ │ │ +-OBJECT │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +CHECK-WRAPPER-VALIDITY │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +-OBJECT │ │ │ │ +LOCATION │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +What kind of instance is this? │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +LOCATION │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE7 │ │ │ │ +,RPLACD788 │ │ │ │ + ,OTHERWISE │ │ │ │ +-INFER-TP │ │ │ │ +LOCATION │ │ │ │ +#*00000000000000000000000000111111111111111111111100111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +The slot ~s has neither :instance nor :class allocation, ~@ │ │ │ │ + so it can't be written by the default ~s method. │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ +SYSTEMOBJECT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,DECLARE │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,PRINT-OBJECT │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ -,DECLARE │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ -7(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +p(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -217718,15 +216740,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,STREAM │ │ │ │ +,QUOTE! │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -217747,89 +216769,49 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,PRINT-OBJECT │ │ │ │ -STANDARD-ACCESSOR-METHOD │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ +,STRUCTURE-CLASS │ │ │ │ +,STRUCTURE-OBJECT │ │ │ │ +#STRUCTURE-EFFECTIVE-SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE5 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,METHOD │ │ │ │ -pv-table │ │ │ │ -,METHOD │ │ │ │ -.SLOTS0. │ │ │ │ -SYSTEMTP6 │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -5INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-READABLY* │ │ │ │ -,PRINT-NOT-READABLE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -5INFER-TP6 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS0. │ │ │ │ -,FIXNUM6 │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ - ,OTHERWISE │ │ │ │ -5INFER-TP6 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -SLOT-BOUNDP-NORMAL │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -METHOD-GENERIC-FUNCTION │ │ │ │ -,CLASS-NAME │ │ │ │ -CAPITALIZE-WORDS │ │ │ │ -,CLASS-NAME │ │ │ │ -,CLASS-OF │ │ │ │ -~A ~S, slot:~S, ~:S │ │ │ │ -,CLASS-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -GENERIC-FUNCTION-NAME │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -ACCESSOR-METHOD-SLOT-NAME │ │ │ │ -UNPARSE-SPECIALIZERS │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -,STREAM │ │ │ │ -5ADDRESS │ │ │ │ -,STREAM │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +SLOT-MAKUNBOUND-USING-CLASS │ │ │ │ + Structure slots can't be unbound │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))@$ │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -217961,36 +216943,29 @@ │ │ │ │ #*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ SLOT-BOUNDP-NORMAL │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ GENERIC-FUNCTION-METHODS │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ (FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T)) │ │ │ │ -(WRITER CONDITIONS::EXPECTED-TYPE) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ +INSTANCE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,DOCUMENTATION │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ -,DECLARE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -DOC-TYPE │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ - NEW-VALUE │ │ │ │ -A(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION T)) │ │ │ │ +INSTANCE │ │ │ │ + (FAST-METHOD PRINT-OBJECT (T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -218003,17 +216978,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ +INSTANCE │ │ │ │ +,STREAM │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -218034,93 +217008,166 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,DOCUMENTATION │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ +,PRINT-OBJECT │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ - NEW-VALUE │ │ │ │ +INSTANCE │ │ │ │ +INSTANCE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - NEW-VALUE │ │ │ │ +INSTANCE │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-READABLY* │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ +INSTANCE │ │ │ │ +,STREAM │ │ │ │ +,CLASS-NAME │ │ │ │ +,CLASS-OF │ │ │ │ +INSTANCE │ │ │ │ +Instance │ │ │ │ +,STREAM │ │ │ │ +SYSTEMADDRESS │ │ │ │ +INSTANCE │ │ │ │ +,STREAM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (T T))@i │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +$(FAST-METHOD PRINT-OBJECT (CLASS T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,PRINT-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -DOC-TYPE │ │ │ │ -pv-table │ │ │ │ -.SLOTS1. │ │ │ │ -SYSTEMTP6 │ │ │ │ -6INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%STD-INSTANCE-SLOTS │ │ │ │ -6INFER-TP │ │ │ │ -#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ -%CCLOSURE-ENV-NTHCDR │ │ │ │ - ,OTHERWISE │ │ │ │ -6INFER-TP │ │ │ │ -#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,DOCUMENTATION │ │ │ │ -.NEW-VALUE. │ │ │ │ - NEW-VALUE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ -.SLOTS1. │ │ │ │ -,FIXNUM7 │ │ │ │ -.NEW-VALUE. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP DOCUMENTATION slot WRITER │ │ │ │ -.NEW-VALUE. │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION T)) │ │ │ │ +,PRINT-OBJECT │ │ │ │ +NAMED-OBJECT-PRINT-FUNCTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (CLASS T)) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::SLOT-DESCRIPTIONS) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - NEW-VALUE │ │ │ │ -SYSTEMOBJECT │ │ │ │ -DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +STANDARD-METHOD-COMBINATION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,DOCUMENTATION │ │ │ │ -,DECLARE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +STANDARD-METHOD-COMBINATION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -DOC-TYPE │ │ │ │ - NEW-VALUE │ │ │ │ -*(FAST-METHOD (SETF DOCUMENTATION) (T T T)) │ │ │ │ +STANDARD-METHOD-COMBINATION │ │ │ │ +:(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -218133,17 +217180,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ +,STREAM │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -218164,75 +217209,69 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,DOCUMENTATION │ │ │ │ +,PRINT-OBJECT │ │ │ │ +STANDARD-METHOD-COMBINATION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ - NEW-VALUE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ - NEW-VALUE │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ -,DECLARE │ │ │ │ -,DOCUMENTATION │ │ │ │ --SET-DOCUMENTATION │ │ │ │ -DOC-TYPE │ │ │ │ - NEW-VALUE │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD (SETF DOCUMENTATION) (T T T)) │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-READABLY* │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ +Method-Combination ~S ~S │ │ │ │ +SLOT-VALUE-OR-DEFAULT │ │ │ │ +SLOT-VALUE-OR-DEFAULT │ │ │ │ +,STREAM │ │ │ │ +SYSTEMADDRESS │ │ │ │ +,STREAM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T)) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::CONSTRUCTORS) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ - NEW-VALUE │ │ │ │ -SYSTEMOBJECT │ │ │ │ -DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ +SLOT-DEFINITION │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,DOCUMENTATION │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ -,DECLARE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +SLOT-DEFINITION │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -DOC-TYPE │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ - NEW-VALUE │ │ │ │ -<(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN T)) │ │ │ │ +SLOT-DEFINITION │ │ │ │ +.(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -218245,17 +217284,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,QUOTE! │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ +,STREAM │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -218276,80 +217313,202 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,DOCUMENTATION │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ +,PRINT-OBJECT │ │ │ │ +SLOT-DEFINITION │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ - NEW-VALUE │ │ │ │ -DOC-TYPE │ │ │ │ - NEW-VALUE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ - NEW-VALUE │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -2FORMAT-CONTROL │ │ │ │ +1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE5 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -DOC-TYPE │ │ │ │ -,DOCUMENTATION │ │ │ │ -,DOCUMENTATION │ │ │ │ - NEW-VALUE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +NAMED-OBJECT-PRINT-FUNCTION │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ - ,IGNORABLE78 │ │ │ │ -,FUNCALL │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +,PRINT-OBJECT │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +7(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,STREAM │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +,PRINT-OBJECT │ │ │ │ +STANDARD-ACCESSOR-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ -PLIST-VALUE978 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN T)) │ │ │ │ -DOC-TYPE │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,METHOD │ │ │ │ +pv-table │ │ │ │ +,METHOD │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +5INFER-TP │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-READABLY* │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +5INFER-TP6 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM6 │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ + ,OTHERWISE │ │ │ │ +5INFER-TP6 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SLOT-BOUNDP-NORMAL │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +METHOD-GENERIC-FUNCTION │ │ │ │ +,CLASS-NAME │ │ │ │ +CAPITALIZE-WORDS │ │ │ │ +,CLASS-NAME │ │ │ │ +,CLASS-OF │ │ │ │ +~A ~S, slot:~S, ~:S │ │ │ │ +,CLASS-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +GENERIC-FUNCTION-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +ACCESSOR-METHOD-SLOT-NAME │ │ │ │ +UNPARSE-SPECIALIZERS │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,STREAM │ │ │ │ +5ADDRESS │ │ │ │ +,STREAM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -,DOCUMENTATION │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,STANDARD-METHOD │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -DOC-TYPE │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ -8(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION T)) │ │ │ │ +,STANDARD-METHOD │ │ │ │ +.(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -218362,15 +217521,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -DOC-TYPE │ │ │ │ +,STREAM │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -218391,89 +217550,278 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -,DOCUMENTATION │ │ │ │ -STANDARD-SLOT-DEFINITION │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,STANDARD-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -DOC-TYPE │ │ │ │ +,METHOD │ │ │ │ pv-table │ │ │ │ +,METHOD │ │ │ │ .SLOTS0. │ │ │ │ SYSTEMTP6 │ │ │ │ 5INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %STD-INSTANCE-SLOTS │ │ │ │ 5INFER-TP │ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ ,OTHERWISE │ │ │ │ 5INFER-TP │ │ │ │ #*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -,DOCUMENTATION │ │ │ │ +,PRINT-OBJECT │ │ │ │ +,*PRINT-READABLY* │ │ │ │ +,PRINT-NOT-READABLE │ │ │ │ ,DECLARE │ │ │ │ ,OPTIMIZE │ │ │ │ 5INFER-TP6 │ │ │ │ -#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ .SLOTS0. │ │ │ │ ,FIXNUM6 │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ ,OTHERWISE │ │ │ │ 5INFER-TP6 │ │ │ │ -#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -..SLOT-UNBOUND.. │ │ │ │ -SLOT-ACCESSOR-NAMECOMMON-LISP DOCUMENTATION slot READER │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SLOT-BOUNDP-NORMAL │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +METHOD-GENERIC-FUNCTION │ │ │ │ +,CLASS-NAME │ │ │ │ +CAPITALIZE-WORDS │ │ │ │ +,CLASS-NAME │ │ │ │ +,CLASS-OF │ │ │ │ +~A ~S ~{~S ~}~:S │ │ │ │ +,CLASS-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +GENERIC-FUNCTION-NAME │ │ │ │ +,GENERIC-FUNCTION │ │ │ │ +,METHOD-QUALIFIERS │ │ │ │ +UNPARSE-SPECIALIZERS │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,STREAM │ │ │ │ +5ADDRESS │ │ │ │ +,STREAM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ +(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +PATTERNS │ │ │ │ +%MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION │ │ │ │ +PATTERNS │ │ │ │ +1methods matching one of the patterns: ~{~S, ~} ~S │ │ │ │ +,BUTLAST │ │ │ │ +PATTERNS │ │ │ │ +PATTERNS │ │ │ │ + methods matching the pattern: ~S │ │ │ │ +PATTERNS │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +METHOD-GROUP-SPECIFIER │ │ │ │ +PARSE-METHOD-GROUP-SPECIFIER │ │ │ │ +METHOD-GROUP-SPECIFIER │ │ │ │ +METHOD-GROUP-SPECIFIER │ │ │ │ +METHOD-GROUP-SPECIFIER- │ │ │ │ +METHOD-GROUP-SPECIFIER │ │ │ │ +PATTERNS │ │ │ │ +,TAGBODY │ │ │ │ + ANSI-LOOPNEXT-LOOP │ │ │ │ +2END-LOOP │ │ │ │ +KEYWORDDESCRIPTION │ │ │ │ +3REQUIRED │ │ │ │ +2END-LOOP │ │ │ │ +,RPLACD/ │ │ │ │ +PATTERN │ │ │ │ +PATTERNS │ │ │ │ +,RPLACD1 │ │ │ │ +PARSE-QUALIFIER-PATTERN │ │ │ │ +PATTERN │ │ │ │ + 2NEXT-LOOP │ │ │ │ +2END-LOOP │ │ │ │ +,RETURN-FROM │ │ │ │ +3DESCRIPTION │ │ │ │ +%MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION │ │ │ │ +,NREVERSE │ │ │ │ +PATTERNS │ │ │ │ +3MOST-SPECIFIC-FIRST │ │ │ │ +3REQUIRED │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +FORMAT-STRING │ │ │ │ +,DECLARE │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +REAL-INVALID-METHOD-ERROR │ │ │ │ +,FUNCTION │ │ │ │ +FORMAT-STRING │ │ │ │ +gcl_pcl_defcombin.o │ │ │ │ +Insufficient arguments when binding ~s │ │ │ │ +Key ~s missing value │ │ │ │ +CONSTRUCTORS │ │ │ │ +*EQL-SPECIALIZER-METHODS* │ │ │ │ +*CLASS-EQ-SPECIALIZER-METHODS* │ │ │ │ +SYSTEMLAMBDA-CLOSURE │ │ │ │ +COMMON-LISPFUNCTION │ │ │ │ +-DECLARE │ │ │ │ +-OPTIMIZE │ │ │ │ +-LAMBDA │ │ │ │ +-FUNCALL │ │ │ │ +-FUNCTION │ │ │ │ +CLASS-EQ-SPECIALIZER │ │ │ │ +-FUNCALL │ │ │ │ +-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION T)) │ │ │ │ +SYSTEMLAMBDA-CLOSURE │ │ │ │ +ALL-GENERIC-FUNCTIONS │ │ │ │ +COMMON-LISPFUNCTION │ │ │ │ +-DECLARE │ │ │ │ +-OPTIMIZE │ │ │ │ +-LAMBDA │ │ │ │ +DOLIST271 │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +-DECLARE │ │ │ │ + -IGNORABLE. │ │ │ │ +-TAGBODY! │ │ │ │ +-GETHASH │ │ │ │ +ALL-GENERIC-FUNCTIONS │ │ │ │ +ALL-GENERIC-FUNCTIONS │ │ │ │ +-DECLARE │ │ │ │ + -IGNORABLE01 │ │ │ │ +,HASH-SET012 │ │ │ │ +-FUNCALL │ │ │ │ +-FUNCTION │ │ │ │ +-RETURN-FROM │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +More than one direct slot with name ~S. │ │ │ │ +Duplicate slot option ~S for slot ~S. │ │ │ │ +Duplicate initialization argument ~ │ │ │ │ + name ~S in :default-initargs of class ~A. │ │ │ │ +Odd-length property list in REMF. │ │ │ │ +~S is not a class or a legal class name. │ │ │ │ +The class ~S was specified as a~%super-class of the class ~S;~%~ │ │ │ │ + but the meta-classes ~S and~%~S are incompatible.~% │ │ │ │ + Define a method for ~S to avoid this error. │ │ │ │ +SYSTEMLAMBDA-CLOSURE │ │ │ │ +COMMON-LISPCLASS │ │ │ │ +INITARGS │ │ │ │ + DEPENDENT │ │ │ │ +-DECLARE │ │ │ │ +-OPTIMIZE │ │ │ │ +-FUNCTION │ │ │ │ +UPDATE-DEPENDENT │ │ │ │ + DEPENDENT │ │ │ │ +INITARGS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +~s structure class ~a │ │ │ │ +~s structure class │ │ │ │ +~a constructor │ │ │ │ +~A~A reader │ │ │ │ +~A~A writer │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +READER-NAME │ │ │ │ +WRITER-NAME │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +GDEFINITION │ │ │ │ +READER-NAME │ │ │ │ +WRITER-NAME │ │ │ │ +GDEFINITION │ │ │ │ +WRITER-NAME │ │ │ │ +SLOT-ACCESSOR-NAMEPCL INTERNAL-READER-FUNCTION slot WRITER │ │ │ │ +(-PCL INTERNAL-WRITER-FUNCTION slot WRITER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +SYSTEMLAMBDA-CLOSURE │ │ │ │ +COMMON-LISP&REST │ │ │ │ +-DECLARE │ │ │ │ +-OPTIMIZE │ │ │ │ +-FUNCALL │ │ │ │ +-DECLARE │ │ │ │ + -IGNORABLE. │ │ │ │ +-RPLACA.// │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +SYSTEMLAMBDA-CLOSURE │ │ │ │ +GF-TABLE │ │ │ │ +GF-TABLE │ │ │ │ +COMMON-LISPCLASS │ │ │ │ +-DECLARE │ │ │ │ +-OPTIMIZE │ │ │ │ +-DECLARE │ │ │ │ +-OPTIMIZE │ │ │ │ +COLLECT-GFS │ │ │ │ +DOLIST271 │ │ │ │ +$SPECIALIZER-DIRECT-GENERIC-FUNCTIONS │ │ │ │ +-DECLARE │ │ │ │ + -IGNORABLE. │ │ │ │ +-TAGBODY! │ │ │ │ +GF-TABLE │ │ │ │ +-DECLARE │ │ │ │ + -IGNORABLE01 │ │ │ │ +,HASH-SET012 │ │ │ │ +-RETURN-FROM │ │ │ │ +-FUNCTION │ │ │ │ +COLLECT-GFS │ │ │ │ +CLASS-DIRECT-SUPERCLASSES │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +COLLECT-GFS │ │ │ │ +automatically generated reader method │ │ │ │ +automatically generated writer method │ │ │ │ +automatically generated boundp method │ │ │ │ +*IN-OBSOLETE-INSTANCE-TRAP* │ │ │ │ +*THE-WRAPPER-OF-STRUCTURE-OBJECT* │ │ │ │ +The structure ~S is obsolete. │ │ │ │ +Extra argument ~s │ │ │ │ +Can't change the class of ~S to ~S~@ │ │ │ │ + because it isn't already an instance with metaclass ~S. │ │ │ │ +Attempt to initialize or reinitialize a built in class. │ │ │ │ +DEPENDENTS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SYSTEMOBJECT │ │ │ │ DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,DOCUMENTATION │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ DOC-TYPE │ │ │ │ --OBJECT │ │ │ │ -!(FAST-METHOD DOCUMENTATION (T T)) │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ +3(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -218516,14 +217864,15 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,DOCUMENTATION │ │ │ │ +DOCUMENTATION-MIXIN │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -218540,41 +217889,40 @@ │ │ │ │ 2FORMAT-ARGUMENTS │ │ │ │ DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +DOC-TYPE │ │ │ │ ,DOCUMENTATION │ │ │ │ --REAL-DOCUMENTATION │ │ │ │ -DOC-TYPE │ │ │ │ +PLIST-VALUE │ │ │ │ +,DOCUMENTATION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD DOCUMENTATION (T T)) │ │ │ │ +(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ SYSTEMOBJECT │ │ │ │ DOC-TYPE │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ -,DECLARE │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ ,DOCUMENTATION │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ DOC-TYPE │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ -3(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN T)) │ │ │ │ +-OBJECT │ │ │ │ +!(FAST-METHOD DOCUMENTATION (T T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -218617,15 +217965,14 @@ │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ ,DOCUMENTATION │ │ │ │ -DOCUMENTATION-MIXIN │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ @@ -218642,23 +217989,21 @@ │ │ │ │ 2FORMAT-ARGUMENTS │ │ │ │ DOC-TYPE │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 2FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 2FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE4 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ -DOC-TYPE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ ,DOCUMENTATION │ │ │ │ -PLIST-VALUE │ │ │ │ -,DOCUMENTATION │ │ │ │ +-REAL-DOCUMENTATION │ │ │ │ +DOC-TYPE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN T)) │ │ │ │ +(FAST-METHOD DOCUMENTATION (T T)) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SLOT-NAME │ │ │ │ FIND-SLOT-DEFINITION │ │ │ │ DOLIST271 │ │ │ │ CLASS-SLOTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE- │ │ │ │ @@ -218845,15 +218190,14 @@ │ │ │ │ REQUIREDS │ │ │ │ SPECIALIZED-ARGUMENT-POSITIONS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL │ │ │ │ Discriminating Function Arg ~D │ │ │ │ Discriminating Function &rest Arg │ │ │ │ PCL::GENERIC-FUNCTION-METHODS │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::CONSTRUCTORS) │ │ │ │ PCL::METHOD-GENERIC-FUNCTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ ,&OPTIONAL │ │ │ │ SKIP-DFUN-UPDATE-P │ │ │ │ REAL-ADD-METHOD │ │ │ │ METHOD-GENERIC-FUNCTION │ │ │ │ @@ -219749,36 +219093,39 @@ │ │ │ │ :PCL DIRECT-METHODS slot READER │ │ │ │ SPECIALIZER> │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE= │ │ │ │ ,RPLACD=?? │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ (FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD)) │ │ │ │ +(BOUNDP IDENTITY-WITH-ONE-ARGUMENT) │ │ │ │ MAKE-INSTANCE STANDARD-BOUNDP-METHOD (:QUALIFIERS :LAMBDA-LIST :SPECIALIZERS :DOCUMENTATION :SLOT-NAME :ALLOW-OTHER-KEYS :METHOD-SPEC :FAST-FUNCTION :PLIST) T │ │ │ │ MAKE-INSTANCE STANDARD-READER-METHOD (:QUALIFIERS :LAMBDA-LIST :SPECIALIZERS :DOCUMENTATION :SLOT-NAME :ALLOW-OTHER-KEYS :METHOD-SPEC :FAST-FUNCTION :PLIST) T │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -(COMPUTE-APPLICABLE-METHODS-USING-CLASSES │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +REMOVE-DEPENDENT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -K(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T)) │ │ │ │ + DEPENDENT │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ +9(FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -219791,16 +219138,16 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -CLASSES │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -219821,74 +219168,78 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -(COMPUTE-APPLICABLE-METHODS-USING-CLASSES │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +REMOVE-DEPENDENT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ +METAOBJECT │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ + DEPENDENT │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -(COMPUTE-APPLICABLE-METHODS-USING-CLASSES │ │ │ │ -&COMPUTE-APPLICABLE-METHODS-USING-TYPES │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -TYPES-FROM-ARGUMENTS │ │ │ │ -,GENERIC-FUNCTION │ │ │ │ -CLASS-EQ │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ -(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T)) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ +METAOBJECT │ │ │ │ +REMOVE-DEPENDENT │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENTS │ │ │ │ + DEPENDENT │ │ │ │ +PLIST-VALUE │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENTS │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE56 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +PLIST-VALUE756 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -ADD-DEPENDENT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ -,DECLARE │ │ │ │ +CLASS-SLOTS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - DEPENDENT │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ -6(FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ +*(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -219901,16 +219252,14 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -219931,82 +219280,72 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -ADD-DEPENDENT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ +CLASS-SLOTS │ │ │ │ +,BUILT-IN-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ -METAOBJECT │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ -1FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ - DEPENDENT │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,PROGRAM-ERROR │ │ │ │ -1FORMAT-CONTROL │ │ │ │ +0FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ -1FORMAT-ARGUMENTS │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ -,IGNORE3 │ │ │ │ +,IGNORE1 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -METAOBJECT │ │ │ │ -ADD-DEPENDENT │ │ │ │ - DEPENDENT │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENTS │ │ │ │ -,ADJOIN5 │ │ │ │ -PLIST-VALUE67 │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE67 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -PLIST-VALUE867 │ │ │ │ +CLASS-SLOTS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ +SYSTEMOBJECT │ │ │ │ + SLOT-NAME │ │ │ │ +GET-CLASS-SLOT-VALUE-1 │ │ │ │ + SLOT-NAME │ │ │ │ +,SLOT-MISSING │ │ │ │ + SLOT-NAME │ │ │ │ +,SLOT-VALUE │ │ │ │ +*SLOT-UNBOUND* │ │ │ │ +,SLOT-UNBOUND │ │ │ │ + SLOT-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +GET-CLASS-SLOT-VALUE-1 │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ + SLOT-NAME │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ -REMOVE-DEPENDENT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ +CLASS-SLOT-VALUE │ │ │ │ + STD-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ - DEPENDENT │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ -9(FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ + SLOT-NAME │ │ │ │ + STD-CLASS │ │ │ │ +,(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T)) │ │ │ │ ,MACROLET │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ ,DECLARE │ │ │ │ PV-TABLE-SYMBOL │ │ │ │ PV-PARAMETERS │ │ │ │ .PV-CELL. │ │ │ │ @@ -220019,16 +219358,15 @@ │ │ │ │ ,MACROLET │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ CNM-ARGS │ │ │ │ %CHECK-CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ + SLOT-NAME │ │ │ │ METHOD-NAME-DECLARATION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ CNM-ARGS │ │ │ │ INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ CNM-ARGS │ │ │ │ @@ -220049,61 +219387,53 @@ │ │ │ │ CALL-NEXT-METHOD-BIND │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ CNM-ARGS │ │ │ │ ,DECLARE │ │ │ │ ,DYNAMIC-EXTENT │ │ │ │ CNM-ARGS │ │ │ │ CALL-NEXT-METHOD-BODY │ │ │ │ -REMOVE-DEPENDENT │ │ │ │ -DEPENDENT-UPDATE-MIXIN │ │ │ │ +CLASS-SLOT-VALUE │ │ │ │ + STD-CLASS │ │ │ │ CNM-ARGS │ │ │ │ ,NEXT-METHOD-P │ │ │ │ NEXT-METHOD-P-BODY │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ ,FUNCTION │ │ │ │ ,CALL-NEXT-METHOD │ │ │ │ ,FUNCTION │ │ │ │ ,NEXT-METHOD-P │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ -METAOBJECT │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ KEYWORDFORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ -METAOBJECT │ │ │ │ - DEPENDENT │ │ │ │ + SLOT-NAME │ │ │ │ 1FORMAT-CONTROL │ │ │ │ &Insufficient arguments when binding ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ - DEPENDENT │ │ │ │ + SLOT-NAME │ │ │ │ ,PROGRAM-ERROR │ │ │ │ 1FORMAT-CONTROL │ │ │ │ Extra argument ~s │ │ │ │ 1FORMAT-ARGUMENTS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE3 │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ -METAOBJECT │ │ │ │ -REMOVE-DEPENDENT │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENTS │ │ │ │ - DEPENDENT │ │ │ │ -PLIST-VALUE │ │ │ │ -METAOBJECT │ │ │ │ -DEPENDENTS │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE56 │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ -PLIST-VALUE756 │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ -(FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +CLASS-SLOT-VALUE │ │ │ │ +CLASS-WRAPPER │ │ │ │ + PROTOTYPE │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ +GET-CLASS-SLOT-VALUE-1 │ │ │ │ + PROTOTYPE │ │ │ │ + SLOT-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T)) │ │ │ │ +CLASS-SLOT-VALUE@i │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ PROTO-NEW-CLASS │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ @@ -220196,14 +219526,139 @@ │ │ │ │ ,CLASS-OF │ │ │ │ PROTO-NEW-CLASS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ (FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T)) │ │ │ │ PROTO-NEW-CLASS │ │ │ │ COMPATIBLE-META-CLASS-CHANGE-P │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ + NEW-VALUE │ │ │ │ +SYSTEMOBJECT │ │ │ │ + SLOT-NAME │ │ │ │ +SET-CLASS-SLOT-VALUE-1 │ │ │ │ + SLOT-NAME │ │ │ │ +,SLOT-MISSING │ │ │ │ + SLOT-NAME │ │ │ │ + NEW-VALUE │ │ │ │ + NEW-VALUE │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE. │ │ │ │ +,RPLACD.// │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +SET-CLASS-SLOT-VALUE-1 │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + SLOT-NAME │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ + STD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +CLASS-SLOT-VALUE │ │ │ │ + STD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ + SLOT-NAME │ │ │ │ + STD-CLASS │ │ │ │ +5(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +,QUOTE! │ │ │ │ + SLOT-NAME │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +CLASS-SLOT-VALUE │ │ │ │ + STD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ + SLOT-NAME │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ + SLOT-NAME │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ + SLOT-NAME │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE4 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +CLASS-SLOT-VALUE │ │ │ │ +CLASS-WRAPPER │ │ │ │ + PROTOTYPE │ │ │ │ +CLASS-PROTOTYPE │ │ │ │ +SET-CLASS-SLOT-VALUE-1 │ │ │ │ + PROTOTYPE │ │ │ │ + SLOT-NAME │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ GENERIC-FUNCTION-NAME │ │ │ │ ARGUMENT-SPECIFIERS │ │ │ │ .REST-ARG. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ @@ -220324,15 +219779,18 @@ │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ ARGUMENT-SPECIFIERS │ │ │ │ ,REMOVE-METHOD │ │ │ │ ,GENERIC-FUNCTION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ (FAST-METHOD REMOVE-NAMED-METHOD (T T)) │ │ │ │ REMOVE-NAMED-METHOD │ │ │ │ +pv-table │ │ │ │ MAKE-INSTANCE STANDARD-METHOD (:QUALIFIERS :LAMBDA-LIST :SPECIALIZERS :DOCUMENTATION :SLOT-NAME :ALLOW-OTHER-KEYS :DEFINITION-SOURCE :METHOD-SPEC :FAST-FUNCTION :PLIST) T │ │ │ │ +MOST-SPECIFIC-FIRST │ │ │ │ +MOST-SPECIFIC-LAST │ │ │ │ MAKE-INSTANCE STANDARD-METHOD (:QUALIFIERS :LAMBDA-LIST :SPECIALIZERS :DOCUMENTATION :SLOT-NAME :ALLOW-OTHER-KEYS :FUNCTION) T │ │ │ │ OPERATION │ │ │ │ OBJECT-FORM │ │ │ │ Insufficient arguments when binding ~s │ │ │ │ Extra argument ~s │ │ │ │ NEW-VALUE-FORM │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ @@ -220397,36 +219855,29 @@ │ │ │ │ ,POSITION │ │ │ │ .EXPECTED-TYPE │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ -pv-table │ │ │ │ -pv-table │ │ │ │ +IDENTITY-WITH-ONE-ARGUMENT │ │ │ │ COMMON-LISP::SYNONYM-STREAM class predicate │ │ │ │ COMMON-LISP::STRING-STREAM class predicate │ │ │ │ COMMON-LISP::TWO-WAY-STREAM class predicate │ │ │ │ -SYSTEM::TAG class predicate │ │ │ │ COMMON-LISP::ECHO-STREAM class predicate │ │ │ │ -COMMON-LISP::CONCATENATED-STREAM class predicateT │ │ │ │ -MOST-SPECIFIC-FIRST │ │ │ │ +COMMON-LISP::FILE-STREAM class predicate │ │ │ │ COMMON-LISP::BROADCAST-STREAM class predicate │ │ │ │ -MOST-SPECIFIC-LAST │ │ │ │ COMMON-LISP::STREAM class predicate │ │ │ │ -IDENTITY-WITH-ONE-ARGUMENT │ │ │ │ -COMMON-LISP::FILE-STREAM class predicate │ │ │ │ -COMMON-LISP::HASH-TABLE class predicate │ │ │ │ -COMMON-LISP::READTABLE class predicate │ │ │ │ +COMMON-LISP::CONCATENATED-STREAM class predicate │ │ │ │ COMMON-LISP::PATHNAME class predicate │ │ │ │ -FAST-INSTANCE-BOUNDP SLOT0 │ │ │ │ COMMON-LISP::LOGICAL-PATHNAME class predicate │ │ │ │ -COMMON-LISP::PACKAGE class predicate │ │ │ │ -PCL::SYSTEM:TAG SLOT7 │ │ │ │ +COMMON-LISP::HASH-TABLE class predicate │ │ │ │ COMMON-LISP::RANDOM-STATE class predicate │ │ │ │ +COMMON-LISP::READTABLE class predicate │ │ │ │ +COMMON-LISP::PACKAGE class predicate │ │ │ │ CLASS-PRECEDENCE-DESCRIPTION │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEMOBJECT │ │ │ │ SLOT-NAME │ │ │ │ ,SLOT-EXISTS-P │ │ │ │ ,CLASS-OF │ │ │ │ FIND-SLOT-DEFINITION │ │ │ │ @@ -220568,31 +220019,572 @@ │ │ │ │ *THE-CLASS-CONCATENATED-STREAM* │ │ │ │ *THE-CLASS-STRING-STREAM* │ │ │ │ *THE-CLASS-TWO-WAY-STREAM* │ │ │ │ *THE-CLASS-ECHO-STREAM* │ │ │ │ *THE-CLASS-SYNONYM-STREAM* │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL) │ │ │ │ (SETF SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL)(FAST-BOUNDP-METHOD SLOT-OBJECT SOURCE) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +SLOTS-FETCHER │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +8(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SLOTS-FETCHER │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOTS-FETCHER │ │ │ │ +FSC-INSTANCE-SLOTS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ +(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +SLOTS-FETCHER │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SLOTS-FETCHER │ │ │ │ +,STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SLOTS-FETCHER │ │ │ │ +STD-INSTANCE-SLOTS │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS)) │ │ │ │ +SLOTS-FETCHER │ │ │ │ (SETF SLOT-ACCESSOR-STD-P) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT INITIALIZE-INFO)(FAST-BOUNDP-METHOD SLOT-OBJECT ARG-INFO) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT WRAPPER) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT INITARGS) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR) │ │ │ │ UPDATE-CONSTRUCTORS │ │ │ │ (SETF SLOT-DEFINITION-INITARGS) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER) │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +ADD-DEPENDENT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ + DEPENDENT │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ +6(FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +ADD-DEPENDENT │ │ │ │ +DEPENDENT-UPDATE-MIXIN │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ +METAOBJECT │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +METAOBJECT │ │ │ │ + DEPENDENT │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ + DEPENDENT │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +1FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +1FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE3 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +METAOBJECT │ │ │ │ +ADD-DEPENDENT │ │ │ │ + DEPENDENT │ │ │ │ +METAOBJECT │ │ │ │ +DEPENDENTS │ │ │ │ +,ADJOIN5 │ │ │ │ +PLIST-VALUE67 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE67 │ │ │ │ +,FUNCALL │ │ │ │ +,FUNCTION │ │ │ │ +PLIST-VALUE867 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ INSTANCE │ │ │ │ LOCATION │ │ │ │ $FUNCALLABLE-STANDARD-INSTANCE-ACCESS │ │ │ │ ,SIMPLE-VECTOR │ │ │ │ %CCLOSURE-ENV-NTHCDR │ │ │ │ INSTANCE │ │ │ │ LOCATION │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +B(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +SPECIALIZER-WITH-OBJECT │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +,GETHASH │ │ │ │ +SPECIALIZER-OBJECT │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER-METHOD-TABLE │ │ │ │ +SPECIALIZER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +SPECIALIZER │ │ │ │ +0(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +SPECIALIZER │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +SPECIALIZER │ │ │ │ +SPECIALIZER │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +SPECIALIZER │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +SPECIALIZER │ │ │ │ +pv-table │ │ │ │ +SPECIALIZER │ │ │ │ +.SLOTS0. │ │ │ │ +SYSTEMTP6 │ │ │ │ +SPECIALIZER │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%STD-INSTANCE-SLOTS │ │ │ │ +SPECIALIZER │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +%CCLOSURE-ENV-NTHCDR │ │ │ │ +SPECIALIZER │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP │ │ │ │ +SPECIALIZER │ │ │ │ +#*11111111111111111111111111111111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +SPECIALIZER-DIRECT-METHODS │ │ │ │ +SPECIALIZER │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE4 │ │ │ │ +,DECLARE │ │ │ │ +VARIABLE-REBINDING4 │ │ │ │ +SPECIALIZER4 │ │ │ │ +,DECLARE │ │ │ │ +,OPTIMIZE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*11111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) │ │ │ │ +,SIMPLE-VECTOR │ │ │ │ +.SLOTS0. │ │ │ │ +,FIXNUM5 │ │ │ │ + ,OTHERWISE │ │ │ │ +3INFER-TP5 │ │ │ │ +#*00000000000000000000000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +..SLOT-UNBOUND.. │ │ │ │ +SLOT-ACCESSOR-NAMEPCL DIRECT-METHODS slot READER │ │ │ │ +SPECIALIZER5 │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ +(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))pv-table │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ INSTANCE │ │ │ │ LOCATION │ │ │ │ ,CHECK-TYPE │ │ │ │ INSTANCE │ │ │ │ ,SATISFIES │ │ │ │ STD-INSTANCE-P │ │ │ │ @@ -220731,14 +220723,15 @@ │ │ │ │ OPTIONAL │ │ │ │ ,&OPTIONAL │ │ │ │ OPTIONAL │ │ │ │ ARGLIST │ │ │ │ REQUIRED │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_methods.lisp │ │ │ │ (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION)) │ │ │ │ +FAST-INSTANCE-BOUNDP SLOT0 │ │ │ │ GENERIC-FUNCTION-PRETTY-ARGLIST │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ SYSTEML! │ │ │ │ ,DECLARE │ │ │ │ ,IGNORE. │ │ │ │ COPY-INSTANCE-INTERNAL │ │ │ │ INSTANCE │ │ │ │ @@ -220919,14 +220912,198 @@ │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ .PV-CELL. │ │ │ │ ,DECLARE │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +A(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ +ALLOCATE-FUNCALLABLE-INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ +(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +:(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +FUNCALLABLE-STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +FSC-INSTANCE-WRAPPER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fsc.lisp │ │ │ │ +(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-NAME │ │ │ │ CLASS-CONSTRUCTORS │ │ │ │ SLOT-CLASS │ │ │ │ ,DECLARE │ │ │ │ METHOD-LAMBDA-LIST │ │ │ │ @@ -221004,17 +221181,204 @@ │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ CLASS-CONSTRUCTORS │ │ │ │ PLIST-VALUE │ │ │ │ CONSTRUCTORS │ │ │ │ /build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_std_class.lisp │ │ │ │ (FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,STANDARD-CLASS │ │ │ │ +5(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ +,STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ +ALLOCATE-STANDARD-INSTANCE │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS)) │ │ │ │ +COMMON-LISPLAMBDA │ │ │ │ + .PV-CELL. │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-NAME │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +,STANDARD-CLASS │ │ │ │ +,DECLARE │ │ │ │ +METHOD-LAMBDA-LIST │ │ │ │ +,STANDARD-CLASS │ │ │ │ +.(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS)) │ │ │ │ +,MACROLET │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ +,DECLARE │ │ │ │ +PV-TABLE-SYMBOL │ │ │ │ +PV-PARAMETERS │ │ │ │ + .PV-CELL. │ │ │ │ + .PV-CELL. │ │ │ │ +,DECLARE │ │ │ │ +MAKE-PV-TYPE-DECLARATION │ │ │ │ +MAKE-CALLS-TYPE-DECLARATION │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,MACROLET │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +%CHECK-CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + INVOKE-EFFECTIVE-METHOD-FUNCTION │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CNM-ARGS │ │ │ │ + BIND-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NO-NEXT-METHOD │ │ │ │ +METHOD-NAME-DECLARATION │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +.NEXT-METHOD-CALL. │ │ │ │ +CALL-NEXT-METHOD-BIND │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +CNM-ARGS │ │ │ │ +,DECLARE │ │ │ │ +,DYNAMIC-EXTENT │ │ │ │ +CNM-ARGS │ │ │ │ +CALL-NEXT-METHOD-BODY │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +,STANDARD-CLASS │ │ │ │ +CNM-ARGS │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +NEXT-METHOD-P-BODY │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +,FUNCTION │ │ │ │ +,CALL-NEXT-METHOD │ │ │ │ +,FUNCTION │ │ │ │ +,NEXT-METHOD-P │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +KEYWORDFORMAT-CONTROL │ │ │ │ +&Insufficient arguments when binding ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,PROGRAM-ERROR │ │ │ │ +0FORMAT-CONTROL │ │ │ │ +Extra argument ~s │ │ │ │ +0FORMAT-ARGUMENTS │ │ │ │ +,DECLARE │ │ │ │ +,IGNORE1 │ │ │ │ +,DECLARE │ │ │ │ + ,IGNORABLE │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +STD-INSTANCE-WRAPPER │ │ │ │ +/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_slots.lisp │ │ │ │ +(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS)) │ │ │ │ SLOTS-TO-INSPECT │ │ │ │ SHORT-COMBINATION-OPERATOR │ │ │ │ SHORT-METHOD-COMBINATION-P │ │ │ │ +WRAPPER-FETCHER │ │ │ │ +PCL::SYSTEM:TAG SLOT7 │ │ │ │ +RAW-INSTANCE-ALLOCATOR │ │ │ │ INTERNAL-SIMPLE-UNBOUND-SLOT │ │ │ │ CLASS-CONSTRUCTORS │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ .PV-CELL. │ │ │ │ .NEXT-METHOD-CALL. │ │ │ │ ,DECLARE │ │ │ │ ,IGNORABLE │ │ │ │ @@ -221399,15 +221763,14 @@ │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ pv-table │ │ │ │ -pv-table │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT CLASS) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT ACCESSOR-FLAGS) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT METHOD-CLASS) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT INITFUNCTION) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT ALLOCATION) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION) │ │ │ │ (FAST-BOUNDP-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION) │ │ │ │ @@ -221580,826 +221943,234 @@ │ │ │ │ PCL::SLOT-DEFINITION-TYPE │ │ │ │ PCL::GENERIC-FUNCTION-NAME │ │ │ │ PCL::SLOT-DEFINITION-INITFORM │ │ │ │ PCL::SLOT-DEFINITION-INITFUNCTION │ │ │ │ PCL::SLOT-DEFINITION-ALLOCATION │ │ │ │ PCL::SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION │ │ │ │ PCL::SLOT-DEFINITION-INTERNAL-READER-FUNCTION │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCLPV-CELL │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --CVECTOR │ │ │ │ --PV-CELL │ │ │ │ -,DECLARE │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,FUNCTION │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ --IIS-BODY │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ --CVECTOR │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ --CVECTOR │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS │ │ │ │ -CONDITIONS │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -PCLCVECTOR │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -COMMON-LISPDECLARE │ │ │ │ -.OPTIMIZE │ │ │ │ -.DECLARE │ │ │ │ -.OPTIMIZE │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS │ │ │ │ --PV-CELL │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --WRAPPER │ │ │ │ --STD-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%STD-INSTANCE-SLOTS │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%STD-INSTANCE-WRAPPER │ │ │ │ --INSTANCE │ │ │ │ --FUNCALLABLE-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --WRAPPER-OF │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL/ │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.FUNCALL │ │ │ │ -.FUNCTION │ │ │ │ --CVECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.FUNCALL │ │ │ │ -.FUNCTION │ │ │ │ --CVECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCLPV-CELL │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --CVECTOR │ │ │ │ --PV-CELL │ │ │ │ -,DECLARE │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,FUNCTION │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ --IIS-BODY │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -,FUNCALL │ │ │ │ -,FUNCTION │ │ │ │ --CVECTOR │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS │ │ │ │ -CONDITIONS │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -PCLCVECTOR │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -COMMON-LISPDECLARE │ │ │ │ -.OPTIMIZE │ │ │ │ -.DECLARE │ │ │ │ -.OPTIMIZE │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS │ │ │ │ --PV-CELL │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --WRAPPER │ │ │ │ --STD-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%STD-INSTANCE-SLOTS │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%STD-INSTANCE-WRAPPER │ │ │ │ --INSTANCE │ │ │ │ --FUNCALLABLE-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --WRAPPER-OF │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL/ │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.FUNCALL │ │ │ │ -.FUNCTION │ │ │ │ --CVECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS │ │ │ │ -MBINATION │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCLPV-CELL │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --CVECTOR │ │ │ │ --PV-CELL │ │ │ │ -,DECLARE │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,FUNCTION │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ --IIS-BODY │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCLPV-CELL │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ - ,IGNORABLE │ │ │ │ --CVECTOR │ │ │ │ --PV-CELL │ │ │ │ -,DECLARE │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --CVECTOR │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,FUNCTION │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ --IIS-BODY │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS-TAIL │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --CVECTOR │ │ │ │ --%INSTANCE-REF │ │ │ │ --%INSTANCE-REF │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -KEYWORDINSTANCE │ │ │ │ --%INSTANCE-REF │ │ │ │ --INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ -CONDITIONS │ │ │ │ -SYSTEMLAMBDA-CLOSURE │ │ │ │ -PCLCVECTOR │ │ │ │ --INSTANCE │ │ │ │ --INITARGS │ │ │ │ -COMMON-LISPDECLARE │ │ │ │ -.OPTIMIZE │ │ │ │ -.DECLARE │ │ │ │ -.OPTIMIZE │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS │ │ │ │ --PV-CELL │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --WRAPPER │ │ │ │ --STD-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%STD-INSTANCE-SLOTS │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%STD-INSTANCE-WRAPPER │ │ │ │ --INSTANCE │ │ │ │ --FUNCALLABLE-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --WRAPPER-OF │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL/ │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL0 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL1 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL2 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL3 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL4 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL5 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL6 │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ --CVECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --..SLOT-UNBOUND.. │ │ │ │ -KEYWORDINSTANCE │ │ │ │ -.SIMPLE-VECTOR │ │ │ │ --INITARGS │ │ │ │ -LA/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -PCLINSTANCE │ │ │ │ --INITARGS │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ -,DECLARE │ │ │ │ -,OPTIMIZE │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS │ │ │ │ --PV-CELL │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --WRAPPER │ │ │ │ --STD-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%STD-INSTANCE-SLOTS │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%STD-INSTANCE-WRAPPER │ │ │ │ --INSTANCE │ │ │ │ --FUNCALLABLE-INSTANCE-P │ │ │ │ --INSTANCE │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --%CCLOSURE-ENV-NTHCDR │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --WRAPPER-OF │ │ │ │ --INSTANCE │ │ │ │ --WRAPPER │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL. │ │ │ │ -SYSTEMSVSET │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL0 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL1 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL2 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL3 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL4 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL5 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL │ │ │ │ --INITARGS-TAIL6 │ │ │ │ -,SIMPLE-VECTOR │ │ │ │ --INITARGS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lispFO`X │ │ │ │ -,IMAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :INITFUNCTION :NAME :READERS :WRITERS :INITARGS :TYPE :INITFORM) NIL! │ │ │ │ -TYPE-PREDICATE COMMON-LISP FLOATING-POINT-INEXACT ,IGNORABLE │ │ │ │ -,C(CALL REAL-MAKE-METHOD-LAMBDA) │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -IS-CONDITION │ │ │ │ -CONDITIONP │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lispefined class aIS-CONDITION │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CPD-CLASS) │ │ │ │ -,LIST(CALL REAL-ENSURE-GF-USING-CLASS--NULL)build/rep(PCL::FAST-METHOD PRINT-OBJECT (CELL-ERROR T))p │ │ │ │ -TYPE-PREDICATE COMMON-LISP STREAM-ERROR │ │ │ │ -/(FAST-READER-METHOD SLOT-OBJECT NEXT-METHOD-CALL)E │ │ │ │ -,MAKE-LOAD-F(FAST-WRITER-METHOD SLOT-OBJECT CACHED-COMBINED-INITIALIZE-FUNCTION) │ │ │ │ -.F(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::DATUM)FORM (CLASS)) │ │ │ │ -INSTANCEMAKE-INSTANCE STRUCTURE-DIRECT-SLOT-DEFINITION (:CLASS :NAME :DEFSTRUCT-ACCESSOR-SYMBOL :INTERNAL-READER-FUNCTION :INTERNAL-WRITER-FUNCTION :TYPE :INITFORM :INITFUNCTION) NIL │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T)) │ │ │ │ --OBJECT │ │ │ │ -,VMAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS :NAME) NILments when (WRITER CONDITIONS::NAME)ENTS │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT GF-INFO-STATIC-C-A-M-EMF) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-UI │ │ │ │ -CONDITIONS │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -SYSTEML! │ │ │ │ -,DECLARE │ │ │ │ -,IGNORE. │ │ │ │ -,DEFINE-CONDITION │ │ │ │ -,PROGRAM-ERROR │ │ │ │ -KEYWORDFORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -PARENT-LIST │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -PARENT-LIST │ │ │ │ -SLOT-SPECS │ │ │ │ -2FORMAT-CONTROL │ │ │ │ -&Insufficient arguments when binding ~s │ │ │ │ -2FORMAT-ARGUMENTS │ │ │ │ -SLOT-SPECS │ │ │ │ -,DEFINE-CONDITION │ │ │ │ -PARENT-LIST │ │ │ │ - ,CONDITION │ │ │ │ -PARENT-LIST │ │ │ │ - ,CONDITION │ │ │ │ -REPORT-FUNCTION │ │ │ │ -DEFAULT-INITARGS │ │ │ │ -,DOCUMENTATION │ │ │ │ -,DECLARE │ │ │ │ -,DOCUMENTATION │ │ │ │ -,TAGBODY! │ │ │ │ -2REPORT │ │ │ │ -REPORT-FUNCTION │ │ │ │ -COERCE-TO-FN │ │ │ │ -2DEFAULT-INITARGS │ │ │ │ -DEFAULT-INITARGS │ │ │ │ -2DOCUMENTATION │ │ │ │ -,DOCUMENTATION │ │ │ │ - ,OTHERWISE │ │ │ │ -$ignore this define-condition option. │ │ │ │ -#invalid define-condition option: ~s │ │ │ │ -,RETURN-FROM │ │ │ │ - ,EVAL-WHEN │ │ │ │ -,COMPILE │ │ │ │ -PCL*DEFCLASS-TIMES* │ │ │ │ -,COMPILE │ │ │ │ -DEFAULT-INITARGS │ │ │ │ -,DEFCLASS │ │ │ │ -PARENT-LIST │ │ │ │ -SLOT-SPECS │ │ │ │ -DEFAULT-INITARGS │ │ │ │ -,DEFCLASS │ │ │ │ -PARENT-LIST │ │ │ │ -SLOT-SPECS │ │ │ │ - ,EVAL-WHEN │ │ │ │ -,COMPILE │ │ │ │ -,APPEND │ │ │ │ -REPORT-FUNCTION │ │ │ │ - ,DEFMETHOD │ │ │ │ -,PRINT-OBJECT │ │ │ │ -,*PRINT-ESCAPE* │ │ │ │ -,CALL-NEXT-METHOD │ │ │ │ -REPORT-FUNCTION │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ -(WRITER METHOD) │ │ │ │ -COMMON-LISPLAMBDA │ │ │ │ -OPTIONS │ │ │ │ -TRACE-METHOD │ │ │ │ -,MULTIPLE-VALUE-BIND │ │ │ │ -PARSE-METHOD-OR-SPEC │ │ │ │ - TFUNCTION │ │ │ │ -TRACE-METHOD-INTERNAL │ │ │ │ -METHOD-FUNCTION │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -TRACED-METHOD │ │ │ │ -KEYWORDMETHOD │ │ │ │ --FUNCTION │ │ │ │ - TFUNCTION │ │ │ │ -,REMOVE-METHOD │ │ │ │ -OMETHOD │ │ │ │ -,ADD-METHOD │ │ │ │ -TMETHOD │ │ │ │ -TMETHOD │ │ │ │ -*TRACED-METHODS* │ │ │ │ -,ADJOIN. │ │ │ │ -*TRACED-METHODS* │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_env.lisp │ │ │ │ -TRACE-METHOD │ │ │ │ -TYPE-PREDICATE CONDITIONS PATHNAME-ERROR │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CALL-LIST) │ │ │ │ -TYPE-PREDICATE COMMON-LISP UNDEFINED-FUNCTION │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STYLE-WARNING │ │ │ │ -(WRITER CONDITIONS::FORMAT-ARGUMENTS) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-T-FUNCTION) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CACHED-INITARGS-FORM-LIST) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CPD-SUPERS) │ │ │ │ -TYPE-PREDICATE CONDITIONS CASE-FAILURE │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::INSTANCE) │ │ │ │ -CONDITIONS │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT WRAPPER1)produci(FAST-READER-METHOD SLOT-OBJECT COMPILER::REF-CCB)MMON-LISP-USER(FAST-READER-METHOD SLOT-OBJECT COMPILER::REF-CLB) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT COMPILER::NAME) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::CONC-NAME) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::SIZE) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT PV-SIZE) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT LENGTH) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::NAMED) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::SLOT-POSITION) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::PRINT-FUNCTION) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM:STATICP)C(FAST-READER-METHOD SLOT-OBJECT ACCESSOR-TYPE) │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT CALL-LIST)LUES │ │ │ │ +(FAST-READER-METHOD SLOT-OBJECT SYSTEM::CONSTRUCTORS)D-ARGS │ │ │ │ +,B(FAST-READER-METHOD SLOT-OBJECT SYSTEM::SLOT-DESCRIPTIONS)! │ │ │ │ +G2(FAST-READER-METHOD SLOT-OBJECT SLOT-NAME-LISTS)(FAST-READER-METHOD SLOT-OBJECT SYSTEM::OFFSET)O(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER0) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER1) │ │ │ │ +,LIST(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REF-CCB)EXT-LOOP │ │ │ │ +,IF(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::REF-CLB),SETQ- │ │ │ │ +,CDR-(FAST-WRITER-METHOD SLOT-OBJECT COMPILER::NAME) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::CONC-NAME)TION │ │ │ │ +,I(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::SIZE) │ │ │ │ +,(FAST-WRITER-METHOD SLOT-OBJECT LENGTH)UOTE │ │ │ │ +REQ(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::NAMED) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::SLOT-POSITION)ALUES │ │ │ │ +,S(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::PRINT-FUNCTION) │ │ │ │ +(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM:STATICP)E │ │ │ │ COMMON-LISPLAMBDA │ │ │ │ -SLOT-INITIALIZATIONS │ │ │ │ -,MAKE-CONDITION │ │ │ │ -SYSTEMCONDITION-CLASS-P │ │ │ │ -,SIMPLE-TYPE-ERROR │ │ │ │ -KEYWORDDATUM │ │ │ │ -.EXPECTED-TYPE │ │ │ │ - ,SATISFIES │ │ │ │ --CONDITION-CLASS-P │ │ │ │ -.FORMAT-CONTROL │ │ │ │ -not a condition type: ~s │ │ │ │ -.FORMAT-ARGUMENTS │ │ │ │ -,MAKE-INSTANCE │ │ │ │ -SLOT-INITIALIZATIONS │ │ │ │ -/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_conditions.lisp │ │ │ │ -(BOUNDP CONDITIONS::OPERANDS) │ │ │ │ -TYPE-PREDICATE COMMON-LISP READER-ERROR │ │ │ │ -TYPE-PREDICATE COMMON-LISP STORAGE-CONDITION │ │ │ │ -(FAST-READER-METHOD STREAM-ERROR STREAM) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT LIMIT-FN) │ │ │ │ -(FAST-READER-METHOD SIMPLE-CONDITION CONDITIONS::FORMAT-CONTROL)(FAST-READER-METHOD SLOT-OBJECT PATHNAME) │ │ │ │ -(BOUNDP CONDITIONS::FORMAT-CONTROL) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT PACKAGE) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT NKEYS) │ │ │ │ -(BOUNDP OPERATOR) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT OPERATOR) │ │ │ │ -(FAST-READER-METHOD PRINT-NOT-READABLE OBJECT) │ │ │ │ -MAKE-INSTANCE FORWARD-REFERENCED-CLASS (:NAME) NIL │ │ │ │ -TYPE-PREDICATE COMMON-LISP SIMPLE-TYPE-ERROR │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T)) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT LINE-SIZE) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT NEXT-METHOD-CALL) │ │ │ │ -TYPE-PREDICATE COMMON-LISP FLOATING-POINT-UNDERFLOW │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-DI(FAST-READER-METHOD TRACED-METHOD FUNCTION) │ │ │ │ -TYPE-PREDICATE COMMON-LISP PARSE-ERROR │ │ │ │ -MAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :INITFUNCTION :NAME :READERS :WRITERS :INITARGS :TYPE :INITFORM :INITFORM :TYPE :INITARGS :WRITERS :READERS :NAME :INITFUNCTION :CLASS) NIL │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT GF-INFO-SIMPLE-ACCESSOR-TYPE) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT STREAM) │ │ │ │ -(CALL REAL-GET-METHOD) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUDI │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STACK-OVERFLOW │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-CASE-FAILURE │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-OD(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-CONDITION T)) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::OPERATION) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-CONTROL-ERROR │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::NAME) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-FILE-ERROR │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-WARNING │ │ │ │ -MAKE-INSTANCE STANDARD-CLASS (:NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DEFINITION-SOURCE) NIL │ │ │ │ -(WRITER PATHNAME) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-NIL-FUNCTION) │ │ │ │ -*THIS-PACKAGE* │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::FORMAT-CONTROL) │ │ │ │ -(READER PATHNAME) │ │ │ │ -MAKE-INSTANCE FORWARD-REFERENCED-CLASS (:NAME :NAME) NIL │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUD │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (PRINT-NOT-READABLE T)) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-ARITHMETIC-ERROR │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT SIZE) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT SYSTEM::REPORT-FUNCTION) │ │ │ │ -(FAST-READER-METHOD CONDITIONS::CASE-FAILURE CONDITIONS::POSSIBILITIES) │ │ │ │ -(FAST-READER-METHOD SHORT-METHOD-COMBINATION OPERATOR) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CACHE) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-UD(FAST-WRITER-METHOD SLOT-OBJECT OPERATOR)i │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-CELL-ERROR │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-UNDEFINED-FUNCTION │ │ │ │ -(CALL REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STREAM-ERROR │ │ │ │ -(READER CONDITIONS::FORMAT-ARGUMENTS) │ │ │ │ -TYPE-PREDICATE PCL TRACED-METHOD(READER CONDITIONS::FORMAT-CONTROL) │ │ │ │ -SERT" "EMAKE-INSTANCE STANDARD-DIRECT-SLOT-DEFINITION (:CLASS :INITFUNCTION :NAME :READERS :WRITERS :INITARGS :INITFORM) NILDITIONS │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::FORMAT-ARGUMENTS)end(FAST-WRITER-METHOD SLOT-OBJECT CONDITIONS::FUNCTION-NAME)stem. (FAST-WRITER-METHOD SLOT-OBJECT CACHED-SHARED-INITIALIZE-T-FUNCTION) implemented@ │ │ │ │ -lass-p sMAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:NAME) NILackage :condi │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-DIVISION-BY-ZERO │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XUOI │ │ │ │ -(WRITER CONDITIONS::INSTANCE) │ │ │ │ -MAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS :LAMBDA-LIST :DEFINITION-SOURCE) NIL │ │ │ │ -MAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:LAMBDA-LIST :DEFINITION-SOURCE) NIL │ │ │ │ -TYPE-PREDICATE COMMON-LISP END-OF-FILE │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::EXPECTED-TYPE) │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-STORAGE-EXHAUSTED │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT MAX-LOCATION) │ │ │ │ -(BOUNDP CONDITIONS::EXPECTED-TYPE) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CONDITIONS::INSTANCE) │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T)) │ │ │ │ -MAKE-INSTANCE STANDARD-METHOD (:QUALIFIERS :SPECIALIZERS :LAMBDA-LIST :FUNCTION :DEFINITION-SOURCE) NIL │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-PACKAGE-ERROR │ │ │ │ -TYPE-PREDICATE COMMON-LISP TYPE-ERROR │ │ │ │ -TYPE-PREDICATE COMMON-LISP FILE-ERROR │ │ │ │ -(CALL REAL-ADD-METHOD) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XI(BOUNDP METHOD) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XOI │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CACHED-DEFAULT-INITARGS-FUNCTION) │ │ │ │ -PCL-DESCRIBE │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT KEY) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT CACHED-NEW-KEYS) │ │ │ │ -TYPE-PREDICATE PCL SHORT-METHOD-COMBINATION │ │ │ │ -MAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:METHOD-COMBINATION :METHOD-CLASS :NAME :LAMBDA-LIST :DEFINITION-SOURCE) NIL │ │ │ │ -MAKE-INSTANCE STANDARD-GENERIC-FUNCTION (:NAME :LAMBDA-LIST :DEFINITION-SOURCE) NIL │ │ │ │ -TYPE-PREDICATE CONDITIONS INTERNAL-SIMPLE-READER-ERROR │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T)) │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T)) │ │ │ │ -(CALL REAL-MAKE-METHOD-INITARGS-FORM) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XU │ │ │ │ -TYPE-PREDICATE COMMON-LISP PACKAGE-ERROR │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT SYSTEM::INTERACTIVE-FUNCTION) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT NLINES) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT CACHED-NEW-KEYS) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-XD │ │ │ │ -TYPE-PREDICATE COMMON-LISP FLOATING-POINT-INVALID-OPERATION │ │ │ │ -(FAST-READER-METHOD TRACED-METHOD GENERIC-FUNCTION) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT PACKAGE) │ │ │ │ -(COMBINED-METHOD COMPUTE-EFFECTIVE-METHOD) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT GF-INFO-SIMPLE-ACCESSOR-TYPE) │ │ │ │ -(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-SLOT T)) │ │ │ │ -TYPE-PREDICATE CONDITIONS FPE-OI(FAST-WRITER-METHOD SLOT-OBJECT CPD-SUPERS) │ │ │ │ -(FAST-WRITER-METHOD SLOT-OBJECT PATHNAME) │ │ │ │ -(FAST-READER-METHOD SLOT-OBJECT MASK) │ │ │ │ -TYPE-PREDICATE COMMON-LISP UNBOUND-VARIABLE │ │ │ │ +INSTANCE │ │ │ │ +,DECLARE │ │ │ │ +PRINT-STD-INSTANCE │ │ │ │ +,PRINT-OBJECT │ │ │ │ +INSTANCE │ │ │ │ +-WIT/build/reproducible-path/gcl27-2.7.1/pcl/gcl_pcl_fixup.lispROB-Cp │ │ │ │ +INTERNAL-CONDITION-FUNCTION-NAME@2;(sethash(#0,#1,#2),#2)IES-DEF(#0)==(#1) │ │ │ │ +PCL::DFUN-INFO SLOT0 │ │ │ │ +PCL::CACHE SLOT10 │ │ │ │ +PCL::SYSTEM:S-DATA SLOT15 │ │ │ │ +PCL::CACHE SLOT9PCL::PV-TABLE SLOT3OMMON-LISPQUOPCL::ARG-INFO SLOT7SYSTEMIN-PACKPCL::CACHE SLOT0PCL::SYSTEM:TAG SLOT5 │ │ │ │ +PCL::SYSTEM:S-DATA SLOT5SHORT-DEPCL::INITIALIZE-INFO SLOT7TE │ │ │ │ +,+PCL::METHOD-CALL SLOT0 │ │ │ │ +-FSETPCL::SYSTEM:S-DATA SLOT17OD-COMBPCL::ARG-INFO SLOT10FUNCTION │ │ │ │ +,PCL::ARG-INFO SLOT9AKE-FUNCTION-PCL::CACHE SLOT2PCL::INITIALIZE-INFO SLOT10RT-DEPCL::SYSTEM:S-DATA SLOT7T │ │ │ │ +PCL::CLASS-PRECEDENCE-DESCRIPTION SLOT0AMBDA │ │ │ │ +PCL::INITIALIZE-INFO SLOT9MBINATPCL::ARG-INFO SLOT0T-DEFCOMBIN │ │ │ │ +PCL::RESTART SLOT1TE │ │ │ │ +,QUOTPCL::INITIALIZE-INFO SLOT0E │ │ │ │ +c.c_car),fix(#1->c.c_cdr),#0,#2) │ │ │ │ +immnum_andc2(#0,#1) │ │ │ │ +((#0) & ~(#1)) │ │ │ │ +immnum_andc2(#0,#1) │ │ │ │ +immnum_nand(#0,#1) │ │ │ │ +immnum_nand(#0,#1)2.7.1/pcl/gcl_PCL::ANSI-LOOP::LOOP-PATH SLOT3 │ │ │ │ +PCL::ANSI-LOOP::LOOP-MINIMAX SLOT4 │ │ │ │ +PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT6 │ │ │ │ +-lansi_gcl -lX11 -ldl -lm -lgmp -ltirpc -lreadline("LISP" "PCL::COMPILER::INFO SLOT1I") │ │ │ │ +(im(#0)<(#1) │ │ │ │ +structure_set(#0,#1,#2,#3)info-s │ │ │ │ +LONGFLOAT-SIMPLE-TYPEP-FNch-begiG72461 │ │ │ │ +LONGFLOAT72460 │ │ │ │ +LONGFLOAT │ │ │ │ +(#0)!=(#1) │ │ │ │ +immnum_ne(#0,#1)immnum_bitp(#0,#1):autoload │ │ │ │ +PCL::COMPILER::FUN SLOT0 -O │ │ │ │ +PCL::COMPILER::FUN SLOT7 si:PCL::ANSI-LOOP::LOOP-MINIMAX SLOT1 si:PCL::ANSI-LOOP::LOOP-UNIVERSE SLOT5 si::print-cdifference(#0,#1)offer-choices │ │ │ │ +(compiled_functionp(#0)) si │ │ │ │ +FIXARRAY-SIMPLE-TYPEP-FNrch* │ │ │ │ + G72479 │ │ │ │ +FIXARRAY72478 │ │ │ │ +FIXARRAY │ │ │ │ +SFARRAY-SIMPLE-TYPEP-FN si::*tkG72481 │ │ │ │ +SFARRAY72480 │ │ │ │ +((#0)->s.s_dbind) si::tkconPCL::COMPILER::VAR SLOT5 ((object)(#0)) │ │ │ │ +gcc -c -g -Werror=implicit-function-declaration -ffile-prefix-map=/build/reproducible-path/gcl27-2.7.1=. -fstack-protector-strong -Wformat -Werror=format-security -fsigned-char -pipe -fcommon -fno-builtin-malloc -fno-builtin-free -fno-PIE -fno-pie -fno-PIC -fno-pic -Wall -Wno-empty-body -Wno-unused-but-set-variable -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 -I/usr/include/tirpc -Wdate-time -D_FORTIFY_SOURCE=2 │ │ │ │ +PCL::COMPILER::BLK SLOT4 │ │ │ │ +PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT0 │ │ │ │ +(#0)/(#1) │ │ │ │ +number_divide(#0,#1) │ │ │ │ +immnum_oddp(#0) │ │ │ │ +PCL::ANSI-LOOP::LOOP-COLLECTOR SLOT1 │ │ │ │ +fixnum_ldb(fix(#0->c.c_car),fix(#0->c.c_cdr),#1)fixnum_dpb(fix(#1->c.c_car),fix(#1->c.c_cdr),#0,#2) │ │ │ │ +CNM-ARGS │ │ │ │ +,PCL::COMPILER::FUN SLOT6,QUOTE │ │ │ │ + ANSI-LOOP ITERATION-KEYWORDS slot WRITERE │ │ │ │ +OD-CALL. │ │ │ │ +,COMMON-LISP SPACE slot READER,LIp │ │ │ │ +-METHOD-p\ │ │ │ │ +,IF.SYSTEM LINE slot READERAR. │ │ │ │ +SYSTEM SPICE slot WRITER │ │ │ │ +mm MaguiANSI-LOOP TYPE-SYMBOLS slot READERg return valuep │ │ │ │ +m) strin │ │ │ │ +tring) . │ │ │ │ +(or (intp\ │ │ │ │ +) . si::COMMON-LISP FIRST slot WRITER . p │ │ │ │ +(((t *) │ │ │ │ +:mpz_bit │ │ │ │ +(((numbe │ │ │ │ +(returnsANSI-LOOP PREPOSITION-GROUPS slot READEReal *) (p │ │ │ │ +ns-exact │ │ │ │ + boundp) │ │ │ │ +mbol-funp\ │ │ │ │ +dimensioCOMPILER FLAGS slot READERind) .p │ │ │ │ +(vector) │ │ │ │ +d (x (sep\ │ │ │ │ +m-tp (caANSI-LOOP INFINITY-DATA slot READERtion-plist x)p │ │ │ │ +SETFANSI-LOOP PATH-KEYWORDS slot WRITERES │ │ │ │ +KE-LOAD-COMPILER INFO slot WRITER │ │ │ │ +-SCOMPILER CALL slot WRITER │ │ │ │ +COMMON-LISP SPACE slot WRITER │ │ │ │ +ANSI-LOOP IMPLICIT-FOR-REQUIRED slot READER │ │ │ │ +COMPILER C1 slot READER │ │ │ │ +COMPILER LEVEL slot READER │ │ │ │ +ANSI-LOOP ANSI slot READER │ │ │ │ +ANSI-LOOP NAME slot WRITER │ │ │ │ +ANSI-LOOP INCLUSIVE-PERMITTED slot WRITER │ │ │ │ +.rat_num │ │ │ │ +(push ANSI-LOOP DATA slot READER#.(flap │ │ │ │ +da (x) ( │ │ │ │ +ean #.(f │ │ │ │ +ne-alwayp\ │ │ │ │ +"immnum_COMPILER LEVEL slot WRITERp 'comp │ │ │ │ +ine-alwa │ │ │ │ +(push '( │ │ │ │ +sh '((t │ │ │ │ +gandc2 'ANSI-LOOP TYPE-SYMBOLS slot WRITER1 │ │ │ │ +(push '((t tp │ │ │ │ +iler::fl │ │ │ │ +::flags) │ │ │ │ +#.(compiSYSTEM TAG slot WRITERb(fix(#0->p │ │ │ │ +um) t #. │ │ │ │ +inusp(#0 │ │ │ │ +fixnum(0COMPILER CH slot WRITER'((t) boop │ │ │ │ +t) boole │ │ │ │ +(t) bool │ │ │ │ +mpiler:: │ │ │ │ +ne-alwayCOMPILER KIND slot WRITERan 'lisp │ │ │ │ +t c │ │ │ │ +"make_fi │ │ │ │ +"make_fiCOMPILER MT slot WRITER-char cp │ │ │ │ +int c │ │ │ │ + c │ │ │ │ + │ │ │ │ + (aCOMPILER ALIASES slot READERelf"p │ │ │ │ + │ │ │ │ + (arr │ │ │ │ + (pusp\ │ │ │ │ +(cadr l)ANSI-LOOP TEMPVARS slot READERnep │ │ │ │ +car l) " │ │ │ │ +flags rf │ │ │ │ + ((s (inp\ │ │ │ │ +type) l)COMPILER KIND slot READERt)(plisp │ │ │ │ + (dird │ │ │ │ +e) (cadr │ │ │ │ +e :opaqup\ │ │ │ │ +sp-type)ANSI-LOOP KEYWORDS slot WRITER-tp │ │ │ │ + ; (de │ │ │ │ +tring ni │ │ │ │ + #tt)) # │ │ │ │ +ne-alwayCOMPILER FLAGS slot WRITERshort-p │ │ │ │ +lf(#0))" │ │ │ │ +g-to-sho │ │ │ │ +et 'si::COMPILER DT slot WRITERnsafe)) │ │ │ │ +at #.(fl │ │ │ │ +mplex-re │ │ │ │ + '((dcom │ │ │ │ +-real 'iCOMPILER CFUN slot WRITER(complep │ │ │ │ +mag(#0)" │ │ │ │ +ne-alway │ │ │ │ +ANSI-LOOP DTYPE slot READER │ │ │ │ +ANSI-LOOP OPERATIONS slot WRITERp │ │ │ │ +ANSI-LOOP FOR-KEYWORDS slot READER │ │ │ │ +COMPILER VALUE-TO-GO slot WRITERp │ │ │ │ +ANSI-LOOP ANSWER-VARIABLE slot READER │ │ │ │ +ANSI-LOOP NAMES slot WRITER │ │ │ │ +ANSI-LOOP USER-DATA slot READER │ │ │ │ +COMPILER REPEATABLE slot WRITER │ │ │ │ KEYWORDINSTANCE │ │ │ │ -%INSTANCE-REF │ │ │ │ -INITARGS │ │ │ │ >/build/reproducible-path/gcl27-2.7.1/clcs/gcl_clcs_precom.lisp │ │ │ │ ,LAMBDA+8 │ │ │ │ ,DECLARE │ │ │ │ ,SIMPLE-VECTOR │ │ │ ├── .rodata │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .eh_frame_hdr │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .eh_frame │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .preinit_array │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .init_array │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .fini_array │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .got │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .got.plt │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .data │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .sdata │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .sbss │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .bss │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .riscv.attributes │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .gnu_debuglink │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ │ ├── .shstrtab │ │ │ │┄ Timeout exceeded; details may be incomplete. │ │ ├── ./usr/lib/gcl-2.7.1/unixport/saved_ansi_gcl_gprof │ │ │┄ Timeout exceeded; details may be incomplete. │ │ ├── ./usr/lib/gcl-2.7.1/unixport/saved_gcl │ │ │┄ Timeout exceeded; details may be incomplete. │ │ ├── ./usr/lib/gcl-2.7.1/unixport/saved_gcl_gprof │ │ │┄ Timeout exceeded; details may be incomplete. │ │ ├── ./usr/share/doc/gcl27/test_results.gz │ │ │┄ Timeout exceeded; details may be incomplete. │ │ ├── ./usr/share/doc/gcl27/timing_results │ │ │┄ Timeout exceeded; details may be incomplete.