=> Bootstrap dependency digest>=20010302: found digest-20080510 ===> Building for ecl-8.12.0 cd build; /usr/pkg/bin/gmake gmake[1]: Entering directory `/scratch/lang/ecl/work/ecl-8.12.0/build' cp /scratch/lang/ecl/work/ecl-8.12.0/src/util/gdbinit .gdbinit if (echo c | grep gmp); then \ cd gmp && /usr/pkg/bin/gmake install && \ cd .. && mv include/gmp.h ecl/ && rmdir include && \ mv ./libgmp.a ./libeclgmp.a; \ fi test -d ecl/gc || mkdir ecl/gc test -d ecl/gc/private || mkdir ecl/gc/private if (echo c | grep gc); then \ cd gc && /usr/pkg/bin/gmake install && cd .. && \ cp -rf /scratch/lang/ecl/work/ecl-8.12.0/src/gc/include/gc_{mark,inl,inline}.h ecl/gc/ && \ cp -rf /scratch/lang/ecl/work/ecl-8.12.0/src/gc/include/private/*.h ecl/gc/private/ && \ mv libgc.a libeclgc.a; \ fi sed -e 's,@ecldir\\@,/usr/pkg/lib/ecl-8.12.0/,g' < lsp/config.pre > lsp/config.lsp sed -e 's,@ecldir\\@,"/usr/pkg/lib/ecl-8.12.0/",g' \ -e 's,@libdir\\@,"/usr/pkg/lib/",g' \ -e 's,@includedir\\@,"/usr/pkg/include/",g' < cmp/cmpdefs.pre > cmp/cmpdefs.lsp test -d c/ecl || mkdir c/ecl sed 's,__declspec(dllimport),,g' /scratch/lang/ecl/work/ecl-8.12.0/src/h/external.h > c/ecl/external.h cp /scratch/lang/ecl/work/ecl-8.12.0/src/h/*.h ecl/ cd c; /usr/pkg/bin/gmake gmake[2]: Entering directory `/scratch/lang/ecl/work/ecl-8.12.0/build/c' cat /scratch/lang/ecl/work/ecl-8.12.0/src/c/symbols_list.h | \ sed -e 's%{\([A-Z ]*.*".*"\),[^,]*,[ ]*NULL,.*}%{\1,NULL}%g' \ -e 's%{\([A-Z ]*.*".*"\),[^,]*,[ ]*\([^,]*\),.*}%{\1,"\2"}%g' \ -e 's%{NULL.*%{NULL,NULL}};%' > /scratch/lang/ecl/work/ecl-8.12.0/src/c/symbols_list2.h if test -f ../CROSS-DPP; then touch dpp; else \ cc -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I/scratch/lang/ecl/work/ecl-8.12.0/build -I./ /scratch/lang/ecl/work/ecl-8.12.0/src/c/dpp.c -o dpp ; \ fi if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/main.d main.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/main.d main.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/main.d -> main.c Unknown symbol: mp::*current-process* Unknown symbol: mp::+load-compile-lock+ Unknown symbol: mp::+load-compile-lock+ cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o main.o main.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/symbol.d symbol.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/symbol.d symbol.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/symbol.d -> symbol.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o symbol.o symbol.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/package.d package.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/package.d package.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/package.d -> package.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o package.o package.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/list.d list.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/list.d list.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/list.d -> list.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o list.o list.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/apply.d apply.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/apply.d apply.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/apply.d -> apply.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly apply.c -o apply.o if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/eval.d eval.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/eval.d eval.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/eval.d -> eval.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o eval.o eval.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/interpreter.d interpreter.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/interpreter.d interpreter.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/interpreter.d -> interpreter.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o interpreter.o interpreter.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/interpreter.d: In function 'ecl_interpret': /scratch/lang/ecl/work/ecl-8.12.0/src/c/interpreter.d:520: warning: assignment discards qualifiers from pointer target type if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/compiler.d compiler.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/compiler.d compiler.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/compiler.d -> compiler.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o compiler.o compiler.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/compiler.d: In function 'asm_end': /scratch/lang/ecl/work/ecl-8.12.0/src/c/compiler.d:170: warning: assignment makes integer from pointer without a cast if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/disassembler.d disassembler.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/disassembler.d disassembler.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/disassembler.d -> disassembler.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o disassembler.o disassembler.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/disassembler.d: In function 'si_bc_file': /scratch/lang/ecl/work/ecl-8.12.0/src/c/disassembler.d:658: warning: initialization makes pointer from integer without a cast if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/instance.d instance.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/instance.d instance.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/instance.d -> instance.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o instance.o instance.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/gfun.d gfun.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/gfun.d gfun.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/gfun.d -> gfun.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o gfun.o gfun.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/reference.d reference.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/reference.d reference.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/reference.d -> reference.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o reference.o reference.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/character.d character.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/character.d character.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/character.d -> character.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o character.o character.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/file.d file.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/file.d file.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/file.d -> file.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o file.o file.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/read.d read.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/read.d read.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/read.d -> read.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o read.o read.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/read.d: In function 'read_VV': /scratch/lang/ecl/work/ecl-8.12.0/src/c/read.d:2151: warning: initialization discards qualifiers from pointer target type if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/print.d print.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/print.d print.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/print.d -> print.c Unknown symbol: si::pretty-print-format cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o print.o print.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/print.d: In function 'si_write_ugly_object': /scratch/lang/ecl/work/ecl-8.12.0/src/c/print.d:1569: warning: passing argument 1 of 'write_decimal' makes integer from pointer without a cast if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/error.d error.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/error.d error.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/error.d -> error.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o error.o error.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/string.d string.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/string.d string.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/string.d -> string.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o string.o string.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/cfun.d cfun.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/cfun.d cfun.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/cfun.d -> cfun.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o cfun.o cfun.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/typespec.d typespec.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/typespec.d typespec.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/typespec.d -> typespec.c Unknown symbol: mp::process Unknown symbol: mp::lock Unknown symbol: mp::condition-variable cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o typespec.o typespec.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/assignment.d assignment.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/assignment.d assignment.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/assignment.d -> assignment.c Unknown symbol: si::pretty-print-format Unknown symbol: si::pretty-print-format cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o assignment.o assignment.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/predicate.d predicate.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/predicate.d predicate.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/predicate.d -> predicate.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o predicate.o predicate.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/number.d number.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/number.d number.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/number.d -> number.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o number.o number.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_pred.d num_pred.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_pred.d num_pred.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_pred.d -> num_pred.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_pred.o num_pred.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_comp.d num_comp.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_comp.d num_comp.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_comp.d -> num_comp.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_comp.o num_comp.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_arith.d num_arith.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_arith.d num_arith.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_arith.d -> num_arith.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_arith.o num_arith.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_sfun.d num_sfun.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_sfun.d num_sfun.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_sfun.d -> num_sfun.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_sfun.o num_sfun.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_co.d num_co.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_co.d num_co.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_co.d -> num_co.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_co.o num_co.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_log.d num_log.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_log.d num_log.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_log.d -> num_log.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_log.o num_log.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_rand.d num_rand.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_rand.d num_rand.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/num_rand.d -> num_rand.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o num_rand.o num_rand.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/array.d array.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/array.d array.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/array.d -> array.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o array.o array.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/sequence.d sequence.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/sequence.d sequence.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/sequence.d -> sequence.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o sequence.o sequence.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/cmpaux.d cmpaux.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/cmpaux.d cmpaux.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/cmpaux.d -> cmpaux.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o cmpaux.o cmpaux.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/macros.d macros.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/macros.d macros.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/macros.d -> macros.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o macros.o macros.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/backq.d backq.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/backq.d backq.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/backq.d -> backq.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o backq.o backq.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/stacks.d stacks.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/stacks.d stacks.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/stacks.d -> stacks.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o stacks.o stacks.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/time.d time.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/time.d time.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/time.d -> time.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o time.o time.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixint.d unixint.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixint.d unixint.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixint.d -> unixint.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o unixint.o unixint.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixint.d: In function 'si_catch_signal': /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixint.d:330: warning: pointer type mismatch in conditional expression if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/mapfun.d mapfun.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/mapfun.d mapfun.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/mapfun.d -> mapfun.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o mapfun.o mapfun.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/multival.d multival.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/multival.d multival.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/multival.d -> multival.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o multival.o multival.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/hash.d hash.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/hash.d hash.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/hash.d -> hash.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o hash.o hash.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/format.d format.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/format.d format.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/format.d -> format.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o format.o format.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/pathname.d pathname.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/pathname.d pathname.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/pathname.d -> pathname.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o pathname.o pathname.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/structure.d structure.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/structure.d structure.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/structure.d -> structure.c Unknown symbol: si::structure-include cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o structure.o structure.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/load.d load.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/load.d load.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/load.d -> load.c Unknown symbol: mp::+load-compile-lock+ Unknown symbol: mp::+load-compile-lock+ cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o load.o load.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixfsys.d unixfsys.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixfsys.d unixfsys.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixfsys.d -> unixfsys.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o unixfsys.o unixfsys.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixsys.d unixsys.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixsys.d unixsys.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixsys.d -> unixsys.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o unixsys.o unixsys.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixsys.d: In function 'si_run_program': /scratch/lang/ecl/work/ecl-8.12.0/src/c/unixsys.d:326: warning: passing argument 2 of 'execvp' from incompatible pointer type if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/ffi.d ffi.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/ffi.d ffi.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/ffi.d -> ffi.c Unknown symbol: mp::+load-compile-lock+ Unknown symbol: mp::+load-compile-lock+ Unknown symbol: :callback cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o ffi.o ffi.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/ffi.d: In function 'si_allocate_foreign_data': /scratch/lang/ecl/work/ecl-8.12.0/src/c/ffi.d:125: warning: pointer/integer type mismatch in conditional expression if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/alloc_2.d alloc_2.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/alloc_2.d alloc_2.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/alloc_2.d -> alloc_2.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o alloc_2.o alloc_2.c /scratch/lang/ecl/work/ecl-8.12.0/src/c/alloc_2.d: In function 'queueing_finalizer': /scratch/lang/ecl/work/ecl-8.12.0/src/c/alloc_2.d:344: warning: passing argument 2 of 'GC_register_finalizer_no_order' from incompatible pointer type if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/tcp.d tcp.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/tcp.d tcp.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/tcp.d -> tcp.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o tcp.o tcp.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/big.d big.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/big.d big.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/big.d -> big.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -o big.o big.c if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/all_symbols.d all_symbols.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/all_symbols.d all_symbols.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/all_symbols.d -> all_symbols.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I./ all_symbols.c -o all_symbols.o cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -DECL_FINAL -I./ all_symbols.c -o all_symbols2.o rm -f ../libeclmin.a ar cr ../libeclmin.a main.o symbol.o package.o list.o apply.o eval.o interpreter.o compiler.o disassembler.o instance.o gfun.o reference.o character.o file.o read.o print.o error.o string.o cfun.o typespec.o assignment.o predicate.o number.o num_pred.o num_comp.o num_arith.o num_sfun.o num_co.o num_log.o num_rand.o array.o sequence.o cmpaux.o macros.o backq.o stacks.o time.o unixint.o mapfun.o multival.o hash.o format.o pathname.o structure.o load.o unixfsys.o unixsys.o ffi.o alloc_2.o tcp.o big.o ranlib ../libeclmin.a if test -f ../CROSS-DPP ; then ../CROSS-DPP /scratch/lang/ecl/work/ecl-8.12.0/src/c/cinit.d cinit.c ; else ./dpp /scratch/lang/ecl/work/ecl-8.12.0/src/c/cinit.d cinit.c ; fi dpp: /scratch/lang/ecl/work/ecl-8.12.0/src/c/cinit.d -> cinit.c cc -c -DECL_API -I. -I/scratch/lang/ecl/work/ecl-8.12.0/build -I/scratch/lang/ecl/work/ecl-8.12.0/src/c -I../ecl/gc -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I./ cinit.c -o ../cinit.o rm array.c symbol.c num_rand.c num_sfun.c cmpaux.c list.c unixsys.c num_arith.c load.c string.c stacks.c hash.c main.c predicate.c time.c num_log.c unixint.c instance.c compiler.c character.c multival.c gfun.c structure.c sequence.c ffi.c unixfsys.c tcp.c reference.c big.c print.c backq.c format.c typespec.c num_co.c num_pred.c macros.c alloc_2.c read.c error.c num_comp.c number.c pathname.c file.c cfun.c assignment.c disassembler.c interpreter.c mapfun.c package.c eval.c gmake[2]: Leaving directory `/scratch/lang/ecl/work/ecl-8.12.0/build/c' if [ -f CROSS-COMPILER ]; then \ touch ecl_min; \ else \ cc -L/usr/pkg/lib -Wl,-R/usr/pkg/lib -o ecl_min cinit.o c/all_symbols.o -L./ libeclmin.a -lm -lgc -lgmp;\ fi sed -e 's,@ecldir\\@,/usr/pkg/lib/ecl-8.12.0/,g' \ -e 's,@libdir\\@,/usr/pkg/lib/,g' < compile.pre > compile.lsp ln -s /scratch/lang/ecl/work/ecl-8.12.0/src/cmp/sysfun.lsp ./ echo "#" `uname -a` > BUILD-STAMP head -8 config.log | tail -6 >> BUILD-STAMP if [ -f CROSS-COMPILER ]; then \ ./CROSS-COMPILER compile; \ else \ ./ecl_min compile; \ fi ;*** Lisp core booted **** ECL (Embeddable Common Lisp) 65536 pages ;;; Compiling src:lsp;export.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Note: in file src:lsp;export.lsp, position 6, and form ;;; (LET (#) (FSET 'DOLIST F ...)) ;;; Removing unused variable POP ;;; Note: in file src:lsp;export.lsp, position 6, and form ;;; (LET (#) (FSET 'DOLIST F ...)) ;;; Removing unused variable FINISHED ;;; Warning: in file src:lsp;export.lsp, position 6, and form ;;; (LET (#) (FSET 'DOLIST F ...)) ;;; The variable ENV is not used. ;;; Note: in file src:lsp;export.lsp, position 7, and form ;;; (LET (#) (FSET 'DOTIMES F ...)) ;;; Removing unused variable POP ;;; Note: in file src:lsp;export.lsp, position 7, and form ;;; (LET (#) (FSET 'DOTIMES F ...)) ;;; Removing unused variable FINISHED ;;; Warning: in file src:lsp;export.lsp, position 7, and form ;;; (LET (#) (FSET 'DOTIMES F ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:lsp;export.lsp, position 8, and form ;;; (LET (#) (FSET 'DO F ...) ...) ;;; The variable ENV is not used. ;;; Compiling (DEFUN EVAL-FEATURE ...). ;;; Compiling (DEFUN DO-READ-FEATURE ...). ;;; Compiling (DEFUN SHARP-+-READER ...). ;;; Compiling (DEFUN SHARP---READER ...). ;;; Warning: in file src:lsp;export.lsp, position 14, and form ;;; (SET-DISPATCH-MACRO-CHARACTER # + ...) ;;; Too few arguments for proclaimed function STANDARD-READTABLE ;;; Warning: in file src:lsp;export.lsp, position 16, and form ;;; (SET-DISPATCH-MACRO-CHARACTER # - ...) ;;; Too few arguments for proclaimed function STANDARD-READTABLE ;;; End of Pass 1. ;;; Note: Creating tag: "_eclbffKyin8_leDqBfy" for #P"build:lsp;export.o.NEWEST" ;;; Emitting code for DOLIST. ;;; Emitting code for DOTIMES. ;;; Emitting code for DO/DO*-EXPAND. ;;; Note: Eliminating unreachable code ;;; Emitting code for EVAL-FEATURE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DO-READ-FEATURE. ;;; Emitting code for SHARP-+-READER. ;;; Emitting code for SHARP---READER. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/export.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/export.o" ;;; Finished compiling src:lsp;export.lsp. ;;; Compiling src:lsp;defmacro.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *DL*). ;;; Compiling (DEFVAR *KEY-CHECK*). ;;; Compiling (DEFVAR *ARG-CHECK*). ;;; Compiling (DEFUN SEARCH-KEYWORD ...). ;;; Compiling (DEFUN CHECK-KEYWORD ...). ;;; Compiling (DEFUN CHECK-ARG-LENGTH ...). ;;; Compiling (DEFUN DM-BAD-KEY ...). ;;; Compiling (DEFUN DM-TOO-FEW-ARGUMENTS ...). ;;; Compiling (DEFUN DESTRUCTURE ...). ;;; Compiling (DEFUN FIND-DOCUMENTATION ...). ;;; Compiling (DEFUN REMOVE-DOCUMENTATION ...). ;;; Compiling (DEFUN FIND-DECLARATIONS ...). ;;; Compiling (DEFUN EXPAND-DEFMACRO ...). ;;; Note: in file src:lsp;defmacro.lsp, position 13, and form ;;; (FSET 'EXPAND-DEFMACRO #'(LAMBDA-BLOCK EXPAND-DEFMACRO # ...)) ;;; Removing unused variable PPN ;;; Warning: in file src:lsp;defmacro.lsp, position 14, and form ;;; (FSET 'DEFMACRO #'(LAMBDA-BLOCK DEFMACRO # ...) ...) ;;; The variable DOC is not used. ;;; Note: in file src:lsp;defmacro.lsp, position 14, and form ;;; (FSET 'DEFMACRO #'(LAMBDA-BLOCK DEFMACRO # ...) ...) ;;; Removing unused variable FUNCTION ;;; Warning: in file src:lsp;defmacro.lsp, position 14, and form ;;; (FSET 'DEFMACRO #'(LAMBDA-BLOCK DEFMACRO # ...) ...) ;;; The variable ENV is not used. ;;; Compiling (DEFMACRO DESTRUCTURING-BIND ...). ;;; Warning: in file src:lsp;defmacro.lsp, position 15, and form ;;; (FSET 'DESTRUCTURING-BIND #'(LAMBDA-BLOCK DESTRUCTURING-BIND # ...) ...) ;;; The variable PPN is not used. ;;; Compiling (DEFUN WARN ...). ;;; Warning: in file src:lsp;defmacro.lsp, position 16, and form ;;; (FSET 'WARN #'(LAMBDA-BLOCK WARN # ...)) ;;; The variable FOO is not used. ;;; Compiling (DEFUN CMP-ENV-FOR-BYTECODES ...). ;;; Warning: in file src:lsp;defmacro.lsp, position 17, and form ;;; (FSET 'CMP-ENV-FOR-BYTECODES #'(LAMBDA-BLOCK CMP-ENV-FOR-BYTECODES # ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:lsp;defmacro.lsp, position 17, and form ;;; (FSET 'CMP-ENV-FOR-BYTECODES #'(LAMBDA-BLOCK CMP-ENV-FOR-BYTECODES # ...)) ;;; The variable WHOLE is not used. ;;; Warning: in file src:lsp;defmacro.lsp, position 17, and form ;;; (FSET 'CMP-ENV-FOR-BYTECODES #'(LAMBDA-BLOCK CMP-ENV-FOR-BYTECODES # ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:lsp;defmacro.lsp, position 17, and form ;;; (FSET 'CMP-ENV-FOR-BYTECODES #'(LAMBDA-BLOCK CMP-ENV-FOR-BYTECODES # ...)) ;;; The variable WHOLE is not used. ;;; Compiling (DEFUN MACROLET-FUNCTIONS ...). ;;; Note: in file src:lsp;defmacro.lsp, position 18, and form ;;; (FSET 'MACROLET-FUNCTIONS #'(LAMBDA-BLOCK MACROLET-FUNCTIONS # ...)) ;;; Replacing variable LLIST by its value #
;;; Note: in file src:lsp;defmacro.lsp, position 18, and form ;;; (FSET 'MACROLET-FUNCTIONS #'(LAMBDA-BLOCK MACROLET-FUNCTIONS # ...)) ;;; Replacing variable DEF by its value # ;;; Compiling (DEFUN CMP-ENV-REGISTER-MACROLET ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclYBx4bHn8_wlDqBfy" for #P"build:lsp;defmacro.o.NEWEST" ;;; Emitting code for SEARCH-KEYWORD. ;;; Note: Tail-recursive call of SEARCH-KEYWORD was replaced by iteration. ;;; Emitting code for CHECK-KEYWORD. ;;; Note: Eliminating unreachable code ;;; Emitting code for CHECK-ARG-LENGTH. ;;; Emitting code for DM-BAD-KEY. ;;; Emitting code for DM-TOO-FEW-ARGUMENTS. ;;; Emitting code for DESTRUCTURE. ;;; Emitting code for DM-NTH-CDR. ;;; Note: Eliminating unreachable code ;;; Emitting code for DM-NTH. ;;; Note: Eliminating unreachable code ;;; Emitting code for DM-V. ;;; Emitting code for DM-VL. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-DOCUMENTATION. ;;; Note: Replacing variable G12575 by its value ;;; Emitting code for REMOVE-DOCUMENTATION. ;;; Emitting code for FIND-DECLARATIONS. ;;; Emitting code for EXPAND-DEFMACRO. ;;; Emitting code for DEFMACRO. ;;; Emitting code for DESTRUCTURING-BIND. ;;; Emitting code for WARN. ;;; Emitting code for CMP-ENV-FOR-BYTECODES. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for LOCAL-FUN-ERROR-FUNCTION. ;;; Emitting code for LOCAL-VAR-ERROR-FUNCTION. ;;; Emitting code for #:G12584. ;;; Emitting code for #:G12583. ;;; Emitting code for MACROLET-FUNCTIONS. ;;; Note: Replacing variable G12599 by its value ;;; Note: Replacing variable X by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for CMP-ENV-REGISTER-MACROLET. ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defmacro.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defmacro.o" ;;; Finished compiling src:lsp;defmacro.lsp. ;;; Compiling src:lsp;helpfile.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN READ-HELP-FILE ...). ;;; Compiling (DEFUN DUMP-HELP-FILE ...). ;;; Compiling (DEFUN SEARCH-HELP-FILE ...). ;;; Warning: in file src:lsp;helpfile.lsp, position 3, and form ;;; (FSET 'SEARCH-HELP-FILE #'(LAMBDA-BLOCK SEARCH-HELP-FILE # ...)) ;;; The variable CHAR is not used. ;;; Note: in file src:lsp;helpfile.lsp, position 3, and form ;;; (FSET 'SEARCH-HELP-FILE #'(LAMBDA-BLOCK SEARCH-HELP-FILE # ...)) ;;; Removing unused variable POS ;;; Compiling (DEFVAR *DOCUMENTATION-POOL* ...). ;;; Compiling (DEFVAR *KEEP-DOCUMENTATION* ...). ;;; Compiling (DEFUN NEW-DOCUMENTATION-POOL ...). ;;; Compiling (DEFUN DUMP-DOCUMENTATION ...). ;;; Compiling (DEFUN GET-DOCUMENTATION ...). ;;; Compiling (DEFUN SET-DOCUMENTATION ...). ;;; Compiling (DEFUN EXPAND-SET-DOCUMENTATION ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclODFvLvn8_CwDqBfy" for #P"build:lsp;helpfile.o.NEWEST" ;;; Emitting code for READ-HELP-FILE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DUMP-HELP-FILE. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G12617. ;;; Note: Replacing variable LIST by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G12624. ;;; Emitting code for SEARCH-HELP-FILE. ;;; Emitting code for SCAN-FOR. ;;; Note: Eliminating unreachable code ;;; Emitting code for BIN-SEARCH. ;;; Note: Tail-recursive call of BIN-SEARCH was replaced by iteration. ;;; Note: Tail-recursive call of BIN-SEARCH was replaced by iteration. ;;; Note: Tail-recursive call of BIN-SEARCH was replaced by iteration. ;;; Emitting code for NEW-DOCUMENTATION-POOL. ;;; Emitting code for DUMP-DOCUMENTATION. ;;; Emitting code for GET-DOCUMENTATION. ;;; Note: Eliminating unreachable code ;;; Emitting code for SET-DOCUMENTATION. ;;; Emitting code for EXPAND-SET-DOCUMENTATION. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/helpfile.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/helpfile.o" ;;; Finished compiling src:lsp;helpfile.lsp. ;;; Compiling src:lsp;evalmacros.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMACRO DEFUN ...). ;;; Compiling (DEFMACRO DEFMACRO ...). ;;; Note: in file src:lsp;evalmacros.lsp, position 2, and form ;;; (FSET 'DEFMACRO #'(LAMBDA-BLOCK DEFMACRO # ...) ...) ;;; Removing unused variable DOC-STRING ;;; Compiling (DEFMACRO DEFVAR ...). ;;; Compiling (DEFMACRO DEFPARAMETER ...). ;;; Compiling (DEFMACRO DEFCONSTANT ...). ;;; Compiling (DEFMACRO DEFINE-COMPILER-MACRO ...). ;;; Warning: in file src:lsp;evalmacros.lsp, position 6, and form ;;; (FSET 'DEFINE-COMPILER-MACRO #'(LAMBDA-BLOCK DEFINE-COMPILER-MACRO # ...) ...) ;;; The variable PPRINT is not used. ;;; Compiling (DEFUN COMPILER-MACRO-FUNCTION ...). ;;; Warning: in file src:lsp;evalmacros.lsp, position 7, and form ;;; (FSET 'COMPILER-MACRO-FUNCTION #'(LAMBDA-BLOCK COMPILER-MACRO-FUNCTION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFMACRO LAMBDA ...). ;;; Note: in file src:lsp;evalmacros.lsp, position 9, and form ;;; (FSET 'LAMBDA #'(LAMBDA-BLOCK LAMBDA # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFMACRO LAMBDA-BLOCK ...). ;;; Compiling (DEFMACRO PSETQ ...). ;;; Compiling (DEFMACRO COND ...). ;;; Compiling (DEFMACRO UNLESS ...). ;;; Note: in file src:lsp;evalmacros.lsp, position 13, and form ;;; (FSET 'UNLESS #'(LAMBDA-BLOCK UNLESS # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFMACRO PROG ...). ;;; Compiling (DEFMACRO PROG* ...). ;;; Compiling (DEFMACRO PROG1 ...). ;;; Compiling (DEFMACRO PROG2 ...). ;;; Compiling (DEFMACRO MULTIPLE-VALUE-LIST ...). ;;; Compiling (DEFMACRO MULTIPLE-VALUE-SETQ ...). ;;; Compiling (DEFMACRO MULTIPLE-VALUE-BIND ...). ;;; Compiling (DEFUN WHILE-UNTIL ...). ;;; Compiling (DEFMACRO WHILE ...). ;;; Note: in file src:lsp;evalmacros.lsp, position 22, and form ;;; (FSET 'WHILE #'(LAMBDA-BLOCK WHILE # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFMACRO UNTIL ...). ;;; Note: in file src:lsp;evalmacros.lsp, position 23, and form ;;; (FSET 'UNTIL #'(LAMBDA-BLOCK UNTIL # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFMACRO CASE ...). ;;; Compiling (DEFMACRO RETURN ...). ;;; Compiling (DEFMACRO DECLAIM ...). ;;; Compiling (DEFMACRO C-DECLAIM ...). ;;; Compiling (DEFMACRO IN-PACKAGE ...). ;;; Compiling (DEFMACRO THE ...). ;;; Warning: in file src:lsp;evalmacros.lsp, position 29, and form ;;; (FSET 'THE #'(LAMBDA-BLOCK THE # ...) ...) ;;; The variable TYPE is not used. ;;; Compiling (DEFMACRO DEFINE-SYMBOL-MACRO ...). ;;; Compiling (DEFMACRO NTH-VALUE ...). ;;; Compiling (DEFUN MAYBE-UNQUOTE ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclcaqY7jm8_K4EqBfy" for #P"build:lsp;evalmacros.o.NEWEST" ;;; Emitting code for DEFUN. ;;; Emitting code for DEFMACRO. ;;; Note: Emitting linking call for EXPAND-DEFMACRO ;;; Emitting code for DEFVAR. ;;; Emitting code for DEFPARAMETER. ;;; Emitting code for DEFCONSTANT. ;;; Emitting code for DEFINE-COMPILER-MACRO. ;;; Emitting code for COMPILER-MACRO-FUNCTION. ;;; Emitting code for LOOP. ;;; Emitting code for LAMBDA. ;;; Emitting code for LAMBDA-BLOCK. ;;; Emitting code for PSETQ. ;;; Note: Eliminating unreachable code ;;; Emitting code for COND. ;;; Note: Eliminating unreachable code ;;; Emitting code for UNLESS. ;;; Emitting code for PROG. ;;; Emitting code for PROG*. ;;; Emitting code for PROG1. ;;; Emitting code for PROG2. ;;; Emitting code for MULTIPLE-VALUE-LIST. ;;; Emitting code for MULTIPLE-VALUE-SETQ. ;;; Note: Eliminating unreachable code ;;; Emitting code for MULTIPLE-VALUE-BIND. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for WHILE-UNTIL. ;;; Emitting code for WHILE. ;;; Emitting code for UNTIL. ;;; Emitting code for CASE. ;;; Note: Eliminating unreachable code ;;; Emitting code for RETURN. ;;; Emitting code for DECLAIM. ;;; Emitting code for C-DECLAIM. ;;; Emitting code for IN-PACKAGE. ;;; Emitting code for THE. ;;; Emitting code for DEFINE-SYMBOL-MACRO. ;;; Emitting code for NTH-VALUE. ;;; Emitting code for MAYBE-UNQUOTE. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/evalmacros.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/evalmacros.o" ;;; Finished compiling src:lsp;evalmacros.lsp. ;;; Compiling src:lsp;autoload.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN LISP-IMPLEMENTATION-TYPE ...). ;;; Compiling (DEFUN AUTOLOAD ...). ;;; Compiling (DEFMACRO WITH-COMPILATION-UNIT ...). ;;; Warning: in file src:lsp;autoload.lsp, position 4, and form ;;; (FSET 'WITH-COMPILATION-UNIT #'(LAMBDA-BLOCK WITH-COMPILATION-UNIT # ...) ...) ;;; The variable OPTIONS is not used. ;;; Note: in file src:lsp;autoload.lsp, position 4, and form ;;; (FSET 'WITH-COMPILATION-UNIT #'(LAMBDA-BLOCK WITH-COMPILATION-UNIT # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFUN ED ...). ;;; Compiling (DEFUN ROOM ...). ;;; Warning: in file src:lsp;autoload.lsp, position 6, and form ;;; (FSET 'ROOM #'(LAMBDA-BLOCK ROOM # ...)) ;;; The variable X is not used. ;;; Compiling (DEFUN HELP ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl8na9fJo8_4IEqBfy" for #P"build:lsp;autoload.o.NEWEST" ;;; Emitting code for LISP-IMPLEMENTATION-TYPE. ;;; Emitting code for AUTOLOAD. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G12752. ;;; Emitting code for PROCLAIM. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for WITH-COMPILATION-UNIT. ;;; Emitting code for ED. ;;; Emitting code for ROOM. ;;; Emitting code for HELP. ;;; Note: Emitting linking call for PRINT-DOC ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/autoload.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/autoload.o" ;;; Finished compiling src:lsp;autoload.lsp. ;;; Compiling src:lsp;setf.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN CHECK-STORES-NUMBER ...). ;;; Compiling (DEFMACRO DEFSETF ...). ;;; Compiling (DEFMACRO DEFINE-SETF-EXPANDER ...). ;;; Compiling (DEFUN GET-SETF-EXPANSION ...). ;;; Warning: in file src:lsp;setf.lsp, position 4, and form ;;; (FSET 'GET-SETF-EXPANSION #'(LAMBDA-BLOCK GET-SETF-EXPANSION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;setf.lsp, position 4, and form ;;; (FSET 'GET-SETF-EXPANSION #'(LAMBDA-BLOCK GET-SETF-EXPANSION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;setf.lsp, position 4, and form ;;; (FSET 'GET-SETF-EXPANSION #'(LAMBDA-BLOCK GET-SETF-EXPANSION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;setf.lsp, position 4, and form ;;; (FSET 'GET-SETF-EXPANSION #'(LAMBDA-BLOCK GET-SETF-EXPANSION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;setf.lsp, position 51, and form ;;; (PUT-SYSPROP 'MACRO-FUNCTION 'SETF-LAMBDA ...) ;;; The variable ENV is not used. ;;; Warning: in file src:lsp;setf.lsp, position 63, and form ;;; (PUT-SYSPROP 'GETHASH 'SETF-LAMBDA ...) ;;; The variable D is not used. ;;; Compiling (DEFUN SETF-EXPAND-1 ...). ;;; Compiling (DEFUN SETF-STRUCTURE-ACCESS ...). ;;; Compiling (DEFUN SETF-EXPAND ...). ;;; Compiling (DEFMACRO SETF ...). ;;; Compiling (DEFMACRO PSETF ...). ;;; Compiling (DEFMACRO SHIFTF ...). ;;; Compiling (DEFMACRO ROTATEF ...). ;;; Compiling (DEFMACRO DEFINE-MODIFY-MACRO ...). ;;; Compiling (DEFMACRO REMF ...). ;;; Compiling (DEFMACRO INCF ...). ;;; Compiling (DEFMACRO DECF ...). ;;; Compiling (DEFMACRO PUSH ...). ;;; Compiling (DEFMACRO PUSHNEW ...). ;;; Compiling (DEFMACRO POP ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl0D5lllm8_bREqBfy" for #P"build:lsp;setf.o.NEWEST" ;;; Emitting code for CHECK-STORES-NUMBER. ;;; Emitting code for DEFSETF. ;;; Emitting code for DEFINE-SETF-EXPANDER. ;;; Emitting code for GET-SETF-EXPANSION. ;;; Emitting code for RENAME-ARGUMENTS. ;;; Note: Eliminating unreachable code ;;; Emitting code for CAR. ;;; Emitting code for CDR. ;;; Emitting code for CAAR. ;;; Emitting code for CDAR. ;;; Emitting code for CADR. ;;; Emitting code for CDDR. ;;; Emitting code for CAAAR. ;;; Emitting code for CDAAR. ;;; Emitting code for CADAR. ;;; Emitting code for CDDAR. ;;; Emitting code for CAADR. ;;; Emitting code for CDADR. ;;; Emitting code for CADDR. ;;; Emitting code for CDDDR. ;;; Emitting code for CAAAAR. ;;; Emitting code for CDAAAR. ;;; Emitting code for CADAAR. ;;; Emitting code for CDDAAR. ;;; Emitting code for CAADAR. ;;; Emitting code for CDADAR. ;;; Emitting code for CADDAR. ;;; Emitting code for CDDDAR. ;;; Emitting code for CAAADR. ;;; Emitting code for CDAADR. ;;; Emitting code for CADADR. ;;; Emitting code for CDDADR. ;;; Emitting code for CAADDR. ;;; Emitting code for CDADDR. ;;; Emitting code for CADDDR. ;;; Emitting code for CDDDDR. ;;; Emitting code for FIRST. ;;; Emitting code for SECOND. ;;; Emitting code for THIRD. ;;; Emitting code for FOURTH. ;;; Emitting code for FIFTH. ;;; Emitting code for SIXTH. ;;; Emitting code for SEVENTH. ;;; Emitting code for EIGHTH. ;;; Emitting code for NINTH. ;;; Emitting code for TENTH. ;;; Emitting code for REST. ;;; Emitting code for MACRO-FUNCTION. ;;; Emitting code for AREF. ;;; Emitting code for ROW-MAJOR-AREF. ;;; Emitting code for GET. ;;; Emitting code for NTH. ;;; Emitting code for BIT. ;;; Emitting code for SBIT. ;;; Emitting code for GETHASH. ;;; Emitting code for COMPILER-MACRO-FUNCTION. ;;; Emitting code for GETF. ;;; Emitting code for SUBSEQ. ;;; Emitting code for THE. ;;; Emitting code for APPLY. ;;; Emitting code for LDB. ;;; Emitting code for MASK-FIELD. ;;; Emitting code for SETF-EXPAND-1. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SETF-STRUCTURE-ACCESS. ;;; Emitting code for SETF-EXPAND. ;;; Emitting code for SETF. ;;; Emitting code for PSETF. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SHIFTF. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for ROTATEF. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DEFINE-MODIFY-MACRO. ;;; Note: Eliminating unreachable code ;;; Emitting code for REMF. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for INCF. ;;; Note: Replacing variable G12864 by its value ;;; Note: Replacing variable V by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DECF. ;;; Note: Replacing variable G12895 by its value ;;; Note: Replacing variable V by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PUSH. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PUSHNEW. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for POP. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for VALUES. ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/setf.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/setf.o" ;;; Finished compiling src:lsp;setf.lsp. ;;; Compiling src:lsp;predlib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *SUBTYPEP-CACHE* ...). ;;; Compiling (DEFVAR *UPGRADED-ARRAY-ELEMENT-TYPE-CACHE* ...). ;;; Compiling (DEFUN SUBTYPEP-CLEAR-CACHE ...). ;;; Compiling (DEFUN CREATE-TYPE-NAME ...). ;;; Compiling (DEFUN DO-DEFTYPE ...). ;;; Compiling (DEFMACRO DEFTYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 32, and form ;;; (DO-DEFTYPE 'EXTENDED-STRING '(DEFTYPE EXTENDED-STRING # ...) ...) ;;; The variable SIZE is not used. ;;; Compiling (DEFUN CONSTANTLY-T ...). ;;; Warning: in file src:lsp;predlib.lsp, position 38, and form ;;; (FSET 'CONSTANTLY-T #'(LAMBDA-BLOCK CONSTANTLY-T # ...)) ;;; The variable FOO is not used. ;;; Compiling (DEFUN CONSTANTLY-NIL ...). ;;; Warning: in file src:lsp;predlib.lsp, position 39, and form ;;; (FSET 'CONSTANTLY-NIL #'(LAMBDA-BLOCK CONSTANTLY-NIL # ...)) ;;; The variable FOO is not used. ;;; Compiling (DEFUN SIMPLE-ARRAY-P ...). ;;; Compiling (DEFUN UPGRADED-ARRAY-ELEMENT-TYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 44, and form ;;; (FSET 'UPGRADED-ARRAY-ELEMENT-TYPE #'(LAMBDA-BLOCK UPGRADED-ARRAY-ELEMENT-TYPE # ...)) ;;; The variable ENV is not used. ;;; Compiling (DEFUN UPGRADED-COMPLEX-PART-TYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 45, and form ;;; (FSET 'UPGRADED-COMPLEX-PART-TYPE #'(LAMBDA-BLOCK UPGRADED-COMPLEX-PART-TYPE # ...)) ;;; The variable ENV is not used. ;;; Compiling (DEFUN IN-INTERVAL-P ...). ;;; Compiling (DEFUN ERROR-TYPE-SPECIFIER ...). ;;; Compiling (DEFUN MATCH-DIMENSIONS ...). ;;; Warning: in file src:lsp;predlib.lsp, position 48, and form ;;; (FSET 'MATCH-DIMENSIONS #'(LAMBDA-BLOCK MATCH-DIMENSIONS # ...)) ;;; Unknown type (VALUES &REST T) ;;; Compiling (DEFUN TYPEP ...). ;;; Warning: in file src:lsp;predlib.lsp, position 49, and form ;;; (FSET 'TYPEP #'(LAMBDA-BLOCK TYPEP # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;predlib.lsp, position 49, and form ;;; (FSET 'TYPEP #'(LAMBDA-BLOCK TYPEP # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;predlib.lsp, position 49, and form ;;; (FSET 'TYPEP #'(LAMBDA-BLOCK TYPEP # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN SUBCLASSP ...). ;;; Compiling (DEFUN OF-CLASS-P ...). ;;; Warning: in file src:lsp;predlib.lsp, position 51, and form ;;; (FSET 'OF-CLASS-P #'(LAMBDA-BLOCK OF-CLASS-P # ...)) ;;; In LET* body, the type of the form C is SYMBOL, not CLASS. ;;; Compiling (DEFUN NORMALIZE-TYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 52, and form ;;; (FSET 'NORMALIZE-TYPE #'(LAMBDA-BLOCK NORMALIZE-TYPE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;predlib.lsp, position 52, and form ;;; (FSET 'NORMALIZE-TYPE #'(LAMBDA-BLOCK NORMALIZE-TYPE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN EXPAND-DEFTYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 53, and form ;;; (FSET 'EXPAND-DEFTYPE #'(LAMBDA-BLOCK EXPAND-DEFTYPE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;predlib.lsp, position 53, and form ;;; (FSET 'EXPAND-DEFTYPE #'(LAMBDA-BLOCK EXPAND-DEFTYPE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN ERROR-COERCE ...). ;;; Compiling (DEFUN COERCE ...). ;;; Compiling (DEFPARAMETER *SAVE-TYPES-DATABASE* ...). ;;; Compiling (DEFPARAMETER *HIGHEST-TYPE-TAG* ...). ;;; Compiling (DEFPARAMETER *MEMBER-TYPES* ...). ;;; Compiling (DEFPARAMETER *INTERVALS-MASK* ...). ;;; Compiling (DEFPARAMETER *ELEMENTARY-TYPES* ...). ;;; Compiling (DEFUN NEW-TYPE-TAG ...). ;;; Compiling (DEFUN FIND-REGISTERED-TAG ...). ;;; Compiling (DEFUN MAYBE-SAVE-TYPES ...). ;;; Compiling (DEFUN UPDATE-TYPES ...). ;;; Warning: in file src:lsp;predlib.lsp, position 64, and form ;;; (FSET 'UPDATE-TYPES #'(LAMBDA-BLOCK UPDATE-TYPES # ...)) ;;; In LET* body, the type of the form I is SYMBOL, not CONS. ;;; Compiling (DEFUN FIND-TYPE-BOUNDS ...). ;;; Warning: in file src:lsp;predlib.lsp, position 65, and form ;;; (FSET 'FIND-TYPE-BOUNDS #'(LAMBDA-BLOCK FIND-TYPE-BOUNDS # ...)) ;;; In LET* body, the type of the form I is SYMBOL, not CONS. ;;; Compiling (DEFUN REGISTER-TYPE ...). ;;; Compiling (DEFUN REGISTER-MEMBER-TYPE ...). ;;; Compiling (DEFUN SIMPLE-MEMBER-TYPE ...). ;;; Compiling (DEFUN NUMBER-MEMBER-TYPE ...). ;;; Compiling (DEFUN PUSH-TYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 70, and form ;;; (FSET 'PUSH-TYPE #'(LAMBDA-BLOCK PUSH-TYPE # ...)) ;;; In LET* body, the type of the form I is SYMBOL, not CONS. ;;; Compiling (DEFUN REGISTER-SATISFIES-TYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 71, and form ;;; (FSET 'REGISTER-SATISFIES-TYPE #'(LAMBDA-BLOCK REGISTER-SATISFIES-TYPE # ...)) ;;; The variable TYPE is not used. ;;; Compiling (DEFUN REGISTER-CLASS ...). ;;; Compiling (DEFUN REGISTER-ARRAY-TYPE ...). ;;; Note: in file src:lsp;predlib.lsp, position 73, and form ;;; (FSET 'REGISTER-ARRAY-TYPE #'(LAMBDA-BLOCK REGISTER-ARRAY-TYPE # ...)) ;;; Replacing variable TYPE by its value # ;;; Compiling (DEFUN FAST-UPGRADED-ARRAY-ELEMENT-TYPE ...). ;;; Compiling (DEFUN PARSE-ARRAY-TYPE ...). ;;; Compiling (DEFUN ARRAY-TYPE-<= ...). ;;; Compiling (DEFUN ARRAY-TYPE-P ...). ;;; Compiling (DEFUN REGISTER-ELEMENTARY-INTERVAL ...). ;;; Compiling (DEFUN REGISTER-INTERVAL-TYPE ...). ;;; Compiling (DEFUN BOUNDS-<= ...). ;;; Compiling (DEFUN BOUNDS-< ...). ;;; Compiling (DEFUN CANONICAL-COMPLEX-TYPE ...). ;;; Compiling (DEFUN REGISTER-CONS-TYPE ...). ;;; Compiling (DEFUN FIND-BUILT-IN-TAG ...). ;;; Warning: in file src:lsp;predlib.lsp, position 84, and form ;;; (FSET 'FIND-BUILT-IN-TAG #'(LAMBDA-BLOCK FIND-BUILT-IN-TAG # ...)) ;;; In LET* body, the type of the form I is SYMBOL, not CONS. ;;; Compiling (DEFUN EXTEND-TYPE-TAG ...). ;;; Compiling (DEFUN CANONICAL-TYPE ...). ;;; Warning: in file src:lsp;predlib.lsp, position 86, and form ;;; (FSET 'CANONICAL-TYPE #'(LAMBDA-BLOCK CANONICAL-TYPE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;predlib.lsp, position 86, and form ;;; (FSET 'CANONICAL-TYPE #'(LAMBDA-BLOCK CANONICAL-TYPE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN SAFE-CANONICAL-TYPE ...). ;;; Compiling (DEFUN FAST-SUBTYPEP ...). ;;; Compiling (DEFUN SUBTYPEP ...). ;;; Warning: in file src:lsp;predlib.lsp, position 89, and form ;;; (FSET 'SUBTYPEP #'(LAMBDA-BLOCK SUBTYPEP # ...)) ;;; The variable ENV is not used. ;;; Compiling (DEFUN FAST-TYPE= ...). ;;; Compiling (DEFUN TYPE= ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclBRoxy9o8_PtEqBfy" for #P"build:lsp;predlib.o.NEWEST" ;;; Emitting code for SUBTYPEP-CLEAR-CACHE. ;;; Emitting code for CREATE-TYPE-NAME. ;;; Emitting code for DO-DEFTYPE. ;;; Emitting code for DEFTYPE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13019 by its value ;;; Emitting code for BOOLEAN. ;;; Emitting code for INDEX. ;;; Emitting code for FIXNUM. ;;; Emitting code for BIGNUM. ;;; Emitting code for BYTE8. ;;; Emitting code for INTEGER8. ;;; Emitting code for CL-FIXNUM. ;;; Emitting code for CL-INDEX. ;;; Emitting code for REAL. ;;; Note: Replacing variable G13054 by its value ;;; Note: Replacing variable G13055 by its value ;;; Note: Replacing variable G13061 by its value ;;; Note: Replacing variable G13062 by its value ;;; Emitting code for SHORT-FLOAT. ;;; Emitting code for LONG-FLOAT. ;;; Emitting code for BIT. ;;; Emitting code for MOD. ;;; Emitting code for SIGNED-BYTE. ;;; Emitting code for UNSIGNED-BYTE. ;;; Emitting code for NULL. ;;; Emitting code for SEQUENCE. ;;; Emitting code for LIST. ;;; Emitting code for PROPER-LIST. ;;; Emitting code for PROPERTY-LIST. ;;; Emitting code for ATOM. ;;; Emitting code for VECTOR. ;;; Emitting code for EXTENDED-CHAR. ;;; Emitting code for STRING. ;;; Emitting code for BASE-STRING. ;;; Emitting code for EXTENDED-STRING. ;;; Emitting code for BIT-VECTOR. ;;; Emitting code for SIMPLE-VECTOR. ;;; Emitting code for SIMPLE-STRING. ;;; Emitting code for SIMPLE-BASE-STRING. ;;; Emitting code for SIMPLE-BIT-VECTOR. ;;; Emitting code for CONSTANTLY-T. ;;; Emitting code for CONSTANTLY-NIL. ;;; Emitting code for SIMPLE-ARRAY-P. ;;; Note: Eliminating unreachable code ;;; Emitting code for UPGRADED-ARRAY-ELEMENT-TYPE. ;;; Note: Eliminating unreachable code ;;; Emitting code for UPGRADED-COMPLEX-PART-TYPE. ;;; Emitting code for IN-INTERVAL-P. ;;; Emitting code for ERROR-TYPE-SPECIFIER. ;;; Emitting code for MATCH-DIMENSIONS. ;;; Note: Eliminating unreachable code ;;; Emitting code for TYPEP. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SUBCLASSP. ;;; Emitting code for OF-CLASS-P. ;;; Note: Eliminating unreachable code ;;; Emitting code for NORMALIZE-TYPE. ;;; Note: Tail-recursive call of NORMALIZE-TYPE was replaced by iteration. ;;; Note: Emitting linking call for CLASSP ;;; Note: Tail-recursive call of NORMALIZE-TYPE was replaced by iteration. ;;; Emitting code for EXPAND-DEFTYPE. ;;; Note: Tail-recursive call of EXPAND-DEFTYPE was replaced by iteration. ;;; Note: Tail-recursive call of EXPAND-DEFTYPE was replaced by iteration. ;;; Emitting code for ERROR-COERCE. ;;; Emitting code for COERCE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for NEW-TYPE-TAG. ;;; Emitting code for FIND-REGISTERED-TAG. ;;; Emitting code for MAYBE-SAVE-TYPES. ;;; Note: Replacing variable G13135 by its value ;;; Emitting code for UPDATE-TYPES. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13143 by its value ;;; Emitting code for FIND-TYPE-BOUNDS. ;;; Note: Eliminating unreachable code ;;; Emitting code for REGISTER-TYPE. ;;; Emitting code for REGISTER-MEMBER-TYPE. ;;; Emitting code for SIMPLE-MEMBER-TYPE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13161 by its value ;;; Emitting code for NUMBER-MEMBER-TYPE. ;;; Emitting code for PUSH-TYPE. ;;; Note: Eliminating unreachable code ;;; Emitting code for REGISTER-SATISFIES-TYPE. ;;; Emitting code for REGISTER-CLASS. ;;; Note: Emitting linking call for CLASS-NAME ;;; Emitting code for #:G13177. ;;; Emitting code for #:G13180. ;;; Emitting code for REGISTER-ARRAY-TYPE. ;;; Note: Replacing variable G13187 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FAST-UPGRADED-ARRAY-ELEMENT-TYPE. ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-ARRAY-TYPE. ;;; Note: Eliminating unreachable code ;;; Emitting code for ARRAY-TYPE-<=. ;;; Note: Eliminating unreachable code ;;; Emitting code for ARRAY-TYPE-P. ;;; Emitting code for REGISTER-ELEMENTARY-INTERVAL. ;;; Emitting code for #:G13209. ;;; Emitting code for #:G13210. ;;; Emitting code for REGISTER-INTERVAL-TYPE. ;;; Emitting code for BOUNDS-<=. ;;; Emitting code for BOUNDS-<. ;;; Emitting code for CANONICAL-COMPLEX-TYPE. ;;; Emitting code for REGISTER-CONS-TYPE. ;;; Emitting code for FIND-BUILT-IN-TAG. ;;; Note: Eliminating unreachable code ;;; Emitting code for EXTEND-TYPE-TAG. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13230 by its value ;;; Emitting code for CANONICAL-TYPE. ;;; Note: Tail-recursive call of CANONICAL-TYPE was replaced by iteration. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Tail-recursive call of CANONICAL-TYPE was replaced by iteration. ;;; Note: Tail-recursive call of CANONICAL-TYPE was replaced by iteration. ;;; Note: Tail-recursive call of CANONICAL-TYPE was replaced by iteration. ;;; Note: Tail-recursive call of CANONICAL-TYPE was replaced by iteration. ;;; Note: Tail-recursive call of CANONICAL-TYPE was replaced by iteration. ;;; Note: Emitting linking call for FUNCTION-TYPE-P ;;; Note: Emitting linking call for REGISTER-FUNCTION-TYPE ;;; Note: Emitting linking call for VALUES-TYPE-P ;;; Note: Emitting linking call for REGISTER-VALUES-TYPE ;;; Emitting code for SAFE-CANONICAL-TYPE. ;;; Emitting code for FAST-SUBTYPEP. ;;; Emitting code for SUBTYPEP. ;;; Note: Replacing variable G13254 by its value ;;; Emitting code for FAST-TYPE=. ;;; Emitting code for TYPE=. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/predlib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/predlib.o" ;;; Finished compiling src:lsp;predlib.lsp. ;;; Compiling src:lsp;seq.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN ERROR-SEQUENCE-TYPE ...). ;;; Compiling (DEFUN ERROR-SEQUENCE-LENGTH ...). ;;; Compiling (DEFUN CLOSEST-SEQUENCE-TYPE ...). ;;; Compiling (DEFUN MAKE-SEQUENCE ...). ;;; Compiling (DEFUN MAKE-SEQ-ITERATOR ...). ;;; Compiling (DEFUN SEQ-ITERATOR-REF ...). ;;; Compiling (DEFUN SEQ-ITERATOR-SET ...). ;;; Compiling (DEFUN SEQ-ITERATOR-NEXT ...). ;;; Compiling (DEFUN COERCE-TO-LIST ...). ;;; Compiling (DEFUN COERCE-TO-VECTOR ...). ;;; Compiling (DEFUN CONCATENATE ...). ;;; Compiling (DEFUN MAP ...). ;;; Compiling (DEFUN SOME ...). ;;; Compiling (DEFUN EVERY ...). ;;; Compiling (DEFUN EVERY* ...). ;;; Compiling (DEFUN NOTANY ...). ;;; Compiling (DEFUN NOTEVERY ...). ;;; Compiling (DEFUN MAP-INTO ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclLokSK0n8_SgFqBfy" for #P"build:lsp;seq.o.NEWEST" ;;; Emitting code for ERROR-SEQUENCE-TYPE. ;;; Emitting code for ERROR-SEQUENCE-LENGTH. ;;; Emitting code for CLOSEST-SEQUENCE-TYPE. ;;; Note: Emitting linking call for CLASS-NAME ;;; Note: Replacing variable G13258 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-SEQUENCE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13269 by its value ;;; Note: Replacing variable G13271 by its value ;;; Emitting code for MAKE-SEQ-ITERATOR. ;;; Emitting code for SEQ-ITERATOR-REF. ;;; Emitting code for SEQ-ITERATOR-SET. ;;; Note: Replacing variable G13273 by its value ;;; Note: Replacing variable G13274 by its value ;;; Note: Replacing variable G13275 by its value ;;; Note: Replacing variable G13276 by its value ;;; Note: Replacing variable G13277 by its value ;;; Emitting code for SEQ-ITERATOR-NEXT. ;;; Emitting code for COERCE-TO-LIST. ;;; Note: Eliminating unreachable code ;;; Emitting code for COERCE-TO-VECTOR. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13291 by its value ;;; Note: Replacing variable G13294 by its value ;;; Emitting code for CONCATENATE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for MAP. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SOME. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for EVERY. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for EVERY*. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for NOTANY. ;;; Emitting code for NOTEVERY. ;;; Emitting code for MAP-INTO. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13359 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/seq.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/seq.o" ;;; Finished compiling src:lsp;seq.lsp. ;;; Compiling src:lsp;arraylib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN MAKE-ARRAY ...). ;;; Compiling (DEFUN FILL-ARRAY ...). ;;; Note: in file src:lsp;arraylib.lsp, position 2, and form ;;; (FSET 'FILL-ARRAY #'(LAMBDA-BLOCK FILL-ARRAY # ...)) ;;; In function ITERATE-OVER-CONTENTS, checking types of arguments WRITTEN DIMS CONTENTS ARRAY. ;;; Note: in file src:lsp;arraylib.lsp, position 2, and form ;;; (FSET 'FILL-ARRAY #'(LAMBDA-BLOCK FILL-ARRAY # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE WRITTEN FIXNUM) ;;; Note: in file src:lsp;arraylib.lsp, position 2, and form ;;; (FSET 'FILL-ARRAY #'(LAMBDA-BLOCK FILL-ARRAY # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE ARRAY (ARRAY *)) ;;; Compiling (DEFUN VECTOR ...). ;;; Compiling (DEFUN ARRAY-DIMENSIONS ...). ;;; Compiling (DEFUN ARRAY-IN-BOUNDS-P ...). ;;; Compiling (DEFUN ARRAY-ROW-MAJOR-INDEX ...). ;;; Compiling (DEFUN BIT ...). ;;; Compiling (DEFUN SBIT ...). ;;; Compiling (DEFUN BIT-AND ...). ;;; Compiling (DEFUN BIT-IOR ...). ;;; Compiling (DEFUN BIT-XOR ...). ;;; Compiling (DEFUN BIT-EQV ...). ;;; Compiling (DEFUN BIT-NAND ...). ;;; Compiling (DEFUN BIT-NOR ...). ;;; Compiling (DEFUN BIT-ANDC1 ...). ;;; Compiling (DEFUN BIT-ANDC2 ...). ;;; Compiling (DEFUN BIT-ORC1 ...). ;;; Compiling (DEFUN BIT-ORC2 ...). ;;; Compiling (DEFUN BIT-NOT ...). ;;; Compiling (DEFUN VECTOR-PUSH ...). ;;; Compiling (DEFUN VECTOR-PUSH-EXTEND ...). ;;; Compiling (DEFUN VECTOR-POP ...). ;;; Compiling (DEFUN COPY-ARRAY-CONTENTS ...). ;;; Warning: in file src:lsp;arraylib.lsp, position 23, and form ;;; (FSET 'COPY-ARRAY-CONTENTS #'(LAMBDA-BLOCK COPY-ARRAY-CONTENTS # ...)) ;;; Type declaration was found for not bound variable STEP2. ;;; Warning: in file src:lsp;arraylib.lsp, position 23, and form ;;; (FSET 'COPY-ARRAY-CONTENTS #'(LAMBDA-BLOCK COPY-ARRAY-CONTENTS # ...)) ;;; Type declaration was found for not bound variable STEP1. ;;; Compiling (DEFUN ADJUST-ARRAY ...). ;;; Warning: in file src:lsp;arraylib.lsp, position 24, and form ;;; (FSET 'ADJUST-ARRAY #'(LAMBDA-BLOCK ADJUST-ARRAY # ...)) ;;; The ignored variable FILL-POINTER is used. ;;; Warning: in file src:lsp;arraylib.lsp, position 24, and form ;;; (FSET 'ADJUST-ARRAY #'(LAMBDA-BLOCK ADJUST-ARRAY # ...)) ;;; The ignored variable INITIAL-CONTENTS is used. ;;; Compiling (DEFMACRO SHRINK-VECTOR ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclrPixWio8_asFqBfy" for #P"build:lsp;arraylib.o.NEWEST" ;;; Emitting code for MAKE-ARRAY. ;;; Note: Eliminating unreachable code ;;; Emitting code for FILL-ARRAY. ;;; Note: Replacing variable G13389 by its value ;;; Note: Replacing variable G13390 by its value ;;; Emitting code for ITERATE-OVER-CONTENTS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for VECTOR. ;;; Emitting code for ARRAY-DIMENSIONS. ;;; Note: Eliminating unreachable code ;;; Emitting code for ARRAY-IN-BOUNDS-P. ;;; Note: Eliminating unreachable code ;;; Emitting code for ARRAY-ROW-MAJOR-INDEX. ;;; Note: Eliminating unreachable code ;;; Emitting code for BIT. ;;; Emitting code for SBIT. ;;; Emitting code for BIT-AND. ;;; Emitting code for BIT-IOR. ;;; Emitting code for BIT-XOR. ;;; Emitting code for BIT-EQV. ;;; Emitting code for BIT-NAND. ;;; Emitting code for BIT-NOR. ;;; Emitting code for BIT-ANDC1. ;;; Emitting code for BIT-ANDC2. ;;; Emitting code for BIT-ORC1. ;;; Emitting code for BIT-ORC2. ;;; Emitting code for BIT-NOT. ;;; Emitting code for VECTOR-PUSH. ;;; Emitting code for VECTOR-PUSH-EXTEND. ;;; Emitting code for VECTOR-POP. ;;; Emitting code for COPY-ARRAY-CONTENTS. ;;; Emitting code for DO-COPY. ;;; Note: Eliminating unreachable code ;;; Emitting code for ADJUST-ARRAY. ;;; Emitting code for SHRINK-VECTOR. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/arraylib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/arraylib.o" ;;; Finished compiling src:lsp;arraylib.lsp. ;;; Compiling src:lsp;assert.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN READ-EVALUATED-FORM ...). ;;; Compiling (DEFUN WRONG-TYPE-ARGUMENT ...). ;;; Compiling (DEFMACRO CHECK-TYPE ...). ;;; Compiling (DEFUN DO-CHECK-TYPE ...). ;;; Compiling (DEFUN ASSERT-REPORT ...). ;;; Compiling (DEFUN ASSERT-PROMPT ...). ;;; Compiling (DEFUN SIMPLE-ASSERTION-FAILURE ...). ;;; Compiling (DEFMACRO ASSERT ...). ;;; Compiling (DEFUN ACCUMULATE-CASES ...). ;;; Warning: in file src:lsp;assert.lsp, position 9, and form ;;; (FSET 'ACCUMULATE-CASES #'(LAMBDA-BLOCK ACCUMULATE-CASES # ...)) ;;; The variable MACRO-NAME is not used. ;;; Compiling (DEFUN ECASE-ERROR ...). ;;; Warning: in file src:lsp;assert.lsp, position 10, and form ;;; (FSET 'ECASE-ERROR #'(LAMBDA-BLOCK ECASE-ERROR # ...)) ;;; The variable KEYFORM is not used. ;;; Compiling (DEFMACRO ECASE ...). ;;; Compiling (DEFUN CCASE-ERROR ...). ;;; Compiling (DEFUN REMOVE-OTHERWISE-FROM-CLAUSES ...). ;;; Compiling (DEFMACRO CCASE ...). ;;; Compiling (DEFMACRO TYPECASE ...). ;;; Compiling (DEFUN ETYPECASE-ERROR ...). ;;; Warning: in file src:lsp;assert.lsp, position 16, and form ;;; (FSET 'ETYPECASE-ERROR #'(LAMBDA-BLOCK ETYPECASE-ERROR # ...)) ;;; The variable KEYFORM is not used. ;;; Compiling (DEFMACRO ETYPECASE ...). ;;; Compiling (DEFUN CTYPECASE-ERROR ...). ;;; Compiling (DEFMACRO CTYPECASE ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclK6J2Mbn8_z1GqBfy" for #P"build:lsp;assert.o.NEWEST" ;;; Emitting code for READ-EVALUATED-FORM. ;;; Emitting code for WRONG-TYPE-ARGUMENT. ;;; Note: Emitting linking call for MAKE-RESTART ;;; Note: Emitting linking call for COERCE-TO-CONDITION ;;; Note: Replacing variable G13431 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G13425. ;;; Emitting code for #:G13426. ;;; Emitting code for CHECK-TYPE. ;;; Emitting code for DO-CHECK-TYPE. ;;; Note: Replacing variable G13444 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G13438. ;;; Emitting code for #:G13439. ;;; Emitting code for ASSERT-REPORT. ;;; Emitting code for ASSERT-PROMPT. ;;; Emitting code for READ-IT. ;;; Emitting code for SIMPLE-ASSERTION-FAILURE. ;;; Emitting code for ASSERT. ;;; Note: Replacing variable G13451 by its value ;;; Note: Replacing variable PLACE by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for ACCUMULATE-CASES. ;;; Note: Eliminating unreachable code ;;; Emitting code for ECASE-ERROR. ;;; Emitting code for ECASE. ;;; Emitting code for CCASE-ERROR. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G13468. ;;; Emitting code for #:G13469. ;;; Emitting code for REMOVE-OTHERWISE-FROM-CLAUSES. ;;; Note: Replacing variable G13477 by its value ;;; Note: Replacing variable CLAUSE by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for CCASE. ;;; Emitting code for TYPECASE. ;;; Note: Eliminating unreachable code ;;; Emitting code for ETYPECASE-ERROR. ;;; Emitting code for ETYPECASE. ;;; Note: Eliminating unreachable code ;;; Emitting code for CTYPECASE-ERROR. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G13500. ;;; Emitting code for #:G13501. ;;; Emitting code for CTYPECASE. ;;; Note: Replacing variable G13511 by its value ;;; Note: Replacing variable L by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/assert.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/assert.o" ;;; Finished compiling src:lsp;assert.lsp. ;;; Compiling src:lsp;defstruct.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN STRUCTURE-TYPE-ERROR ...). ;;; Compiling (DEFUN MAKE-ACCESS-FUNCTION ...). ;;; Compiling (DEFUN PROCESS-BOA-LAMBDA-LIST ...). ;;; Compiling (DEFUN MAKE-CONSTRUCTOR ...). ;;; Warning: in file src:lsp;defstruct.lsp, position 4, and form ;;; (FSET 'MAKE-CONSTRUCTOR #'(LAMBDA-BLOCK MAKE-CONSTRUCTOR # ...)) ;;; The variable OFFSET is not used. ;;; Compiling (DEFUN MAKE-PREDICATE ...). ;;; Compiling (DEFUN PARSE-SLOT-DESCRIPTION ...). ;;; Compiling (DEFUN OVERWRITE-SLOT-DESCRIPTIONS ...). ;;; Compiling (DEFUN DEFINE-STRUCTURE ...). ;;; Compiling (DEFMACRO DEFSTRUCT ...). ;;; Warning: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Note: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Replacing variable SD by its value # ;;; Warning: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Note: in file src:lsp;defstruct.lsp, position 9, and form ;;; (FSET 'DEFSTRUCT #'(LAMBDA-BLOCK DEFSTRUCT # ...) ...) ;;; Replacing variable CONSTRUCTOR by its value # ;;; End of Pass 1. ;;; Note: Creating tag: "_ecloPPJNoo8_OFGqBfy" for #P"build:lsp;defstruct.o.NEWEST" ;;; Emitting code for STRUCTURE-TYPE-ERROR. ;;; Emitting code for MAKE-ACCESS-FUNCTION. ;;; Note: Replacing variable G13512 by its value ;;; Note: Replacing variable G13513 by its value ;;; Emitting code for #:G13515. ;;; Emitting code for #:G13517. ;;; Emitting code for PROCESS-BOA-LAMBDA-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13525 by its value ;;; Note: Replacing variable G13529 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13536 by its value ;;; Emitting code for MAKE-CONSTRUCTOR. ;;; Note: Eliminating unreachable code ;;; Note: Emitting linking call for CLOSEST-SEQUENCE-TYPE ;;; Emitting code for MAKE-PREDICATE. ;;; Emitting code for #:G13554. ;;; Emitting code for #:G13555. ;;; Emitting code for #:G13556. ;;; Emitting code for #:G13557. ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-SLOT-DESCRIPTION. ;;; Note: Eliminating unreachable code ;;; Emitting code for OVERWRITE-SLOT-DESCRIPTIONS. ;;; Emitting code for DEFINE-STRUCTURE. ;;; Note: Emitting linking call for CREATE-TYPE-NAME ;;; Note: Replacing variable G13572 by its value ;;; Note: Replacing variable SD by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DEFSTRUCT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13599 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13604 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defstruct.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defstruct.o" ;;; Finished compiling src:lsp;defstruct.lsp. ;;; Compiling src:lsp;iolib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMACRO WITH-OPEN-STREAM ...). ;;; Compiling (DEFMACRO WITH-INPUT-FROM-STRING ...). ;;; Compiling (DEFMACRO WITH-OUTPUT-TO-STRING ...). ;;; Compiling (DEFUN READ-FROM-STRING ...). ;;; Compiling (DEFUN WRITE-TO-STRING ...). ;;; Compiling (DEFUN PRIN1-TO-STRING ...). ;;; Compiling (DEFUN PRINC-TO-STRING ...). ;;; Compiling (DEFMACRO WITH-OPEN-FILE ...). ;;; Compiling (DEFUN Y-OR-N-P ...). ;;; Compiling (DEFUN YES-OR-NO-P ...). ;;; Compiling (DEFUN SHARP-A-READER ...). ;;; Note: in file src:lsp;iolib.lsp, position 11, and form ;;; (FSET 'SHARP-A-READER #'(LAMBDA-BLOCK SHARP-A-READER # ...)) ;;; Replacing variable ELT-TYPE by its value # ;;; Note: in file src:lsp;iolib.lsp, position 11, and form ;;; (FSET 'SHARP-A-READER #'(LAMBDA-BLOCK SHARP-A-READER # ...)) ;;; Replacing variable DIMS by its value # ;;; Note: in file src:lsp;iolib.lsp, position 11, and form ;;; (FSET 'SHARP-A-READER #'(LAMBDA-BLOCK SHARP-A-READER # ...)) ;;; Replacing variable INITIAL-CONTENTS by its value # ;;; Compiling (DEFUN SHARP-S-READER ...). ;;; Warning: in file src:lsp;iolib.lsp, position 14, and form ;;; (FSET 'SHARP-S-READER #'(LAMBDA-BLOCK SHARP-S-READER # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;iolib.lsp, position 14, and form ;;; (FSET 'SHARP-S-READER #'(LAMBDA-BLOCK SHARP-S-READER # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;iolib.lsp, position 14, and form ;;; (FSET 'SHARP-S-READER #'(LAMBDA-BLOCK SHARP-S-READER # ...)) ;;; Unknown type (VALUES &REST T) ;;; Compiling (DEFVAR *DRIBBLE-STREAM* ...). ;;; Compiling (DEFVAR *DRIBBLE-IO* ...). ;;; Compiling (DEFVAR *DRIBBLE-NAMESTRING* ...). ;;; Compiling (DEFVAR *DRIBBLE-SAVED-TERMINAL-IO* ...). ;;; Compiling (DEFUN DRIBBLE ...). ;;; Compiling (DEFMACRO WITH-STANDARD-IO-SYNTAX ...). ;;; Note: in file src:lsp;iolib.lsp, position 22, and form ;;; (FSET 'WITH-STANDARD-IO-SYNTAX #'(LAMBDA-BLOCK WITH-STANDARD-IO-SYNTAX # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFUN PRINT-UNREADABLE-OBJECT-FUNCTION ...). ;;; Compiling (DEFMACRO PRINT-UNREADABLE-OBJECT ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclA5wIpBo8_HCGqBfy" for #P"build:lsp;iolib.o.NEWEST" ;;; Emitting code for WITH-OPEN-STREAM. ;;; Emitting code for WITH-INPUT-FROM-STRING. ;;; Note: Emitting linking call for SEARCH-KEYWORD ;;; Emitting code for WITH-OUTPUT-TO-STRING. ;;; Emitting code for READ-FROM-STRING. ;;; Emitting code for WRITE-TO-STRING. ;;; Emitting code for PRIN1-TO-STRING. ;;; Emitting code for PRINC-TO-STRING. ;;; Emitting code for WITH-OPEN-FILE. ;;; Emitting code for Y-OR-N-P. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for YES-OR-NO-P. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SHARP-A-READER. ;;; Note: Eliminating unreachable code ;;; Emitting code for SHARP-S-READER. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DRIBBLE. ;;; Note: Emitting linking call for WARN ;;; Emitting code for WITH-STANDARD-IO-SYNTAX. ;;; Emitting code for PRINT-UNREADABLE-OBJECT-FUNCTION. ;;; Emitting code for PRINT-UNREADABLE-OBJECT. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/iolib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/iolib.o" ;;; Finished compiling src:lsp;iolib.lsp. ;;; Compiling src:lsp;listlib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN UNION ...). ;;; Compiling (DEFUN NUNION ...). ;;; Compiling (DEFUN INTERSECTION ...). ;;; Compiling (DEFUN NINTERSECTION ...). ;;; Compiling (DEFUN SET-DIFFERENCE ...). ;;; Compiling (DEFUN NSET-DIFFERENCE ...). ;;; Compiling (DEFUN SWAP-ARGS ...). ;;; Compiling (DEFUN SET-EXCLUSIVE-OR ...). ;;; Compiling (DEFUN NSET-EXCLUSIVE-OR ...). ;;; Compiling (DEFUN SUBSETP ...). ;;; Compiling (DEFUN RASSOC-IF ...). ;;; Compiling (DEFUN RASSOC-IF-NOT ...). ;;; Compiling (DEFUN ASSOC-IF ...). ;;; Compiling (DEFUN ASSOC-IF-NOT ...). ;;; Compiling (DEFUN MEMBER-IF ...). ;;; Compiling (DEFUN MEMBER-IF-NOT ...). ;;; Compiling (DEFUN SUBST-IF ...). ;;; Compiling (DEFUN SUBST-IF-NOT ...). ;;; Compiling (DEFUN NSUBST-IF ...). ;;; Compiling (DEFUN NSUBST-IF-NOT ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclzLwdRYm8_1bGqBfy" for #P"build:lsp;listlib.o.NEWEST" ;;; Emitting code for UNION. ;;; Note: Eliminating unreachable code ;;; Emitting code for NUNION. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for INTERSECTION. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for NINTERSECTION. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for SET-DIFFERENCE. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for NSET-DIFFERENCE. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for SWAP-ARGS. ;;; Emitting code for #:G13679. ;;; Emitting code for SET-EXCLUSIVE-OR. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Emitting code for NSET-EXCLUSIVE-OR. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Emitting code for SUBSETP. ;;; Note: Reusing keywords lists for (TEST TEST-NOT KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for RASSOC-IF. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for RASSOC-IF-NOT. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for ASSOC-IF. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for ASSOC-IF-NOT. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for MEMBER-IF. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for MEMBER-IF-NOT. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for SUBST-IF. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for SUBST-IF-NOT. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for NSUBST-IF. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for NSUBST-IF-NOT. ;;; Note: Reusing keywords lists for (KEY) ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/listlib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/listlib.o" ;;; Finished compiling src:lsp;listlib.lsp. ;;; Compiling src:lsp;mislib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...). ;;; Compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...). ;;; Note: in file src:lsp;mislib.lsp, position 3, and form ;;; (FSET 'LOAD-LOGICAL-PATHNAME-TRANSLATIONS #'(LAMBDA-BLOCK LOAD-LOGICAL-PATHNAME-TRANSLATIONS # ...)) ;;; In function LOAD-LOGICAL-PATHNAME-TRANSLATIONS, checking types of arguments HOST. ;;; Warning: in file src:lsp;mislib.lsp, position 3, and form ;;; (FSET 'LOAD-LOGICAL-PATHNAME-TRANSLATIONS #'(LAMBDA-BLOCK LOAD-LOGICAL-PATHNAME-TRANSLATIONS # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Note: in file src:lsp;mislib.lsp, position 3, and form ;;; (FSET 'LOAD-LOGICAL-PATHNAME-TRANSLATIONS #'(LAMBDA-BLOCK LOAD-LOGICAL-PATHNAME-TRANSLATIONS # ...)) ;;; Removing unused variable *AUTOLOAD-TRANSLATIONS* ;;; Compiling (DEFUN DO-TIME ...). ;;; Compiling (DEFMACRO TIME ...). ;;; Compiling (DEFUN LEAP-YEAR-P ...). ;;; Compiling (DEFUN NUMBER-OF-DAYS-FROM-1900 ...). ;;; Compiling (DEFUN GET-LOCAL-TIME-ZONE ...). ;;; Compiling (DEFUN RECODE-UNIVERSAL-TIME ...). ;;; Compiling (DEFUN DECODE-UNIVERSAL-TIME ...). ;;; Compiling (DEFUN ENCODE-UNIVERSAL-TIME ...). ;;; Compiling (DEFUN DAYLIGHT-SAVING-TIME-P ...). ;;; Compiling (DEFUN GET-DECODED-TIME ...). ;;; Compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...). ;;; Compiling (DEFMACRO WITH-HASH-TABLE-ITERATOR ...). ;;; Compiling (DEFUN SHARP-!-READER ...). ;;; Warning: in file src:lsp;mislib.lsp, position 18, and form ;;; (FSET 'SHARP-!-READER #'(LAMBDA-BLOCK SHARP-!-READER # ...)) ;;; The variable ARG is not used. ;;; Warning: in file src:lsp;mislib.lsp, position 18, and form ;;; (FSET 'SHARP-!-READER #'(LAMBDA-BLOCK SHARP-!-READER # ...)) ;;; The variable SUBCHAR is not used. ;;; Compiling (DEFUN SIMPLE-PROGRAM-ERROR ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclOHjkKdo8_MjGqBfy" for #P"build:lsp;mislib.o.NEWEST" ;;; Emitting code for LOGICAL-PATHNAME-TRANSLATIONS. ;;; Emitting code for LOAD-LOGICAL-PATHNAME-TRANSLATIONS. ;;; Note: Replacing variable G13688 by its value ;;; Emitting code for DO-TIME. ;;; Emitting code for TIME. ;;; Emitting code for LEAP-YEAR-P. ;;; Emitting code for NUMBER-OF-DAYS-FROM-1900. ;;; Emitting code for GET-LOCAL-TIME-ZONE. ;;; Emitting code for RECODE-UNIVERSAL-TIME. ;;; Emitting code for DECODE-UNIVERSAL-TIME. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13708 by its value ;;; Note: Replacing variable G13709 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for ENCODE-UNIVERSAL-TIME. ;;; Emitting code for DAYLIGHT-SAVING-TIME-P. ;;; Note: Replacing variable UTC-1-1-1970 by its value ;;; Emitting code for GET-DECODED-TIME. ;;; Emitting code for ENSURE-DIRECTORIES-EXIST. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13724 by its value ;;; Emitting code for WITH-HASH-TABLE-ITERATOR. ;;; Emitting code for SHARP-!-READER. ;;; Emitting code for SIMPLE-PROGRAM-ERROR. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/mislib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/mislib.o" ;;; Finished compiling src:lsp;mislib.lsp. ;;; Compiling src:lsp;numlib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN ISQRT ...). ;;; Compiling (DEFUN PHASE ...). ;;; Compiling (DEFUN SIGNUM ...). ;;; Compiling (DEFUN CIS ...). ;;; Compiling (DEFUN ASIN ...). ;;; Compiling (DEFUN COMPLEX-ASIN ...). ;;; Note: in file src:lsp;numlib.lsp, position 10, and form ;;; (FSET 'COMPLEX-ASIN #'(LAMBDA-BLOCK COMPLEX-ASIN # ...)) ;;; In function COMPLEX-ASIN, checking types of arguments Z. ;;; Compiling (DEFUN ACOS ...). ;;; Compiling (DEFUN COMPLEX-ACOS ...). ;;; Note: in file src:lsp;numlib.lsp, position 12, and form ;;; (FSET 'COMPLEX-ACOS #'(LAMBDA-BLOCK COMPLEX-ACOS # ...)) ;;; In function COMPLEX-ACOS, checking types of arguments Z. ;;; Compiling (DEFUN ASINH ...). ;;; Compiling (DEFUN ACOSH ...). ;;; Compiling (DEFUN COMPLEX-ACOSH ...). ;;; Note: in file src:lsp;numlib.lsp, position 15, and form ;;; (FSET 'COMPLEX-ACOSH #'(LAMBDA-BLOCK COMPLEX-ACOSH # ...)) ;;; In function COMPLEX-ACOSH, checking types of arguments Z. ;;; Compiling (DEFUN ATANH ...). ;;; Compiling (DEFUN COMPLEX-ATANH ...). ;;; Note: in file src:lsp;numlib.lsp, position 17, and form ;;; (FSET 'COMPLEX-ATANH #'(LAMBDA-BLOCK COMPLEX-ATANH # ...)) ;;; In function COMPLEX-ATANH, checking types of arguments Z. ;;; Compiling (DEFUN FFLOOR ...). ;;; Compiling (DEFUN FCEILING ...). ;;; Compiling (DEFUN FTRUNCATE ...). ;;; Compiling (DEFUN FROUND ...). ;;; Compiling (DEFUN LOGTEST ...). ;;; Compiling (DEFUN BYTE ...). ;;; Compiling (DEFUN BYTE-SIZE ...). ;;; Compiling (DEFUN BYTE-POSITION ...). ;;; Compiling (DEFUN LDB ...). ;;; Compiling (DEFUN LDB-TEST ...). ;;; Compiling (DEFUN MASK-FIELD ...). ;;; Compiling (DEFUN DPB ...). ;;; Compiling (DEFUN DEPOSIT-FIELD ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecloLsmlQo8_1sGqBfy" for #P"build:lsp;numlib.o.NEWEST" ;;; Emitting code for ISQRT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PHASE. ;;; Emitting code for SIGNUM. ;;; Emitting code for CIS. ;;; Emitting code for ASIN. ;;; Emitting code for COMPLEX-ASIN. ;;; Emitting code for ACOS. ;;; Emitting code for COMPLEX-ACOS. ;;; Emitting code for ASINH. ;;; Emitting code for ACOSH. ;;; Emitting code for COMPLEX-ACOSH. ;;; Emitting code for ATANH. ;;; Emitting code for COMPLEX-ATANH. ;;; Emitting code for FFLOOR. ;;; Emitting code for FCEILING. ;;; Emitting code for FTRUNCATE. ;;; Emitting code for FROUND. ;;; Emitting code for LOGTEST. ;;; Emitting code for BYTE. ;;; Emitting code for BYTE-SIZE. ;;; Emitting code for BYTE-POSITION. ;;; Emitting code for LDB. ;;; Emitting code for LDB-TEST. ;;; Emitting code for MASK-FIELD. ;;; Emitting code for DPB. ;;; Emitting code for DEPOSIT-FIELD. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/numlib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/numlib.o" ;;; Finished compiling src:lsp;numlib.lsp. ;;; Compiling src:lsp;packlib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN FIND-ALL-SYMBOLS ...). ;;; Compiling (DEFUN PACKAGES-ITERATOR ...). ;;; Warning: in file src:lsp;packlib.lsp, position 2, and form ;;; (FSET 'PACKAGES-ITERATOR #'(LAMBDA-BLOCK PACKAGES-ITERATOR # ...)) ;;; The variable KEY is not used. ;;; Compiling (DEFMACRO WITH-PACKAGE-ITERATOR ...). ;;; Compiling (DEFUN EXPAND-DO-SYMBOLS ...). ;;; Compiling (DEFMACRO DO-SYMBOLS ...). ;;; Compiling (DEFMACRO DO-EXTERNAL-SYMBOLS ...). ;;; Compiling (DEFMACRO DO-ALL-SYMBOLS ...). ;;; Compiling (DEFUN PRINT-SYMBOL-APROPOS ...). ;;; Compiling (DEFUN APROPOS ...). ;;; Compiling (DEFUN APROPOS-LIST ...). ;;; Compiling (DEFUN FIND-RELATIVE-PACKAGE ...). ;;; Compiling (DEFUN PACKAGE-PARENT ...). ;;; Compiling (DEFUN PACKAGE-CHILDREN ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl4JNMqQo8_AzGqBfy" for #P"build:lsp;packlib.o.NEWEST" ;;; Emitting code for FIND-ALL-SYMBOLS. ;;; Note: Replacing variable G13738 by its value ;;; Note: Replacing variable G13740 by its value ;;; Note: Replacing variable P by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PACKAGES-ITERATOR. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G13754. ;;; Emitting code for ITERATE. ;;; Note: Eliminating unreachable code ;;; Emitting code for WITH-PACKAGE-ITERATOR. ;;; Emitting code for EXPAND-DO-SYMBOLS. ;;; Emitting code for DO-SYMBOLS. ;;; Emitting code for DO-EXTERNAL-SYMBOLS. ;;; Emitting code for DO-ALL-SYMBOLS. ;;; Emitting code for PRINT-SYMBOL-APROPOS. ;;; Emitting code for APROPOS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for APROPOS-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-RELATIVE-PACKAGE. ;;; Note: Replacing variable N-DOTS by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-NON-DOT. ;;; Note: Eliminating unreachable code ;;; Emitting code for RELATIVE-TO. ;;; Emitting code for PACKAGE-PARENT. ;;; Emitting code for FIND-LAST-DOT. ;;; Note: Eliminating unreachable code ;;; Emitting code for PACKAGE-CHILDREN. ;;; Note: Eliminating unreachable code ;;; Emitting code for STRING-PREFIX-P. ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/packlib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/packlib.o" ;;; Finished compiling src:lsp;packlib.lsp. ;;; Compiling src:lsp;seqlib.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN SEQTYPE ...). ;;; Compiling (DEFUN CALL-TEST ...). ;;; Compiling (DEFUN TEST-ERROR ...). ;;; Compiling (DEFUN SEQUENCE-LIMITS ...). ;;; Compiling (DEFUN REDUCE ...). ;;; Compiling (DEFUN FILL ...). ;;; Compiling (DEFUN REPLACE ...). ;;; Compiling (DEFUN REMOVE ...). ;;; Compiling (DEFUN REMOVE-IF ...). ;;; Compiling (DEFUN REMOVE-IF-NOT ...). ;;; Compiling (DEFUN DELETE ...). ;;; Compiling (DEFUN DELETE-IF ...). ;;; Compiling (DEFUN DELETE-IF-NOT ...). ;;; Compiling (DEFUN COUNT ...). ;;; Compiling (DEFUN COUNT-IF ...). ;;; Compiling (DEFUN COUNT-IF-NOT ...). ;;; Compiling (DEFUN INTERNAL-COUNT ...). ;;; Compiling (DEFUN SUBSTITUTE ...). ;;; Compiling (DEFUN SUBSTITUTE-IF ...). ;;; Compiling (DEFUN SUBSTITUTE-IF-NOT ...). ;;; Compiling (DEFUN NSUBSTITUTE ...). ;;; Compiling (DEFUN NSUBSTITUTE-IF ...). ;;; Compiling (DEFUN NSUBSTITUTE-IF-NOT ...). ;;; Compiling (DEFUN FIND ...). ;;; Compiling (DEFUN FIND-IF ...). ;;; Compiling (DEFUN FIND-IF-NOT ...). ;;; Compiling (DEFUN POSITION ...). ;;; Compiling (DEFUN POSITION-IF ...). ;;; Compiling (DEFUN POSITION-IF-NOT ...). ;;; Compiling (DEFUN REMOVE-DUPLICATES ...). ;;; Warning: in file src:lsp;seqlib.lsp, position 18, and form ;;; (FSET 'REMOVE-DUPLICATES #'(LAMBDA-BLOCK REMOVE-DUPLICATES # ...)) ;;; Unknown type (VALUES &REST T) ;;; Compiling (DEFUN DELETE-DUPLICATES ...). ;;; Compiling (DEFUN MISMATCH ...). ;;; Compiling (DEFUN SEARCH ...). ;;; Compiling (DEFUN SORT ...). ;;; Compiling (DEFUN LIST-MERGE-SORT ...). ;;; Compiling (DEFUN QUICK-SORT ...). ;;; Note: in file src:lsp;seqlib.lsp, position 24, and form ;;; (FSET 'QUICK-SORT #'(LAMBDA-BLOCK QUICK-SORT # ...)) ;;; In function QUICK-SORT, checking types of arguments KEY PRED END START SEQ. ;;; Note: in file src:lsp;seqlib.lsp, position 24, and form ;;; (FSET 'QUICK-SORT #'(LAMBDA-BLOCK QUICK-SORT # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE END FIXNUM) ;;; Note: in file src:lsp;seqlib.lsp, position 24, and form ;;; (FSET 'QUICK-SORT #'(LAMBDA-BLOCK QUICK-SORT # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE START FIXNUM) ;;; Compiling (DEFUN STABLE-SORT ...). ;;; Compiling (DEFUN MERGE ...). ;;; Compiling (DEFUN COMPLEMENT ...). ;;; Compiling (DEFUN CONSTANTLY ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecliu2F9go8_aBHqBfy" for #P"build:lsp;seqlib.o.NEWEST" ;;; Emitting code for SEQTYPE. ;;; Emitting code for CALL-TEST. ;;; Emitting code for TEST-ERROR. ;;; Emitting code for SEQUENCE-LIMITS. ;;; Emitting code for REDUCE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FILL. ;;; Note: Reusing keywords lists for (START END) ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13844 by its value ;;; Note: Replacing variable G13846 by its value ;;; Emitting code for REPLACE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13851 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13858 by its value ;;; Emitting code for REMOVE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for REMOVE-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for REMOVE-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for DELETE. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY COUNT) ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13887 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13908 by its value ;;; Emitting code for DELETE-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for DELETE-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for COUNT. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for COUNT-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY) ;;; Emitting code for COUNT-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY) ;;; Emitting code for INTERNAL-COUNT. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY COUNT) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SUBSTITUTE. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY COUNT) ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13939 by its value ;;; Note: Replacing variable G13941 by its value ;;; Note: Replacing variable G13942 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13949 by its value ;;; Note: Replacing variable G13951 by its value ;;; Note: Replacing variable G13952 by its value ;;; Emitting code for SUBSTITUTE-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for SUBSTITUTE-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for NSUBSTITUTE. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY COUNT) ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13961 by its value ;;; Note: Replacing variable G13963 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G13968 by its value ;;; Note: Replacing variable G13970 by its value ;;; Emitting code for NSUBSTITUTE-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for NSUBSTITUTE-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY COUNT) ;;; Emitting code for FIND. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY) ;;; Emitting code for FIND-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY) ;;; Emitting code for POSITION. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for POSITION-IF. ;;; Note: Reusing keywords lists for (FROM-END START END KEY) ;;; Emitting code for POSITION-IF-NOT. ;;; Note: Reusing keywords lists for (FROM-END START END KEY) ;;; Emitting code for REMOVE-DUPLICATES. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY) ;;; Note: Eliminating unreachable code ;;; Emitting code for DELETE-DUPLICATES. ;;; Note: Reusing keywords lists for (TEST TEST-NOT FROM-END START END KEY) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14010 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14026 by its value ;;; Emitting code for MISMATCH. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SEARCH. ;;; Note: Reusing keywords lists for (FROM-END TEST TEST-NOT KEY START1 START2 END1 END2) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SORT. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for LIST-MERGE-SORT. ;;; Emitting code for SORT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for QUICK-SORT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14071 by its value ;;; Note: Replacing variable G14074 by its value ;;; Note: Replacing variable G14076 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14077 by its value ;;; Note: Replacing variable G14080 by its value ;;; Note: Replacing variable G14082 by its value ;;; Note: Tail-recursive call of QUICK-SORT was replaced by iteration. ;;; Emitting code for STABLE-SORT. ;;; Note: Reusing keywords lists for (KEY) ;;; Emitting code for MERGE. ;;; Note: Reusing keywords lists for (KEY) ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14087 by its value ;;; Note: Replacing variable G14092 by its value ;;; Note: Replacing variable G14097 by its value ;;; Note: Replacing variable G14102 by its value ;;; Note: Replacing variable G14107 by its value ;;; Emitting code for COMPLEMENT. ;;; Emitting code for #:G14112. ;;; Emitting code for CONSTANTLY. ;;; Emitting code for #:G14113. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/seqlib.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/seqlib.o" ;;; Finished compiling src:lsp;seqlib.lsp. ;;; Compiling src:lsp;trace.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *TRACE-LEVEL* ...). ;;; Compiling (DEFVAR *TRACE-LIST* ...). ;;; Compiling (DEFVAR *TRACE-MAX-INDENT* ...). ;;; Compiling (DEFMACRO TRACE ...). ;;; Note: in file src:lsp;trace.lsp, position 5, and form ;;; (FSET 'TRACE #'(LAMBDA-BLOCK TRACE # ...) ...) ;;; Replacing variable R by its value # ;;; Compiling (DEFUN TRACE* ...). ;;; Compiling (DEFMACRO UNTRACE ...). ;;; Note: in file src:lsp;trace.lsp, position 7, and form ;;; (FSET 'UNTRACE #'(LAMBDA-BLOCK UNTRACE # ...) ...) ;;; Replacing variable R by its value # ;;; Compiling (DEFUN UNTRACE* ...). ;;; Compiling (DEFVAR *INSIDE-TRACE* ...). ;;; Compiling (DEFUN TRACE-ONE ...). ;;; Warning: in file src:lsp;trace.lsp, position 10, and form ;;; (FSET 'TRACE-ONE #'(LAMBDA-BLOCK TRACE-ONE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN TRACE-PRINT ...). ;;; Compiling (DEFUN UNTRACE-ONE ...). ;;; Warning: in file src:lsp;trace.lsp, position 12, and form ;;; (FSET 'UNTRACE-ONE #'(LAMBDA-BLOCK UNTRACE-ONE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;trace.lsp, position 12, and form ;;; (FSET 'UNTRACE-ONE #'(LAMBDA-BLOCK UNTRACE-ONE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;trace.lsp, position 12, and form ;;; (FSET 'UNTRACE-ONE #'(LAMBDA-BLOCK UNTRACE-ONE # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN TRACING-BODY ...). ;;; Warning: in file src:lsp;trace.lsp, position 13, and form ;;; (FSET 'TRACING-BODY #'(LAMBDA-BLOCK TRACING-BODY # ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:lsp;trace.lsp, position 13, and form ;;; (FSET 'TRACING-BODY #'(LAMBDA-BLOCK TRACING-BODY # ...)) ;;; The variable CODE is not used. ;;; Compiling (DEFVAR *STEP-LEVEL* ...). ;;; Compiling (DEFVAR *STEP-ACTION* ...). ;;; Compiling (DEFVAR *STEP-FORM* ...). ;;; Compiling (DEFVAR *STEP-TAG* ...). ;;; Compiling (DEFVAR *STEP-FUNCTIONS* ...). ;;; Compiling (DEFMACRO STEP ...). ;;; Compiling (DEFUN STEP* ...). ;;; Compiling (DEFUN STEPPABLE-FUNCTION ...). ;;; Warning: in file src:lsp;trace.lsp, position 22, and form ;;; (FSET 'STEPPABLE-FUNCTION #'(LAMBDA-BLOCK STEPPABLE-FUNCTION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN STEPPER ...). ;;; Compiling (DEFUN STEP-NEXT ...). ;;; Compiling (DEFUN STEP-SKIP ...). ;;; Warning: in file src:lsp;trace.lsp, position 25, and form ;;; (FSET 'STEP-SKIP #'(LAMBDA-BLOCK STEP-SKIP # ...)) ;;; The variable WHEN is not used. ;;; Compiling (DEFUN STEP-PRINT ...). ;;; Compiling (DEFUN STEP-QUIT ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclq9NY6Pn8_fcHqBfy" for #P"build:lsp;trace.o.NEWEST" ;;; Emitting code for TRACE. ;;; Emitting code for TRACE*. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for UNTRACE. ;;; Emitting code for UNTRACE*. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for TRACE-ONE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for TRACE-PRINT. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for UNTRACE-ONE. ;;; Emitting code for TRACING-BODY. ;;; Note: Eliminating unreachable code ;;; Emitting code for STEP. ;;; Emitting code for STEP*. ;;; Emitting code for STEPPABLE-FUNCTION. ;;; Note: Replacing variable G14158 by its value ;;; Emitting code for STEPPER. ;;; Note: Emitting linking call for TPL ;;; Emitting code for #:G14161. ;;; Emitting code for STEP-NEXT. ;;; Emitting code for STEP-SKIP. ;;; Emitting code for STEP-PRINT. ;;; Emitting code for STEP-QUIT. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/trace.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/trace.o" ;;; Finished compiling src:lsp;trace.lsp. ;;; Compiling src:lsp;loop2.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMACRO LOOP-COPYLIST* ...). ;;; Compiling (DEFVAR *LOOP-REAL-DATA-TYPE* ...). ;;; Compiling (DEFUN LOOP-OPTIMIZATION-QUANTITIES ...). ;;; Compiling (DEFUN HIDE-VARIABLE-REFERENCES ...). ;;; Compiling (DEFUN HIDE-VARIABLE-REFERENCE ...). ;;; Compiling (DEFMACRO WITH-LOOP-LIST-COLLECTION-HEAD ...). ;;; Compiling (DEFMACRO LOOP-COLLECT-RPLACD ...). ;;; Compiling (DEFMACRO LOOP-COLLECT-ANSWER ...). ;;; Compiling (DEFUN MAKE-LOOP-MINIMAX-INTERNAL ...). ;;; Compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...). ;;; Compiling (DEFUN MAKE-LOOP-MINIMAX ...). ;;; Compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...). ;;; Compiling (DEFMACRO WITH-MINIMAX-VALUE ...). ;;; Compiling (DEFMACRO LOOP-ACCUMULATE-MINIMAX-VALUE ...). ;;; Compiling (DEFUN LOOP-TEQUAL ...). ;;; Compiling (DEFUN LOOP-TASSOC ...). ;;; Compiling (DEFUN LOOP-TMEMBER ...). ;;; Compiling (DEFUN LOOP-LOOKUP-KEYWORD ...). ;;; Compiling (DEFMACRO LOOP-STORE-TABLE-DATA ...). ;;; Compiling (DEFUN MAKE-LOOP-UNIVERSE ...). ;;; Compiling (DEFVAR *LOOP-UNIVERSE*). ;;; Compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...). ;;; Compiling (DEFVAR *LOOP-DESTRUCTURING-HOOKS* ...). ;;; Compiling (DEFUN LOOP-MAKE-PSETQ ...). ;;; Compiling (DEFUN LOOP-MAKE-DESETQ ...). ;;; Compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...). ;;; Compiling (DEFMACRO LOOP-REALLY-DESETQ ...). ;;; Compiling (DEFVAR *LOOP-SOURCE-CODE*). ;;; Compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*). ;;; Compiling (DEFVAR *LOOP-SOURCE-CONTEXT*). ;;; Compiling (DEFVAR *LOOP-NAMES*). ;;; Compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*). ;;; Compiling (DEFVAR *LOOP-NAMED-VARIABLES*). ;;; Compiling (DEFVAR *LOOP-VARIABLES*). ;;; Compiling (DEFVAR *LOOP-DECLARATIONS*). ;;; Compiling (DEFVAR *LOOP-DESETQ-CROCKS*). ;;; Compiling (DEFVAR *LOOP-WRAPPERS*). ;;; Compiling (DEFVAR *LOOP-BIND-STACK*). ;;; Compiling (DEFVAR *LOOP-NODECLARE*). ;;; Compiling (DEFVAR *LOOP-ITERATION-VARIABLES*). ;;; Compiling (DEFVAR *LOOP-PROLOGUE*). ;;; Compiling (DEFVAR *LOOP-BEFORE-LOOP*). ;;; Compiling (DEFVAR *LOOP-BODY*). ;;; Compiling (DEFVAR *LOOP-AFTER-BODY*). ;;; Compiling (DEFVAR *LOOP-EMITTED-BODY*). ;;; Compiling (DEFVAR *LOOP-EPILOGUE*). ;;; Compiling (DEFVAR *LOOP-AFTER-EPILOGUE*). ;;; Compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*). ;;; Compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*). ;;; Compiling (DEFVAR *LOOP-WHEN-IT-VARIABLE*). ;;; Compiling (DEFVAR *LOOP-NEVER-STEPPED-VARIABLE*). ;;; Compiling (DEFVAR *LOOP-COLLECTION-CRUFT*). ;;; Compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...). ;;; Compiling (DEFUN LOOP-CONSTANTP ...). ;;; Compiling (DEFVAR *LOOP-DUPLICATE-CODE* ...). ;;; Compiling (DEFVAR *LOOP-ITERATION-FLAG-VARIABLE* ...). ;;; Compiling (DEFUN LOOP-CODE-DUPLICATION-THRESHOLD ...). ;;; Compiling (DEFMACRO LOOP-BODY ...). ;;; Compiling (DEFUN DUPLICATABLE-CODE-P ...). ;;; Compiling (DEFVAR *SPECIAL-CODE-SIZES* ...). ;;; Compiling (DEFVAR *ESTIMATE-CODE-SIZE-PUNT* ...). ;;; Compiling (DEFUN DESTRUCTURING-SIZE ...). ;;; Compiling (DEFUN ESTIMATE-CODE-SIZE ...). ;;; Compiling (DEFUN ESTIMATE-CODE-SIZE-1 ...). ;;; Warning: in file src:lsp;loop2.lsp, position 65, and form ;;; (FSET 'ESTIMATE-CODE-SIZE-1 #'(LAMBDA-BLOCK ESTIMATE-CODE-SIZE-1 # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN LOOP-CONTEXT ...). ;;; Compiling (DEFUN LOOP-ERROR ...). ;;; Compiling (DEFUN LOOP-WARN ...). ;;; Compiling (DEFUN LOOP-CHECK-DATA-TYPE ...). ;;; Compiling (DEFMACRO LOOP-FINISH ...). ;;; Compiling (DEFUN SUBST-GENSYMS-FOR-NIL ...). ;;; Compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...). ;;; Compiling (DEFUN LOOP-TRANSLATE ...). ;;; Compiling (DEFUN LOOP-ITERATION-DRIVER ...). ;;; Compiling (DEFUN LOOP-POP-SOURCE ...). ;;; Compiling (DEFUN LOOP-GET-COMPOUND-FORM ...). ;;; Compiling (DEFUN LOOP-GET-PROGN ...). ;;; Compiling (DEFUN LOOP-GET-FORM ...). ;;; Compiling (DEFUN LOOP-CONSTRUCT-RETURN ...). ;;; Compiling (DEFUN LOOP-EMIT-BODY ...). ;;; Compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...). ;;; Compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...). ;;; Compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...). ;;; Compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...). ;;; Compiling (DEFUN LOOP-TYPED-INIT ...). ;;; Compiling (DEFUN LOOP-OPTIONAL-TYPE ...). ;;; Compiling (DEFUN LOOP-BIND-BLOCK ...). ;;; Compiling (DEFUN LOOP-VARIABLE-P ...). ;;; Compiling (DEFUN LOOP-MAKE-VARIABLE ...). ;;; Compiling (DEFUN LOOP-MAKE-ITERATION-VARIABLE ...). ;;; Compiling (DEFUN LOOP-DECLARE-VARIABLE ...). ;;; Note: in file src:lsp;loop2.lsp, position 91, and form ;;; (FSET 'LOOP-DECLARE-VARIABLE #'(LAMBDA-BLOCK LOOP-DECLARE-VARIABLE # ...)) ;;; Replacing variable DTYPE by its value # ;;; Compiling (DEFUN LOOP-MAYBE-BIND-FORM ...). ;;; Compiling (DEFUN LOOP-DO-IF ...). ;;; Compiling (DEFUN LOOP-DO-INITIALLY ...). ;;; Compiling (DEFUN LOOP-DO-FINALLY ...). ;;; Compiling (DEFUN LOOP-DO-DO ...). ;;; Compiling (DEFUN LOOP-DO-NAMED ...). ;;; Compiling (DEFUN LOOP-DO-RETURN ...). ;;; Compiling (DEFUN MAKE-LOOP-COLLECTOR ...). ;;; Compiling (DEFUN LOOP-GET-COLLECTION-INFO ...). ;;; Compiling (DEFUN LOOP-LIST-COLLECTION ...). ;;; Compiling (DEFUN LOOP-SUM-COLLECTION ...). ;;; Compiling (DEFUN LOOP-MAXMIN-COLLECTION ...). ;;; Compiling (DEFUN LOOP-DO-ALWAYS ...). ;;; Compiling (DEFUN LOOP-DO-THEREIS ...). ;;; Compiling (DEFUN LOOP-DO-WHILE ...). ;;; Compiling (DEFUN LOOP-DO-WITH ...). ;;; Compiling (DEFUN LOOP-HACK-ITERATION ...). ;;; Compiling (DEFUN LOOP-DO-FOR ...). ;;; Compiling (DEFUN LOOP-DO-REPEAT ...). ;;; Compiling (DEFUN LOOP-WHEN-IT-VARIABLE ...). ;;; Compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...). ;;; Compiling (DEFUN LOOP-FOR-ACROSS ...). ;;; Compiling (DEFUN LOOP-LIST-STEP ...). ;;; Compiling (DEFUN LOOP-FOR-ON ...). ;;; Compiling (DEFUN LOOP-FOR-IN ...). ;;; Compiling (DEFUN MAKE-LOOP-PATH ...). ;;; Compiling (DEFUN ADD-LOOP-PATH ...). ;;; Compiling (DEFUN LOOP-FOR-BEING ...). ;;; Compiling (DEFUN NAMED-VARIABLE ...). ;;; Compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...). ;;; Note: in file src:lsp;loop2.lsp, position 121, and form ;;; (FSET 'LOOP-COLLECT-PREPOSITIONAL-PHRASES #'(LAMBDA-BLOCK LOOP-COLLECT-PREPOSITIONAL-PHRASES # ...)) ;;; Replacing variable X by its value # ;;; Compiling (DEFUN LOOP-SEQUENCER ...). ;;; Compiling (DEFUN LOOP-FOR-ARITHMETIC ...). ;;; Compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...). ;;; Compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...). ;;; Compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...). ;;; Compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...). ;;; Compiling (DEFUN LOOP-STANDARD-EXPANSION ...). ;;; Compiling (DEFMACRO LOOP ...). ;;; Note: in file src:lsp;loop2.lsp, position 129, and form ;;; (FSET 'LOOP #'(LAMBDA-BLOCK LOOP # ...) ...) ;;; Replacing variable KEYWORDS-AND-FORMS by its value # ;;; End of Pass 1. ;;; Note: Creating tag: "_eclReSsc7n8_wxHqBfy" for #P"build:lsp;loop2.o.NEWEST" ;;; Emitting code for LOOP-COPYLIST*. ;;; Emitting code for LOOP-OPTIMIZATION-QUANTITIES. ;;; Emitting code for HIDE-VARIABLE-REFERENCES. ;;; Emitting code for HIDE-VARIABLE-REFERENCE. ;;; Emitting code for WITH-LOOP-LIST-COLLECTION-HEAD. ;;; Emitting code for LOOP-COLLECT-RPLACD. ;;; Emitting code for CDR-WRAP. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-COLLECT-ANSWER. ;;; Emitting code for MAKE-LOOP-MINIMAX-INTERNAL. ;;; Emitting code for MAKE-LOOP-MINIMAX. ;;; Emitting code for LOOP-NOTE-MINIMAX-OPERATION. ;;; Note: Replacing variable G14184 by its value ;;; Note: Replacing variable G14182 by its value ;;; Note: Replacing variable G14185 by its value ;;; Emitting code for WITH-MINIMAX-VALUE. ;;; Emitting code for LOOP-ACCUMULATE-MINIMAX-VALUE. ;;; Emitting code for LOOP-TEQUAL. ;;; Emitting code for LOOP-TASSOC. ;;; Emitting code for LOOP-TMEMBER. ;;; Emitting code for LOOP-LOOKUP-KEYWORD. ;;; Emitting code for LOOP-STORE-TABLE-DATA. ;;; Emitting code for MAKE-LOOP-UNIVERSE. ;;; Emitting code for MAKE-STANDARD-LOOP-UNIVERSE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14216 by its value ;;; Note: Replacing variable G14217 by its value ;;; Note: Replacing variable G14218 by its value ;;; Note: Replacing variable G14220 by its value ;;; Emitting code for MAKETABLE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14208 by its value ;;; Emitting code for LOOP-MAKE-PSETQ. ;;; Emitting code for LOOP-MAKE-DESETQ. ;;; Emitting code for LOOP-REALLY-DESETQ. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-DESETQ-INTERNAL. ;;; Note: Replacing variable G14251 by its value ;;; Note: Replacing variable G14253 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable TEMP-P by its value ;;; Emitting code for FIND-NON-NULL. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-CONSTANT-FOLD-IF-POSSIBLE. ;;; Emitting code for LOOP-CONSTANTP. ;;; Emitting code for LOOP-CODE-DUPLICATION-THRESHOLD. ;;; Emitting code for LOOP-BODY. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14310 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKEBODY. ;;; Emitting code for PIFY. ;;; Emitting code for PSIMP. ;;; Note: Eliminating unreachable code ;;; Emitting code for DUPLICATABLE-CODE-P. ;;; Emitting code for DESTRUCTURING-SIZE. ;;; Note: Eliminating unreachable code ;;; Emitting code for ESTIMATE-CODE-SIZE. ;;; Emitting code for ESTIMATE-CODE-SIZE-1. ;;; Note: Tail-recursive call of ESTIMATE-CODE-SIZE-1 was replaced by iteration. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Tail-recursive call of ESTIMATE-CODE-SIZE-1 was replaced by iteration. ;;; Emitting code for LIST-SIZE. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-CONTEXT. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-ERROR. ;;; Emitting code for LOOP-WARN. ;;; Note: Emitting linking call for WARN ;;; Emitting code for LOOP-CHECK-DATA-TYPE. ;;; Emitting code for LOOP-FINISH. ;;; Emitting code for SUBST-GENSYMS-FOR-NIL. ;;; Emitting code for LOOP-BUILD-DESTRUCTURING-BINDINGS. ;;; Emitting code for LOOP-TRANSLATE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-ITERATION-DRIVER. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-POP-SOURCE. ;;; Emitting code for LOOP-GET-COMPOUND-FORM. ;;; Emitting code for LOOP-GET-PROGN. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-GET-FORM. ;;; Emitting code for LOOP-CONSTRUCT-RETURN. ;;; Emitting code for LOOP-EMIT-BODY. ;;; Emitting code for LOOP-EMIT-FINAL-VALUE. ;;; Emitting code for LOOP-DISALLOW-CONDITIONAL. ;;; Emitting code for LOOP-DISALLOW-ANONYMOUS-COLLECTORS. ;;; Emitting code for LOOP-DISALLOW-AGGREGATE-BOOLEANS. ;;; Emitting code for LOOP-TYPED-INIT. ;;; Emitting code for LOOP-OPTIONAL-TYPE. ;;; Emitting code for REPLICATE. ;;; Emitting code for TRANSLATE. ;;; Emitting code for LOOP-BIND-BLOCK. ;;; Emitting code for LOOP-VARIABLE-P. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-MAKE-VARIABLE. ;;; Emitting code for LOOP-MAKE-ITERATION-VARIABLE. ;;; Emitting code for LOOP-DECLARE-VARIABLE. ;;; Note: Tail-recursive call of LOOP-DECLARE-VARIABLE was replaced by iteration. ;;; Note: Tail-recursive call of LOOP-DECLARE-VARIABLE was replaced by iteration. ;;; Emitting code for LOOP-MAYBE-BIND-FORM. ;;; Emitting code for LOOP-DO-IF. ;;; Emitting code for GET-CLAUSE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-DO-INITIALLY. ;;; Emitting code for LOOP-DO-FINALLY. ;;; Emitting code for LOOP-DO-DO. ;;; Emitting code for LOOP-DO-NAMED. ;;; Emitting code for LOOP-DO-RETURN. ;;; Emitting code for MAKE-LOOP-COLLECTOR. ;;; Emitting code for LOOP-GET-COLLECTION-INFO. ;;; Note: Replacing variable G14428 by its value ;;; Note: Replacing variable G14429 by its value ;;; Note: Replacing variable G14432 by its value ;;; Note: Replacing variable G14430 by its value ;;; Emitting code for LOOP-LIST-COLLECTION. ;;; Note: Replacing variable G14433 by its value ;;; Emitting code for LOOP-SUM-COLLECTION. ;;; Note: Replacing variable G14439 by its value ;;; Emitting code for LOOP-MAXMIN-COLLECTION. ;;; Note: Replacing variable G14442 by its value ;;; Emitting code for LOOP-DO-ALWAYS. ;;; Emitting code for LOOP-DO-THEREIS. ;;; Emitting code for LOOP-DO-WHILE. ;;; Emitting code for LOOP-DO-WITH. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-HACK-ITERATION. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-ENDTEST. ;;; Emitting code for LOOP-DO-FOR. ;;; Emitting code for LOOP-DO-REPEAT. ;;; Emitting code for LOOP-WHEN-IT-VARIABLE. ;;; Emitting code for LOOP-ANSI-FOR-EQUALS. ;;; Emitting code for LOOP-FOR-ACROSS. ;;; Emitting code for LOOP-LIST-STEP. ;;; Emitting code for LOOP-FOR-ON. ;;; Emitting code for LOOP-FOR-IN. ;;; Emitting code for MAKE-LOOP-PATH. ;;; Emitting code for ADD-LOOP-PATH. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14474 by its value ;;; Note: Replacing variable X by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14481 by its value ;;; Note: Replacing variable G14482 by its value ;;; Emitting code for LOOP-FOR-BEING. ;;; Note: Eliminating unreachable code ;;; Emitting code for NAMED-VARIABLE. ;;; Emitting code for LOOP-COLLECT-PREPOSITIONAL-PHRASES. ;;; Note: Replacing variable G14493 by its value ;;; Note: Replacing variable G14495 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for IN-GROUP-P. ;;; Emitting code for LOOP-SEQUENCER. ;;; Note: Eliminating unreachable code ;;; Emitting code for LOOP-FOR-ARITHMETIC. ;;; Emitting code for LOOP-HASH-TABLE-ITERATION-PATH. ;;; Emitting code for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH. ;;; Emitting code for MAKE-ANSI-LOOP-UNIVERSE. ;;; Emitting code for LOOP-STANDARD-EXPANSION. ;;; Emitting code for LOOP. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/loop2.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/loop2.o" ;;; Finished compiling src:lsp;loop2.lsp. ;;; Compiling src:lsp;format.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *DIGITS* ...). ;;; Compiling (DEFUN FLONUM-TO-STRING ...). ;;; Compiling (DEFUN FLOAT-STRING ...). ;;; Note: in file src:lsp;format.lsp, position 4, and form ;;; (FSET 'FLOAT-STRING #'(LAMBDA-BLOCK FLOAT-STRING # ...)) ;;; Replacing variable SCALE-FACTOR by its value # ;;; Compiling (DEFUN SCALE-EXPONENT ...). ;;; Compiling (DEFUN MAKE-FORMAT-DIRECTIVE ...). ;;; Compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...). ;;; Compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...). ;;; Compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...). ;;; Compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...). ;;; Compiling (DEFVAR *OUTPUT-LAYOUT-MODE* ...). ;;; Compiling (DEFUN TOKENIZE-CONTROL-STRING ...). ;;; Note: in file src:lsp;format.lsp, position 13, and form ;;; (FSET 'TOKENIZE-CONTROL-STRING #'(LAMBDA-BLOCK TOKENIZE-CONTROL-STRING # ...)) ;;; In function TOKENIZE-CONTROL-STRING, checking types of arguments STRING. ;;; Compiling (DEFUN PARSE-DIRECTIVE ...). ;;; Note: in file src:lsp;format.lsp, position 14, and form ;;; (FSET 'PARSE-DIRECTIVE #'(LAMBDA-BLOCK PARSE-DIRECTIVE # ...)) ;;; In function PARSE-DIRECTIVE, checking types of arguments START STRING. ;;; Compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...). ;;; Compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...). ;;; Compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...). ;;; Compiling (DEFVAR *ONLY-SIMPLE-ARGS*). ;;; Compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...). ;;; Compiling (DEFVAR *SIMPLE-ARGS*). ;;; Compiling (DEFUN FORMATTER-AUX ...). ;;; Compiling (DEFUN INTERPRET-DIRECTIVE-LIST ...). ;;; Compiling (DEFMACRO FORMATTER ...). ;;; Compiling (DEFUN %FORMATTER ...). ;;; Compiling (DEFUN EXPAND-CONTROL-STRING ...). ;;; Compiling (DEFUN EXPAND-DIRECTIVE-LIST ...). ;;; Compiling (DEFUN EXPAND-DIRECTIVE ...). ;;; Compiling (DEFUN EXPAND-NEXT-ARG ...). ;;; Compiling (DEFUN NEED-HAIRY-ARGS ...). ;;; Compiling (DEFMACRO EXPANDER-NEXT-ARG ...). ;;; Compiling (DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...). ;;; Compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...). ;;; Compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...). ;;; Compiling (DEFUN FIND-DIRECTIVE ...). ;;; Compiling (DEFUN FORMAT-WRITE-FIELD ...). ;;; Compiling (DEFUN FORMAT-PRINC ...). ;;; Warning: in file src:lsp;format.lsp, position 31, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER A (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-PRIN1 ...). ;;; Warning: in file src:lsp;format.lsp, position 34, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER S (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 36, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER C (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-PRINT-NAMED-CHARACTER ...). ;;; Warning: in file src:lsp;format.lsp, position 39, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER W (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-PRINT-INTEGER ...). ;;; Compiling (DEFUN FORMAT-ADD-COMMAS ...). ;;; Compiling (DEFUN EXPAND-FORMAT-INTEGER ...). ;;; Warning: in file src:lsp;format.lsp, position 45, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER D (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 47, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER B (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 49, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER O (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 51, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER X (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 53, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER R (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-PRINT-SMALL-CARDINAL ...). ;;; Compiling (DEFUN FORMAT-PRINT-CARDINAL ...). ;;; Compiling (DEFUN FORMAT-PRINT-CARDINAL-AUX ...). ;;; Compiling (DEFUN FORMAT-PRINT-ORDINAL ...). ;;; Compiling (DEFUN FORMAT-PRINT-OLD-ROMAN ...). ;;; Compiling (DEFUN FORMAT-PRINT-ROMAN ...). ;;; Compiling (DEFUN DECIMAL-STRING ...). ;;; Warning: in file src:lsp;format.lsp, position 70, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER F (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-FIXED ...). ;;; Compiling (DEFUN FORMAT-FIXED-AUX ...). ;;; Warning: in file src:lsp;format.lsp, position 74, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER E (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-EXPONENTIAL ...). ;;; Compiling (DEFUN FORMAT-EXPONENT-MARKER ...). ;;; Compiling (DEFUN FORMAT-EXP-AUX ...). ;;; Warning: in file src:lsp;format.lsp, position 79, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER G (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-GENERAL ...). ;;; Compiling (DEFUN FORMAT-GENERAL-AUX ...). ;;; Warning: in file src:lsp;format.lsp, position 83, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER $ (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN FORMAT-DOLLARS ...). ;;; Warning: in file src:lsp;format.lsp, position 86, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER % (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 88, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER & (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 90, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER | (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 92, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ~ (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 94, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ;;; (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 96, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 98, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER T (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN OUTPUT-SPACES ...). ;;; Compiling (DEFUN FORMAT-RELATIVE-TAB ...). ;;; Compiling (DEFUN FORMAT-ABSOLUTE-TAB ...). ;;; Warning: in file src:lsp;format.lsp, position 103, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER _ (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 105, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER I (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 107, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER * (LAMBDA # # ...)) ;;; The variable STREAM is not used. ;;; Compiling (DEFUN NSTRING-CAPITALIZE-FIRST ...). ;;; Note: in file src:lsp;format.lsp, position 112, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ( (LAMBDA # # ...)) ;;; Removing unused variable G15978 ;;; Note: in file src:lsp;format.lsp, position 112, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ( (LAMBDA # # ...)) ;;; Removing unused variable JUMPED ;;; Warning: in file src:lsp;format.lsp, position 114, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ) (LAMBDA # # ...)) ;;; The variable ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 114, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ) (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 114, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ) (LAMBDA # # ...)) ;;; The variable STREAM is not used. ;;; Compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...). ;;; Compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...). ;;; Compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...). ;;; Warning: in file src:lsp;format.lsp, position 121, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ; (LAMBDA # # ...)) ;;; The variable ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 121, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ; (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 121, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ; (LAMBDA # # ...)) ;;; The variable STREAM is not used. ;;; Warning: in file src:lsp;format.lsp, position 122, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ] (LAMBDA # # ...)) ;;; The variable ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 122, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ] (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 122, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ] (LAMBDA # # ...)) ;;; The variable STREAM is not used. ;;; Compiling (DEFVAR *OUTSIDE-ARGS*). ;;; Warning: in file src:lsp;format.lsp, position 126, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ^ (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 126, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER ^ (LAMBDA # # ...)) ;;; The variable STREAM is not used. ;;; Warning: in file src:lsp;format.lsp, position 130, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER } (LAMBDA # # ...)) ;;; The variable ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 130, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER } (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Warning: in file src:lsp;format.lsp, position 130, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER } (LAMBDA # # ...)) ;;; The variable STREAM is not used. ;;; Compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...). ;;; Note: in file src:lsp;format.lsp, position 131, and form ;;; (SETQ *ILLEGAL-INSIDE-JUSTIFICATION* (MAPCAR # '#)) ;;; Replacing variable X by its value # ;;; Compiling (DEFUN CHECK-OUTPUT-LAYOUT-MODE ...). ;;; Compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...). ;;; Compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...). ;;; Compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...). ;;; Note: in file src:lsp;format.lsp, position 137, and form ;;; (FSET 'EXPAND-FORMAT-JUSTIFICATION #'(LAMBDA-BLOCK EXPAND-FORMAT-JUSTIFICATION # ...)) ;;; Replacing variable SEGMENT by its value # ;;; Compiling (DEFUN INTERPRET-FORMAT-JUSTIFICATION ...). ;;; Compiling (DEFUN FORMAT-JUSTIFICATION ...). ;;; Compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...). ;;; Compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...). ;;; Compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...). ;;; Compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...). ;;; Compiling (DEFUN INTERPRET-FORMAT-LOGICAL-BLOCK ...). ;;; Warning: in file src:lsp;format.lsp, position 147, and form ;;; (%SET-FORMAT-DIRECTIVE-INTERPRETER / (LAMBDA # # ...)) ;;; The variable ORIG-ARGS is not used. ;;; Compiling (DEFUN EXTRACT-USER-FUNCTION-NAME ...). ;;; Note: in file src:lsp;format.lsp, position 148, and form ;;; (FSET 'EXTRACT-USER-FUNCTION-NAME #'(LAMBDA-BLOCK EXTRACT-USER-FUNCTION-NAME # ...)) ;;; Replacing variable FOO by its value # ;;; End of Pass 1. ;;; Note: Creating tag: "_eclmcZExmo8_8VJqBfy" for #P"build:lsp;format.o.NEWEST" ;;; Emitting code for FLONUM-TO-STRING. ;;; Note: Replacing variable G14538 by its value ;;; Emitting code for FLOAT-STRING. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for SCALE-EXPONENT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-FORMAT-DIRECTIVE. ;;; Emitting code for FORMAT-DIRECTIVE. ;;; Emitting code for TOKENIZE-CONTROL-STRING. ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-DIRECTIVE. ;;; Note: Replacing variable G14617 by its value ;;; Note: Replacing variable G14642 by its value ;;; Note: Replacing variable G14643 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14647 by its value ;;; Emitting code for GET-CHAR. ;;; Emitting code for FORMATTER-AUX. ;;; Emitting code for INTERPRET-DIRECTIVE-LIST. ;;; Note: Tail-recursive call of INTERPRET-DIRECTIVE-LIST was replaced by iteration. ;;; Note: Tail-recursive call of INTERPRET-DIRECTIVE-LIST was replaced by iteration. ;;; Emitting code for FORMATTER. ;;; Emitting code for %FORMATTER. ;;; Note: Eliminating unreachable code ;;; Emitting code for EXPAND-CONTROL-STRING. ;;; Emitting code for EXPAND-DIRECTIVE-LIST. ;;; Note: Replacing variable G14665 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for EXPAND-DIRECTIVE. ;;; Emitting code for EXPAND-NEXT-ARG. ;;; Emitting code for NEED-HAIRY-ARGS. ;;; Emitting code for EXPANDER-NEXT-ARG. ;;; Emitting code for EXPANDER-PPRINT-NEXT-ARG. ;;; Emitting code for %SET-FORMAT-DIRECTIVE-EXPANDER. ;;; Note: Replacing variable G14785 by its value ;;; Emitting code for %SET-FORMAT-DIRECTIVE-INTERPRETER. ;;; Note: Replacing variable G14791 by its value ;;; Emitting code for FIND-DIRECTIVE. ;;; Note: Emitting linking call for FORMAT-DIRECTIVE-P ;;; Note: Tail-recursive call of FIND-DIRECTIVE was replaced by iteration. ;;; Note: Tail-recursive call of FIND-DIRECTIVE was replaced by iteration. ;;; Emitting code for AFTER. ;;; Emitting code for FORMAT-WRITE-FIELD. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for FORMAT-PRINC. ;;; Emitting code for #:G14809. ;;; Note: Replacing variable G14819 by its value ;;; Note: Replacing variable G14824 by its value ;;; Note: Replacing variable G14829 by its value ;;; Note: Replacing variable G14834 by its value ;;; Emitting code for #:G14837. ;;; Emitting code for FORMAT-PRIN1. ;;; Emitting code for #:G14876. ;;; Note: Replacing variable G14886 by its value ;;; Note: Replacing variable G14891 by its value ;;; Note: Replacing variable G14896 by its value ;;; Note: Replacing variable G14901 by its value ;;; Emitting code for #:G14904. ;;; Emitting code for #:G14942. ;;; Emitting code for #:G14946. ;;; Emitting code for FORMAT-PRINT-NAMED-CHARACTER. ;;; Emitting code for #:G14956. ;;; Emitting code for #:G14960. ;;; Emitting code for FORMAT-PRINT-INTEGER. ;;; Emitting code for FORMAT-ADD-COMMAS. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G14969 by its value ;;; Note: Replacing variable G14970 by its value ;;; Note: Replacing variable G14971 by its value ;;; Emitting code for EXPAND-FORMAT-INTEGER. ;;; Note: Replacing variable G14981 by its value ;;; Note: Replacing variable G14986 by its value ;;; Note: Replacing variable G14991 by its value ;;; Note: Replacing variable G14996 by its value ;;; Emitting code for #:G15001. ;;; Emitting code for #:G15004. ;;; Emitting code for #:G15040. ;;; Emitting code for #:G15043. ;;; Emitting code for #:G15079. ;;; Emitting code for #:G15082. ;;; Emitting code for #:G15118. ;;; Emitting code for #:G15121. ;;; Emitting code for #:G15157. ;;; Note: Replacing variable G15168 by its value ;;; Note: Replacing variable G15173 by its value ;;; Note: Replacing variable G15178 by its value ;;; Note: Replacing variable G15183 by its value ;;; Note: Replacing variable G15188 by its value ;;; Emitting code for #:G15191. ;;; Emitting code for FORMAT-PRINT-SMALL-CARDINAL. ;;; Emitting code for FORMAT-PRINT-CARDINAL. ;;; Emitting code for FORMAT-PRINT-CARDINAL-AUX. ;;; Emitting code for FORMAT-PRINT-ORDINAL. ;;; Emitting code for FORMAT-PRINT-OLD-ROMAN. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FORMAT-PRINT-ROMAN. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15256. ;;; Emitting code for #:G15260. ;;; Note: Eliminating unreachable code ;;; Emitting code for DECIMAL-STRING. ;;; Emitting code for #:G15270. ;;; Note: Replacing variable G15281 by its value ;;; Note: Replacing variable G15286 by its value ;;; Note: Replacing variable G15291 by its value ;;; Note: Replacing variable G15296 by its value ;;; Note: Replacing variable G15301 by its value ;;; Emitting code for #:G15304. ;;; Emitting code for FORMAT-FIXED. ;;; Emitting code for FORMAT-FIXED-AUX. ;;; Note: Replacing variable G15346 by its value ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15361. ;;; Note: Replacing variable G15374 by its value ;;; Note: Replacing variable G15379 by its value ;;; Note: Replacing variable G15384 by its value ;;; Note: Replacing variable G15389 by its value ;;; Note: Replacing variable G15394 by its value ;;; Note: Replacing variable G15399 by its value ;;; Note: Replacing variable G15404 by its value ;;; Emitting code for #:G15407. ;;; Emitting code for FORMAT-EXPONENTIAL. ;;; Emitting code for FORMAT-EXPONENT-MARKER. ;;; Emitting code for FORMAT-EXP-AUX. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G15466 by its value ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15483. ;;; Note: Replacing variable G15496 by its value ;;; Note: Replacing variable G15501 by its value ;;; Note: Replacing variable G15506 by its value ;;; Note: Replacing variable G15511 by its value ;;; Note: Replacing variable G15516 by its value ;;; Note: Replacing variable G15521 by its value ;;; Note: Replacing variable G15526 by its value ;;; Emitting code for #:G15529. ;;; Emitting code for FORMAT-GENERAL. ;;; Emitting code for FORMAT-GENERAL-AUX. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15589. ;;; Note: Replacing variable G15599 by its value ;;; Note: Replacing variable G15604 by its value ;;; Note: Replacing variable G15609 by its value ;;; Note: Replacing variable G15614 by its value ;;; Emitting code for #:G15617. ;;; Emitting code for FORMAT-DOLLARS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15659. ;;; Note: Replacing variable G15666 by its value ;;; Emitting code for #:G15669. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15684. ;;; Note: Replacing variable G15691 by its value ;;; Emitting code for #:G15694. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15709. ;;; Note: Replacing variable G15716 by its value ;;; Emitting code for #:G15719. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15734. ;;; Note: Replacing variable G15741 by its value ;;; Emitting code for #:G15744. ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15758. ;;; Emitting code for #:G15761. ;;; Emitting code for #:G15764. ;;; Emitting code for #:G15767. ;;; Emitting code for #:G15771. ;;; Note: Replacing variable G15779 by its value ;;; Note: Replacing variable G15784 by its value ;;; Note: Replacing variable G15792 by its value ;;; Note: Replacing variable G15797 by its value ;;; Note: Replacing variable G15805 by its value ;;; Note: Replacing variable G15810 by its value ;;; Emitting code for #:G15813. ;;; Emitting code for OUTPUT-SPACES. ;;; Note: Eliminating unreachable code ;;; Emitting code for FORMAT-RELATIVE-TAB. ;;; Note: Emitting linking call for PRETTY-STREAM-P ;;; Emitting code for FORMAT-ABSOLUTE-TAB. ;;; Emitting code for #:G15865. ;;; Emitting code for #:G15869. ;;; Emitting code for #:G15873. ;;; Note: Replacing variable G15880 by its value ;;; Emitting code for #:G15883. ;;; Emitting code for #:G15894. ;;; Note: Replacing variable G15901 by its value ;;; Note: Replacing variable G15908 by its value ;;; Note: Replacing variable G15915 by its value ;;; Note: Replacing variable G15916 by its value ;;; Emitting code for #:G15919. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15958. ;;; Emitting code for #:G15962. ;;; Emitting code for #:G15964. ;;; Emitting code for NSTRING-CAPITALIZE-FIRST. ;;; Emitting code for #:G15973. ;;; Emitting code for #:G15976. ;;; Emitting code for #:G15983. ;;; Emitting code for #:G15986. ;;; Emitting code for PARSE-CONDITIONAL-DIRECTIVE. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G15994. ;;; Note: Replacing variable G16003 by its value ;;; Note: Replacing variable G16004 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for EXPAND-MAYBE-CONDITIONAL. ;;; Note: Replacing variable G16017 by its value ;;; Note: Replacing variable G16018 by its value ;;; Emitting code for HAIRY. ;;; Emitting code for EXPAND-TRUE-FALSE-CONDITIONAL. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16023 by its value ;;; Note: Replacing variable G16025 by its value ;;; Emitting code for HAIRY. ;;; Emitting code for #:G16027. ;;; Emitting code for #:G16052. ;;; Emitting code for #:G16055. ;;; Emitting code for #:G16058. ;;; Emitting code for #:G16061. ;;; Emitting code for #:G16064. ;;; Note: Replacing variable G16073 by its value ;;; Note: Replacing variable G16078 by its value ;;; Note: Replacing variable G16083 by its value ;;; Note: Replacing variable G16084 by its value ;;; Emitting code for #:G16087. ;;; Emitting code for #:G16111. ;;; Note: Replacing variable G16119 by its value ;;; Emitting code for COMPUTE-BINDINGS. ;;; Emitting code for COMPUTE-BLOCK. ;;; Emitting code for COMPUTE-LOOP. ;;; Note: Replacing variable G16112 by its value ;;; Emitting code for COMPUTE-INSIDES. ;;; Emitting code for #:G16121. ;;; Emitting code for DO-LOOP. ;;; Note: Eliminating unreachable code ;;; Emitting code for BIND-ARGS. ;;; Emitting code for DO-GUTS. ;;; Emitting code for #:G16132. ;;; Emitting code for #:G16144. ;;; Emitting code for #:G16147. ;;; Note: Replacing variable G16152 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for CHECK-OUTPUT-LAYOUT-MODE. ;;; Note: Replacing variable G16153 by its value ;;; Emitting code for ILLEGAL-INSIDE-JUSTIFICATION-P. ;;; Emitting code for #:G16154. ;;; Emitting code for #:G16156. ;;; Note: Replacing variable G16161 by its value ;;; Note: Replacing variable X by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G16163. ;;; Note: Replacing variable G16170 by its value ;;; Note: Replacing variable X by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-FORMAT-JUSTIFICATION. ;;; Note: Replacing variable G16181 by its value ;;; Note: Replacing variable G16182 by its value ;;; Note: Replacing variable G16184 by its value ;;; Note: Replacing variable G16185 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for EXPAND-FORMAT-JUSTIFICATION. ;;; Note: Replacing variable G16196 by its value ;;; Note: Replacing variable G16201 by its value ;;; Note: Replacing variable G16206 by its value ;;; Note: Replacing variable G16211 by its value ;;; Note: Replacing variable G16221 by its value ;;; Note: Replacing variable G16226 by its value ;;; Note: Replacing variable G16231 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for INTERPRET-FORMAT-JUSTIFICATION. ;;; Note: Replacing variable G16284 by its value ;;; Note: Replacing variable G16285 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for FORMAT-JUSTIFICATION. ;;; Note: Replacing variable G16296 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16306 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for DO-PADDING. ;;; Note: Replacing variable G16310 by its value ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-FORMAT-LOGICAL-BLOCK. ;;; Emitting code for EXTRACT-STRING. ;;; Emitting code for ADD-FILL-STYLE-NEWLINES. ;;; Emitting code for ADD-FILL-STYLE-NEWLINES-AUX. ;;; Note: Replacing variable G16336 by its value ;;; Note: Replacing variable G16337 by its value ;;; Note: Replacing variable G16341 by its value ;;; Note: Replacing variable G16342 by its value ;;; Note: Replacing variable G16344 by its value ;;; Note: Replacing variable G16345 by its value ;;; Note: Replacing variable G16346 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for EXPAND-FORMAT-LOGICAL-BLOCK. ;;; Note: Replacing variable G16348 by its value ;;; Emitting code for INTERPRET-FORMAT-LOGICAL-BLOCK. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-16352. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-16364. ;;; Emitting code for #:G16358. ;;; Emitting code for #:G16370. ;;; Emitting code for #:G16377. ;;; Emitting code for #:G16380. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16401 by its value ;;; Note: Replacing variable G16402 by its value ;;; Note: Replacing variable G16405 by its value ;;; Note: Replacing variable G16406 by its value ;;; Emitting code for #:G16411. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16429 by its value ;;; Note: Replacing variable G16430 by its value ;;; Note: Replacing variable G16432 by its value ;;; Note: Replacing variable G16433 by its value ;;; Note: Replacing variable G16435 by its value ;;; Note: Replacing variable G16436 by its value ;;; Emitting code for EXTRACT-USER-FUNCTION-NAME. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/format.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/format.o" ;;; Finished compiling src:lsp;format.lsp. ;;; Compiling src:lsp;defpackage.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMACRO DEFPACKAGE ...). ;;; Compiling (DEFUN DODEFPACKAGE ...). ;;; Compiling (DEFUN FIND-OR-MAKE-SYMBOL ...). ;;; Compiling (DEFUN FIND-DUPLICATES ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclWY9Uzio8_E2MqBfy" for #P"build:lsp;defpackage.o.NEWEST" ;;; Emitting code for DEFPACKAGE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16579 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16584 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for OPTION-VALUES. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for OPTION-VALUES-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16554 by its value ;;; Note: Replacing variable G16555 by its value ;;; Emitting code for TO-STRING. ;;; Emitting code for DODEFPACKAGE. ;;; Note: Replacing variable G16602 by its value ;;; Note: Replacing variable G16603 by its value ;;; Note: Emitting FDEFINITION for (SETF DOCUMENTATION) ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16645 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-OR-MAKE-SYMBOL. ;;; Emitting code for FIND-DUPLICATES. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defpackage.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defpackage.o" ;;; Finished compiling src:lsp;defpackage.lsp. ;;; Compiling src:lsp;ffi.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMACRO DEF-CONSTANT ...). ;;; Compiling (DEFVAR *FFI-TYPES* ...). ;;; Compiling (DEFVAR *USE-DFFI* ...). ;;; Compiling (DEFUN FOREIGN-ELT-TYPE-P ...). ;;; Compiling (DEFMACRO DEF-FOREIGN-TYPE ...). ;;; Compiling (DEFMACRO DEF-TYPE ...). ;;; Warning: in file src:lsp;ffi.lsp, position 8, and form ;;; (FSET 'DEF-TYPE #'(LAMBDA-BLOCK DEF-TYPE # ...) ...) ;;; The variable DEFINITION is not used. ;;; Compiling (DEFUN %CONVERT-TO-FFI-TYPE ...). ;;; Compiling (DEFMACRO %ALIGN-DATA ...). ;;; Compiling (DEFUN SIZE-OF-FOREIGN-TYPE ...). ;;; Warning: in file src:lsp;ffi.lsp, position 11, and form ;;; (FSET 'SIZE-OF-FOREIGN-TYPE #'(LAMBDA-BLOCK SIZE-OF-FOREIGN-TYPE # ...)) ;;; The variable FIELD-SIZE is not used. ;;; Compiling (DEFUN ALLOCATE-FOREIGN-OBJECT ...). ;;; Note: in file src:lsp;ffi.lsp, position 12, and form ;;; (FSET 'ALLOCATE-FOREIGN-OBJECT #'(LAMBDA-BLOCK ALLOCATE-FOREIGN-OBJECT # ...)) ;;; In function ALLOCATE-FOREIGN-OBJECT, checking types of arguments SIZE TYPE. ;;; Note: in file src:lsp;ffi.lsp, position 12, and form ;;; (FSET 'ALLOCATE-FOREIGN-OBJECT #'(LAMBDA-BLOCK ALLOCATE-FOREIGN-OBJECT # ...)) ;;; Replacing variable BYTES by its value # ;;; Compiling (DEFUN FREE-FOREIGN-OBJECT ...). ;;; Compiling (DEFMACRO DEF-ENUM ...). ;;; Note: in file src:lsp;ffi.lsp, position 14, and form ;;; (FSET 'DEF-ENUM #'(LAMBDA-BLOCK DEF-ENUM # ...) ...) ;;; Removing unused variable CONSTANTS ;;; Compiling (DEFMACRO DEF-STRUCT ...). ;;; Compiling (DEFUN SLOT-POSITION ...). ;;; Compiling (DEFUN GET-SLOT-VALUE ...). ;;; Compiling (DEFUN (SETF GET-SLOT-VALUE) ...). ;;; Compiling (DEFUN GET-SLOT-POINTER ...). ;;; Compiling (DEFMACRO DEF-ARRAY-POINTER ...). ;;; Compiling (DEFUN DEREF-ARRAY ...). ;;; Compiling (DEFUN (SETF DEREF-ARRAY) ...). ;;; Compiling (DEFUN %FOREIGN-DATA-SET ...). ;;; Compiling (DEFUN %FOREIGN-DATA-REF ...). ;;; Compiling (DEFMACRO DEF-UNION ...). ;;; Compiling (DEFVAR +NULL-CSTRING-POINTER+ ...). ;;; Compiling (DEFUN POINTER-ADDRESS ...). ;;; Compiling (DEFUN DEREF-POINTER ...). ;;; Compiling (DEFUN (SETF DEREF-POINTER) ...). ;;; Compiling (DEFUN MAKE-NULL-POINTER ...). ;;; Compiling (DEFUN MAKE-POINTER ...). ;;; Compiling (DEFUN NULL-CHAR-P ...). ;;; Compiling (DEFUN ENSURE-CHAR-CHARACTER ...). ;;; Compiling (DEFUN ENSURE-CHAR-INTEGER ...). ;;; Compiling (DEFUN ENSURE-CHAR-STORABLE ...). ;;; Compiling (DEFUN CHAR-ARRAY-TO-POINTER ...). ;;; Compiling (DEFMACRO CONVERT-FROM-CSTRING ...). ;;; Compiling (DEFMACRO CONVERT-TO-CSTRING ...). ;;; Compiling (DEFMACRO FREE-CSTRING ...). ;;; Compiling (DEFMACRO WITH-CSTRING ...). ;;; Compiling (DEFMACRO WITH-CSTRINGS ...). ;;; Compiling (DEFUN FOREIGN-STRING-LENGTH ...). ;;; Compiling (DEFUN CONVERT-FROM-FOREIGN-STRING ...). ;;; Compiling (DEFUN CONVERT-TO-FOREIGN-STRING ...). ;;; Compiling (DEFUN ALLOCATE-FOREIGN-STRING ...). ;;; Compiling (DEFMACRO WITH-FOREIGN-STRING ...). ;;; Compiling (DEFMACRO WITH-FOREIGN-STRINGS ...). ;;; Compiling (DEFMACRO WITH-FOREIGN-OBJECT ...). ;;; Compiling (DEFMACRO WITH-FOREIGN-OBJECTS ...). ;;; Compiling (DEFMACRO WITH-CAST-POINTER ...). ;;; Compiling (DEFUN LISP-TO-C-NAME ...). ;;; Compiling (DEFUN %CONVERT-TO-ARG-TYPE ...). ;;; Compiling (DEFUN %CONVERT-TO-RETURN-TYPE ...). ;;; Compiling (DEFUN PRODUCE-FUNCTION-CALL ...). ;;; Compiling (DEFMACRO DEF-FUNCTION ...). ;;; Note: in file src:lsp;ffi.lsp, position 55, and form ;;; (FSET 'DEF-FUNCTION #'(LAMBDA-BLOCK DEF-FUNCTION # ...) ...) ;;; Replacing variable TYPE by its value # ;;; Warning: in file src:lsp;ffi.lsp, position 55, and form ;;; (FSET 'DEF-FUNCTION #'(LAMBDA-BLOCK DEF-FUNCTION # ...) ...) ;;; The variable MODULE is not used. ;;; Warning: in file src:lsp;ffi.lsp, position 55, and form ;;; (FSET 'DEF-FUNCTION #'(LAMBDA-BLOCK DEF-FUNCTION # ...) ...) ;;; The variable CALL is not used. ;;; Compiling (DEFMACRO DEF-FOREIGN-VAR ...). ;;; Warning: in file src:lsp;ffi.lsp, position 56, and form ;;; (FSET 'DEF-FOREIGN-VAR #'(LAMBDA-BLOCK DEF-FOREIGN-VAR # ...) ...) ;;; The variable MODULE is not used. ;;; Compiling (DEFUN FIND-FOREIGN-LIBRARY ...). ;;; Compiling (DEFVAR +LOADED-LIBRARIES+ ...). ;;; Compiling (DEFUN DO-LOAD-FOREIGN-LIBRARY ...). ;;; Compiling (DEFMACRO LOAD-FOREIGN-LIBRARY ...). ;;; Note: in file src:lsp;ffi.lsp, position 60, and form ;;; (FSET 'LOAD-FOREIGN-LIBRARY #'(LAMBDA-BLOCK LOAD-FOREIGN-LIBRARY # ...) ...) ;;; Replacing variable DYN-FORM by its value # ;;; Warning: in file src:lsp;ffi.lsp, position 60, and form ;;; (FSET 'LOAD-FOREIGN-LIBRARY #'(LAMBDA-BLOCK LOAD-FOREIGN-LIBRARY # ...) ...) ;;; The variable MODULE is not used. ;;; Warning: in file src:lsp;ffi.lsp, position 60, and form ;;; (FSET 'LOAD-FOREIGN-LIBRARY #'(LAMBDA-BLOCK LOAD-FOREIGN-LIBRARY # ...) ...) ;;; The variable SUPPORTING-LIBRARIES is not used. ;;; Warning: in file src:lsp;ffi.lsp, position 60, and form ;;; (FSET 'LOAD-FOREIGN-LIBRARY #'(LAMBDA-BLOCK LOAD-FOREIGN-LIBRARY # ...) ...) ;;; The variable FORCE-LOAD is not used. ;;; Compiling (DEFMACRO DEFCALLBACK ...). ;;; Note: in file src:lsp;ffi.lsp, position 61, and form ;;; (FSET 'DEFCALLBACK #'(LAMBDA-BLOCK DEFCALLBACK # ...) ...) ;;; Removing unused variable ARGS ;;; Compiling (DEFUN CALLBACK ...). ;;; Warning: in file src:lsp;ffi.lsp, position 62, and form ;;; (FSET 'CALLBACK #'(LAMBDA-BLOCK CALLBACK # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN CLINES ...). ;;; Compiling (DEFMACRO C-INLINE ...). ;;; Note: in file src:lsp;ffi.lsp, position 64, and form ;;; (FSET 'C-INLINE #'(LAMBDA-BLOCK C-INLINE # ...) ...) ;;; Replacing variable OTHERS by its value # ;;; Compiling (DEFMACRO DEFINLINE ...). ;;; Compiling (DEFMACRO DEFLA ...). ;;; Note: in file src:lsp;ffi.lsp, position 66, and form ;;; (FSET 'DEFLA #'(LAMBDA-BLOCK DEFLA # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFMACRO DEFCBODY ...). ;;; Note: in file src:lsp;ffi.lsp, position 67, and form ;;; (FSET 'DEFCBODY #'(LAMBDA-BLOCK DEFCBODY # ...) ...) ;;; Removing unused variable X ;;; Compiling (DEFMACRO DEFENTRY ...). ;;; Note: in file src:lsp;ffi.lsp, position 68, and form ;;; (FSET 'DEFENTRY #'(LAMBDA-BLOCK DEFENTRY # ...) ...) ;;; Removing unused variable X ;;; End of Pass 1. ;;; Note: Creating tag: "_eclHxlRTmn8_tFMqBfy" for #P"build:lsp;ffi.o.NEWEST" ;;; Note: Emitting FUNCALL for SI::DODEFPACKAGE ;;; Emitting code for DEF-CONSTANT. ;;; Note: Emitting linking call for SEARCH-KEYWORD ;;; Emitting code for FOREIGN-ELT-TYPE-P. ;;; Emitting code for DEF-FOREIGN-TYPE. ;;; Emitting code for DEF-TYPE. ;;; Emitting code for %CONVERT-TO-FFI-TYPE. ;;; Emitting code for %ALIGN-DATA. ;;; Emitting code for SIZE-OF-FOREIGN-TYPE. ;;; Note: Replacing variable G16670 by its value ;;; Note: Replacing variable FIELD by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16675 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16681 by its value ;;; Note: Replacing variable G16682 by its value ;;; Note: Replacing variable G16684 by its value ;;; Emitting code for ALLOCATE-FOREIGN-OBJECT. ;;; Emitting code for FREE-FOREIGN-OBJECT. ;;; Emitting code for DEF-ENUM. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16732 by its value ;;; Emitting code for DEF-STRUCT. ;;; Note: Eliminating unreachable code ;;; Emitting code for SLOT-POSITION. ;;; Note: Replacing variable G16768 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16777 by its value ;;; Emitting code for GET-SLOT-VALUE. ;;; Emitting code for (SETF GET-SLOT-VALUE). ;;; Emitting code for GET-SLOT-POINTER. ;;; Emitting code for DEF-ARRAY-POINTER. ;;; Emitting code for DEREF-ARRAY. ;;; Emitting code for (SETF DEREF-ARRAY). ;;; Emitting code for %FOREIGN-DATA-SET. ;;; Emitting code for %FOREIGN-DATA-REF. ;;; Emitting code for DEF-UNION. ;;; Note: Eliminating unreachable code ;;; Emitting code for POINTER-ADDRESS. ;;; Emitting code for DEREF-POINTER. ;;; Emitting code for (SETF DEREF-POINTER). ;;; Emitting code for MAKE-NULL-POINTER. ;;; Emitting code for MAKE-POINTER. ;;; Emitting code for NULL-CHAR-P. ;;; Emitting code for ENSURE-CHAR-CHARACTER. ;;; Emitting code for ENSURE-CHAR-INTEGER. ;;; Emitting code for ENSURE-CHAR-STORABLE. ;;; Emitting code for CHAR-ARRAY-TO-POINTER. ;;; Emitting code for CONVERT-FROM-CSTRING. ;;; Emitting code for CONVERT-TO-CSTRING. ;;; Emitting code for FREE-CSTRING. ;;; Emitting code for WITH-CSTRING. ;;; Emitting code for WITH-CSTRINGS. ;;; Emitting code for FOREIGN-STRING-LENGTH. ;;; Emitting code for CONVERT-FROM-FOREIGN-STRING. ;;; Emitting code for CONVERT-TO-FOREIGN-STRING. ;;; Emitting code for ALLOCATE-FOREIGN-STRING. ;;; Emitting code for WITH-FOREIGN-STRING. ;;; Emitting code for WITH-FOREIGN-STRINGS. ;;; Emitting code for WITH-FOREIGN-OBJECT. ;;; Emitting code for WITH-FOREIGN-OBJECTS. ;;; Emitting code for WITH-CAST-POINTER. ;;; Note: Replacing variable G16854 by its value ;;; Emitting code for LISP-TO-C-NAME. ;;; Emitting code for %CONVERT-TO-ARG-TYPE. ;;; Emitting code for %CONVERT-TO-RETURN-TYPE. ;;; Emitting code for PRODUCE-FUNCTION-CALL. ;;; Emitting code for DEF-FUNCTION. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16875 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DEF-FOREIGN-VAR. ;;; Emitting code for FIND-FOREIGN-LIBRARY. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DO-LOAD-FOREIGN-LIBRARY. ;;; Note: Emitting linking call for COMPILE-FILE-PATHNAME ;;; Emitting code for LOAD-FOREIGN-LIBRARY. ;;; Emitting code for DEFCALLBACK. ;;; Emitting code for CALLBACK. ;;; Emitting code for CLINES. ;;; Emitting code for C-INLINE. ;;; Emitting code for DEFINLINE. ;;; Emitting code for DEFLA. ;;; Emitting code for DEFCBODY. ;;; Note: Replacing variable G16931 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for DEFENTRY. ;;; Note: Replacing variable G16944 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/ffi.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/ffi.o" ;;; Finished compiling src:lsp;ffi.lsp. ;;; Compiling build:lsp;config.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN UNAME ...). ;;; Compiling (DEFUN SHORT-SITE-NAME ...). ;;; Compiling (DEFUN LONG-SITE-NAME ...). ;;; Note: in file build:lsp;config.lsp, position 4, and form ;;; (FSET 'LONG-SITE-NAME #'(LAMBDA-BLOCK LONG-SITE-NAME NIL ...)) ;;; Sharing code among functions LONG-SITE-NAME and SHORT-SITE-NAME ;;; Compiling (DEFUN LISP-IMPLEMENTATION-VERSION ...). ;;; Compiling (DEFUN MACHINE-TYPE ...). ;;; Compiling (DEFUN MACHINE-INSTANCE ...). ;;; Compiling (DEFUN MACHINE-VERSION ...). ;;; Note: in file build:lsp;config.lsp, position 8, and form ;;; (FSET 'MACHINE-VERSION #'(LAMBDA-BLOCK MACHINE-VERSION NIL ...)) ;;; Sharing code among functions MACHINE-VERSION and LONG-SITE-NAME ;;; Compiling (DEFUN SOFTWARE-TYPE ...). ;;; Compiling (DEFUN SOFTWARE-VERSION ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclsEEaQsm8_BdMqBfy" for #P"build:lsp;config.o.NEWEST" ;;; Emitting code for UNAME. ;;; Emitting code for SHORT-SITE-NAME. ;;; Emitting code for LONG-SITE-NAME. ;;; Emitting code for LISP-IMPLEMENTATION-VERSION. ;;; Emitting code for MACHINE-TYPE. ;;; Emitting code for MACHINE-INSTANCE. ;;; Emitting code for MACHINE-VERSION. ;;; Emitting code for SOFTWARE-TYPE. ;;; Emitting code for SOFTWARE-VERSION. ;;; Note: Replacing variable G16968 by its value ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/config.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/config.o" ;;; Finished compiling build:lsp;config.lsp. ;;; Compiling src:lsp;describe.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *INSPECT-LEVEL* ...). ;;; Compiling (DEFVAR *INSPECT-HISTORY* ...). ;;; Compiling (DEFVAR *INSPECT-MODE* ...). ;;; Compiling (DEFVAR *OLD-PRINT-LEVEL* ...). ;;; Compiling (DEFVAR *OLD-PRINT-LENGTH* ...). ;;; Compiling (DEFUN INSPECT-READ-LINE ...). ;;; Compiling (DEFUN SELECT-P ...). ;;; Compiling (DEFUN SELECT-E ...). ;;; Compiling (DEFUN SELECT-U ...). ;;; Compiling (DEFUN SELECT-? ...). ;;; Compiling (DEFUN READ-INSPECT-COMMAND ...). ;;; Compiling (DEFUN INSPECT-INDENT ...). ;;; Compiling (DEFUN INSPECT-INDENT-1 ...). ;;; Compiling (DEFUN INSPECT-SYMBOL ...). ;;; Compiling (DEFUN INSPECT-PACKAGE ...). ;;; Compiling (DEFUN INSPECT-CHARACTER ...). ;;; Compiling (DEFUN INSPECT-NUMBER ...). ;;; Compiling (DEFUN INSPECT-CONS ...). ;;; Compiling (DEFUN INSPECT-STRING ...). ;;; Compiling (DEFUN INSPECT-VECTOR ...). ;;; Compiling (DEFUN INSPECT-ARRAY ...). ;;; Compiling (DEFUN SELECT-HT-N ...). ;;; Compiling (DEFUN SELECT-HT-L ...). ;;; Compiling (DEFUN SELECT-HT-J ...). ;;; Compiling (DEFUN SELECT-HT-? ...). ;;; Compiling (DEFUN INSPECT-HASHTABLE ...). ;;; Compiling (DEFUN INSPECT-INSTANCE ...). ;;; Compiling (DEFUN INSPECT-OBJECT ...). ;;; Compiling (DEFUN DESCRIBE ...). ;;; Compiling (DEFUN INSPECT ...). ;;; Compiling (DEFUN PRINT-DOC ...). ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Warning: in file src:lsp;describe.lsp, position 31, and form ;;; (FSET 'PRINT-DOC #'(LAMBDA-BLOCK PRINT-DOC # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; Compiling (DEFUN HELP* ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclpN05wtm8_JjMqBfy" for #P"build:lsp;describe.o.NEWEST" ;;; Emitting code for INSPECT-READ-LINE. ;;; Note: Eliminating unreachable code ;;; Emitting code for SELECT-P. ;;; Emitting code for SELECT-E. ;;; Note: Replacing variable G16977 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for SELECT-U. ;;; Emitting code for SELECT-?. ;;; Emitting code for READ-INSPECT-COMMAND. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for INSPECT-INDENT. ;;; Emitting code for INSPECT-INDENT-1. ;;; Emitting code for INSPECT-SYMBOL. ;;; Note: Replacing variable G16990 by its value ;;; Note: Replacing variable G16991 by its value ;;; Note: Replacing variable G16992 by its value ;;; Note: Replacing variable G16993 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G16998 by its value ;;; Note: Replacing variable G17000 by its value ;;; Note: Replacing variable G17001 by its value ;;; Note: Replacing variable G17003 by its value ;;; Emitting code for INSPECT-PACKAGE. ;;; Emitting code for INSPECT-CHARACTER. ;;; Emitting code for INSPECT-NUMBER. ;;; Emitting code for INSPECT-CONS. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17010 by its value ;;; Note: Replacing variable G17011 by its value ;;; Note: Replacing variable G17012 by its value ;;; Note: Replacing variable G17014 by its value ;;; Emitting code for INSPECT-STRING. ;;; Note: Replacing variable G17015 by its value ;;; Note: Replacing variable G17016 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17021 by its value ;;; Note: Replacing variable G17022 by its value ;;; Note: Replacing variable G17023 by its value ;;; Emitting code for INSPECT-VECTOR. ;;; Note: Replacing variable G17024 by its value ;;; Note: Replacing variable G17025 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17030 by its value ;;; Note: Replacing variable G17031 by its value ;;; Note: Replacing variable G17032 by its value ;;; Emitting code for INSPECT-ARRAY. ;;; Emitting code for SELECT-HT-N. ;;; Emitting code for #:G17037. ;;; Note: Replacing variable G17038 by its value ;;; Note: Replacing variable G17040 by its value ;;; Emitting code for SELECT-HT-L. ;;; Emitting code for #:G17043. ;;; Emitting code for SELECT-HT-J. ;;; Note: Replacing variable G17047 by its value ;;; Note: Replacing variable G17048 by its value ;;; Note: Replacing variable G17049 by its value ;;; Emitting code for SELECT-HT-?. ;;; Emitting code for INSPECT-HASHTABLE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G17060. ;;; Emitting code for INSPECT-INSTANCE. ;;; Note: Emitting linking call for INSPECT-OBJ ;;; Note: Emitting linking call for DESCRIBE-OBJECT ;;; Emitting code for INSPECT-OBJECT. ;;; Emitting code for DESCRIBE. ;;; Emitting code for INSPECT. ;;; Emitting code for PRINT-DOC. ;;; Emitting code for GOOD-PACKAGE. ;;; Emitting code for DOC1. ;;; Emitting code for HELP*. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17075 by its value ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/describe.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/describe.o" ;;; Finished compiling src:lsp;describe.lsp. ;;; Compiling src:lsp;module.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *MODULES* ...). ;;; Compiling (DEFVAR *MODULE-PROVIDER-FUNCTIONS* ...). ;;; Compiling (DEFUN PROVIDE ...). ;;; Compiling (DEFVAR *REQUIRING* ...). ;;; Compiling (DEFUN REQUIRE-ERROR ...). ;;; Compiling (DEFUN REQUIRE ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclfY6Lkin8_vyMqBfy" for #P"build:lsp;module.o.NEWEST" ;;; Emitting code for PROVIDE. ;;; Emitting code for REQUIRE-ERROR. ;;; Emitting code for REQUIRE. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G17084. ;;; Emitting code for #:G17086. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/module.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/module.o" ;;; Finished compiling src:lsp;module.lsp. ;;; Compiling src:lsp;cmdline.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *LISP-INIT-FILE-LIST* ...). ;;; Compiling (DEFVAR *HELP-MESSAGE* ...). ;;; Compiling (DEFUN COMMAND-ARGS ...). ;;; Compiling (DEFUN COMMAND-ARG-ERROR ...). ;;; Compiling (DEFUN PRODUCE-INIT-CODE ...). ;;; Warning: in file src:lsp;cmdline.lsp, position 7, and form ;;; (FSET 'PRODUCE-INIT-CODE #'(LAMBDA-BLOCK PRODUCE-INIT-CODE # ...)) ;;; The variable PATTERN is not used. ;;; Compiling (DEFUN PROCESS-COMMAND-ARGS ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl7fYdn6o8_T2NqBfy" for #P"build:lsp;cmdline.o.NEWEST" ;;; Emitting code for COMMAND-ARGS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for COMMAND-ARG-ERROR. ;;; Emitting code for PRODUCE-INIT-CODE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17103 by its value ;;; Note: Replacing variable G17106 by its value ;;; Note: Replacing variable G17107 by its value ;;; Note: Replacing variable G17108 by its value ;;; Note: Replacing variable G17109 by its value ;;; Emitting code for PROCESS-COMMAND-ARGS. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G17113. ;;; Note: Emitting linking call for INVOKE-DEBUGGER ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/cmdline.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/cmdline.o" ;;; Finished compiling src:lsp;cmdline.lsp. ;;; Compiling src:lsp;top.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *QUIT-TAG* ...). ;;; Compiling (DEFVAR *QUIT-TAGS* ...). ;;; Compiling (DEFVAR *BREAK-LEVEL* ...). ;;; Compiling (DEFVAR *BREAK-ENV* ...). ;;; Compiling (DEFVAR *IHS-BASE* ...). ;;; Compiling (DEFVAR *IHS-TOP* ...). ;;; Compiling (DEFVAR *IHS-CURRENT* ...). ;;; Compiling (DEFVAR *FRS-BASE* ...). ;;; Compiling (DEFVAR *FRS-TOP* ...). ;;; Compiling (DEFVAR *TPL-CONTINUABLE* ...). ;;; Compiling (DEFVAR *TPL-PROMPT-HOOK* ...). ;;; Compiling (DEFVAR *EOF* ...). ;;; Compiling (DEFVAR *LAST-ERROR* ...). ;;; Compiling (DEFVAR *BREAK-ENABLE* ...). ;;; Compiling (DEFVAR *BREAK-MESSAGE* ...). ;;; Compiling (DEFVAR *BREAK-READTABLE* ...). ;;; Compiling (DEFVAR *TPL-LEVEL* ...). ;;; Compiling (DEFVAR *STEP-LEVEL* ...). ;;; Compiling (DEFVAR *BREAK-HIDDEN-FUNCTIONS* ...). ;;; Compiling (DEFVAR *BREAK-HIDDEN-PACKAGES* ...). ;;; Compiling (DEFVAR *TPL-COMMANDS* ...). ;;; Compiling (DEFVAR *LISP-INITIALIZED* ...). ;;; Compiling (DEFUN TOP-LEVEL ...). ;;; Compiling (DEFUN TERMINAL-INTERRUPT ...). ;;; Compiling (DEFUN TPL ...). ;;; Compiling (DEFUN TPL-PROMPT ...). ;;; Compiling (DEFUN TPL-READ ...). ;;; Compiling (DEFUN TPL-MAKE-COMMAND ...). ;;; Compiling (DEFUN TPL-PARSE-FORMS ...). ;;; Compiling (DEFUN TPL-PARSE-STRINGS ...). ;;; Compiling (DEFUN TPL-PRINT ...). ;;; Compiling (DEFUN TPL-UNKNOWN-COMMAND ...). ;;; Compiling (DEFUN TPL-POP-COMMAND ...). ;;; Compiling (DEFUN TPL-QUIT-COMMAND ...). ;;; Compiling (DEFUN TPL-PREVIOUS ...). ;;; Compiling (DEFUN TPL-NEXT ...). ;;; Compiling (DEFUN TPL-GO ...). ;;; Compiling (DEFUN TPL-PRINT-MESSAGE ...). ;;; Compiling (DEFUN TPL-DISASSEMBLE-COMMAND ...). ;;; Note: in file src:lsp;top.lsp, position 42, and form ;;; (FSET 'TPL-DISASSEMBLE-COMMAND #'(LAMBDA-BLOCK TPL-DISASSEMBLE-COMMAND # ...)) ;;; Removing unused variable FUNCTIONS ;;; Note: in file src:lsp;top.lsp, position 42, and form ;;; (FSET 'TPL-DISASSEMBLE-COMMAND #'(LAMBDA-BLOCK TPL-DISASSEMBLE-COMMAND # ...)) ;;; Removing unused variable BLOCKS ;;; Note: in file src:lsp;top.lsp, position 42, and form ;;; (FSET 'TPL-DISASSEMBLE-COMMAND #'(LAMBDA-BLOCK TPL-DISASSEMBLE-COMMAND # ...)) ;;; Removing unused variable VARIABLES ;;; Warning: in file src:lsp;top.lsp, position 42, and form ;;; (FSET 'TPL-DISASSEMBLE-COMMAND #'(LAMBDA-BLOCK TPL-DISASSEMBLE-COMMAND # ...)) ;;; The variable NO-VALUES is not used. ;;; Compiling (DEFUN TPL-LAMBDA-EXPRESSION-COMMAND ...). ;;; Warning: in file src:lsp;top.lsp, position 43, and form ;;; (FSET 'TPL-LAMBDA-EXPRESSION-COMMAND #'(LAMBDA-BLOCK TPL-LAMBDA-EXPRESSION-COMMAND # ...)) ;;; The variable NO-VALUES is not used. ;;; Compiling (DEFUN RECONSTRUCT-BYTECODES-LAMBDA-LIST ...). ;;; Compiling (DEFUN FUNCTION-LAMBDA-LIST ...). ;;; Warning: in file src:lsp;top.lsp, position 45, and form ;;; (FSET 'FUNCTION-LAMBDA-LIST #'(LAMBDA-BLOCK FUNCTION-LAMBDA-LIST # ...)) ;;; The variable LEX-ENV is not used. ;;; Compiling (DEFUN TPL-VARIABLES-COMMAND ...). ;;; Compiling (DEFUN TPL-BDS-COMMAND ...). ;;; Compiling (DEFUN TPL-BACKTRACE ...). ;;; Compiling (DEFUN PRINT-FRS ...). ;;; Compiling (DEFUN BREAK-WHERE ...). ;;; Compiling (DEFUN TPL-PRINT-CURRENT ...). ;;; Compiling (DEFUN TPL-HIDE ...). ;;; Compiling (DEFUN TPL-UNHIDE ...). ;;; Compiling (DEFUN TPL-UNHIDE-PACKAGE ...). ;;; Compiling (DEFUN TPL-UNHIDE-ALL ...). ;;; Compiling (DEFUN TPL-HIDE-PACKAGE ...). ;;; Compiling (DEFUN IHS-VISIBLE ...). ;;; Compiling (DEFUN IHS-FNAME ...). ;;; Compiling (DEFUN SET-CURRENT-IHS ...). ;;; Compiling (DEFUN SET-BREAK-ENV ...). ;;; Compiling (DEFUN IHS-SEARCH ...). ;;; Compiling (DEFUN TPL-BACKWARD-SEARCH ...). ;;; Compiling (DEFUN TPL-FORWARD-SEARCH ...). ;;; Warning: in file src:lsp;top.lsp, position 63, and form ;;; (FSET 'TPL-FORWARD-SEARCH #'(LAMBDA-BLOCK TPL-FORWARD-SEARCH # ...)) ;;; Unknown type (VALUES &REST T) ;;; Compiling (DEFUN TPL-APROPOS-COMMAND ...). ;;; Compiling (DEFUN TPL-DOCUMENT-COMMAND ...). ;;; Compiling (DEFUN TPL-STEP-COMMAND ...). ;;; Compiling (DEFUN TPL-TRACE-COMMAND ...). ;;; Compiling (DEFUN TPL-UNTRACE-COMMAND ...). ;;; Compiling (DEFVAR *TPL-LAST-LOAD* ...). ;;; Compiling (DEFUN TPL-LOAD-COMMAND ...). ;;; Compiling (DEFVAR *TPL-LAST-COMPILE* ...). ;;; Compiling (DEFUN TPL-COMPILE-COMMAND ...). ;;; Compiling (DEFUN TPL-HELP-COMMAND ...). ;;; Compiling (DEFUN TPL-HELP-STACK-COMMAND ...). ;;; Compiling (DEFUN DEFAULT-DEBUGGER ...). ;;; Compiling (DEFUN INVOKE-DEBUGGER ...). ;;; Compiling (DEFUN SAFE-EVAL ...). ;;; Warning: in file src:lsp;top.lsp, position 77, and form ;;; (FSET 'SAFE-EVAL #'(LAMBDA-BLOCK SAFE-EVAL # ...)) ;;; The variable OLD-HOOKS is not used. ;;; End of Pass 1. ;;; Note: Creating tag: "_eclvs8eQWo8_GwMqBfy" for #P"build:lsp;top.o.NEWEST" ;;; Emitting code for TOP-LEVEL. ;;; Note: Emitting linking call for PROCESS-COMMAND-ARGS ;;; Note: Emitting linking call for LISP-IMPLEMENTATION-VERSION ;;; Emitting code for TERMINAL-INTERRUPT. ;;; Emitting code for TPL. ;;; Note: Emitting linking call for TPL-READ ;;; Note: Replacing variable G17121 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-PROMPT. ;;; Emitting code for TPL-READ. ;;; Note: Emitting linking call for WARN ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-MAKE-COMMAND. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-PARSE-FORMS. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-PARSE-STRINGS. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G17141. ;;; Emitting code for TPL-PRINT. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-UNKNOWN-COMMAND. ;;; Emitting code for TPL-POP-COMMAND. ;;; Emitting code for TPL-QUIT-COMMAND. ;;; Emitting code for TPL-PREVIOUS. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-NEXT. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-GO. ;;; Emitting code for TPL-PRINT-MESSAGE. ;;; Emitting code for TPL-DISASSEMBLE-COMMAND. ;;; Emitting code for TPL-LAMBDA-EXPRESSION-COMMAND. ;;; Emitting code for RECONSTRUCT-BYTECODES-LAMBDA-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FUNCTION-LAMBDA-LIST. ;;; Note: Emitting linking call for GENERIC-FUNCTION-LAMBDA-LIST ;;; Note: Tail-recursive call of FUNCTION-LAMBDA-LIST was replaced by iteration. ;;; Emitting code for TPL-VARIABLES-COMMAND. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-BDS-COMMAND. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-BACKTRACE. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PRINT-FRS. ;;; Emitting code for BREAK-WHERE. ;;; Emitting code for TPL-PRINT-CURRENT. ;;; Emitting code for TPL-HIDE. ;;; Emitting code for TPL-UNHIDE. ;;; Emitting code for TPL-UNHIDE-PACKAGE. ;;; Emitting code for TPL-UNHIDE-ALL. ;;; Emitting code for TPL-HIDE-PACKAGE. ;;; Emitting code for IHS-VISIBLE. ;;; Emitting code for IHS-FNAME. ;;; Emitting code for SET-CURRENT-IHS. ;;; Note: Eliminating unreachable code ;;; Emitting code for SET-BREAK-ENV. ;;; Emitting code for IHS-SEARCH. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-BACKWARD-SEARCH. ;;; Note: Replacing variable G17260 by its value ;;; Emitting code for TPL-FORWARD-SEARCH. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-APROPOS-COMMAND. ;;; Emitting code for TPL-DOCUMENT-COMMAND. ;;; Note: Emitting linking call for HELP ;;; Emitting code for TPL-STEP-COMMAND. ;;; Note: Emitting linking call for STEP* ;;; Emitting code for TPL-TRACE-COMMAND. ;;; Note: Emitting linking call for TRACE* ;;; Emitting code for TPL-UNTRACE-COMMAND. ;;; Note: Emitting linking call for UNTRACE* ;;; Emitting code for TPL-LOAD-COMMAND. ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-COMPILE-COMMAND. ;;; Note: Eliminating unreachable code ;;; Note: Emitting linking call for COMPILE-FILE ;;; Emitting code for TPL-HELP-COMMAND. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for TPL-HELP-STACK-COMMAND. ;;; Emitting code for DEFAULT-DEBUGGER. ;;; Note: Emitting linking call for COMPUTE-RESTARTS ;;; Note: Eliminating unreachable code ;;; Emitting code for INVOKE-DEBUGGER. ;;; Note: Emitting linking call for DEFAULT-DEBUGGER ;;; Emitting code for SAFE-EVAL. ;;; Emitting code for #:G17295. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/top.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/lsp/top.o" ;;; Finished compiling src:lsp;top.lsp. ;;; Compiling src:clos;kernel.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN CLASS-ID ...). ;;; Compiling (DEFUN CLASS-DIRECT-SUPERCLASSES ...). ;;; Compiling (DEFUN CLASS-DIRECT-SUBCLASSES ...). ;;; Compiling (DEFUN CLASS-SLOTS ...). ;;; Compiling (DEFUN CLASS-PRECEDENCE-LIST ...). ;;; Compiling (DEFUN CLASS-DIRECT-SLOTS ...). ;;; Compiling (DEFUN CLASS-DIRECT-DEFAULT-INITARGS ...). ;;; Compiling (DEFUN CLASS-DEFAULT-INITARGS ...). ;;; Compiling (DEFUN CLASS-FINALIZED-P ...). ;;; Compiling (DEFUN CLASS-SIZE ...). ;;; Compiling (DEFUN CLASS-SEALEDP ...). ;;; Compiling (DEFUN SLOT-TABLE ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-NAME ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-SPEC-LIST ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-METHOD-COMBINATION ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-LAMBDA-LIST ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-METHOD-CLASS ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-METHODS ...). ;;; Compiling (DEFUN GENERIC-FUNCTION-A-P-O-FUNCTION ...). ;;; Compiling (DEFUN METHOD-GENERIC-FUNCTION ...). ;;; Compiling (DEFUN METHOD-LAMBDA-LIST ...). ;;; Compiling (DEFUN METHOD-SPECIALIZERS ...). ;;; Compiling (DEFUN METHOD-QUALIFIERS ...). ;;; Compiling (DEFUN METHOD-FUNCTION ...). ;;; Compiling (DEFUN METHOD-PLIST ...). ;;; Compiling (DEFUN SETF-FIND-CLASS ...). ;;; Warning: in file src:clos;kernel.lsp, position 13, and form ;;; (FSET 'SETF-FIND-CLASS #'(LAMBDA-BLOCK SETF-FIND-CLASS # ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:clos;kernel.lsp, position 13, and form ;;; (FSET 'SETF-FIND-CLASS #'(LAMBDA-BLOCK SETF-FIND-CLASS # ...)) ;;; The variable ERRORP is not used. ;;; Compiling (DEFUN CLASSP ...). ;;; Compiling (DEFUN INSTALL-METHOD ...). ;;; Compiling (DEFUN ENSURE-GENERIC-FUNCTION ...). ;;; Compiling (DEFUN COMPUTE-APPLICABLE-METHODS ...). ;;; Compiling (DEFUN COMPARE-METHODS ...). ;;; Compiling (DEFUN COMPARE-SPECIALIZERS-LISTS ...). ;;; Compiling (DEFUN FAST-SUBTYPEP ...). ;;; Compiling (DEFUN COMPARE-SPECIALIZERS ...). ;;; Compiling (DEFUN COMPUTE-G-F-SPEC-LIST ...). ;;; Compiling (DEFUN PRINT-OBJECT ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclZRL0C2n8_DfNqBfy" for #P"build:clos;kernel.o.NEWEST" ;;; Note: Emitting FUNCALL for SI::DODEFPACKAGE ;;; Emitting code for CLASS-ID. ;;; Emitting code for CLASS-ID. ;;; Emitting code for CLASS-DIRECT-SUPERCLASSES. ;;; Emitting code for CLASS-DIRECT-SUPERCLASSES. ;;; Emitting code for CLASS-DIRECT-SUBCLASSES. ;;; Emitting code for CLASS-DIRECT-SUBCLASSES. ;;; Emitting code for CLASS-SLOTS. ;;; Emitting code for CLASS-SLOTS. ;;; Emitting code for CLASS-PRECEDENCE-LIST. ;;; Emitting code for CLASS-PRECEDENCE-LIST. ;;; Emitting code for CLASS-DIRECT-SLOTS. ;;; Emitting code for CLASS-DIRECT-SLOTS. ;;; Emitting code for CLASS-DIRECT-DEFAULT-INITARGS. ;;; Emitting code for CLASS-DIRECT-DEFAULT-INITARGS. ;;; Emitting code for CLASS-DEFAULT-INITARGS. ;;; Emitting code for CLASS-DEFAULT-INITARGS. ;;; Emitting code for CLASS-FINALIZED-P. ;;; Emitting code for CLASS-FINALIZED-P. ;;; Emitting code for CLASS-SIZE. ;;; Emitting code for CLASS-SIZE. ;;; Emitting code for CLASS-SEALEDP. ;;; Emitting code for CLASS-SEALEDP. ;;; Emitting code for SLOT-TABLE. ;;; Emitting code for SLOT-TABLE. ;;; Emitting code for GENERIC-FUNCTION-NAME. ;;; Emitting code for GENERIC-FUNCTION-NAME. ;;; Emitting code for GENERIC-FUNCTION-SPEC-LIST. ;;; Emitting code for GENERIC-FUNCTION-SPEC-LIST. ;;; Emitting code for GENERIC-FUNCTION-METHOD-COMBINATION. ;;; Emitting code for GENERIC-FUNCTION-METHOD-COMBINATION. ;;; Emitting code for GENERIC-FUNCTION-LAMBDA-LIST. ;;; Emitting code for GENERIC-FUNCTION-LAMBDA-LIST. ;;; Emitting code for GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER. ;;; Emitting code for GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER. ;;; Emitting code for GENERIC-FUNCTION-METHOD-CLASS. ;;; Emitting code for GENERIC-FUNCTION-METHOD-CLASS. ;;; Emitting code for GENERIC-FUNCTION-METHODS. ;;; Emitting code for GENERIC-FUNCTION-METHODS. ;;; Emitting code for GENERIC-FUNCTION-A-P-O-FUNCTION. ;;; Emitting code for GENERIC-FUNCTION-A-P-O-FUNCTION. ;;; Emitting code for METHOD-GENERIC-FUNCTION. ;;; Emitting code for METHOD-GENERIC-FUNCTION. ;;; Emitting code for METHOD-LAMBDA-LIST. ;;; Emitting code for METHOD-LAMBDA-LIST. ;;; Emitting code for METHOD-SPECIALIZERS. ;;; Emitting code for METHOD-SPECIALIZERS. ;;; Emitting code for METHOD-QUALIFIERS. ;;; Emitting code for METHOD-QUALIFIERS. ;;; Emitting code for METHOD-FUNCTION. ;;; Emitting code for METHOD-FUNCTION. ;;; Emitting code for METHOD-PLIST. ;;; Emitting code for METHOD-PLIST. ;;; Emitting code for SETF-FIND-CLASS. ;;; Note: Replacing variable G17326 by its value ;;; Note: Replacing variable G17328 by its value ;;; Emitting code for FIND-CLASS. ;;; Emitting code for CLASSP. ;;; Emitting code for INSTALL-METHOD. ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Replacing variable G17335 by its value ;;; Note: Replacing variable X by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for MAKE-METHOD ;;; Note: Emitting FDEFINITION for ADD-METHOD ;;; Emitting code for ENSURE-GENERIC-FUNCTION. ;;; Note: Replacing variable G17337 by its value ;;; Note: Replacing variable G17338 by its value ;;; Note: Replacing variable G17339 by its value ;;; Note: Replacing variable G17340 by its value ;;; Note: Replacing variable G17341 by its value ;;; Note: Replacing variable G17342 by its value ;;; Note: Replacing variable G17343 by its value ;;; Note: Replacing variable G17344 by its value ;;; Note: Replacing variable G17345 by its value ;;; Note: Replacing variable G17346 by its value ;;; Note: Replacing variable G17347 by its value ;;; Note: Replacing variable G17348 by its value ;;; Note: Replacing variable G17349 by its value ;;; Note: Replacing variable G17351 by its value ;;; Note: Replacing variable G17352 by its value ;;; Emitting code for COMPUTE-APPLICABLE-METHODS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for COMPARE-METHODS. ;;; Emitting code for COMPARE-SPECIALIZERS-LISTS. ;;; Note: Tail-recursive call of COMPARE-SPECIALIZERS-LISTS was replaced by iteration. ;;; Emitting code for FAST-SUBTYPEP. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for COMPARE-SPECIALIZERS. ;;; Emitting code for COMPUTE-G-F-SPEC-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17402 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17409 by its value ;;; Note: Replacing variable G17410 by its value ;;; Emitting code for NUPDATE-SPEC-HOW-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17392 by its value ;;; Emitting code for PRINT-OBJECT. ;;; Note: Emitting FUNCALL for SI::PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/kernel.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/kernel.o" ;;; Finished compiling src:clos;kernel.lsp. ;;; Compiling src:clos;method.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFVAR *METHOD-SIZE* ...). ;;; Compiling (DEFVAR *EARLY-METHODS* ...). ;;; Compiling (DEFVAR *NEXT-METHODS* ...). ;;; Compiling (DEFMACRO DEFMETHOD ...). ;;; Warning: in file src:clos;method.lsp, position 4, and form ;;; (FSET 'DEFMETHOD #'(LAMBDA-BLOCK DEFMETHOD # ...) ...) ;;; Ignore declaration was found for not bound variable REQUIRED-PARAMETERS. ;;; Compiling (DEFUN EXPAND-DEFMETHOD ...). ;;; Note: in file src:clos;method.lsp, position 5, and form ;;; (FSET 'EXPAND-DEFMETHOD #'(LAMBDA-BLOCK EXPAND-DEFMETHOD # ...)) ;;; Removing unused variable AUX-BINDINGS ;;; Compiling (DEFUN ENVIRONMENT-CONTAINS-CLOSURE ...). ;;; Compiling (DEFUN WALK-METHOD-LAMBDA ...). ;;; Warning: in file src:clos;method.lsp, position 7, and form ;;; (FSET 'WALK-METHOD-LAMBDA #'(LAMBDA-BLOCK WALK-METHOD-LAMBDA # ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:clos;method.lsp, position 7, and form ;;; (FSET 'WALK-METHOD-LAMBDA #'(LAMBDA-BLOCK WALK-METHOD-LAMBDA # ...)) ;;; The variable REQUIRED-PARAMETERS is not used. ;;; Compiling (DEFUN LEGAL-GENERIC-FUNCTION-NAME-P ...). ;;; Compiling (DEFUN PARSE-DEFMETHOD ...). ;;; Compiling (DEFUN PARSE-SPECIALIZED-LAMBDA-LIST ...). ;;; Compiling (DEFUN DECLARATION-SPECIALIZERS ...). ;;; Compiling (DEFUN MAKE-METHOD ...). ;;; Compiling (DEFUN METHOD-P ...). ;;; Compiling (DEFUN METHOD-NEEDS-NEXT-METHODS-P ...). ;;; Compiling (DEFUN ADD-METHOD ...). ;;; Compiling (DEFUN FIND-METHOD ...). ;;; Warning: in file src:clos;method.lsp, position 16, and form ;;; (FSET 'FIND-METHOD #'(LAMBDA-BLOCK FIND-METHOD # ...)) ;;; The variable REQUIRED-ARGS is not used. ;;; Note: in file src:clos;method.lsp, position 16, and form ;;; (FSET 'FIND-METHOD #'(LAMBDA-BLOCK FIND-METHOD # ...)) ;;; Removing unused variable FOUND ;;; Compiling (DEFMACRO WITH-SLOTS ...). ;;; Compiling (DEFMACRO WITH-ACCESSORS ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl4EjcYun8_KhNqBfy" for #P"build:clos;method.o.NEWEST" ;;; Emitting code for DEFMETHOD. ;;; Emitting code for EXPAND-DEFMETHOD. ;;; Note: Replacing variable G17417 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17419 by its value ;;; Note: Replacing variable G17420 by its value ;;; Emitting code for ENVIRONMENT-CONTAINS-CLOSURE. ;;; Emitting code for FUNCTION-BOUNDARY. ;;; Emitting code for WALK-METHOD-LAMBDA. ;;; Emitting code for CODE-WALKER. ;;; Note: Replacing variable G17429 by its value ;;; Note: Replacing variable G17432 by its value ;;; Note: Replacing variable G17433 by its value ;;; Note: Replacing variable G17434 by its value ;;; Note: Replacing variable G17435 by its value ;;; Emitting code for LEGAL-GENERIC-FUNCTION-NAME-P. ;;; Emitting code for PARSE-DEFMETHOD. ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-SPECIALIZED-LAMBDA-LIST. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17451 by its value ;;; Note: Replacing variable G17452 by its value ;;; Note: Replacing variable G17457 by its value ;;; Note: Replacing variable G17458 by its value ;;; Emitting code for DECLARATION-SPECIALIZERS. ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-METHOD. ;;; Note: Replacing variable G17478 by its value ;;; Note: Replacing variable G17479 by its value ;;; Note: Replacing variable G17480 by its value ;;; Note: Replacing variable G17481 by its value ;;; Note: Replacing variable G17482 by its value ;;; Note: Replacing variable G17483 by its value ;;; Note: Replacing variable G17484 by its value ;;; Note: Replacing variable G17485 by its value ;;; Note: Replacing variable G17486 by its value ;;; Note: Replacing variable G17487 by its value ;;; Note: Replacing variable G17488 by its value ;;; Note: Replacing variable G17489 by its value ;;; Emitting code for METHOD-P. ;;; Emitting code for METHOD-NEEDS-NEXT-METHODS-P. ;;; Emitting code for ADD-METHOD. ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Note: Replacing variable G17493 by its value ;;; Note: Replacing variable G17491 by its value ;;; Note: Replacing variable G17496 by its value ;;; Note: Replacing variable G17494 by its value ;;; Note: Replacing variable G17497 by its value ;;; Note: Replacing variable G17498 by its value ;;; Note: Replacing variable G17499 by its value ;;; Note: Replacing variable G17501 by its value ;;; Note: Emitting FUNCALL for COMPUTE-G-F-SPEC-LIST ;;; Emitting code for FIND-METHOD. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for METHOD-QUALIFIERS ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Emitting code for WITH-SLOTS. ;;; Note: Eliminating unreachable code ;;; Emitting code for WITH-ACCESSORS. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17536 by its value ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/method.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/method.o" ;;; Finished compiling src:clos;method.lsp. ;;; Compiling src:clos;slot.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN MAKE-SIMPLE-SLOTD ...). ;;; Compiling (DEFUN CANONICAL-SLOT-TO-DIRECT-SLOT ...). ;;; Note: in file src:clos;slot.lsp, position 5, and form ;;; (LET (#) (DOTIMES # #)) ;;; Removing unused variable NAME ;;; Compiling (DEFUN PARSE-SLOT ...). ;;; Compiling (DEFUN PARSE-SLOTS ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclMWYiQJn8_o7OqBfy" for #P"build:clos;slot.o.NEWEST" ;;; Emitting code for MAKE-SIMPLE-SLOTD. ;;; Emitting code for CANONICAL-SLOT-TO-DIRECT-SLOT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17552 by its value ;;; Emitting code for #:G17554. ;;; Emitting code for #:G17557. ;;; Note: Replacing variable G17559 by its value ;;; Note: Replacing variable G17560 by its value ;;; Emitting code for PARSE-SLOT. ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-SLOTS. ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/slot.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/slot.o" ;;; Finished compiling src:clos;slot.lsp. ;;; Compiling src:clos;combin.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN EFFECTIVE-METHOD-FUNCTION ...). ;;; Compiling (DEFUN WRAPPED-METHOD-FUNCTION ...). ;;; Compiling (DEFUN COMBINE-METHOD-FUNCTIONS ...). ;;; Warning: in file src:clos;combin.lsp, position 3, and form ;;; (FSET 'COMBINE-METHOD-FUNCTIONS #'(LAMBDA-BLOCK COMBINE-METHOD-FUNCTIONS # ...)) ;;; The variable NO-NEXT-METHODS is not used. ;;; Compiling (DEFMACRO CALL-METHOD ...). ;;; Compiling (DEFUN CALL-NEXT-METHOD ...). ;;; Compiling (DEFUN NEXT-METHOD-P ...). ;;; Compiling (DEFUN ERROR-QUALIFIER ...). ;;; Compiling (DEFUN STANDARD-MAIN-EFFECTIVE-METHOD ...). ;;; Warning: in file src:clos;combin.lsp, position 10, and form ;;; (FSET 'STANDARD-MAIN-EFFECTIVE-METHOD #'(LAMBDA-BLOCK STANDARD-MAIN-EFFECTIVE-METHOD # ...)) ;;; The variable NO-NEXT-METHOD is not used. ;;; Compiling (DEFUN STANDARD-COMPUTE-EFFECTIVE-METHOD ...). ;;; Compiling (DEFVAR *METHOD-COMBINATIONS* ...). ;;; Compiling (DEFUN INSTALL-METHOD-COMBINATION ...). ;;; Note: in file src:clos;combin.lsp, position 13, and form ;;; (FSET 'INSTALL-METHOD-COMBINATION #'(LAMBDA-BLOCK INSTALL-METHOD-COMBINATION # ...)) ;;; Removing unused variable G17632 ;;; Compiling (DEFUN DEFINE-SIMPLE-METHOD-COMBINATION ...). ;;; Warning: in file src:clos;combin.lsp, position 14, and form ;;; (FSET 'DEFINE-SIMPLE-METHOD-COMBINATION #'(LAMBDA-BLOCK DEFINE-SIMPLE-METHOD-COMBINATION # ...)) ;;; The variable DOCUMENTATION is not used. ;;; Compiling (DEFUN DEFINE-COMPLEX-METHOD-COMBINATION ...). ;;; Warning: in file src:clos;combin.lsp, position 15, and form ;;; (FSET 'DEFINE-COMPLEX-METHOD-COMBINATION #'(LAMBDA-BLOCK DEFINE-COMPLEX-METHOD-COMBINATION # ...)) ;;; The variable DESCRIPTION is not used. ;;; Note: in file src:clos;combin.lsp, position 15, and form ;;; (FSET 'DEFINE-COMPLEX-METHOD-COMBINATION #'(LAMBDA-BLOCK DEFINE-COMPLEX-METHOD-COMBINATION # ...)) ;;; Removing unused variable METHOD-ARGUMENTS ;;; Compiling (DEFMACRO DEFINE-METHOD-COMBINATION ...). ;;; Compiling (DEFUN METHOD-COMBINATION-ERROR ...). ;;; Compiling (DEFUN INVALID-METHOD-ERROR ...). ;;; Compiling (DEFUN COMPUTE-EFFECTIVE-METHOD ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclbh4KmYm8_CyNqBfy" for #P"build:clos;combin.o.NEWEST" ;;; Emitting code for EFFECTIVE-METHOD-FUNCTION. ;;; Note: Emitting FUNCALL for METHOD-P ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for WRAPPED-METHOD-FUNCTION. ;;; Emitting code for #:G17584. ;;; Emitting code for COMBINE-METHOD-FUNCTIONS. ;;; Emitting code for #:G17585. ;;; Emitting code for CALL-METHOD. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for CALL-NEXT-METHOD. ;;; Emitting code for NEXT-METHOD-P. ;;; Emitting code for CALL-NEXT-METHOD. ;;; Emitting code for NEXT-METHOD-P. ;;; Emitting code for ERROR-QUALIFIER. ;;; Emitting code for STANDARD-MAIN-EFFECTIVE-METHOD. ;;; Emitting code for #:G17597. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for STANDARD-COMPUTE-EFFECTIVE-METHOD. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G17620. ;;; Emitting code for INSTALL-METHOD-COMBINATION. ;;; Note: Replacing variable G17630 by its value ;;; Note: Replacing variable G17631 by its value ;;; Emitting code for DEFINE-SIMPLE-METHOD-COMBINATION. ;;; Emitting code for DEFINE-COMPLEX-METHOD-COMBINATION. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17642 by its value ;;; Note: Emitting FUNCALL for SI::SEARCH-KEYWORD ;;; Note: Emitting FUNCALL for SI::SEARCH-KEYWORD ;;; Note: Emitting FUNCALL for SI::SEARCH-KEYWORD ;;; Emitting code for SYNTAX-ERROR. ;;; Emitting code for DEFINE-METHOD-COMBINATION. ;;; Emitting code for METHOD-COMBINATION-ERROR. ;;; Emitting code for INVALID-METHOD-ERROR. ;;; Emitting code for COMPUTE-EFFECTIVE-METHOD. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/combin.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/combin.o" ;;; Finished compiling src:clos;combin.lsp. ;;; Compiling src:clos;boot.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN MAKE-EMPTY-STANDARD-CLASS ...). ;;; Compiling (DEFMETHOD CLASS-PROTOTYPE ...). ;;; Compiling (DEFUN FIND-SLOT-DEFINITION ...). ;;; Compiling (DEFUN SLOT-VALUE ...). ;;; Compiling (DEFUN SLOT-BOUNDP ...). ;;; Compiling (DEFUN (SETF SLOT-VALUE) ...). ;;; Warning: in file src:clos;boot.lsp, position 8, and form ;;; (FSET '(SETF SLOT-VALUE) #'(LAMBDA-BLOCK # # ...)) ;;; Too many arguments for generic function SLOT-MISSING ;;; Compiling (DEFUN SLOT-MAKUNBOUND ...). ;;; Compiling (DEFUN SLOT-EXISTS-P ...). ;;; Compiling (DEFUN STANDARD-INSTANCE-GET ...). ;;; Note: in file src:clos;boot.lsp, position 11, and form ;;; (FSET 'STANDARD-INSTANCE-GET #'(LAMBDA-BLOCK STANDARD-INSTANCE-GET # ...)) ;;; Removing unused variable CLASS ;;; Compiling (DEFUN STANDARD-INSTANCE-SET ...). ;;; Note: in file src:clos;boot.lsp, position 12, and form ;;; (FSET 'STANDARD-INSTANCE-SET #'(LAMBDA-BLOCK STANDARD-INSTANCE-SET # ...)) ;;; Removing unused variable CLASS ;;; Compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...). ;;; Compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...). ;;; Warning: in file src:clos;boot.lsp, position 14, and form ;;; (INSTALL-METHOD 'SLOT-BOUNDP-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...). ;;; Warning: in file src:clos;boot.lsp, position 15, and form ;;; (INSTALL-METHOD '(SETF SLOT-VALUE-USING-CLASS) 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...). ;;; Warning: in file src:clos;boot.lsp, position 16, and form ;;; (INSTALL-METHOD 'SLOT-MAKUNBOUND-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD SLOT-MISSING ...). ;;; Warning: in file src:clos;boot.lsp, position 17, and form ;;; (INSTALL-METHOD 'SLOT-MISSING 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD SLOT-UNBOUND ...). ;;; Warning: in file src:clos;boot.lsp, position 18, and form ;;; (INSTALL-METHOD 'SLOT-UNBOUND 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD CLASS-NAME ...). ;;; Compiling (DEFMETHOD (SETF CLASS-NAME) ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecloZk474n8_ZOOqBfy" for #P"build:clos;boot.o.NEWEST" ;;; Emitting code for MAKE-EMPTY-STANDARD-CLASS. ;;; Note: Replacing variable G17657 by its value ;;; Note: Replacing variable G17658 by its value ;;; Note: Replacing variable G17659 by its value ;;; Note: Replacing variable G17660 by its value ;;; Note: Replacing variable G17661 by its value ;;; Note: Replacing variable G17662 by its value ;;; Note: Replacing variable G17663 by its value ;;; Note: Replacing variable G17664 by its value ;;; Note: Replacing variable G17665 by its value ;;; Note: Replacing variable G17666 by its value ;;; Note: Replacing variable G17667 by its value ;;; Note: Replacing variable G17668 by its value ;;; Note: Replacing variable G17669 by its value ;;; Note: Replacing variable G17670 by its value ;;; Note: Replacing variable G17671 by its value ;;; Note: Replacing variable G17672 by its value ;;; Note: Replacing variable G17673 by its value ;;; Note: Replacing variable G17674 by its value ;;; Note: Replacing variable G17675 by its value ;;; Note: Replacing variable G17676 by its value ;;; Note: Emitting FUNCALL for SETF-FIND-CLASS ;;; Note: Replacing variable G17677 by its value ;;; Note: Emitting FUNCALL for PARSE-SLOTS ;;; Note: Emitting FUNCALL for CANONICAL-SLOT-TO-DIRECT-SLOT ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for PARSE-SLOTS ;;; Note: Emitting FUNCALL for CANONICAL-SLOT-TO-DIRECT-SLOT ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17691 by its value ;;; Note: Replacing variable G17692 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Note: Replacing variable G17694 by its value ;;; Note: Replacing variable G17695 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17701 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Note: Replacing variable G17703 by its value ;;; Note: Replacing variable G17705 by its value ;;; Note: Replacing variable G17707 by its value ;;; Note: Replacing variable G17708 by its value ;;; Note: Replacing variable G17709 by its value ;;; Note: Replacing variable G17710 by its value ;;; Note: Replacing variable G17711 by its value ;;; Note: Replacing variable G17712 by its value ;;; Note: Replacing variable G17713 by its value ;;; Note: Replacing variable G17715 by its value ;;; Note: Replacing variable G17716 by its value ;;; Note: Replacing variable G17717 by its value ;;; Note: Replacing variable G17719 by its value ;;; Note: Replacing variable G17720 by its value ;;; Note: Replacing variable G17721 by its value ;;; Note: Replacing variable G17723 by its value ;;; Note: Replacing variable G17725 by its value ;;; Note: Replacing variable G17727 by its value ;;; Note: Replacing variable G17729 by its value ;;; Note: Replacing variable G17731 by its value ;;; Note: Replacing variable G17741 by its value ;;; Note: Replacing variable G17742 by its value ;;; Note: Replacing variable G17743 by its value ;;; Note: Replacing variable G17745 by its value ;;; Note: Replacing variable G17747 by its value ;;; Emitting code for #:G17755. ;;; Note: Replacing variable G17756 by its value ;;; Note: Replacing variable G17757 by its value ;;; Note: Emitting FDEFINITION for ALLOCATE-INSTANCE ;;; Emitting code for FIND-SLOT-DEFINITION. ;;; Note: Emitting FUNCALL for CLASS-SLOT-TABLE ;;; Emitting code for SLOT-VALUE. ;;; Note: Emitting FUNCALL for SLOT-VALUE-USING-CLASS ;;; Note: Emitting FDEFINITION for SLOT-MISSING ;;; Emitting code for SLOT-BOUNDP. ;;; Note: Emitting FUNCALL for SLOT-BOUNDP-USING-CLASS ;;; Note: Emitting FDEFINITION for SLOT-MISSING ;;; Emitting code for (SETF SLOT-VALUE). ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE-USING-CLASS) ;;; Note: Emitting FDEFINITION for SLOT-MISSING ;;; Emitting code for SLOT-MAKUNBOUND. ;;; Note: Emitting FUNCALL for SLOT-MAKUNBOUND-USING-CLASS ;;; Note: Emitting FDEFINITION for SLOT-MISSING ;;; Emitting code for SLOT-EXISTS-P. ;;; Emitting code for STANDARD-INSTANCE-GET. ;;; Note: Emitting FUNCALL for UPDATE-INSTANCE ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Emitting code for STANDARD-INSTANCE-SET. ;;; Note: Emitting FUNCALL for UPDATE-INSTANCE ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Replacing variable G17759 by its value ;;; Note: Replacing variable G17760 by its value ;;; Emitting code for #:G17761. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for SLOT-UNBOUND ;;; Emitting code for #:G17762. ;;; Emitting code for #:G17763. ;;; Emitting code for #:G17768. ;;; Note: Emitting FUNCALL for UPDATE-INSTANCE ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Replacing variable G17769 by its value ;;; Emitting code for #:G17771. ;;; Emitting code for #:G17772. ;;; Emitting code for #:G17773. ;;; Emitting code for #:G17778. ;;; Note: Replacing variable G17779 by its value ;;; Note: Replacing variable G17780 by its value ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/boot.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/boot.o" ;;; Finished compiling src:clos;boot.lsp. ;;; Compiling src:clos;defclass.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN SELF-EVALUATING-P ...). ;;; Compiling (DEFUN MAKE-FUNCTION-INITFORM ...). ;;; Compiling (DEFUN PARSE-DEFAULT-INITARGS ...). ;;; Compiling (DEFMACRO DEFCLASS ...). ;;; Note: in file src:clos;defclass.lsp, position 4, and form ;;; (FSET 'DEFCLASS #'(LAMBDA-BLOCK DEFCLASS # ...) ...) ;;; Removing unused variable G17872 ;;; Note: in file src:clos;defclass.lsp, position 4, and form ;;; (FSET 'DEFCLASS #'(LAMBDA-BLOCK DEFCLASS # ...) ...) ;;; Replacing variable X by its value # ;;; Note: in file src:clos;defclass.lsp, position 4, and form ;;; (FSET 'DEFCLASS #'(LAMBDA-BLOCK DEFCLASS # ...) ...) ;;; Removing unused variable G17878 ;;; Note: in file src:clos;defclass.lsp, position 4, and form ;;; (FSET 'DEFCLASS #'(LAMBDA-BLOCK DEFCLASS # ...) ...) ;;; Removing unused variable METACLASS-NAME ;;; Note: in file src:clos;defclass.lsp, position 4, and form ;;; (FSET 'DEFCLASS #'(LAMBDA-BLOCK DEFCLASS # ...) ...) ;;; Removing unused variable DEFAULT-INITARGS ;;; Note: in file src:clos;defclass.lsp, position 4, and form ;;; (FSET 'DEFCLASS #'(LAMBDA-BLOCK DEFCLASS # ...) ...) ;;; Removing unused variable DOCUMENTATION ;;; Compiling (DEFUN ENSURE-CLASS ...). ;;; Compiling (DEFUN COMPUTE-CLOS-CLASS-PRECEDENCE-LIST ...). ;;; Note: in file src:clos;defclass.lsp, position 6, and form ;;; (FSET 'COMPUTE-CLOS-CLASS-PRECEDENCE-LIST #'(LAMBDA-BLOCK COMPUTE-CLOS-CLASS-PRECEDENCE-LIST # ...)) ;;; Replacing variable CLASS by its value # ;;; End of Pass 1. ;;; Note: Creating tag: "_ecloZCntZn8_baOqBfy" for #P"build:clos;defclass.o.NEWEST" ;;; Emitting code for SELF-EVALUATING-P. ;;; Emitting code for MAKE-FUNCTION-INITFORM. ;;; Emitting code for ENCLOSE. ;;; Emitting code for PARSE-DEFAULT-INITARGS. ;;; Note: Eliminating unreachable code ;;; Emitting code for DEFCLASS. ;;; Note: Emitting FUNCALL for PARSE-SLOTS ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17870 by its value ;;; Note: Replacing variable G17884 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17876 by its value ;;; Note: Replacing variable G17877 by its value ;;; Note: Replacing variable G17885 by its value ;;; Note: Replacing variable G17886 by its value ;;; Note: Emitting FUNCALL for SI::MAYBE-UNQUOTE ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17899 by its value ;;; Emitting code for ENSURE-CLASS. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Replacing variable G17902 by its value ;;; Note: Emitting FUNCALL for SI:CREATE-TYPE-NAME ;;; Note: Replacing variable G17904 by its value ;;; Note: Replacing variable G17905 by its value ;;; Note: Emitting FUNCALL for SETF-FIND-CLASS ;;; Emitting code for COMPUTE-CLOS-CLASS-PRECEDENCE-LIST. ;;; Note: Eliminating unreachable code ;;; Emitting code for DELETE-CLASS. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G17943 by its value ;;; Emitting code for NEXT-ELEMENT. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FREE-ELEMENTS. ;;; Note: Eliminating unreachable code ;;; Emitting code for HAS-NO-PRECEDENT. ;;; Note: Eliminating unreachable code ;;; Emitting code for CYCLE-ERROR. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for WALK-SUPERS. ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/defclass.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/defclass.o" ;;; Finished compiling src:clos;defclass.lsp. ;;; Compiling src:clos;standard.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMETHOD INITIALIZE-INSTANCE ...). ;;; Compiling (DEFMETHOD REINITIALIZE-INSTANCE ...). ;;; Compiling (DEFMETHOD SHARED-INITIALIZE ...). ;;; Compiling (DEFUN COMPUTE-INSTANCE-SIZE ...). ;;; Compiling (DEFMETHOD ALLOCATE-INSTANCE ...). ;;; Compiling (DEFMETHOD MAKE-INSTANCE ...). ;;; Compiling (DEFUN ADD-DEFAULT-INITARGS ...). ;;; Compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...). ;;; Warning: in file src:clos;standard.lsp, position 8, and form ;;; (INSTALL-METHOD 'DIRECT-SLOT-DEFINITION-CLASS 'NIL ...) ;;; The variable CANONICALIZED-SLOT is not used. ;;; Warning: in file src:clos;standard.lsp, position 8, and form ;;; (INSTALL-METHOD 'DIRECT-SLOT-DEFINITION-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...). ;;; Warning: in file src:clos;standard.lsp, position 9, and form ;;; (INSTALL-METHOD 'EFFECTIVE-SLOT-DEFINITION-CLASS 'NIL ...) ;;; The variable CANONICALIZED-SLOT is not used. ;;; Warning: in file src:clos;standard.lsp, position 9, and form ;;; (INSTALL-METHOD 'EFFECTIVE-SLOT-DEFINITION-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD INITIALIZE-INSTANCE ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Warning: in file src:clos;standard.lsp, position 10, and form ;;; (INSTALL-METHOD 'INITIALIZE-INSTANCE 'NIL ...) ;;; The variable SEALEDP is not used. ;;; Warning: in file src:clos;standard.lsp, position 10, and form ;;; (INSTALL-METHOD 'INITIALIZE-INSTANCE 'NIL ...) ;;; The variable INITARGS is not used. ;;; Compiling (DEFMETHOD SHARED-INITIALIZE ...). ;;; Warning: in file src:clos;standard.lsp, position 11, and form ;;; (INSTALL-METHOD 'SHARED-INITIALIZE '(AFTER) ...) ;;; The variable INITARGS is not used. ;;; Warning: in file src:clos;standard.lsp, position 11, and form ;;; (INSTALL-METHOD 'SHARED-INITIALIZE '(AFTER) ...) ;;; The variable SLOT-NAMES is not used. ;;; Compiling (DEFMETHOD ADD-DIRECT-SUBCLASS ...). ;;; Compiling (DEFMETHOD REMOVE-DIRECT-SUBCLASS ...). ;;; Compiling (DEFMETHOD CHECK-DIRECT-SUPERCLASSES ...). ;;; Compiling (DEFUN FORWARD-REFERENCED-CLASS-P ...). ;;; Compiling (DEFUN FIND-SLOT-DEFINITION ...). ;;; Compiling (DEFMETHOD FINALIZE-INHERITANCE ...). ;;; Warning: in file src:clos;standard.lsp, position 17, and form ;;; (INSTALL-METHOD 'FINALIZE-INHERITANCE 'NIL ...) ;;; Too many arguments for generic function DIRECT-SLOT-DEFINITION-CLASS ;;; Warning: in file src:clos;standard.lsp, position 17, and form ;;; (INSTALL-METHOD 'FINALIZE-INHERITANCE 'NIL ...) ;;; Too many arguments for generic function REINITIALIZE-INSTANCE ;;; Compiling (DEFUN STD-CREATE-SLOTS-TABLE ...). ;;; Compiling (DEFMETHOD FINALIZE-INHERITANCE ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Compiling (DEFMETHOD COMPUTE-CLASS-PRECEDENCE-LIST ...). ;;; Compiling (DEFMETHOD COMPUTE-SLOTS ...). ;;; Compiling (DEFUN SLOT-DEFINITION-TO-LIST ...). ;;; Compiling (DEFUN SAFE-SLOT-DEFINITION-LOCATION ...). ;;; Compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...). ;;; Compiling (DEFMETHOD COMPUTE-DEFAULT-INITARGS ...). ;;; Compiling (DEFMETHOD ENSURE-CLASS-USING-CLASS ...). ;;; Warning: in file src:clos;standard.lsp, position 26, and form ;;; (INSTALL-METHOD 'ENSURE-CLASS-USING-CLASS 'NIL ...) ;;; The variable DIRECT-SUPERCLASSES is not used. ;;; Warning: in file src:clos;standard.lsp, position 26, and form ;;; (INSTALL-METHOD 'ENSURE-CLASS-USING-CLASS 'NIL ...) ;;; The variable DIRECT-DEFAULT-INITARGS is not used. ;;; Warning: in file src:clos;standard.lsp, position 26, and form ;;; (INSTALL-METHOD 'ENSURE-CLASS-USING-CLASS 'NIL ...) ;;; The variable DIRECT-SLOTS is not used. ;;; Compiling (DEFUN COERCE-TO-CLASS ...). ;;; Compiling (DEFUN HELP-ENSURE-CLASS ...). ;;; Compiling (DEFUN CLASS-COMPUTE-SLOTS ...). ;;; Compiling (DEFMETHOD COMPUTE-SLOTS ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Compiling (DEFUN STD-CLASS-COMPUTE-SLOTS ...). ;;; Compiling (DEFMETHOD COMPUTE-SLOTS ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Compiling (DEFUN UNBOUND-SLOT-ERROR ...). ;;; Note: in file src:clos;standard.lsp, position 33, and form ;;; (FSET 'UNBOUND-SLOT-ERROR #'(LAMBDA-BLOCK UNBOUND-SLOT-ERROR # ...)) ;;; In function UNBOUND-SLOT-ERROR, checking types of arguments INDEX OBJECT. ;;; Note: in file src:clos;standard.lsp, position 33, and form ;;; (FSET 'UNBOUND-SLOT-ERROR #'(LAMBDA-BLOCK UNBOUND-SLOT-ERROR # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE INDEX FIXNUM) ;;; Note: in file src:clos;standard.lsp, position 33, and form ;;; (FSET 'UNBOUND-SLOT-ERROR #'(LAMBDA-BLOCK UNBOUND-SLOT-ERROR # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE OBJECT STANDARD-OBJECT) ;;; Compiling (DEFUN SAFE-INSTANCE-REF ...). ;;; Note: in file src:clos;standard.lsp, position 34, and form ;;; (FSET 'SAFE-INSTANCE-REF #'(LAMBDA-BLOCK SAFE-INSTANCE-REF # ...)) ;;; In function SAFE-INSTANCE-REF, checking types of arguments INDEX OBJECT. ;;; Note: in file src:clos;standard.lsp, position 34, and form ;;; (FSET 'SAFE-INSTANCE-REF #'(LAMBDA-BLOCK SAFE-INSTANCE-REF # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE INDEX FIXNUM) ;;; Note: in file src:clos;standard.lsp, position 34, and form ;;; (FSET 'SAFE-INSTANCE-REF #'(LAMBDA-BLOCK SAFE-INSTANCE-REF # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE OBJECT STANDARD-OBJECT) ;;; Compiling (DEFUN STD-CLASS-OPTIMIZED-ACCESSORS ...). ;;; Compiling (DEFUN STD-CLASS-SEALED-ACCESSORS ...). ;;; Warning: in file src:clos;standard.lsp, position 36, and form ;;; (FSET 'STD-CLASS-SEALED-ACCESSORS #'(LAMBDA-BLOCK STD-CLASS-SEALED-ACCESSORS # ...)) ;;; Type declaration was found for not bound variable SLOT-INDEX. ;;; Compiling (DEFUN STD-CLASS-ACCESSORS ...). ;;; Compiling (DEFUN STD-CLASS-GENERATE-ACCESSORS ...). ;;; Note: in file src:clos;standard.lsp, position 38, and form ;;; (FSET 'STD-CLASS-GENERATE-ACCESSORS #'(LAMBDA-BLOCK STD-CLASS-GENERATE-ACCESSORS # ...)) ;;; Removing unused variable OPTIMIZABLE ;;; Compiling (DEFMETHOD DESCRIBE-OBJECT ...). ;;; Compiling (DEFUN VALID-KEYWORDS-FROM-METHODS ...). ;;; Warning: in file src:clos;standard.lsp, position 40, and form ;;; (FSET 'VALID-KEYWORDS-FROM-METHODS #'(LAMBDA-BLOCK VALID-KEYWORDS-FROM-METHODS # ...)) ;;; The variable REQS is not used. ;;; Warning: in file src:clos;standard.lsp, position 40, and form ;;; (FSET 'VALID-KEYWORDS-FROM-METHODS #'(LAMBDA-BLOCK VALID-KEYWORDS-FROM-METHODS # ...)) ;;; The variable OPTS is not used. ;;; Warning: in file src:clos;standard.lsp, position 40, and form ;;; (FSET 'VALID-KEYWORDS-FROM-METHODS #'(LAMBDA-BLOCK VALID-KEYWORDS-FROM-METHODS # ...)) ;;; The variable REST is not used. ;;; Warning: in file src:clos;standard.lsp, position 40, and form ;;; (FSET 'VALID-KEYWORDS-FROM-METHODS #'(LAMBDA-BLOCK VALID-KEYWORDS-FROM-METHODS # ...)) ;;; The variable KEY-FLAG is not used. ;;; Compiling (DEFUN CHECK-INITARGS ...). ;;; Compiling (DEFMETHOD DESCRIBE-OBJECT ...). ;;; Warning: in file src:clos;standard.lsp, position 42, and form ;;; (INSTALL-METHOD 'DESCRIBE-OBJECT 'NIL ...) ;;; The variable STREAM is not used. ;;; End of Pass 1. ;;; Note: Creating tag: "_eclHipyaVm8_GnOqBfy" for #P"build:clos;standard.o.NEWEST" ;;; Emitting code for #:G17952. ;;; Emitting code for #:G17953. ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Emitting code for #:G17996. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITARGS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18015 by its value ;;; Note: Replacing variable G18016 by its value ;;; Note: Replacing variable G18017 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITFORM ;;; Note: Replacing variable G18018 by its value ;;; Note: Replacing variable G18019 by its value ;;; Note: Replacing variable G18020 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for COMPUTE-INSTANCE-SIZE. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Replacing variable G18027 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G18028. ;;; Note: Emitting FUNCALL for CLASS-FINALIZED-P ;;; Note: Emitting FUNCALL for FINALIZE-INHERITANCE ;;; Note: Emitting FUNCALL for CLASS-SIZE ;;; Emitting code for #:G18031. ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FUNCALL for CLASS-PROTOTYPE ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FUNCALL for CLASS-PROTOTYPE ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FDEFINITION for ALLOCATE-INSTANCE ;;; Emitting code for ADD-DEFAULT-INITARGS. ;;; Note: Emitting FUNCALL for CLASS-DEFAULT-INITARGS ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SI::SEARCH-KEYWORD ;;; Note: Replacing variable G18040 by its value ;;; Emitting code for #:G18043. ;;; Emitting code for #:G18044. ;;; Emitting code for #:G18065. ;;; Note: Replacing variable G18066 by its value ;;; Note: Emitting FUNCALL for CANONICAL-SLOT-TO-DIRECT-SLOT ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18074 by its value ;;; Note: Emitting FUNCALL for CHECK-DIRECT-SUPERCLASSES ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for ADD-DIRECT-SUBCLASS ;;; Note: Emitting FUNCALL for FINALIZE-INHERITANCE ;;; Emitting code for #:G18090. ;;; Note: Replacing variable G18091 by its value ;;; Note: Replacing variable G18092 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Replacing variable G18094 by its value ;;; Note: Replacing variable G18095 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for #:G18103. ;;; Note: Replacing variable G18106 by its value ;;; Note: Replacing variable G18104 by its value ;;; Emitting code for #:G18111. ;;; Note: Replacing variable G18112 by its value ;;; Emitting code for #:G18118. ;;; Emitting code for FORWARD-REFERENCED-CLASS-P. ;;; Emitting code for FIND-SLOT-DEFINITION. ;;; Note: Emitting FUNCALL for CLASS-SLOT-TABLE ;;; Emitting code for #:G18163. ;;; Note: Emitting FUNCALL for COMPUTE-CLASS-PRECEDENCE-LIST ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FUNCALL for FINALIZE-INHERITANCE ;;; Note: Replacing variable G18164 by its value ;;; Note: Replacing variable G18165 by its value ;;; Note: Emitting FUNCALL for COMPUTE-SLOTS ;;; Note: Replacing variable G18174 by its value ;;; Note: Replacing variable G18175 by its value ;;; Note: Replacing variable G18176 by its value ;;; Note: Replacing variable G18178 by its value ;;; Note: Emitting FUNCALL for COMPUTE-DEFAULT-INITARGS ;;; Note: Replacing variable G18180 by its value ;;; Note: Replacing variable G18181 by its value ;;; Note: Emitting FUNCALL for CLASS-SEALEDP ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Replacing variable G18194 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18202 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for DIRECT-SLOT-DEFINITION-CLASS ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18205 by its value ;;; Note: Replacing variable G18206 by its value ;;; Note: Emitting FUNCALL for SI::SUBTYPEP-CLEAR-CACHE ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for REINITIALIZE-INSTANCE ;;; Emitting code for STD-CREATE-SLOTS-TABLE. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18219 by its value ;;; Note: Replacing variable G18220 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Replacing variable G18221 by its value ;;; Note: Replacing variable G18222 by its value ;;; Emitting code for #:G18223. ;;; Emitting code for #:G18224. ;;; Note: Emitting FUNCALL for COMPUTE-CLOS-CLASS-PRECEDENCE-LIST ;;; Emitting code for #:G18229. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for COMPUTE-EFFECTIVE-SLOT-DEFINITION ;;; Emitting code for SLOT-DEFINITION-TO-LIST. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITFORM ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITFUNCTION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-TYPE ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITARGS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-READERS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-WRITERS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-DOCUMENTATION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Emitting code for SAFE-SLOT-DEFINITION-LOCATION. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Emitting code for #:G18291. ;;; Emitting code for COMBINE-SLOTDS. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-TYPE ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-TYPE ;;; Note: Replacing variable G18292 by its value ;;; Note: Replacing variable G18293 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Note: Replacing variable G18294 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITARGS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITARGS ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-INITARGS) ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITFORM ;;; Note: Replacing variable G18296 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-INITFORM ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-INITFORM) ;;; Note: Replacing variable G18298 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-READERS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-READERS ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-READERS) ;;; Note: Replacing variable G18300 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-WRITERS ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-WRITERS ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-WRITERS) ;;; Note: Replacing variable G18302 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-TYPE) ;;; Emitting code for DIRECT-TO-EFFECTIVE. ;;; Emitting code for #:G18304. ;;; Note: Emitting FUNCALL for CLASS-DIRECT-DEFAULT-INITARGS ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G18309. ;;; Note: Emitting FDEFINITION for CHANGE-CLASS ;;; Emitting code for COERCE-TO-CLASS. ;;; Note: Emitting FDEFINITION for WARN ;;; Emitting code for HELP-ENSURE-CLASS. ;;; Note: Replacing variable G18315 by its value ;;; Note: Replacing variable G18317 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for CLASS-COMPUTE-SLOTS. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Replacing variable G18326 by its value ;;; Note: Replacing variable G18327 by its value ;;; Note: Replacing variable G18328 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18332 by its value ;;; Note: Replacing variable G18333 by its value ;;; Note: Replacing variable G18334 by its value ;;; Note: Replacing variable G18335 by its value ;;; Note: Replacing variable G18336 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G18337. ;;; Emitting code for STD-CLASS-COMPUTE-SLOTS. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Replacing variable G18346 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Replacing variable G18353 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Emitting FDEFINITION for (SETF SLOT-DEFINITION-LOCATION) ;;; Emitting code for #:G18355. ;;; Emitting code for UNBOUND-SLOT-ERROR. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOTD-UNBOUND ;;; Emitting code for SAFE-INSTANCE-REF. ;;; Emitting code for STD-CLASS-OPTIMIZED-ACCESSORS. ;;; Emitting code for #:G18362. ;;; Note: Emitting FDEFINITION for SLOT-UNBOUND ;;; Emitting code for #:G18363. ;;; Emitting code for STD-CLASS-SEALED-ACCESSORS. ;;; Emitting code for #:G18364. ;;; Emitting code for #:G18365. ;;; Emitting code for STD-CLASS-ACCESSORS. ;;; Emitting code for #:G18366. ;;; Emitting code for #:G18367. ;;; Note: Replacing variable G18371 by its value ;;; Note: Replacing variable G18373 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for STD-CLASS-GENERATE-ACCESSORS. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-LOCATION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-READERS ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-WRITERS ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G18395. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Emitting code for VALID-KEYWORDS-FROM-METHODS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for CHECK-INITARGS. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18425 by its value ;;; Note: Replacing variable G18426 by its value ;;; Emitting code for #:G18427. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/standard.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/standard.o" ;;; Finished compiling src:clos;standard.lsp. ;;; Compiling src:clos;builtin.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Warning: in file src:clos;builtin.lsp, position 1, and form ;;; (LET* (# #) (DECLARE #) ...) ;;; Too many arguments for generic function MAKE-INSTANCE ;;; Compiling (DEFMETHOD MAKE-INSTANCE ...). ;;; Warning: in file src:clos;builtin.lsp, position 5, and form ;;; (BLOCK NIL (LET # # ...)) ;;; Too many arguments for generic function MAKE-INSTANCE ;;; Compiling (DEFMETHOD ENSURE-CLASS-USING-CLASS ...). ;;; Warning: in file src:clos;builtin.lsp, position 6, and form ;;; (INSTALL-METHOD 'ENSURE-CLASS-USING-CLASS 'NIL ...) ;;; The variable DIRECT-SUPERCLASSES is not used. ;;; Warning: in file src:clos;builtin.lsp, position 6, and form ;;; (INSTALL-METHOD 'ENSURE-CLASS-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD CHANGE-CLASS ...). ;;; Compiling (DEFMETHOD MAKE-INSTANCES-OBSOLETE ...). ;;; Compiling (DEFMETHOD MAKE-INSTANCE ...). ;;; Compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...). ;;; Warning: in file src:clos;builtin.lsp, position 10, and form ;;; (INSTALL-METHOD 'SLOT-MAKUNBOUND-USING-CLASS 'NIL ...) ;;; The variable SLOTD is not used. ;;; Warning: in file src:clos;builtin.lsp, position 10, and form ;;; (INSTALL-METHOD 'SLOT-MAKUNBOUND-USING-CLASS 'NIL ...) ;;; The variable SELF is not used. ;;; Warning: in file src:clos;builtin.lsp, position 10, and form ;;; (INSTALL-METHOD 'SLOT-MAKUNBOUND-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...). ;;; Warning: in file src:clos;builtin.lsp, position 11, and form ;;; (INSTALL-METHOD 'SLOT-BOUNDP-USING-CLASS 'NIL ...) ;;; The variable SLOTD is not used. ;;; Warning: in file src:clos;builtin.lsp, position 11, and form ;;; (INSTALL-METHOD 'SLOT-BOUNDP-USING-CLASS 'NIL ...) ;;; The variable SELF is not used. ;;; Warning: in file src:clos;builtin.lsp, position 11, and form ;;; (INSTALL-METHOD 'SLOT-BOUNDP-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...). ;;; Warning: in file src:clos;builtin.lsp, position 12, and form ;;; (INSTALL-METHOD 'SLOT-VALUE-USING-CLASS 'NIL ...) ;;; The variable SLOTD is not used. ;;; Warning: in file src:clos;builtin.lsp, position 12, and form ;;; (INSTALL-METHOD 'SLOT-VALUE-USING-CLASS 'NIL ...) ;;; The variable SELF is not used. ;;; Warning: in file src:clos;builtin.lsp, position 12, and form ;;; (INSTALL-METHOD 'SLOT-VALUE-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...). ;;; Warning: in file src:clos;builtin.lsp, position 13, and form ;;; (INSTALL-METHOD '(SETF SLOT-VALUE-USING-CLASS) 'NIL ...) ;;; The variable SLOTD is not used. ;;; Warning: in file src:clos;builtin.lsp, position 13, and form ;;; (INSTALL-METHOD '(SETF SLOT-VALUE-USING-CLASS) 'NIL ...) ;;; The variable SELF is not used. ;;; Warning: in file src:clos;builtin.lsp, position 13, and form ;;; (INSTALL-METHOD '(SETF SLOT-VALUE-USING-CLASS) 'NIL ...) ;;; The variable CLASS is not used. ;;; Warning: in file src:clos;builtin.lsp, position 13, and form ;;; (INSTALL-METHOD '(SETF SLOT-VALUE-USING-CLASS) 'NIL ...) ;;; The variable VAL is not used. ;;; Compiling (DEFMETHOD SLOT-EXISTS-P-USING-CLASS ...). ;;; Warning: in file src:clos;builtin.lsp, position 14, and form ;;; (INSTALL-METHOD 'SLOT-EXISTS-P-USING-CLASS 'NIL ...) ;;; The variable SLOTD is not used. ;;; Warning: in file src:clos;builtin.lsp, position 14, and form ;;; (INSTALL-METHOD 'SLOT-EXISTS-P-USING-CLASS 'NIL ...) ;;; The variable SELF is not used. ;;; Warning: in file src:clos;builtin.lsp, position 14, and form ;;; (INSTALL-METHOD 'SLOT-EXISTS-P-USING-CLASS 'NIL ...) ;;; The variable CLASS is not used. ;;; Compiling (DEFCLASS STRUCTURE-CLASS ...). ;;; Warning: Ignoring class definition for STRUCTURE-CLASS ;;; Compiling (DEFMETHOD MAKE-INSTANCE ...). ;;; Compiling (DEFMETHOD FINALIZE-INHERITANCE ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Compiling (DEFCLASS STRUCTURE-OBJECT ...). ;;; Warning: Ignoring class definition for STRUCTURE-OBJECT ;;; Compiling (DEFMETHOD MAKE-LOAD-FORM ...). ;;; Warning: in file src:clos;builtin.lsp, position 19, and form ;;; (INSTALL-METHOD 'MAKE-LOAD-FORM 'NIL ...) ;;; The variable ENVIRONMENT is not used. ;;; Compiling (DEFMETHOD PRINT-OBJECT ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclEL9ibdm8_1KPqBfy" for #P"build:clos;builtin.o.NEWEST" ;;; Note: Replacing variable G18437 by its value ;;; Note: Emitting FDEFINITION for MAKE-INSTANCE ;;; Note: Emitting FUNCALL for SETF-FIND-CLASS ;;; Emitting code for #:G18439. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for MAKE-INSTANCE ;;; Note: Replacing variable G18453 by its value ;;; Note: Replacing variable G18454 by its value ;;; Note: Emitting FUNCALL for SETF-FIND-CLASS ;;; Note: Replacing variable G18455 by its value ;;; Note: Replacing variable G18456 by its value ;;; Note: Replacing variable G18457 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G18459. ;;; Emitting code for #:G18460. ;;; Emitting code for #:G18461. ;;; Note: Emitting FDEFINITION for MAKE-INSTANCES-OBSOLETE ;;; Emitting code for #:G18462. ;;; Emitting code for #:G18463. ;;; Emitting code for #:G18464. ;;; Emitting code for #:G18465. ;;; Emitting code for #:G18466. ;;; Emitting code for #:G18467. ;;; Emitting code for #:G18468. ;;; Emitting code for #:G18471. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for #:G18477. ;;; Note: Emitting FDEFINITION for MAKE-LOAD-FORM-SAVING-SLOTS ;;; Emitting code for #:G18478. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/builtin.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/builtin.o" ;;; Finished compiling src:clos;builtin.lsp. ;;; Compiling src:clos;change.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFCLASS FORWARD-REFERENCED-CLASS ...). ;;; Warning: Ignoring class definition for FORWARD-REFERENCED-CLASS ;;; Compiling (DEFMETHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...). ;;; Note: in file src:clos;change.lsp, position 2, and form ;;; (INSTALL-METHOD 'UPDATE-INSTANCE-FOR-DIFFERENT-CLASS 'NIL ...) ;;; In function G18486, checking types of arguments NEW-DATA OLD-DATA. ;;; Compiling (DEFMETHOD CHANGE-CLASS ...). ;;; Note: in file src:clos;change.lsp, position 3, and form ;;; (INSTALL-METHOD 'CHANGE-CLASS 'NIL ...) ;;; In function G18516, checking types of arguments NEW-CLASS INSTANCE. ;;; Warning: in file src:clos;change.lsp, position 3, and form ;;; (INSTALL-METHOD 'CHANGE-CLASS 'NIL ...) ;;; The variable OLD-LOCAL-SLOTDS is not used. ;;; Compiling (DEFMETHOD CHANGE-CLASS ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Warning: in file src:clos;change.lsp, position 4, and form ;;; (INSTALL-METHOD 'CHANGE-CLASS 'NIL ...) ;;; The variable INITARGS is not used. ;;; Warning: in file src:clos;change.lsp, position 4, and form ;;; (INSTALL-METHOD 'CHANGE-CLASS 'NIL ...) ;;; The variable NEW-CLASS is not used. ;;; Compiling (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...). ;;; Warning: in file src:clos;change.lsp, position 5, and form ;;; (INSTALL-METHOD 'UPDATE-INSTANCE-FOR-REDEFINED-CLASS 'NIL ...) ;;; The ignored variable DISCARDED-SLOTS is used. ;;; Warning: in file src:clos;change.lsp, position 5, and form ;;; (INSTALL-METHOD 'UPDATE-INSTANCE-FOR-REDEFINED-CLASS 'NIL ...) ;;; The ignored variable PROPERTY-LIST is used. ;;; Compiling (DEFUN UPDATE-INSTANCE ...). ;;; Compiling (DEFMETHOD REINITIALIZE-INSTANCE ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Warning: in file src:clos;change.lsp, position 8, and form ;;; (INSTALL-METHOD 'REINITIALIZE-INSTANCE 'NIL ...) ;;; The variable INITARGS is not used. ;;; Compiling (DEFMETHOD MAKE-INSTANCES-OBSOLETE ...). ;;; Compiling (DEFUN REMOVE-OPTIONAL-SLOT-ACCESSORS ...). ;;; Note: in file src:clos;change.lsp, position 10, and form ;;; (FSET 'REMOVE-OPTIONAL-SLOT-ACCESSORS #'(LAMBDA-BLOCK REMOVE-OPTIONAL-SLOT-ACCESSORS # ...)) ;;; In function REMOVE-OPTIONAL-SLOT-ACCESSORS, checking types of arguments CLASS. ;;; Note: in file src:clos;change.lsp, position 10, and form ;;; (FSET 'REMOVE-OPTIONAL-SLOT-ACCESSORS #'(LAMBDA-BLOCK REMOVE-OPTIONAL-SLOT-ACCESSORS # ...)) ;;; Unable to emit check for variable (OPTIONAL-CHECK-TYPE CLASS CLASS) ;;; End of Pass 1. ;;; Note: Creating tag: "_eclvDnvqan8_9SPqBfy" for #P"build:clos;change.o.NEWEST" ;;; Emitting code for #:G18486. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FUNCALL for CHECK-INITARGS ;;; Emitting code for #:G18516. ;;; Note: Emitting FUNCALL for CLASS-SIZE ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Replacing variable G18528 by its value ;;; Note: Replacing variable G18529 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for #:G18531. ;;; Note: Emitting FUNCALL for FORWARD-REFERENCED-CLASS-P ;;; Emitting code for #:G18532. ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FDEFINITION for COMPUTE-APPLICABLE-METHODS ;;; Note: Emitting FUNCALL for CHECK-INITARGS ;;; Emitting code for UPDATE-INSTANCE. ;;; Note: Emitting FUNCALL for CLASS-SIZE ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for UPDATE-INSTANCE-FOR-REDEFINED-CLASS ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Emitting code for #:G18581. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FUNCALL for CLASS-FINALIZED-P ;;; Note: Replacing variable G18582 by its value ;;; Note: Emitting FUNCALL for CANONICAL-SLOT-TO-DIRECT-SLOT ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18590 by its value ;;; Note: Emitting FUNCALL for CHECK-DIRECT-SUPERCLASSES ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for ADD-DIRECT-SUBCLASS ;;; Note: Replacing variable G18594 by its value ;;; Note: Replacing variable G18595 by its value ;;; Note: Emitting FUNCALL for FINALIZE-INHERITANCE ;;; Emitting code for #:G18600. ;;; Note: Replacing variable G18601 by its value ;;; Emitting code for REMOVE-OPTIONAL-SLOT-ACCESSORS. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-READERS ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-WRITERS ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/change.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/change.o" ;;; Finished compiling src:clos;change.lsp. ;;; Compiling src:clos;stdmethod.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFCLASS GENERIC-FUNCTION ...). ;;; Warning: Ignoring class definition for GENERIC-FUNCTION ;;; Compiling (DEFCLASS STANDARD-GENERIC-FUNCTION ...). ;;; Warning: Ignoring class definition for STANDARD-GENERIC-FUNCTION ;;; Compiling (DEFCLASS METHOD ...). ;;; Warning: Ignoring class definition for METHOD ;;; Compiling (DEFCLASS STANDARD-METHOD ...). ;;; Warning: Ignoring class definition for STANDARD-METHOD ;;; Compiling (DEFUN FUNCTION-KEYWORDS ...). ;;; Warning: in file src:clos;stdmethod.lsp, position 5, and form ;;; (FSET 'FUNCTION-KEYWORDS #'(LAMBDA-BLOCK FUNCTION-KEYWORDS # ...)) ;;; The variable REQS is not used. ;;; Warning: in file src:clos;stdmethod.lsp, position 5, and form ;;; (FSET 'FUNCTION-KEYWORDS #'(LAMBDA-BLOCK FUNCTION-KEYWORDS # ...)) ;;; The variable OPTS is not used. ;;; Warning: in file src:clos;stdmethod.lsp, position 5, and form ;;; (FSET 'FUNCTION-KEYWORDS #'(LAMBDA-BLOCK FUNCTION-KEYWORDS # ...)) ;;; The variable REST-VAR is not used. ;;; Compiling (DEFCLASS STANDARD-ACCESSOR-METHOD ...). ;;; Warning: Ignoring class definition for STANDARD-ACCESSOR-METHOD ;;; Compiling (DEFCLASS STANDARD-READER-METHOD ...). ;;; Warning: Ignoring class definition for STANDARD-READER-METHOD ;;; Compiling (DEFCLASS STANDARD-WRITER-METHOD ...). ;;; Warning: Ignoring class definition for STANDARD-WRITER-METHOD ;;; End of Pass 1. ;;; Note: Creating tag: "_eclGaLfEdn8_9ePqBfy" for #P"build:clos;stdmethod.o.NEWEST" ;;; Emitting code for #:G18620. ;;; Emitting code for FUNCTION-KEYWORDS. ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/stdmethod.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/stdmethod.o" ;;; Finished compiling src:clos;stdmethod.lsp. ;;; Compiling src:clos;generic.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMACRO DEFGENERIC ...). ;;; Note: in file src:clos;generic.lsp, position 1, and form ;;; (FSET 'DEFGENERIC #'(LAMBDA-BLOCK DEFGENERIC # ...) ...) ;;; Replacing variable M by its value # ;;; Compiling (DEFUN PARSE-DEFGENERIC ...). ;;; Compiling (DEFUN PARSE-GENERIC-OPTIONS ...). ;;; Compiling (DEFUN PARSE-LAMBDA-LIST ...). ;;; Compiling (DEFUN VALID-DECLARATION-P ...). ;;; Compiling (DEFUN LAMBDA-LIST-REQUIRED-ARGUMENTS ...). ;;; Compiling (DEFMETHOD SHARED-INITIALIZE ...). ;;; Variable STRING was undefined. Compiler assumes it is a global. ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Warning: in file src:clos;generic.lsp, position 7, and form ;;; (INSTALL-METHOD 'SHARED-INITIALIZE 'NIL ...) ;;; The variable INITARGS is not used. ;;; Warning: in file src:clos;generic.lsp, position 7, and form ;;; (INSTALL-METHOD 'SHARED-INITIALIZE 'NIL ...) ;;; The variable SLOT-NAMES is not used. ;;; Compiling (DEFMETHOD SHARED-INITIALIZE ...). ;;; Variable .COMBINED-METHOD-ARGS. was undefined. Compiler assumes it is a global. ;;; Warning: in file src:clos;generic.lsp, position 8, and form ;;; (INSTALL-METHOD 'SHARED-INITIALIZE 'NIL ...) ;;; The variable INITARGS is not used. ;;; Warning: in file src:clos;generic.lsp, position 8, and form ;;; (INSTALL-METHOD 'SHARED-INITIALIZE 'NIL ...) ;;; The variable SLOT-NAMES is not used. ;;; Compiling (DEFUN ASSOCIATE-METHODS-TO-GFUN ...). ;;; Note: in file src:clos;generic.lsp, position 9, and form ;;; (FSET 'ASSOCIATE-METHODS-TO-GFUN #'(LAMBDA-BLOCK ASSOCIATE-METHODS-TO-GFUN # ...)) ;;; Removing unused variable G18689 ;;; Compiling (DEFMETHOD ENSURE-GENERIC-FUNCTION-USING-CLASS ...). ;;; Compiling (DEFMETHOD ENSURE-GENERIC-FUNCTION-USING-CLASS ...). ;;; Warning: in file src:clos;generic.lsp, position 11, and form ;;; (INSTALL-METHOD 'ENSURE-GENERIC-FUNCTION-USING-CLASS 'NIL ...) ;;; The variable DELETE-METHODS is not used. ;;; Warning: in file src:clos;generic.lsp, position 11, and form ;;; (INSTALL-METHOD 'ENSURE-GENERIC-FUNCTION-USING-CLASS 'NIL ...) ;;; The variable GFUN is not used. ;;; Compiling (DEFUN ENSURE-GENERIC-FUNCTION ...). ;;; Warning: in file src:clos;generic.lsp, position 12, and form ;;; (FSET 'ENSURE-GENERIC-FUNCTION #'(LAMBDA-BLOCK ENSURE-GENERIC-FUNCTION # ...)) ;;; Too few arguments for proclaimed function GET-SYSPROP ;;; End of Pass 1. ;;; Note: Creating tag: "_eclSCOAdVo8_miPqBfy" for #P"build:clos;generic.o.NEWEST" ;;; Emitting code for DEFGENERIC. ;;; Note: Replacing variable G18637 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-DEFGENERIC. ;;; Emitting code for PARSE-GENERIC-OPTIONS. ;;; Note: Eliminating unreachable code ;;; Emitting code for PARSE-LAMBDA-LIST. ;;; Emitting code for VALID-DECLARATION-P. ;;; Note: Eliminating unreachable code ;;; Emitting code for LAMBDA-LIST-REQUIRED-ARGUMENTS. ;;; Emitting code for #:G18664. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18676 by its value ;;; Emitting code for #:G18671. ;;; Note: Emitting FUNCALL for CONGRUENT-LAMBDA-P ;;; Emitting code for #:G18678. ;;; Note: Emitting FUNCALL for COMPUTE-G-F-SPEC-LIST ;;; Emitting code for ASSOCIATE-METHODS-TO-GFUN. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18685 by its value ;;; Note: Replacing variable G18687 by its value ;;; Note: Replacing variable G18688 by its value ;;; Emitting code for #:G18714. ;;; Note: Replacing variable G18717 by its value ;;; Note: Replacing variable G18719 by its value ;;; Note: Replacing variable G18721 by its value ;;; Note: Replacing variable G18723 by its value ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for REMOVE-METHOD ;;; Note: Emitting FUNCALL for CLASSP ;;; Emitting code for #:G18751. ;;; Note: Reusing keywords lists for (METHOD-CLASS GENERIC-FUNCTION-CLASS DELETE-METHODS) ;;; Note: Replacing variable G18754 by its value ;;; Note: Replacing variable G18756 by its value ;;; Note: Replacing variable G18758 by its value ;;; Note: Replacing variable G18760 by its value ;;; Note: Emitting FUNCALL for CLASSP ;;; Emitting code for ENSURE-GENERIC-FUNCTION. ;;; Note: Emitting FUNCALL for LEGAL-GENERIC-FUNCTION-NAME-P ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/generic.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/generic.o" ;;; Finished compiling src:clos;generic.lsp. ;;; Compiling src:clos;fixup.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN CONVERT-ONE-CLASS ...). ;;; Note: in file src:clos;fixup.lsp, position 2, and form ;;; (EVAL `(PROGN # # ...)) ;;; Replacing variable X by its value # ;;; Compiling (DEFMETHOD READER-METHOD-CLASS ...). ;;; Note: in file src:clos;fixup.lsp, position 3, and form ;;; (INSTALL-METHOD 'READER-METHOD-CLASS 'NIL ...) ;;; In function G18783, checking types of arguments DIRECT-SLOT CLASS. ;;; Warning: in file src:clos;fixup.lsp, position 3, and form ;;; (INSTALL-METHOD 'READER-METHOD-CLASS 'NIL ...) ;;; The variable INITARGS is not used. ;;; Compiling (DEFMETHOD WRITER-METHOD-CLASS ...). ;;; Note: in file src:clos;fixup.lsp, position 4, and form ;;; (INSTALL-METHOD 'WRITER-METHOD-CLASS 'NIL ...) ;;; In function G18789, checking types of arguments DIRECT-SLOT CLASS. ;;; Warning: in file src:clos;fixup.lsp, position 4, and form ;;; (INSTALL-METHOD 'WRITER-METHOD-CLASS 'NIL ...) ;;; The variable INITARGS is not used. ;;; Compiling (DEFUN METHOD-P ...). ;;; Compiling (DEFUN MAKE-METHOD ...). ;;; Compiling (DEFUN ALL-KEYWORDS ...). ;;; Compiling (DEFUN CONGRUENT-LAMBDA-P ...). ;;; Warning: in file src:clos;fixup.lsp, position 9, and form ;;; (FSET 'CONGRUENT-LAMBDA-P #'(LAMBDA-BLOCK CONGRUENT-LAMBDA-P # ...)) ;;; The variable A-O-K1 is not used. ;;; Compiling (DEFUN ADD-METHOD ...). ;;; Warning: in file src:clos;fixup.lsp, position 10, and form ;;; (FSET 'ADD-METHOD #'(LAMBDA-BLOCK ADD-METHOD # ...)) ;;; Too many arguments for generic function REINITIALIZE-INSTANCE ;;; Compiling (DEFUN REMOVE-METHOD ...). ;;; Compiling (DEFMETHOD NO-APPLICABLE-METHOD ...). ;;; Compiling (DEFMETHOD NO-NEXT-METHOD ...). ;;; Warning: in file src:clos;fixup.lsp, position 16, and form ;;; (INSTALL-METHOD 'NO-NEXT-METHOD 'NIL ...) ;;; The ignored variable ARGS is used. ;;; Compiling (DEFUN NO-PRIMARY-METHOD ...). ;;; Compiling (DEFUN SETF-FIND-CLASS ...). ;;; Warning: in file src:clos;fixup.lsp, position 18, and form ;;; (FSET 'SETF-FIND-CLASS #'(LAMBDA-BLOCK SETF-FIND-CLASS # ...)) ;;; The variable ENV is not used. ;;; Warning: in file src:clos;fixup.lsp, position 18, and form ;;; (FSET 'SETF-FIND-CLASS #'(LAMBDA-BLOCK SETF-FIND-CLASS # ...)) ;;; The variable ERRORP is not used. ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl7ozDL0n8_ptPqBfy" for #P"build:clos;fixup.o.NEWEST" ;;; Emitting code for CONVERT-ONE-CLASS. ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-TO-LIST ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-TO-LIST ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for STD-CREATE-SLOTS-TABLE ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18782 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for MAKE-INSTANCES-OBSOLETE ;;; Emitting code for #:G18783. ;;; Emitting code for #:G18789. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18800 by its value ;;; Note: Replacing variable G18801 by its value ;;; Note: Replacing variable G18802 by its value ;;; Note: Replacing variable G18803 by its value ;;; Note: Replacing variable G18804 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Eliminating unreachable code ;;; Emitting code for METHOD-P. ;;; Emitting code for MAKE-METHOD. ;;; Emitting code for ALL-KEYWORDS. ;;; Note: Eliminating unreachable code ;;; Emitting code for CONGRUENT-LAMBDA-P. ;;; Emitting code for ADD-METHOD. ;;; Note: Emitting FDEFINITION for REINITIALIZE-INSTANCE ;;; Note: Emitting FDEFINITION for METHOD-QUALIFIERS ;;; Note: Emitting FDEFINITION for FIND-METHOD ;;; Note: Replacing variable G18817 by its value ;;; Note: Replacing variable G18815 by its value ;;; Note: Replacing variable G18818 by its value ;;; Note: Replacing variable G18819 by its value ;;; Note: Emitting FUNCALL for COMPUTE-G-F-SPEC-LIST ;;; Note: Replacing variable G18822 by its value ;;; Note: Replacing variable G18825 by its value ;;; Emitting code for REMOVE-METHOD. ;;; Note: Replacing variable G18830 by its value ;;; Note: Replacing variable G18832 by its value ;;; Note: Replacing variable G18833 by its value ;;; Emitting code for #:G18834. ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Emitting code for #:G18835. ;;; Emitting code for NO-PRIMARY-METHOD. ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Emitting code for SETF-FIND-CLASS. ;;; Note: Emitting FUNCALL for CLASSP ;;; Note: Replacing variable G18842 by its value ;;; Note: Replacing variable G18844 by its value ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/fixup.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/fixup.o" ;;; Finished compiling src:clos;fixup.lsp. ;;; Compiling src:clos;print.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN MAKE-LOAD-FORM-SAVING-SLOTS ...). ;;; Compiling (DEFUN NEED-TO-MAKE-LOAD-FORM-P ...). ;;; Compiling (DEFMETHOD MAKE-LOAD-FORM ...). ;;; Warning: in file src:clos;print.lsp, position 3, and form ;;; (INSTALL-METHOD 'MAKE-LOAD-FORM 'NIL ...) ;;; The variable ENVIRONMENT is not used. ;;; Compiling (DEFMETHOD MAKE-LOAD-FORM ...). ;;; Warning: in file src:clos;print.lsp, position 4, and form ;;; (INSTALL-METHOD 'MAKE-LOAD-FORM 'NIL ...) ;;; The variable ENVIRONMENT is not used. ;;; Compiling (DEFMETHOD MAKE-LOAD-FORM ...). ;;; Warning: in file src:clos;print.lsp, position 5, and form ;;; (INSTALL-METHOD 'MAKE-LOAD-FORM 'NIL ...) ;;; The variable ENVIRONMENT is not used. ;;; Compiling (DEFMETHOD MAKE-LOAD-FORM ...). ;;; Warning: in file src:clos;print.lsp, position 6, and form ;;; (INSTALL-METHOD 'MAKE-LOAD-FORM 'NIL ...) ;;; The variable ENVIRONMENT is not used. ;;; Compiling (DEFMETHOD PRINT-OBJECT ...). ;;; Compiling (DEFMETHOD PRINT-OBJECT ...). ;;; Compiling (DEFMETHOD PRINT-OBJECT ...). ;;; Compiling (DEFMETHOD PRINT-OBJECT ...). ;;; Compiling (DEFMETHOD DESCRIBE-OBJECT ...). ;;; Compiling (DEFMETHOD DESCRIBE-OBJECT ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclHugaSyn8_wmPqBfy" for #P"build:clos;print.o.NEWEST" ;;; Emitting code for MAKE-LOAD-FORM-SAVING-SLOTS. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-ALLOCATION ;;; Emitting code for NEED-TO-MAKE-LOAD-FORM-P. ;;; Emitting code for RECURSIVE-TEST. ;;; Note: Replacing variable G18853 by its value ;;; Note: Replacing variable G18855 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G18861 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G18878. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for MAYBE-QUOTE. ;;; Emitting code for #:G18894. ;;; Emitting code for #:G18895. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for #:G18896. ;;; Emitting code for #:G18897. ;;; Note: Emitting FUNCALL for SI::PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Emitting code for SI::.PRINT-UNREADABLE-OBJECT-BODY.. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for #:G18898. ;;; Note: Emitting FUNCALL for SI::PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Emitting code for SI::.PRINT-UNREADABLE-OBJECT-BODY.. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for #:G18899. ;;; Note: Emitting FUNCALL for SI::PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Emitting code for SI::.PRINT-UNREADABLE-OBJECT-BODY.. ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Emitting code for #:G18900. ;;; Note: Emitting FUNCALL for SI::PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Emitting code for SI::.PRINT-UNREADABLE-OBJECT-BODY.. ;;; Note: Emitting FUNCALL for GENERIC-FUNCTION-NAME ;;; Emitting code for #:G18901. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for #:G18906. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/print.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/print.o" ;;; Finished compiling src:clos;print.lsp. ;;; Compiling src:clos;inspect.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFMETHOD SELECT-CLOS-N ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-N ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-N ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-L ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-L ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-L ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-J ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-J ...). ;;; Compiling (DEFMETHOD SELECT-CLOS-J ...). ;;; Compiling (DEFUN SELECT-CLOS-? ...). ;;; Compiling (DEFMETHOD INSPECT-OBJ ...). ;;; Compiling (DEFMETHOD INSPECT-OBJ ...). ;;; Compiling (DEFMETHOD INSPECT-OBJ ...). ;;; Compiling (DEFGENERIC DOCUMENTATION ...). ;;; Compiling (DEFGENERIC (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; Compiling (DEFMETHOD DOCUMENTATION ...). ;;; Compiling (DEFMETHOD (SETF DOCUMENTATION) ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_ecl4tMWj4o8_gDQqBfy" for #P"build:clos;inspect.o.NEWEST" ;;; Emitting code for #:G18984. ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Replacing variable G18992 by its value ;;; Note: Replacing variable G18994 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Replacing variable G18995 by its value ;;; Note: Replacing variable G18997 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Replacing variable G19007 by its value ;;; Note: Replacing variable G19009 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Replacing variable G19010 by its value ;;; Note: Replacing variable G19012 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Emitting code for #:G19025. ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Emitting code for #:G19045. ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Emitting code for #:G19059. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for #:G19072. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for #:G19080. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for #:G19106. ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Replacing variable G19110 by its value ;;; Note: Replacing variable G19112 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Replacing variable G19113 by its value ;;; Note: Replacing variable G19115 by its value ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for #:G19126. ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for #:G19140. ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT-1 ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SI::READ-INSPECT-COMMAND ;;; Note: Emitting FUNCALL for SLOT-DEFINITION-NAME ;;; Emitting code for SELECT-CLOS-?. ;;; Emitting code for #:G19164. ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SELECT-CLOS-N ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SELECT-CLOS-N ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::SELECT-P ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::SELECT-E ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SELECT-CLOS-L ;;; Note: Emitting FUNCALL for SELECT-CLOS-J ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G19198. ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SELECT-CLOS-N ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SELECT-CLOS-N ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::SELECT-P ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::SELECT-E ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SELECT-CLOS-L ;;; Note: Emitting FUNCALL for SELECT-CLOS-J ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G19232. ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SELECT-CLOS-N ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SELECT-CLOS-N ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::SELECT-P ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::SELECT-E ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SELECT-CLOS-L ;;; Note: Emitting FUNCALL for SELECT-CLOS-J ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-READ-LINE ;;; Note: Emitting FUNCALL for SI::INSPECT-INDENT ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Emitting code for #:G19248. ;;; Note: Emitting FDEFINITION for DOCUMENTATION ;;; Note: Emitting FDEFINITION for DOCUMENTATION ;;; Emitting code for #:G19264. ;;; Note: Replacing variable G19266 by its value ;;; Note: Replacing variable G19267 by its value ;;; Note: Replacing variable G19268 by its value ;;; Note: Emitting FDEFINITION for (SETF DOCUMENTATION) ;;; Note: Replacing variable G19270 by its value ;;; Note: Replacing variable G19271 by its value ;;; Note: Replacing variable G19272 by its value ;;; Note: Emitting FDEFINITION for (SETF DOCUMENTATION) ;;; Emitting code for #:G19273. ;;; Emitting code for #:G19274. ;;; Emitting code for #:G19275. ;;; Emitting code for #:G19282. ;;; Note: Replacing variable G19283 by its value ;;; Note: Replacing variable G19284 by its value ;;; Note: Replacing variable G19285 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for #:G19286. ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Emitting code for #:G19293. ;;; Note: Replacing variable G19295 by its value ;;; Note: Replacing variable G19296 by its value ;;; Note: Emitting FDEFINITION for CLASS-NAME ;;; Note: Emitting FDEFINITION for (SETF DOCUMENTATION) ;;; Emitting code for #:G19297. ;;; Emitting code for #:G19298. ;;; Emitting code for #:G19299. ;;; Emitting code for #:G19306. ;;; Note: Replacing variable G19307 by its value ;;; Note: Replacing variable G19308 by its value ;;; Note: Replacing variable G19309 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for #:G19310. ;;; Emitting code for #:G19317. ;;; Note: Replacing variable G19318 by its value ;;; Note: Replacing variable G19319 by its value ;;; Note: Replacing variable G19320 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Emitting code for #:G19321. ;;; Emitting code for #:G19322. ;;; Emitting code for #:G19323. ;;; Emitting code for #:G19330. ;;; Note: Replacing variable G19331 by its value ;;; Note: Replacing variable G19332 by its value ;;; Note: Replacing variable G19333 by its value ;;; Note: Emitting FDEFINITION for (SETF SLOT-VALUE) ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/inspect.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/inspect.o" ;;; Finished compiling src:clos;inspect.lsp. ;;; Compiling src:clos;streams.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFGENERIC STREAM-ADVANCE-TO-COLUMN ...). ;;; Compiling (DEFGENERIC STREAM-CLEAR-INPUT ...). ;;; Compiling (DEFGENERIC STREAM-CLEAR-OUTPUT ...). ;;; Compiling (DEFGENERIC CLOSE ...). ;;; Compiling (DEFGENERIC STREAM-ELEMENT-TYPE ...). ;;; Compiling (DEFGENERIC STREAM-FINISH-OUTPUT ...). ;;; Compiling (DEFGENERIC STREAM-FORCE-OUTPUT ...). ;;; Compiling (DEFGENERIC STREAM-FRESH-LINE ...). ;;; Compiling (DEFGENERIC INPUT-STREAM-P ...). ;;; Compiling (DEFGENERIC STREAM-P ...). ;;; Compiling (DEFGENERIC STREAM-INTERACTIVE-P ...). ;;; Compiling (DEFGENERIC STREAM-LINE-COLUMN ...). ;;; Compiling (DEFGENERIC STREAM-LISTEN ...). ;;; Compiling (DEFGENERIC OPEN-STREAM-P ...). ;;; Compiling (DEFGENERIC OUTPUT-STREAM-P ...). ;;; Compiling (DEFGENERIC STREAM-PEEK-CHAR ...). ;;; Compiling (DEFGENERIC STREAM-READ-BYTE ...). ;;; Compiling (DEFGENERIC STREAM-READ-CHAR ...). ;;; Compiling (DEFGENERIC STREAM-READ-CHAR-NO-HANG ...). ;;; Compiling (DEFGENERIC STREAM-READ-LINE ...). ;;; Compiling (DEFGENERIC STREAM-READ-SEQUENCE ...). ;;; Compiling (DEFGENERIC STREAM-START-LINE-P ...). ;;; Compiling (DEFGENERIC STREAM-TERPRI ...). ;;; Compiling (DEFGENERIC STREAM-UNREAD-CHAR ...). ;;; Compiling (DEFGENERIC STREAM-WRITE-BYTE ...). ;;; Compiling (DEFGENERIC STREAM-WRITE-CHAR ...). ;;; Compiling (DEFGENERIC STREAM-WRITE-STRING ...). ;;; Compiling (DEFGENERIC STREAM-WRITE-SEQUENCE ...). ;;; Compiling (DEFGENERIC STREAM-FILE-POSITION ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...). ;;; Compiling (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...). ;;; Compiling (DEFUN BUG-OR-ERROR ...). ;;; Compiling (DEFMETHOD STREAM-ADVANCE-TO-COLUMN ...). ;;; Compiling (DEFMETHOD STREAM-CLEAR-INPUT ...). ;;; Warning: in file src:clos;streams.lsp, position 42, and form ;;; (INSTALL-METHOD 'STREAM-CLEAR-INPUT 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-CLEAR-INPUT ...). ;;; Compiling (DEFMETHOD STREAM-CLEAR-INPUT ...). ;;; Compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...). ;;; Warning: in file src:clos;streams.lsp, position 45, and form ;;; (INSTALL-METHOD 'STREAM-CLEAR-OUTPUT 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...). ;;; Compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...). ;;; Compiling (DEFMETHOD CLOSE ...). ;;; Compiling (DEFMETHOD CLOSE ...). ;;; Compiling (DEFMETHOD CLOSE ...). ;;; Warning: in file src:clos;streams.lsp, position 50, and form ;;; (INSTALL-METHOD 'CLOSE 'NIL ...) ;;; The variable ABORT is not used. ;;; Compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...). ;;; Warning: in file src:clos;streams.lsp, position 51, and form ;;; (INSTALL-METHOD 'STREAM-ELEMENT-TYPE 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...). ;;; Compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...). ;;; Compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...). ;;; Warning: in file src:clos;streams.lsp, position 54, and form ;;; (INSTALL-METHOD 'STREAM-FINISH-OUTPUT 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...). ;;; Compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...). ;;; Compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...). ;;; Warning: in file src:clos;streams.lsp, position 57, and form ;;; (INSTALL-METHOD 'STREAM-FORCE-OUTPUT 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...). ;;; Compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...). ;;; Compiling (DEFMETHOD STREAM-FRESH-LINE ...). ;;; Compiling (DEFMETHOD STREAM-FRESH-LINE ...). ;;; Variable ANSI-STREAM was undefined. Compiler assumes it is a global. ;;; Warning: in file src:clos;streams.lsp, position 61, and form ;;; (INSTALL-METHOD 'STREAM-FRESH-LINE 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD INPUT-STREAM-P ...). ;;; Warning: in file src:clos;streams.lsp, position 62, and form ;;; (INSTALL-METHOD 'INPUT-STREAM-P 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD INPUT-STREAM-P ...). ;;; Warning: in file src:clos;streams.lsp, position 63, and form ;;; (INSTALL-METHOD 'INPUT-STREAM-P 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD INPUT-STREAM-P ...). ;;; Compiling (DEFMETHOD INPUT-STREAM-P ...). ;;; Compiling (DEFMETHOD STREAM-INTERACTIVE-P ...). ;;; Compiling (DEFMETHOD STREAM-INTERACTIVE-P ...). ;;; Compiling (DEFMETHOD STREAM-LINE-COLUMN ...). ;;; Warning: in file src:clos;streams.lsp, position 68, and form ;;; (INSTALL-METHOD 'STREAM-LINE-COLUMN 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-LISTEN ...). ;;; Compiling (DEFMETHOD STREAM-LISTEN ...). ;;; Compiling (DEFMETHOD STREAM-LISTEN ...). ;;; Compiling (DEFMETHOD OPEN-STREAM-P ...). ;;; Compiling (DEFMETHOD OPEN-STREAM-P ...). ;;; Compiling (DEFMETHOD OUTPUT-STREAM-P ...). ;;; Warning: in file src:clos;streams.lsp, position 74, and form ;;; (INSTALL-METHOD 'OUTPUT-STREAM-P 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD OUTPUT-STREAM-P ...). ;;; Warning: in file src:clos;streams.lsp, position 75, and form ;;; (INSTALL-METHOD 'OUTPUT-STREAM-P 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD OUTPUT-STREAM-P ...). ;;; Compiling (DEFMETHOD OUTPUT-STREAM-P ...). ;;; Compiling (DEFMETHOD STREAM-PEEK-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-PEEK-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-PEEK-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-READ-BYTE ...). ;;; Compiling (DEFMETHOD STREAM-READ-BYTE ...). ;;; Compiling (DEFMETHOD STREAM-READ-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-READ-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-UNREAD-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-UNREAD-CHAR ...). ;;; Warning: in file src:clos;streams.lsp, position 86, and form ;;; (INSTALL-METHOD 'STREAM-UNREAD-CHAR 'NIL ...) ;;; The variable CHARACTER is not used. ;;; Compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...). ;;; Compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...). ;;; Compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...). ;;; Compiling (DEFMETHOD STREAM-READ-LINE ...). ;;; Compiling (DEFMETHOD STREAM-READ-LINE ...). ;;; Compiling (DEFMETHOD STREAM-READ-LINE ...). ;;; Compiling (DEFMETHOD STREAM-READ-SEQUENCE ...). ;;; Compiling (DEFMETHOD STREAM-READ-SEQUENCE ...). ;;; Compiling (DEFMETHOD STREAM-READ-SEQUENCE ...). ;;; Compiling (DEFMETHOD STREAM-READ-SEQUENCE ...). ;;; Warning: in file src:clos;streams.lsp, position 96, and form ;;; (INSTALL-METHOD 'STREAM-READ-SEQUENCE 'NIL ...) ;;; The variable END is not used. ;;; Warning: in file src:clos;streams.lsp, position 96, and form ;;; (INSTALL-METHOD 'STREAM-READ-SEQUENCE 'NIL ...) ;;; The variable START is not used. ;;; Warning: in file src:clos;streams.lsp, position 96, and form ;;; (INSTALL-METHOD 'STREAM-READ-SEQUENCE 'NIL ...) ;;; The variable SEQUENCE is not used. ;;; Compiling (DEFMETHOD STREAM-START-LINE-P ...). ;;; Compiling (DEFMETHOD STREAM-FILE-POSITION ...). ;;; Compiling (DEFMETHOD STREAM-FILE-POSITION ...). ;;; Compiling (DEFMETHOD STREAMP ...). ;;; Warning: in file src:clos;streams.lsp, position 100, and form ;;; (INSTALL-METHOD 'STREAMP 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAMP ...). ;;; Warning: in file src:clos;streams.lsp, position 101, and form ;;; (INSTALL-METHOD 'STREAMP 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD STREAM-WRITE-BYTE ...). ;;; Compiling (DEFMETHOD STREAM-WRITE-BYTE ...). ;;; Warning: in file src:clos;streams.lsp, position 103, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-BYTE 'NIL ...) ;;; The variable INTEGER is not used. ;;; Compiling (DEFMETHOD STREAM-WRITE-CHAR ...). ;;; Compiling (DEFMETHOD STREAM-WRITE-CHAR ...). ;;; Warning: in file src:clos;streams.lsp, position 105, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-CHAR 'NIL ...) ;;; The variable CHARACTER is not used. ;;; Compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...). ;;; Compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...). ;;; Compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...). ;;; Compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...). ;;; Warning: in file src:clos;streams.lsp, position 109, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-SEQUENCE 'NIL ...) ;;; The variable END is not used. ;;; Warning: in file src:clos;streams.lsp, position 109, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-SEQUENCE 'NIL ...) ;;; The variable START is not used. ;;; Warning: in file src:clos;streams.lsp, position 109, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-SEQUENCE 'NIL ...) ;;; The variable SEQUENCE is not used. ;;; Compiling (DEFMETHOD STREAM-WRITE-STRING ...). ;;; Note: in file src:clos;streams.lsp, position 110, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-STRING 'NIL ...) ;;; In function G19502, checking types of arguments END START STRING STREAM. ;;; Compiling (DEFMETHOD STREAM-WRITE-STRING ...). ;;; Compiling (DEFMETHOD STREAM-WRITE-STRING ...). ;;; Warning: in file src:clos;streams.lsp, position 112, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-STRING 'NIL ...) ;;; The variable END is not used. ;;; Warning: in file src:clos;streams.lsp, position 112, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-STRING 'NIL ...) ;;; The variable START is not used. ;;; Warning: in file src:clos;streams.lsp, position 112, and form ;;; (INSTALL-METHOD 'STREAM-WRITE-STRING 'NIL ...) ;;; The variable STRING is not used. ;;; Compiling (DEFMETHOD STREAM-TERPRI ...). ;;; Compiling (DEFMETHOD STREAM-TERPRI ...). ;;; Compiling (DEFMETHOD STREAM-TERPRI ...). ;;; Compiling (DEFUN REDEFINE-CL-FUNCTIONS ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclXK9XTCn8_HjQqBfy" for #P"build:clos;streams.o.NEWEST" ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Note: Emitting FDEFINITION for ENSURE-GENERIC-FUNCTION ;;; Emitting code for BUG-OR-ERROR. ;;; Emitting code for #:G19334. ;;; Note: Emitting FUNCALL for STREAM-LINE-COLUMN ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for STREAM-WRITE-CHAR ;;; Emitting code for #:G19339. ;;; Emitting code for #:G19340. ;;; Emitting code for #:G19341. ;;; Emitting code for #:G19342. ;;; Emitting code for #:G19343. ;;; Emitting code for #:G19344. ;;; Emitting code for #:G19349. ;;; Note: Replacing variable G19350 by its value ;;; Note: Replacing variable G19351 by its value ;;; Note: Emitting FDEFINITION for (SETF OPEN-STREAM-P) ;;; Emitting code for #:G19352. ;;; Note: Reusing keywords lists for (ABORT) ;;; Emitting code for #:G19353. ;;; Note: Reusing keywords lists for (ABORT) ;;; Emitting code for #:G19354. ;;; Emitting code for #:G19355. ;;; Emitting code for #:G19356. ;;; Emitting code for #:G19357. ;;; Emitting code for #:G19358. ;;; Emitting code for #:G19359. ;;; Emitting code for #:G19360. ;;; Emitting code for #:G19361. ;;; Emitting code for #:G19362. ;;; Emitting code for #:G19363. ;;; Note: Emitting FUNCALL for STREAM-START-LINE-P ;;; Note: Emitting FUNCALL for STREAM-TERPRI ;;; Emitting code for #:G19364. ;;; Emitting code for #:G19365. ;;; Emitting code for #:G19366. ;;; Emitting code for #:G19367. ;;; Emitting code for #:G19368. ;;; Emitting code for #:G19369. ;;; Emitting code for #:G19370. ;;; Emitting code for #:G19371. ;;; Emitting code for #:G19372. ;;; Note: Emitting FUNCALL for STREAM-READ-CHAR-NO-HANG ;;; Note: Emitting FUNCALL for STREAM-UNREAD-CHAR ;;; Emitting code for #:G19373. ;;; Emitting code for #:G19374. ;;; Emitting code for #:G19375. ;;; Emitting code for #:G19376. ;;; Emitting code for #:G19377. ;;; Emitting code for #:G19378. ;;; Emitting code for #:G19379. ;;; Emitting code for #:G19380. ;;; Emitting code for #:G19381. ;;; Note: Emitting FUNCALL for STREAM-READ-CHAR ;;; Note: Emitting FUNCALL for STREAM-UNREAD-CHAR ;;; Emitting code for #:G19382. ;;; Emitting code for #:G19383. ;;; Emitting code for #:G19384. ;;; Emitting code for #:G19385. ;;; Emitting code for #:G19386. ;;; Emitting code for #:G19387. ;;; Emitting code for #:G19388. ;;; Emitting code for #:G19389. ;;; Emitting code for #:G19390. ;;; Note: Emitting FUNCALL for STREAM-READ-CHAR ;;; Emitting code for #:G19391. ;;; Emitting code for #:G19392. ;;; Emitting code for #:G19449. ;;; Note: Emitting FUNCALL for STREAM-READ-CHAR ;;; Note: Emitting FUNCALL for SI::SIMPLE-ARRAY-P ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G19460 by its value ;;; Note: Replacing variable G19463 by its value ;;; Note: Replacing variable G19464 by its value ;;; Note: Emitting FUNCALL for SI::SIMPLE-ARRAY-P ;;; Note: Replacing variable %DOTIMES-VAR by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G19473 by its value ;;; Note: Replacing variable G19476 by its value ;;; Note: Replacing variable G19477 by its value ;;; Note: Replacing variable G19478 by its value ;;; Note: Replacing variable G19479 by its value ;;; Note: Replacing variable G19480 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G19483. ;;; Emitting code for #:G19484. ;;; Emitting code for #:G19485. ;;; Emitting code for #:G19486. ;;; Emitting code for #:G19487. ;;; Emitting code for #:G19488. ;;; Emitting code for #:G19489. ;;; Note: Emitting FUNCALL for STREAM-LINE-COLUMN ;;; Emitting code for #:G19490. ;;; Emitting code for #:G19491. ;;; Emitting code for #:G19492. ;;; Emitting code for #:G19493. ;;; Emitting code for #:G19494. ;;; Emitting code for #:G19495. ;;; Emitting code for #:G19496. ;;; Emitting code for #:G19497. ;;; Emitting code for #:G19498. ;;; Emitting code for #:G19499. ;;; Emitting code for #:G19500. ;;; Emitting code for #:G19501. ;;; Emitting code for #:G19502. ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for STREAM-WRITE-CHAR ;;; Emitting code for #:G19513. ;;; Emitting code for #:G19514. ;;; Emitting code for #:G19515. ;;; Note: Emitting FUNCALL for STREAM-WRITE-CHAR ;;; Emitting code for #:G19516. ;;; Emitting code for #:G19517. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for REDEFINE-CL-FUNCTIONS. ;;; Note: Replacing variable G19530 by its value ;;; Note: Eliminating unreachable code ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/streams.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/streams.o" ;;; Finished compiling src:clos;streams.lsp. ;;; Compiling src:lsp;pprint.lsp. ;;; OPTIMIZE levels: Safety=2, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFCLASS PRETTY-STREAM ...). ;;; Compiling (DEFUN PRETTY-STREAM-P ...). ;;; Compiling (DEFUN MAKE-PRETTY-STREAM ...). ;;; Warning: in file src:lsp;pprint.lsp, position 8, and form ;;; (FSET 'MAKE-PRETTY-STREAM #'(LAMBDA-BLOCK MAKE-PRETTY-STREAM # ...)) ;;; Too many arguments for generic function MAKE-INSTANCE ;;; Compiling (DEFMETHOD PRINT-OBJECT ...). ;;; Compiling (DEFUN INDEX-POSN ...). ;;; Note: in file src:lsp;pprint.lsp, position 11, and form ;;; (FSET 'INDEX-POSN #'(LAMBDA-BLOCK INDEX-POSN # ...)) ;;; In function INDEX-POSN, checking types of arguments STREAM INDEX. ;;; Warning: in file src:lsp;pprint.lsp, position 11, and form ;;; (FSET 'INDEX-POSN #'(LAMBDA-BLOCK INDEX-POSN # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Compiling (DEFUN POSN-INDEX ...). ;;; Note: in file src:lsp;pprint.lsp, position 12, and form ;;; (FSET 'POSN-INDEX #'(LAMBDA-BLOCK POSN-INDEX # ...)) ;;; In function POSN-INDEX, checking types of arguments STREAM POSN. ;;; Warning: in file src:lsp;pprint.lsp, position 12, and form ;;; (FSET 'POSN-INDEX #'(LAMBDA-BLOCK POSN-INDEX # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Compiling (DEFUN POSN-COLUMN ...). ;;; Note: in file src:lsp;pprint.lsp, position 13, and form ;;; (FSET 'POSN-COLUMN #'(LAMBDA-BLOCK POSN-COLUMN # ...)) ;;; In function POSN-COLUMN, checking types of arguments STREAM POSN. ;;; Warning: in file src:lsp;pprint.lsp, position 13, and form ;;; (FSET 'POSN-COLUMN #'(LAMBDA-BLOCK POSN-COLUMN # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Compiling (DEFMETHOD GRAY:STREAM-WRITE-CHAR ...). ;;; Compiling (DEFMETHOD GRAY:STREAM-FORCE-OUTPUT ...). ;;; Warning: in file src:lsp;pprint.lsp, position 15, and form ;;; (INSTALL-METHOD 'STREAM-FORCE-OUTPUT 'NIL ...) ;;; The variable STREAM is not used. ;;; Compiling (DEFMETHOD GRAY:STREAM-CLEAR-OUTPUT ...). ;;; Compiling (DEFUN PRETTY-OUT ...). ;;; Note: in file src:lsp;pprint.lsp, position 17, and form ;;; (FSET 'PRETTY-OUT #'(LAMBDA-BLOCK PRETTY-OUT # ...)) ;;; In function PRETTY-OUT, checking types of arguments CHAR STREAM. ;;; Compiling (DEFUN PRETTY-SOUT ...). ;;; Note: in file src:lsp;pprint.lsp, position 18, and form ;;; (FSET 'PRETTY-SOUT #'(LAMBDA-BLOCK PRETTY-SOUT # ...)) ;;; In function PRETTY-SOUT, checking types of arguments END START STRING STREAM. ;;; Compiling (DEFUN MAKE-LOGICAL-BLOCK ...). ;;; Compiling (DEFUN REALLY-START-LOGICAL-BLOCK ...). ;;; Note: in file src:lsp;pprint.lsp, position 20, and form ;;; (FSET 'REALLY-START-LOGICAL-BLOCK #'(LAMBDA-BLOCK REALLY-START-LOGICAL-BLOCK # ...)) ;;; In function REALLY-START-LOGICAL-BLOCK, checking types of arguments SUFFIX PREFIX COLUMN STREAM. ;;; Compiling (DEFUN SET-INDENTATION ...). ;;; Note: in file src:lsp;pprint.lsp, position 21, and form ;;; (FSET 'SET-INDENTATION #'(LAMBDA-BLOCK SET-INDENTATION # ...)) ;;; In function SET-INDENTATION, checking types of arguments COLUMN STREAM. ;;; Compiling (DEFUN REALLY-END-LOGICAL-BLOCK ...). ;;; Note: in file src:lsp;pprint.lsp, position 22, and form ;;; (FSET 'REALLY-END-LOGICAL-BLOCK #'(LAMBDA-BLOCK REALLY-END-LOGICAL-BLOCK # ...)) ;;; In function REALLY-END-LOGICAL-BLOCK, checking types of arguments STREAM. ;;; Compiling (DEFUN MAKE-QUEUED-OP ...). ;;; Compiling (DEFUN MAKE-SECTION-START ...). ;;; Compiling (DEFUN MAKE-NEWLINE ...). ;;; Compiling (DEFUN ENQUEUE-NEWLINE ...). ;;; Note: in file src:lsp;pprint.lsp, position 27, and form ;;; (FSET 'ENQUEUE-NEWLINE #'(LAMBDA-BLOCK ENQUEUE-NEWLINE # ...)) ;;; In function ENQUEUE-NEWLINE, checking types of arguments KIND STREAM. ;;; Compiling (DEFUN MAKE-INDENTATION ...). ;;; Compiling (DEFUN ENQUEUE-INDENT ...). ;;; Compiling (DEFUN MAKE-BLOCK-START ...). ;;; Compiling (DEFUN START-LOGICAL-BLOCK ...). ;;; Note: in file src:lsp;pprint.lsp, position 31, and form ;;; (FSET 'START-LOGICAL-BLOCK #'(LAMBDA-BLOCK START-LOGICAL-BLOCK # ...)) ;;; In function START-LOGICAL-BLOCK, checking types of arguments SUFFIX PER-LINE-P PREFIX STREAM. ;;; Compiling (DEFUN MAKE-BLOCK-END ...). ;;; Compiling (DEFUN END-LOGICAL-BLOCK ...). ;;; Note: in file src:lsp;pprint.lsp, position 33, and form ;;; (FSET 'END-LOGICAL-BLOCK #'(LAMBDA-BLOCK END-LOGICAL-BLOCK # ...)) ;;; In function END-LOGICAL-BLOCK, checking types of arguments STREAM. ;;; Compiling (DEFUN MAKE-TAB ...). ;;; Compiling (DEFUN ENQUEUE-TAB ...). ;;; Compiling (DEFUN COMPUTE-TAB-SIZE ...). ;;; Compiling (DEFUN INDEX-COLUMN ...). ;;; Note: in file src:lsp;pprint.lsp, position 37, and form ;;; (FSET 'INDEX-COLUMN #'(LAMBDA-BLOCK INDEX-COLUMN # ...)) ;;; In function INDEX-COLUMN, checking types of arguments STREAM INDEX. ;;; Compiling (DEFUN EXPAND-TABS ...). ;;; Note: in file src:lsp;pprint.lsp, position 38, and form ;;; (FSET 'EXPAND-TABS #'(LAMBDA-BLOCK EXPAND-TABS # ...)) ;;; In function EXPAND-TABS, checking types of arguments THROUGH STREAM. ;;; Compiling (DEFUN ASSURE-SPACE-IN-BUFFER ...). ;;; Note: in file src:lsp;pprint.lsp, position 39, and form ;;; (FSET 'ASSURE-SPACE-IN-BUFFER #'(LAMBDA-BLOCK ASSURE-SPACE-IN-BUFFER # ...)) ;;; In function ASSURE-SPACE-IN-BUFFER, checking types of arguments WANT STREAM. ;;; Compiling (DEFUN MAYBE-OUTPUT ...). ;;; Note: in file src:lsp;pprint.lsp, position 40, and form ;;; (FSET 'MAYBE-OUTPUT #'(LAMBDA-BLOCK MAYBE-OUTPUT # ...)) ;;; In function MAYBE-OUTPUT, checking types of arguments FORCE-NEWLINES-P STREAM. ;;; Compiling (DEFUN MISERING-P ...). ;;; Note: in file src:lsp;pprint.lsp, position 41, and form ;;; (FSET 'MISERING-P #'(LAMBDA-BLOCK MISERING-P # ...)) ;;; In function MISERING-P, checking types of arguments STREAM. ;;; Compiling (DEFUN FITS-ON-LINE-P ...). ;;; Note: in file src:lsp;pprint.lsp, position 42, and form ;;; (FSET 'FITS-ON-LINE-P #'(LAMBDA-BLOCK FITS-ON-LINE-P # ...)) ;;; In function FITS-ON-LINE-P, checking types of arguments FORCE-NEWLINES-P UNTIL STREAM. ;;; Compiling (DEFUN OUTPUT-LINE ...). ;;; Note: in file src:lsp;pprint.lsp, position 43, and form ;;; (FSET 'OUTPUT-LINE #'(LAMBDA-BLOCK OUTPUT-LINE # ...)) ;;; In function OUTPUT-LINE, checking types of arguments UNTIL STREAM. ;;; Compiling (DEFUN OUTPUT-PARTIAL-LINE ...). ;;; Note: in file src:lsp;pprint.lsp, position 44, and form ;;; (FSET 'OUTPUT-PARTIAL-LINE #'(LAMBDA-BLOCK OUTPUT-PARTIAL-LINE # ...)) ;;; In function OUTPUT-PARTIAL-LINE, checking types of arguments STREAM. ;;; Compiling (DEFUN FORCE-PRETTY-OUTPUT ...). ;;; Note: in file src:lsp;pprint.lsp, position 45, and form ;;; (FSET 'FORCE-PRETTY-OUTPUT #'(LAMBDA-BLOCK FORCE-PRETTY-OUTPUT # ...)) ;;; In function FORCE-PRETTY-OUTPUT, checking types of arguments STREAM. ;;; Compiling (DEFUN PPRINT-POP-HELPER ...). ;;; Compiling (DEFUN CHECK-PRINT-LEVEL ...). ;;; Compiling (DEFUN SEARCH-PRINT-CIRCLE ...). ;;; Compiling (DEFUN DO-PPRINT-LOGICAL-BLOCK ...). ;;; Compiling (DEFUN PPRINT-LOGICAL-BLOCK-HELPER ...). ;;; Compiling (DEFMACRO PPRINT-LOGICAL-BLOCK ...). ;;; Note: in file src:lsp;pprint.lsp, position 51, and form ;;; (FSET 'PPRINT-LOGICAL-BLOCK #'(LAMBDA-BLOCK PPRINT-LOGICAL-BLOCK # ...) ...) ;;; Removing unused variable SUFFIX-P ;;; Compiling (DEFMACRO PPRINT-EXIT-IF-LIST-EXHAUSTED ...). ;;; Compiling (DEFMACRO PPRINT-POP ...). ;;; Compiling (DEFUN PPRINT-NEWLINE ...). ;;; Note: in file src:lsp;pprint.lsp, position 54, and form ;;; (FSET 'PPRINT-NEWLINE #'(LAMBDA-BLOCK PPRINT-NEWLINE # ...)) ;;; In function PPRINT-NEWLINE, checking types of arguments STREAM KIND. ;;; Warning: in file src:lsp;pprint.lsp, position 54, and form ;;; (FSET 'PPRINT-NEWLINE #'(LAMBDA-BLOCK PPRINT-NEWLINE # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Compiling (DEFUN PPRINT-INDENT ...). ;;; Note: in file src:lsp;pprint.lsp, position 55, and form ;;; (FSET 'PPRINT-INDENT #'(LAMBDA-BLOCK PPRINT-INDENT # ...)) ;;; In function PPRINT-INDENT, checking types of arguments STREAM N RELATIVE-TO. ;;; Warning: in file src:lsp;pprint.lsp, position 55, and form ;;; (FSET 'PPRINT-INDENT #'(LAMBDA-BLOCK PPRINT-INDENT # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Compiling (DEFUN PPRINT-TAB ...). ;;; Note: in file src:lsp;pprint.lsp, position 56, and form ;;; (FSET 'PPRINT-TAB #'(LAMBDA-BLOCK PPRINT-TAB # ...)) ;;; In function PPRINT-TAB, checking types of arguments STREAM COLINC COLNUM KIND. ;;; Warning: in file src:lsp;pprint.lsp, position 56, and form ;;; (FSET 'PPRINT-TAB #'(LAMBDA-BLOCK PPRINT-TAB # ...)) ;;; The declaration specifier VALUES is unknown. ;;; Compiling (DEFUN PPRINT-FILL ...). ;;; Compiling (DEFUN PPRINT-LINEAR ...). ;;; Compiling (DEFUN PPRINT-TABULAR ...). ;;; Compiling (DEFVAR *INITIAL-PPRINT-DISPATCH*). ;;; Compiling (DEFUN MAKE-PPRINT-DISPATCH-ENTRY ...). ;;; Compiling (DEFUN %PRINT-PPRINT-DISPATCH-ENTRY ...). ;;; Compiling (DEFUN MAKE-PPRINT-DISPATCH-TABLE ...). ;;; Compiling (DEFUN %PRINT-PPRINT-DISPATCH-TABLE ...). ;;; Compiling (DEFUN CONS-TYPE-SPECIFIER-P ...). ;;; Compiling (DEFUN ENTRY< ...). ;;; Note: in file src:lsp;pprint.lsp, position 66, and form ;;; (FSET 'ENTRY< #'(LAMBDA-BLOCK ENTRY< # ...)) ;;; In function ENTRY<, checking types of arguments E2 E1. ;;; Compiling (DEFUN COPY-PPRINT-DISPATCH ...). ;;; Note: in file src:lsp;pprint.lsp, position 67, and form ;;; (FSET 'COPY-PPRINT-DISPATCH #'(LAMBDA-BLOCK COPY-PPRINT-DISPATCH # ...)) ;;; In function COPY-PPRINT-DISPATCH, checking types of arguments TABLE. ;;; Compiling (DEFUN DEFAULT-PPRINT-DISPATCH ...). ;;; Compiling (DEFUN PPRINT-DISPATCH ...). ;;; Note: in file src:lsp;pprint.lsp, position 69, and form ;;; (FSET 'PPRINT-DISPATCH #'(LAMBDA-BLOCK PPRINT-DISPATCH # ...)) ;;; In function PPRINT-DISPATCH, checking types of arguments TABLE OBJECT. ;;; Compiling (DEFUN SET-PPRINT-DISPATCH ...). ;;; Note: in file src:lsp;pprint.lsp, position 70, and form ;;; (FSET 'SET-PPRINT-DISPATCH #'(LAMBDA-BLOCK SET-PPRINT-DISPATCH # ...)) ;;; In function SET-PPRINT-DISPATCH, checking types of arguments TABLE PRIORITY FUNCTION TYPE. ;;; Compiling (DEFUN PPRINT-ARRAY ...). ;;; Compiling (DEFUN PPRINT-VECTOR ...). ;;; Compiling (DEFUN PPRINT-ARRAY-CONTENTS ...). ;;; Note: in file src:lsp;pprint.lsp, position 73, and form ;;; (FSET 'PPRINT-ARRAY-CONTENTS #'(LAMBDA-BLOCK PPRINT-ARRAY-CONTENTS # ...)) ;;; In function PPRINT-ARRAY-CONTENTS, checking types of arguments ARRAY STREAM. ;;; Compiling (DEFUN PPRINT-MULTI-DIM-ARRAY ...). ;;; Compiling (DEFUN PPRINT-RAW-ARRAY ...). ;;; Note: in file src:lsp;pprint.lsp, position 75, and form ;;; (FSET 'PPRINT-RAW-ARRAY #'(LAMBDA-BLOCK PPRINT-RAW-ARRAY # ...)) ;;; Removing unused variable PPRINT-LOGICAL-BLOCK-LENGTH-20057 ;;; Warning: in file src:lsp;pprint.lsp, position 75, and form ;;; (FSET 'PPRINT-RAW-ARRAY #'(LAMBDA-BLOCK PPRINT-RAW-ARRAY # ...)) ;;; The variable #:G20055 is not used. ;;; Compiling (DEFUN PPRINT-LAMBDA-LIST ...). ;;; Compiling (DEFUN PPRINT-LAMBDA ...). ;;; Note: in file src:lsp;pprint.lsp, position 77, and form ;;; (FSET 'PPRINT-LAMBDA #'(LAMBDA-BLOCK PPRINT-LAMBDA # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 77, and form ;;; (FSET 'PPRINT-LAMBDA #'(LAMBDA-BLOCK PPRINT-LAMBDA # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 77, and form ;;; (FSET 'PPRINT-LAMBDA #'(LAMBDA-BLOCK PPRINT-LAMBDA # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-BLOCK ...). ;;; Note: in file src:lsp;pprint.lsp, position 78, and form ;;; (FSET 'PPRINT-BLOCK #'(LAMBDA-BLOCK PPRINT-BLOCK # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 78, and form ;;; (FSET 'PPRINT-BLOCK #'(LAMBDA-BLOCK PPRINT-BLOCK # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 78, and form ;;; (FSET 'PPRINT-BLOCK #'(LAMBDA-BLOCK PPRINT-BLOCK # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-FLET ...). ;;; Note: in file src:lsp;pprint.lsp, position 79, and form ;;; (FSET 'PPRINT-FLET #'(LAMBDA-BLOCK PPRINT-FLET # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 79, and form ;;; (FSET 'PPRINT-FLET #'(LAMBDA-BLOCK PPRINT-FLET # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 79, and form ;;; (FSET 'PPRINT-FLET #'(LAMBDA-BLOCK PPRINT-FLET # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 79, and form ;;; (FSET 'PPRINT-FLET #'(LAMBDA-BLOCK PPRINT-FLET # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 79, and form ;;; (FSET 'PPRINT-FLET #'(LAMBDA-BLOCK PPRINT-FLET # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 79, and form ;;; (FSET 'PPRINT-FLET #'(LAMBDA-BLOCK PPRINT-FLET # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-LET ...). ;;; Note: in file src:lsp;pprint.lsp, position 80, and form ;;; (FSET 'PPRINT-LET #'(LAMBDA-BLOCK PPRINT-LET # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 80, and form ;;; (FSET 'PPRINT-LET #'(LAMBDA-BLOCK PPRINT-LET # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 80, and form ;;; (FSET 'PPRINT-LET #'(LAMBDA-BLOCK PPRINT-LET # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 80, and form ;;; (FSET 'PPRINT-LET #'(LAMBDA-BLOCK PPRINT-LET # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-PROGN ...). ;;; Note: in file src:lsp;pprint.lsp, position 81, and form ;;; (FSET 'PPRINT-PROGN #'(LAMBDA-BLOCK PPRINT-PROGN # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-PROGV ...). ;;; Note: in file src:lsp;pprint.lsp, position 82, and form ;;; (FSET 'PPRINT-PROGV #'(LAMBDA-BLOCK PPRINT-PROGV # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 82, and form ;;; (FSET 'PPRINT-PROGV #'(LAMBDA-BLOCK PPRINT-PROGV # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 82, and form ;;; (FSET 'PPRINT-PROGV #'(LAMBDA-BLOCK PPRINT-PROGV # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-QUOTE ...). ;;; Compiling (DEFUN PPRINT-SETQ ...). ;;; Compiling (DEFUN PPRINT-TAGBODY ...). ;;; Compiling (DEFUN PPRINT-CASE ...). ;;; Note: in file src:lsp;pprint.lsp, position 86, and form ;;; (FSET 'PPRINT-CASE #'(LAMBDA-BLOCK PPRINT-CASE # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 86, and form ;;; (FSET 'PPRINT-CASE #'(LAMBDA-BLOCK PPRINT-CASE # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 86, and form ;;; (FSET 'PPRINT-CASE #'(LAMBDA-BLOCK PPRINT-CASE # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 86, and form ;;; (FSET 'PPRINT-CASE #'(LAMBDA-BLOCK PPRINT-CASE # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-DEFUN ...). ;;; Note: in file src:lsp;pprint.lsp, position 87, and form ;;; (FSET 'PPRINT-DEFUN #'(LAMBDA-BLOCK PPRINT-DEFUN # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 87, and form ;;; (FSET 'PPRINT-DEFUN #'(LAMBDA-BLOCK PPRINT-DEFUN # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 87, and form ;;; (FSET 'PPRINT-DEFUN #'(LAMBDA-BLOCK PPRINT-DEFUN # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-DESTRUCTURING-BIND ...). ;;; Note: in file src:lsp;pprint.lsp, position 88, and form ;;; (FSET 'PPRINT-DESTRUCTURING-BIND #'(LAMBDA-BLOCK PPRINT-DESTRUCTURING-BIND # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 88, and form ;;; (FSET 'PPRINT-DESTRUCTURING-BIND #'(LAMBDA-BLOCK PPRINT-DESTRUCTURING-BIND # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 88, and form ;;; (FSET 'PPRINT-DESTRUCTURING-BIND #'(LAMBDA-BLOCK PPRINT-DESTRUCTURING-BIND # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-DO ...). ;;; Note: in file src:lsp;pprint.lsp, position 89, and form ;;; (FSET 'PPRINT-DO #'(LAMBDA-BLOCK PPRINT-DO # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 89, and form ;;; (FSET 'PPRINT-DO #'(LAMBDA-BLOCK PPRINT-DO # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 89, and form ;;; (FSET 'PPRINT-DO #'(LAMBDA-BLOCK PPRINT-DO # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-DOLIST ...). ;;; Note: in file src:lsp;pprint.lsp, position 90, and form ;;; (FSET 'PPRINT-DOLIST #'(LAMBDA-BLOCK PPRINT-DOLIST # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 90, and form ;;; (FSET 'PPRINT-DOLIST #'(LAMBDA-BLOCK PPRINT-DOLIST # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-TYPECASE ...). ;;; Note: in file src:lsp;pprint.lsp, position 91, and form ;;; (FSET 'PPRINT-TYPECASE #'(LAMBDA-BLOCK PPRINT-TYPECASE # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 91, and form ;;; (FSET 'PPRINT-TYPECASE #'(LAMBDA-BLOCK PPRINT-TYPECASE # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 91, and form ;;; (FSET 'PPRINT-TYPECASE #'(LAMBDA-BLOCK PPRINT-TYPECASE # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Note: in file src:lsp;pprint.lsp, position 91, and form ;;; (FSET 'PPRINT-TYPECASE #'(LAMBDA-BLOCK PPRINT-TYPECASE # ...)) ;;; Removing unused variable ORIG-ARGS ;;; Compiling (DEFUN PPRINT-PROG ...). ;;; Compiling (DEFUN PPRINT-FUNCTION-CALL ...). ;;; Note: in file src:lsp;pprint.lsp, position 93, and form ;;; (FSET 'PPRINT-FUNCTION-CALL #'(LAMBDA-BLOCK PPRINT-FUNCTION-CALL # ...)) ;;; Replacing variable G9471 by its value # ;;; Note: in file src:lsp;pprint.lsp, position 93, and form ;;; (FSET 'PPRINT-FUNCTION-CALL #'(LAMBDA-BLOCK PPRINT-FUNCTION-CALL # ...)) ;;; Removing unused variable ORIG-ARGS ;;; End of Pass 1. ;;; Note: Creating tag: "_eclUmLLoQo8_EmRqBfy" for #P"build:clos;pprint.o.NEWEST" ;;; Note: Emitting FDEFINITION for PROCLAIM ;;; Emitting code for COLUMN. ;;; Emitting code for POSN. ;;; Emitting code for #:G19532. ;;; Emitting code for #:G19535. ;;; Emitting code for #:G19536. ;;; Emitting code for #:G19537. ;;; Emitting code for #:G19538. ;;; Emitting code for PRETTY-STREAM-P. ;;; Emitting code for MAKE-PRETTY-STREAM. ;;; Note: Emitting FDEFINITION for MAKE-INSTANCE ;;; Emitting code for #:G19540. ;;; Note: Emitting FUNCALL for PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Note: Emitting FDEFINITION for PROCLAIM ;;; Emitting code for INDEX-POSN. ;;; Emitting code for POSN-INDEX. ;;; Emitting code for POSN-COLUMN. ;;; Emitting code for #:G19556. ;;; Emitting code for #:G19557. ;;; Emitting code for #:G19558. ;;; Emitting code for PRETTY-OUT. ;;; Note: Replacing variable G19568 by its value ;;; Note: Replacing variable G19570 by its value ;;; Emitting code for PRETTY-SOUT. ;;; Note: Tail-recursive call of PRETTY-SOUT was replaced by iteration. ;;; Note: Replacing variable G19584 by its value ;;; Note: Replacing variable G19585 by its value ;;; Note: Replacing variable G19587 by its value ;;; Note: Replacing variable G19589 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-LOGICAL-BLOCK. ;;; Note: Reusing keywords lists for (START-COLUMN SECTION-COLUMN PER-LINE-PREFIX-END PREFIX-LENGTH SUFFIX-LENGTH SECTION-START-LINE) ;;; Emitting code for REALLY-START-LOGICAL-BLOCK. ;;; Note: Replacing variable G19595 by its value ;;; Note: Replacing variable G19597 by its value ;;; Note: Replacing variable G19601 by its value ;;; Note: Replacing variable G19602 by its value ;;; Note: Replacing variable G19603 by its value ;;; Note: Replacing variable G19604 by its value ;;; Emitting code for SET-INDENTATION. ;;; Note: Replacing variable G19610 by its value ;;; Note: Replacing variable G19611 by its value ;;; Note: Replacing variable G19612 by its value ;;; Emitting code for REALLY-END-LOGICAL-BLOCK. ;;; Note: Replacing variable G19617 by its value ;;; Emitting code for MAKE-QUEUED-OP. ;;; Note: Reusing keywords lists for (POSN) ;;; Emitting code for MAKE-SECTION-START. ;;; Emitting code for MAKE-NEWLINE. ;;; Note: Emitting FUNCALL for REQUIRED-ARGUMENT ;;; Emitting code for ENQUEUE-NEWLINE. ;;; Note: Replacing variable G19639 by its value ;;; Note: Replacing variable G19640 by its value ;;; Note: Replacing variable G19641 by its value ;;; Note: Replacing variable G19642 by its value ;;; Note: Replacing variable G19643 by its value ;;; Note: Replacing variable G19644 by its value ;;; Note: Eliminating unreachable code ;;; Note: Emitting FUNCALL for SECTION-START-P ;;; Note: Replacing variable G19650 by its value ;;; Note: Replacing variable G19651 by its value ;;; Emitting code for MAKE-INDENTATION. ;;; Note: Emitting FUNCALL for REQUIRED-ARGUMENT ;;; Emitting code for ENQUEUE-INDENT. ;;; Note: Replacing variable G19661 by its value ;;; Note: Replacing variable G19662 by its value ;;; Note: Replacing variable G19663 by its value ;;; Note: Replacing variable G19664 by its value ;;; Note: Replacing variable G19665 by its value ;;; Note: Replacing variable G19666 by its value ;;; Emitting code for MAKE-BLOCK-START. ;;; Emitting code for START-LOGICAL-BLOCK. ;;; Note: Replacing variable G19680 by its value ;;; Note: Replacing variable G19681 by its value ;;; Note: Replacing variable G19682 by its value ;;; Note: Replacing variable G19683 by its value ;;; Note: Replacing variable G19684 by its value ;;; Note: Replacing variable G19685 by its value ;;; Note: Replacing variable G19686 by its value ;;; Emitting code for MAKE-BLOCK-END. ;;; Emitting code for END-LOGICAL-BLOCK. ;;; Note: Replacing variable G19691 by its value ;;; Note: Replacing variable G19699 by its value ;;; Note: Replacing variable G19700 by its value ;;; Note: Replacing variable G19701 by its value ;;; Note: Replacing variable G19702 by its value ;;; Note: Replacing variable G19703 by its value ;;; Note: Replacing variable G19704 by its value ;;; Note: Replacing variable G19705 by its value ;;; Note: Replacing variable G19706 by its value ;;; Emitting code for MAKE-TAB. ;;; Emitting code for ENQUEUE-TAB. ;;; Note: Replacing variable G19718 by its value ;;; Note: Replacing variable G19719 by its value ;;; Note: Replacing variable G19720 by its value ;;; Note: Replacing variable G19721 by its value ;;; Note: Replacing variable G19722 by its value ;;; Note: Replacing variable G19723 by its value ;;; Emitting code for COMPUTE-TAB-SIZE. ;;; Emitting code for INDEX-COLUMN. ;;; Note: Eliminating unreachable code ;;; Emitting code for EXPAND-TABS. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G19752 by its value ;;; Note: Replacing variable G19754 by its value ;;; Note: Replacing variable G19758 by its value ;;; Note: Replacing variable G19759 by its value ;;; Note: Replacing variable G19760 by its value ;;; Note: Replacing variable G19761 by its value ;;; Note: Replacing variable G19762 by its value ;;; Note: Replacing variable G19764 by its value ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G19771 by its value ;;; Note: Replacing variable G19772 by its value ;;; Emitting code for ASSURE-SPACE-IN-BUFFER. ;;; Note: Tail-recursive call of ASSURE-SPACE-IN-BUFFER was replaced by iteration. ;;; Note: Replacing variable G19780 by its value ;;; Note: Replacing variable G19781 by its value ;;; Emitting code for MAYBE-OUTPUT. ;;; Note: Replacing variable G19787 by its value ;;; Note: Replacing variable G19788 by its value ;;; Note: Replacing variable G19801 by its value ;;; Note: Replacing variable G19809 by its value ;;; Note: Replacing variable G19810 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for MISERING-P. ;;; Emitting code for FITS-ON-LINE-P. ;;; Emitting code for OUTPUT-LINE. ;;; Note: Replacing variable G19830 by its value ;;; Note: Replacing variable G19831 by its value ;;; Note: Replacing variable G19832 by its value ;;; Note: Replacing variable G19835 by its value ;;; Note: Replacing variable G19836 by its value ;;; Note: Replacing variable G19837 by its value ;;; Note: Replacing variable G19838 by its value ;;; Note: Replacing variable G19839 by its value ;;; Note: Replacing variable G19841 by its value ;;; Note: Replacing variable G19842 by its value ;;; Note: Replacing variable G19844 by its value ;;; Emitting code for OUTPUT-PARTIAL-LINE. ;;; Note: Replacing variable G19849 by its value ;;; Note: Replacing variable G19851 by its value ;;; Note: Replacing variable G19852 by its value ;;; Note: Replacing variable G19853 by its value ;;; Note: Replacing variable G19854 by its value ;;; Note: Replacing variable G19856 by its value ;;; Emitting code for FORCE-PRETTY-OUTPUT. ;;; Emitting code for PPRINT-POP-HELPER. ;;; Emitting code for CHECK-PRINT-LEVEL. ;;; Emitting code for SEARCH-PRINT-CIRCLE. ;;; Note: Replacing variable G19862 by its value ;;; Note: Replacing variable G19866 by its value ;;; Note: Replacing variable G19868 by its value ;;; Note: Replacing variable G19869 by its value ;;; Note: Replacing variable G19871 by its value ;;; Emitting code for DO-PPRINT-LOGICAL-BLOCK. ;;; Emitting code for PPRINT-LOGICAL-BLOCK-HELPER. ;;; Emitting code for PPRINT-LOGICAL-BLOCK. ;;; Note: Emitting FUNCALL for SEARCH-KEYWORD ;;; Note: Emitting FUNCALL for SEARCH-KEYWORD ;;; Note: Emitting FUNCALL for SEARCH-KEYWORD ;;; Note: Replacing variable G19888 by its value ;;; Emitting code for PPRINT-EXIT-IF-LIST-EXHAUSTED. ;;; Emitting code for PPRINT-POP. ;;; Emitting code for PPRINT-NEWLINE. ;;; Emitting code for PPRINT-INDENT. ;;; Emitting code for PPRINT-TAB. ;;; Emitting code for PPRINT-FILL. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-19922. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-LINEAR. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-19937. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-TABULAR. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-19952. ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-PPRINT-DISPATCH-ENTRY. ;;; Note: Emitting FUNCALL for REQUIRED-ARGUMENT ;;; Note: Emitting FUNCALL for REQUIRED-ARGUMENT ;;; Emitting code for %PRINT-PPRINT-DISPATCH-ENTRY. ;;; Note: Emitting FUNCALL for PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Emitting code for .PRINT-UNREADABLE-OBJECT-BODY.. ;;; Emitting code for MAKE-PPRINT-DISPATCH-TABLE. ;;; Emitting code for %PRINT-PPRINT-DISPATCH-TABLE. ;;; Note: Emitting FUNCALL for PRINT-UNREADABLE-OBJECT-FUNCTION ;;; Emitting code for CONS-TYPE-SPECIFIER-P. ;;; Emitting code for ENTRY<. ;;; Emitting code for COPY-PPRINT-DISPATCH. ;;; Emitting code for #:G19978. ;;; Note: Replacing variable G19982 by its value ;;; Note: Replacing variable G19984 by its value ;;; Emitting code for DEFAULT-PPRINT-DISPATCH. ;;; Emitting code for PPRINT-DISPATCH. ;;; Note: Eliminating unreachable code ;;; Emitting code for SET-PPRINT-DISPATCH. ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G20008 by its value ;;; Note: Replacing variable G20011 by its value ;;; Note: Replacing variable G20014 by its value ;;; Note: Replacing variable G20015 by its value ;;; Note: Replacing variable G20016 by its value ;;; Emitting code for PPRINT-ARRAY. ;;; Emitting code for PPRINT-VECTOR. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20022. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-ARRAY-CONTENTS. ;;; Emitting code for OUTPUT-GUTS. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20038. ;;; Note: Replacing variable G20051 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-MULTI-DIM-ARRAY. ;;; Note: Replacing variable G20053 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for PPRINT-RAW-ARRAY. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20056. ;;; Emitting code for PPRINT-LAMBDA-LIST. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20066. ;;; Note: Replacing variable G20079 by its value ;;; Note: Replacing variable G20080 by its value ;;; Note: Replacing variable G20081 by its value ;;; Note: Replacing variable G20082 by its value ;;; Note: Replacing variable G20126 by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20087. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20094. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-LAMBDA. ;;; Note: Replacing variable G20128 by its value ;;; Note: Replacing variable G20129 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20127 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20134. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-BLOCK. ;;; Note: Replacing variable G20160 by its value ;;; Note: Replacing variable G20161 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20159 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20166. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-FLET. ;;; Note: Replacing variable G20192 by its value ;;; Note: Replacing variable G20193 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20191 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20198. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20220. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20237. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-LET. ;;; Note: Replacing variable G20270 by its value ;;; Note: Replacing variable G20271 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20269 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20276. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20298. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20315. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-PROGN. ;;; Note: Replacing variable G20342 by its value ;;; Note: Replacing variable G20343 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20341 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20348. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-PROGV. ;;; Note: Replacing variable G20368 by its value ;;; Note: Replacing variable G20369 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20367 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20374. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-QUOTE. ;;; Emitting code for PPRINT-SETQ. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20410. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-TAGBODY. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20441. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-CASE. ;;; Note: Replacing variable G20457 by its value ;;; Note: Replacing variable G20458 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20456 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20463. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20492. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-DEFUN. ;;; Note: Replacing variable G20512 by its value ;;; Note: Replacing variable G20513 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20511 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20518. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-DESTRUCTURING-BIND. ;;; Note: Replacing variable G20550 by its value ;;; Note: Replacing variable G20551 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20549 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20556. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-DO. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20591. ;;; Note: Replacing variable G20602 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20601 by its value ;;; Note: Replacing variable ARGS by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20612. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20629. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-DOLIST. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20667. ;;; Note: Replacing variable G20678 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20677 by its value ;;; Note: Replacing variable ARGS by its value ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20688. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-TYPECASE. ;;; Note: Replacing variable G20719 by its value ;;; Note: Replacing variable G20720 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20718 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20725. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20754. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-PROG. ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20777. ;;; Note: Eliminating unreachable code ;;; Emitting code for PPRINT-FUNCTION-CALL. ;;; Note: Replacing variable G20797 by its value ;;; Note: Replacing variable G20798 by its value ;;; Note: Replacing variable STREAM by its value ;;; Note: Replacing variable FORMAT-ARG-20796 by its value ;;; Note: Replacing variable ARGS by its value ;;; Emitting code for #:PPRINT-LOGICAL-BLOCK-20803. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G20829 by its value ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/pprint.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/pprint.o" ;;; Finished compiling src:lsp;pprint.lsp. ;;; Compiling src:clos;conditions.lsp. ;;; OPTIMIZE levels: Safety=1, Space=3, Speed=3, Debug=0 ;;; Compiling (DEFUN UNIVERSAL-ERROR-HANDLER ...). ;;; Note: in file src:clos;conditions.lsp, position 1, and form ;;; (FSET 'UNIVERSAL-ERROR-HANDLER #'(LAMBDA-BLOCK UNIVERSAL-ERROR-HANDLER # ...)) ;;; Removing unused variable G20836 ;;; Note: in file src:clos;conditions.lsp, position 1, and form ;;; (FSET 'UNIVERSAL-ERROR-HANDLER #'(LAMBDA-BLOCK UNIVERSAL-ERROR-HANDLER # ...)) ;;; Removing unused variable G20843 ;;; Note: in file src:clos;conditions.lsp, position 1, and form ;;; (FSET 'UNIVERSAL-ERROR-HANDLER #'(LAMBDA-BLOCK UNIVERSAL-ERROR-HANDLER # ...)) ;;; Removing unused variable G20862 ;;; Note: in file src:clos;conditions.lsp, position 1, and form ;;; (FSET 'UNIVERSAL-ERROR-HANDLER #'(LAMBDA-BLOCK UNIVERSAL-ERROR-HANDLER # ...)) ;;; Removing unused variable G20863 ;;; Note: in file src:clos;conditions.lsp, position 1, and form ;;; (FSET 'UNIVERSAL-ERROR-HANDLER #'(LAMBDA-BLOCK UNIVERSAL-ERROR-HANDLER # ...)) ;;; Removing unused variable G20864 ;;; Compiling (DEFUN TPL-CONTINUE-COMMAND ...). ;;; Compiling (DEFMACRO UNIQUE-ID ...). ;;; Compiling (DEFVAR *RESTART-CLUSTERS* ...). ;;; Compiling (DEFVAR *CONDITION-RESTARTS* ...). ;;; Compiling (DEFUN COMPUTE-RESTARTS ...). ;;; Compiling (DEFUN RESTART-PRINT ...). ;;; Compiling (DEFUN MAKE-RESTART ...). ;;; Compiling (DEFUN RESTART-REPORT ...). ;;; Compiling (DEFMACRO RESTART-BIND ...). ;;; Compiling (DEFUN FIND-RESTART ...). ;;; Compiling (DEFUN FIND-RESTART-NEVER-FAIL ...). ;;; Compiling (DEFUN INVOKE-RESTART ...). ;;; Compiling (DEFUN INVOKE-RESTART-INTERACTIVELY ...). ;;; Compiling (DEFMACRO RESTART-CASE ...). ;;; Note: in file src:clos;conditions.lsp, position 15, and form ;;; (FSET 'RESTART-CASE #'(LAMBDA-BLOCK RESTART-CASE # ...) ...) ;;; Replacing variable NAME by its value # ;;; Note: in file src:clos;conditions.lsp, position 15, and form ;;; (FSET 'RESTART-CASE #'(LAMBDA-BLOCK RESTART-CASE # ...) ...) ;;; Replacing variable TAG by its value # ;;; Note: in file src:clos;conditions.lsp, position 15, and form ;;; (FSET 'RESTART-CASE #'(LAMBDA-BLOCK RESTART-CASE # ...) ...) ;;; Replacing variable KEYS by its value # ;;; Note: in file src:clos;conditions.lsp, position 15, and form ;;; (FSET 'RESTART-CASE #'(LAMBDA-BLOCK RESTART-CASE # ...) ...) ;;; Replacing variable TAG by its value # ;;; Note: in file src:clos;conditions.lsp, position 15, and form ;;; (FSET 'RESTART-CASE #'(LAMBDA-BLOCK RESTART-CASE # ...) ...) ;;; Replacing variable BVL by its value # ;;; Note: in file src:clos;conditions.lsp, position 15, and form ;;; (FSET 'RESTART-CASE #'(LAMBDA-BLOCK RESTART-CASE # ...) ...) ;;; Replacing variable BODY by its value # ;;; Compiling (DEFMACRO WITH-SIMPLE-RESTART ...). ;;; Note: in file src:clos;conditions.lsp, position 16, and form ;;; (FSET 'WITH-SIMPLE-RESTART #'(LAMBDA-BLOCK WITH-SIMPLE-RESTART # ...) ...) ;;; Replacing variable FORMAT-ARGUMENTS by its value # ;;; Note: in file src:clos;conditions.lsp, position 16, and form ;;; (FSET 'WITH-SIMPLE-RESTART #'(LAMBDA-BLOCK WITH-SIMPLE-RESTART # ...) ...) ;;; Replacing variable FORMS by its value # ;;; Compiling (DEFMACRO WITH-CONDITION-RESTARTS ...). ;;; Note: in file src:clos;conditions.lsp, position 17, and form ;;; (FSET 'WITH-CONDITION-RESTARTS #'(LAMBDA-BLOCK WITH-CONDITION-RESTARTS # ...) ...) ;;; Replacing variable FORMS by its value # ;;; Compiling (DEFCLASS CONDITION ...). ;;; Compiling (DEFMACRO DEFINE-CONDITION ...). ;;; Compiling (DEFUN FIND-SUBCLASSES-OF-TYPE ...). ;;; Compiling (DEFUN MAKE-CONDITION ...). ;;; Compiling (DEFVAR *HANDLER-CLUSTERS* ...). ;;; Compiling (DEFMACRO HANDLER-BIND ...). ;;; Compiling (DEFUN SIGNAL ...). ;;; Compiling (DEFUN COERCE-TO-CONDITION ...). ;;; Compiling (DEFUN BREAK ...). ;;; Note: in file src:clos;conditions.lsp, position 26, and form ;;; (FSET 'BREAK #'(LAMBDA-BLOCK BREAK # ...)) ;;; Removing unused variable G20978 ;;; Compiling (DEFUN WARN ...). ;;; Note: in file src:clos;conditions.lsp, position 27, and form ;;; (FSET 'WARN #'(LAMBDA-BLOCK WARN # ...)) ;;; Removing unused variable G20988 ;;; Compiling (DEFUN SIGNAL-SIMPLE-ERROR ...). ;;; Compiling (DEFMACRO HANDLER-CASE ...). ;;; Compiling (DEFMACRO IGNORE-ERRORS ...). ;;; Note: in file src:clos;conditions.lsp, position 32, and form ;;; (FSET 'IGNORE-ERRORS #'(LAMBDA-BLOCK IGNORE-ERRORS # ...) ...) ;;; Replacing variable FORMS by its value # ;;; Compiling (DEFUN ABORT ...). ;;; Compiling (DEFUN CONTINUE ...). ;;; Compiling (DEFUN MUFFLE-WARNING ...). ;;; Compiling (DEFUN STORE-VALUE ...). ;;; Compiling (DEFUN USE-VALUE ...). ;;; End of Pass 1. ;;; Note: Creating tag: "_eclWU5Lrjm8_RGTqBfy" for #P"build:clos;conditions.o.NEWEST" ;;; Emitting code for UNIVERSAL-ERROR-HANDLER. ;;; Note: Emitting FDEFINITION for INVOKE-DEBUGGER ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for INVOKE-DEBUGGER ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for INVOKE-DEBUGGER ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Emitting FDEFINITION for INVOKE-DEBUGGER ;;; Emitting code for #:G20834. ;;; Emitting code for #:G20835. ;;; Emitting code for #:G20841. ;;; Emitting code for #:G20842. ;;; Emitting code for #:G20848. ;;; Emitting code for #:G20849. ;;; Emitting code for #:G20854. ;;; Emitting code for #:G20855. ;;; Emitting code for #:G20860. ;;; Emitting code for #:G20861. ;;; Emitting code for TPL-CONTINUE-COMMAND. ;;; Emitting code for UNIQUE-ID. ;;; Emitting code for COMPUTE-RESTARTS. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for RESTART-PRINT. ;;; Emitting code for MAKE-RESTART. ;;; Emitting code for RESTART-REPORT. ;;; Emitting code for RESTART-BIND. ;;; Note: Replacing variable G20890 by its value ;;; Note: Replacing variable BINDING by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-RESTART. ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-RESTART-NEVER-FAIL. ;;; Emitting code for INVOKE-RESTART. ;;; Emitting code for INVOKE-RESTART-INTERACTIVELY. ;;; Emitting code for RESTART-CASE. ;;; Note: Replacing variable G20904 by its value ;;; Note: Replacing variable CLAUSE by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G20915 by its value ;;; Note: Replacing variable DATUM by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G20920 by its value ;;; Note: Replacing variable G20922 by its value ;;; Note: Replacing variable DATUM by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for TRANSFORM-KEYWORDS. ;;; Emitting code for WITH-SIMPLE-RESTART. ;;; Emitting code for WITH-CONDITION-RESTARTS. ;;; Emitting code for DEFINE-CONDITION. ;;; Note: Eliminating unreachable code ;;; Emitting code for FIND-SUBCLASSES-OF-TYPE. ;;; Note: Replacing variable G20948 by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for MAKE-CONDITION. ;;; Emitting code for HANDLER-BIND. ;;; Note: Replacing variable G20958 by its value ;;; Note: Replacing variable X by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G20953. ;;; Emitting code for SIGNAL. ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for COERCE-TO-CONDITION. ;;; Emitting code for BREAK. ;;; Note: Emitting FDEFINITION for INVOKE-DEBUGGER ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G20976. ;;; Emitting code for #:G20977. ;;; Emitting code for WARN. ;;; Note: Eliminating unreachable code ;;; Emitting code for #:G20986. ;;; Emitting code for #:G20987. ;;; Note: Eliminating unreachable code ;;; Emitting code for SIGNAL-SIMPLE-ERROR. ;;; Emitting code for HANDLER-CASE. ;;; Note: Replacing variable G21000 by its value ;;; Note: Replacing variable CASE by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G21005 by its value ;;; Note: Replacing variable ANNOTATED-CASE by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Note: Replacing variable G21010 by its value ;;; Note: Replacing variable G21012 by its value ;;; Note: Replacing variable ANNOTATED-CASE by its value ;;; Note: Eliminating unreachable code ;;; Note: Eliminating unreachable code ;;; Emitting code for IGNORE-ERRORS. ;;; Emitting code for ABORT. ;;; Emitting code for CONTINUE. ;;; Emitting code for MUFFLE-WARNING. ;;; Emitting code for STORE-VALUE. ;;; Emitting code for USE-VALUE. ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/conditions.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/clos/conditions.o" ;;; Finished compiling src:clos;conditions.lsp. ;;; Note: Scanning #P"build:clos;conditions.o.NEWEST" ;;; Note: Found tag: "_eclWU5Lrjm8_RGTqBfy" for build:clos;conditions.o.NEWEST ;;; Note: Scanning #P"build:clos;pprint.o.NEWEST" ;;; Note: Found tag: "_eclUmLLoQo8_EmRqBfy" for build:clos;pprint.o.NEWEST ;;; Note: Scanning #P"build:clos;streams.o.NEWEST" ;;; Note: Found tag: "_eclXK9XTCn8_HjQqBfy" for build:clos;streams.o.NEWEST ;;; Note: Scanning #P"build:clos;inspect.o.NEWEST" ;;; Note: Found tag: "_ecl4tMWj4o8_gDQqBfy" for build:clos;inspect.o.NEWEST ;;; Note: Scanning #P"build:clos;print.o.NEWEST" ;;; Note: Found tag: "_eclHugaSyn8_wmPqBfy" for build:clos;print.o.NEWEST ;;; Note: Scanning #P"build:clos;fixup.o.NEWEST" ;;; Note: Found tag: "_ecl7ozDL0n8_ptPqBfy" for build:clos;fixup.o.NEWEST ;;; Note: Scanning #P"build:clos;generic.o.NEWEST" ;;; Note: Found tag: "_eclSCOAdVo8_miPqBfy" for build:clos;generic.o.NEWEST ;;; Note: Scanning #P"build:clos;stdmethod.o.NEWEST" ;;; Note: Found tag: "_eclGaLfEdn8_9ePqBfy" for build:clos;stdmethod.o.NEWEST ;;; Note: Scanning #P"build:clos;change.o.NEWEST" ;;; Note: Found tag: "_eclvDnvqan8_9SPqBfy" for build:clos;change.o.NEWEST ;;; Note: Scanning #P"build:clos;builtin.o.NEWEST" ;;; Note: Found tag: "_eclEL9ibdm8_1KPqBfy" for build:clos;builtin.o.NEWEST ;;; Note: Scanning #P"build:clos;standard.o.NEWEST" ;;; Note: Found tag: "_eclHipyaVm8_GnOqBfy" for build:clos;standard.o.NEWEST ;;; Note: Scanning #P"build:clos;defclass.o.NEWEST" ;;; Note: Found tag: "_ecloZCntZn8_baOqBfy" for build:clos;defclass.o.NEWEST ;;; Note: Scanning #P"build:clos;boot.o.NEWEST" ;;; Note: Found tag: "_ecloZk474n8_ZOOqBfy" for build:clos;boot.o.NEWEST ;;; Note: Scanning #P"build:clos;combin.o.NEWEST" ;;; Note: Found tag: "_eclbh4KmYm8_CyNqBfy" for build:clos;combin.o.NEWEST ;;; Note: Scanning #P"build:clos;slot.o.NEWEST" ;;; Note: Found tag: "_eclMWYiQJn8_o7OqBfy" for build:clos;slot.o.NEWEST ;;; Note: Scanning #P"build:clos;method.o.NEWEST" ;;; Note: Found tag: "_ecl4EjcYun8_KhNqBfy" for build:clos;method.o.NEWEST ;;; Note: Scanning #P"build:clos;kernel.o.NEWEST" ;;; Note: Found tag: "_eclZRL0C2n8_DfNqBfy" for build:clos;kernel.o.NEWEST ;;; Note: Scanning #P"build:lsp;top.o.NEWEST" ;;; Note: Found tag: "_eclvs8eQWo8_GwMqBfy" for build:lsp;top.o.NEWEST ;;; Note: Scanning #P"build:lsp;cmdline.o.NEWEST" ;;; Note: Found tag: "_ecl7fYdn6o8_T2NqBfy" for build:lsp;cmdline.o.NEWEST ;;; Note: Scanning #P"build:lsp;module.o.NEWEST" ;;; Note: Found tag: "_eclfY6Lkin8_vyMqBfy" for build:lsp;module.o.NEWEST ;;; Note: Scanning #P"build:lsp;describe.o.NEWEST" ;;; Note: Found tag: "_eclpN05wtm8_JjMqBfy" for build:lsp;describe.o.NEWEST ;;; Note: Scanning #P"build:lsp;config.o.NEWEST" ;;; Note: Found tag: "_eclsEEaQsm8_BdMqBfy" for build:lsp;config.o.NEWEST ;;; Note: Scanning #P"build:lsp;ffi.o.NEWEST" ;;; Note: Found tag: "_eclHxlRTmn8_tFMqBfy" for build:lsp;ffi.o.NEWEST ;;; Note: Scanning #P"build:lsp;defpackage.o.NEWEST" ;;; Note: Found tag: "_eclWY9Uzio8_E2MqBfy" for build:lsp;defpackage.o.NEWEST ;;; Note: Scanning #P"build:lsp;format.o.NEWEST" ;;; Note: Found tag: "_eclmcZExmo8_8VJqBfy" for build:lsp;format.o.NEWEST ;;; Note: Scanning #P"build:lsp;loop2.o.NEWEST" ;;; Note: Found tag: "_eclReSsc7n8_wxHqBfy" for build:lsp;loop2.o.NEWEST ;;; Note: Scanning #P"build:lsp;trace.o.NEWEST" ;;; Note: Found tag: "_eclq9NY6Pn8_fcHqBfy" for build:lsp;trace.o.NEWEST ;;; Note: Scanning #P"build:lsp;seqlib.o.NEWEST" ;;; Note: Found tag: "_ecliu2F9go8_aBHqBfy" for build:lsp;seqlib.o.NEWEST ;;; Note: Scanning #P"build:lsp;packlib.o.NEWEST" ;;; Note: Found tag: "_ecl4JNMqQo8_AzGqBfy" for build:lsp;packlib.o.NEWEST ;;; Note: Scanning #P"build:lsp;numlib.o.NEWEST" ;;; Note: Found tag: "_ecloLsmlQo8_1sGqBfy" for build:lsp;numlib.o.NEWEST ;;; Note: Scanning #P"build:lsp;mislib.o.NEWEST" ;;; Note: Found tag: "_eclOHjkKdo8_MjGqBfy" for build:lsp;mislib.o.NEWEST ;;; Note: Scanning #P"build:lsp;listlib.o.NEWEST" ;;; Note: Found tag: "_eclzLwdRYm8_1bGqBfy" for build:lsp;listlib.o.NEWEST ;;; Note: Scanning #P"build:lsp;iolib.o.NEWEST" ;;; Note: Found tag: "_eclA5wIpBo8_HCGqBfy" for build:lsp;iolib.o.NEWEST ;;; Note: Scanning #P"build:lsp;defstruct.o.NEWEST" ;;; Note: Found tag: "_ecloPPJNoo8_OFGqBfy" for build:lsp;defstruct.o.NEWEST ;;; Note: Scanning #P"build:lsp;assert.o.NEWEST" ;;; Note: Found tag: "_eclK6J2Mbn8_z1GqBfy" for build:lsp;assert.o.NEWEST ;;; Note: Scanning #P"build:lsp;arraylib.o.NEWEST" ;;; Note: Found tag: "_eclrPixWio8_asFqBfy" for build:lsp;arraylib.o.NEWEST ;;; Note: Scanning #P"build:lsp;seq.o.NEWEST" ;;; Note: Found tag: "_eclLokSK0n8_SgFqBfy" for build:lsp;seq.o.NEWEST ;;; Note: Scanning #P"build:lsp;predlib.o.NEWEST" ;;; Note: Found tag: "_eclBRoxy9o8_PtEqBfy" for build:lsp;predlib.o.NEWEST ;;; Note: Scanning #P"build:lsp;setf.o.NEWEST" ;;; Note: Found tag: "_ecl0D5lllm8_bREqBfy" for build:lsp;setf.o.NEWEST ;;; Note: Scanning #P"build:lsp;autoload.o.NEWEST" ;;; Note: Found tag: "_ecl8na9fJo8_4IEqBfy" for build:lsp;autoload.o.NEWEST ;;; Note: Scanning #P"build:lsp;evalmacros.o.NEWEST" ;;; Note: Found tag: "_eclcaqY7jm8_K4EqBfy" for build:lsp;evalmacros.o.NEWEST ;;; Note: Scanning #P"build:lsp;helpfile.o.NEWEST" ;;; Note: Found tag: "_eclODFvLvn8_CwDqBfy" for build:lsp;helpfile.o.NEWEST ;;; Note: Scanning #P"build:lsp;defmacro.o.NEWEST" ;;; Note: Found tag: "_eclYBx4bHn8_wlDqBfy" for build:lsp;defmacro.o.NEWEST ;;; Note: Scanning #P"build:lsp;export.o.NEWEST" ;;; Note: Found tag: "_eclbffKyin8_leDqBfy" for build:lsp;export.o.NEWEST /scratch/lang/ecl/work/ecl-8.12.0/build/ECLINITnBZwS9.c:132:2: warning: no newline at end of file ;;; Note: Invoking external command: ;;; cc -DECL_API -I"/scratch/lang/ecl/work/ecl-8.12.0/build/c" -I/usr/pkg/include -O2 -I/usr/pkg/include -fPIC -Ddragonfly -I"/scratch/lang/ecl/work/ecl-8.12.0/src/c" -O "-I/scratch/lang/ecl/work/ecl-8.12.0/build/" -w -c "/scratch/lang/ecl/work/ecl-8.12.0/build/ECLINITnBZwS9.c" -o "/scratch/lang/ecl/work/ecl-8.12.0/build/ECLINITnBZwS9.o" ;;; Note: Invoking external command: ;;; ar cr liblsp.a /scratch/lang/ecl/work/ecl-8.12.0/build/ECLINITnBZwS9.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/export.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defmacro.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/helpfile.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/evalmacros.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/autoload.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/setf.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/predlib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/seq.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/arraylib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/assert.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defstruct.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/iolib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/listlib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/mislib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/numlib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/packlib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/seqlib.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/trace.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/loop2.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/format.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/defpackage.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/ffi.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/config.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/describe.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/module.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/cmdline.o /scratch/lang/ecl/work/ecl-8.12.0/build/lsp/top.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/kernel.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/method.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/slot.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/combin.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/boot.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/defclass.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/standard.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/builtin.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/change.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/stdmethod.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/generic.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/fixup.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/print.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/inspect.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/streams.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/pprint.o /scratch/lang/ecl/work/ecl-8.12.0/build/clos/conditions.o ;;; Note: Invoking external command: ;;; ranlib liblsp.a NIL /usr/lib/gcc41/crt1.o: In function `_start': crt1.c:(.text+0x86): undefined reference to `main' LAMBDA: Too many arguments to function CONTINUE. ;;; Note: Invoking external command: ;;; cc -o "/scratch/lang/ecl/work/ecl-8.12.0/build/libecl.so" -L"/scratch/lang/ecl/work/ecl-8.12.0/build/" "c/main.o" "c/all_symbols2.o" "liblsp.a" "libeclmin.a" -L/usr/pkg/lib -Wl,-R/usr/pkg/lib -lm -lgc -lgmpBroken at TOP-LEVEL. File: #P"/scratch/lang/ecl/work/ecl-8.12.0/src/lsp/top.lsp" (Form #26)No restarts available. Top level. SI> sed -e 's,@libdir\\@,/usr/pkg/lib/,' \ -e 's,@includedir\\@,/usr/pkg/include/,' bin/ecl-config.pre > bin/ecl-config gmake[1]: Leaving directory `/scratch/lang/ecl/work/ecl-8.12.0/build' => Unwrapping files-to-be-installed. INFO: [subst.mk:unwrap] Nothing changed in ./build/bin/ecl-config. INFO: [subst.mk:unwrap] Nothing changed in ./src/util/ecl-config.