From 1d4d7d0e0c30f96582ad483f5fd22351ce503592 Mon Sep 17 00:00:00 2001 From: marting Date: Fri, 8 Oct 1999 18:41:05 +0000 Subject: [PATCH] snapshot, this version should work quite well --- Makefile | 22 +- Makefile.in | 22 +- acconfig.h | 10 + build/initial.debug | 6639 ++++++++++++++++++------------------ build/initial.image | Bin 594333 -> 594081 bytes c/sysdep.h.in | 25 +- c/unix/event.c | 14 +- configure | 682 +++- configure.in | 32 + scheme/interfaces.scm | 1 + scheme/more-interfaces.scm | 2 + scsh/regexp/regcomp.o | Bin 36748 -> 0 bytes scsh/regexp/regexec.o | Bin 35228 -> 0 bytes scsh/rx/re-low.c | 66 +- scsh/scsh-interfaces.scm | 10 +- scsh/scsh-package.scm | 37 +- scsh/sighandlers.c | 12 +- scsh/sighandlers.scm | 16 +- scsh/syscalls.c | 44 +- scsh/time.c | 26 +- scsh/time.scm | 1 + 21 files changed, 4038 insertions(+), 3623 deletions(-) delete mode 100644 scsh/regexp/regcomp.o delete mode 100644 scsh/regexp/regexec.o diff --git a/Makefile b/Makefile index d1e1edb..42db369 100644 --- a/Makefile +++ b/Makefile @@ -83,8 +83,8 @@ BIG_HEAP = -h 5000000 # LINKER_RUNNABLE = $(LINKER_VM) -i $(IMAGE) # JMG now according 2 -LINKER_VM = $(RUNNABLE) $(BIG_HEAP) -LINKER_RUNNABLE = $(RUNNABLE) +LINKER_VM = /home/ai/marting/lib/scheme48/scheme48vm $(BIG_HEAP) +LINKER_RUNNABLE = s4853 LINKER_IMAGE = build/linker.image LINKER = $(LINKER_VM) -i $(LINKER_IMAGE) @@ -96,7 +96,7 @@ START_LINKER = echo ',batch' && echo ',bench on' # Targets: -IMAGE = scheme48.image +IMAGE = scsh.image INITIAL = build/initial.image #JMG: renamed the vm #JMG: we need cig at the moment @@ -329,6 +329,12 @@ inst-man: inst-inc: $(INSTALL_DATA) c/scheme48.h $(incdir) +install-cig: cig + $(INSTALL_PROGRAM) $(srcdir)/$(CIG) $(LIB)/cig + $(INSTALL_PROGRAM) $(srcdir)/$(CIG).image $(LIB)/cig + $(INSTALL_DATA) $(srcdir)/$(LIBCIG) $(LIB)/cig + $(INSTALL_DATA) $(srcdir)/cig/libcig.h $(LIB)/cig + inst-misc: for stub in env big opt misc link; do \ for f in scheme/$$stub/*.scm; do \ @@ -542,7 +548,7 @@ link/linker-in-lucid: build/lucid-script.lisp $(linker-files) \ # no debugging environment to speak of. $(INITIAL): $(LINKER_IMAGE) $(CONFIG_FILES) build/initial.scm $(initial-files) \ - scsh/here.scm # gross and Olin hates it -bri + scsh/here.scm # gross and Olin hates it -bri ($(START_LINKER); \ echo '(load-configuration "scheme/interfaces.scm")'; \ echo '(load-configuration "scheme/packages.scm")'; \ @@ -827,11 +833,15 @@ scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image echo ",open floatnums"; \ echo ",open scsh"; \ echo ",open list-lib string-lib ccp-lib"; \ + echo ",batch off"; \ + echo ",open scsh-top-package"; \ + echo ",keep names maps files source tabulate"; \ echo ",dump scsh06.image"; \ - echo "(dump-scsh \"scsh/scsh.image\")" \ - echo ",batch off") \ + echo "(dump-scsh \"scsh/scsh.image\")"; \ + echo ",batch on") \ | ./$(VM) -o ./$(VM) -i $(CIG).image -h 10000000 +# echo ",build (lambda (args) ((scsh-stand-alone-resumer (make-scsh-starter)) args)) bla.image"; \ #scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image # (echo ",translate =scheme48/ $(srcdir)/"; \ # echo ",batch on"; \ diff --git a/Makefile.in b/Makefile.in index c30167d..8ba607f 100644 --- a/Makefile.in +++ b/Makefile.in @@ -83,8 +83,8 @@ BIG_HEAP = -h 5000000 # LINKER_RUNNABLE = $(LINKER_VM) -i $(IMAGE) # JMG now according 2 -LINKER_VM = $(RUNNABLE) $(BIG_HEAP) -LINKER_RUNNABLE = $(RUNNABLE) +LINKER_VM = /home/ai/marting/lib/scheme48/scheme48vm $(BIG_HEAP) +LINKER_RUNNABLE = s4853 LINKER_IMAGE = build/linker.image LINKER = $(LINKER_VM) -i $(LINKER_IMAGE) @@ -96,7 +96,7 @@ START_LINKER = echo ',batch' && echo ',bench on' # Targets: -IMAGE = scheme48.image +IMAGE = scsh.image INITIAL = build/initial.image #JMG: renamed the vm #JMG: we need cig at the moment @@ -329,6 +329,12 @@ inst-man: inst-inc: $(INSTALL_DATA) c/scheme48.h $(incdir) +install-cig: cig + $(INSTALL_PROGRAM) $(srcdir)/$(CIG) $(LIB)/cig + $(INSTALL_PROGRAM) $(srcdir)/$(CIG).image $(LIB)/cig + $(INSTALL_DATA) $(srcdir)/$(LIBCIG) $(LIB)/cig + $(INSTALL_DATA) $(srcdir)/cig/libcig.h $(LIB)/cig + inst-misc: for stub in env big opt misc link; do \ for f in scheme/$$stub/*.scm; do \ @@ -542,7 +548,7 @@ link/linker-in-lucid: build/lucid-script.lisp $(linker-files) \ # no debugging environment to speak of. $(INITIAL): $(LINKER_IMAGE) $(CONFIG_FILES) build/initial.scm $(initial-files) \ - scsh/here.scm # gross and Olin hates it -bri + scsh/here.scm # gross and Olin hates it -bri ($(START_LINKER); \ echo '(load-configuration "scheme/interfaces.scm")'; \ echo '(load-configuration "scheme/packages.scm")'; \ @@ -827,11 +833,15 @@ scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image echo ",open floatnums"; \ echo ",open scsh"; \ echo ",open list-lib string-lib ccp-lib"; \ + echo ",batch off"; \ + echo ",open scsh-top-package"; \ + echo ",keep names maps files source tabulate"; \ echo ",dump scsh06.image"; \ - echo "(dump-scsh \"scsh/scsh.image\")" \ - echo ",batch off") \ + echo "(dump-scsh \"scsh/scsh.image\")"; \ + echo ",batch on") \ | ./$(VM) -o ./$(VM) -i $(CIG).image -h 10000000 +# echo ",build (lambda (args) ((scsh-stand-alone-resumer (make-scsh-starter)) args)) bla.image"; \ #scsh/scsh.image: $(VM) $(SCHEME) $(CIG).image # (echo ",translate =scheme48/ $(srcdir)/"; \ # echo ",batch on"; \ diff --git a/acconfig.h b/acconfig.h index ece5e70..ecdf904 100644 --- a/acconfig.h +++ b/acconfig.h @@ -25,6 +25,16 @@ */ #undef USCORE +/* + * Define if your tm struct in has a tm_gmtoff field. + */ +#undef HAVE_GMTOFF +/* + * Define if you have dlopen() and related routines (dynamic linking + * of shared object files). + */ +#undef HAVE_DLOPEN 1 + @BOTTOM@ #include "fake/sigact.h" diff --git a/build/initial.debug b/build/initial.debug index 42a175e..980d04b 100644 --- a/build/initial.debug +++ b/build/initial.debug @@ -753,1273 +753,1272 @@ (663 (required-post-gc-space . 38)) (664 (space-shortage-handler . 38)) (665 (call-before-heap-overflow! . 38)) -(666 (interrupt-handlers-vector . 38)) -(667 (dynamic-wind . 22)) -(668 (call-with-current-continuation . 22)) -(669 (continuation->procedure . 22)) -(670 (:point . 22)) -(671 (make-point . 22)) -(672 (point-parent . 22)) -(673 (point-dynamic-env . 22)) -(674 (point-out . 22)) -(675 (point-in . 22)) -(676 (point-depth . 22)) -(677 (travel-to-point! . 22)) -(678 (template-overhead . 32)) -(679 (template-code . 32)) -(680 (template-info . 32)) -(681 (set-template-code! . 32)) -(682 (set-template-info! . 32)) -(683 (:closure . 34)) -(684 (:code-vector . 34)) -(685 (:location . 34)) -(686 (:template . 34)) -(687 (:channel . 34)) -(688 (:port . 34)) -(689 (:double . 34)) -(690 (:weak-pointer . 34)) -(691 (:shared-binding . 34)) -(692 (continuation-cont . 33)) -(693 (real-continuation-pc . 33)) -(694 (real-continuation-template . 33)) -(695 (continuation-env . 33)) -(696 (exception-continuation-pc . 33)) -(697 (exception-continuation-template . 33)) -(698 (exception-continuation-exception . 33)) -(699 (exception-continuation? . 33)) -(700 (continuation-pc . 33)) -(701 (continuation-template . 33)) -(702 (normal-continuation-overhead . 33)) -(703 (exception-continuation-overhead . 33)) -(704 (continuation-arg . 33)) -(705 (continuation-arg-count . 33)) -(706 (:continuation . 33)) -(707 (continuation-parent . 33)) -(708 (define-exception-handler . 37)) -(709 (signal-exception . 37)) -(710 (exception-handlers . 37)) -(711 (extend-opcode! . 37)) -(712 (really-signal-condition . 37)) -(713 (with-handler . 37)) -(714 ($condition-handlers . 37)) -(715 (initialize-exceptions! . 37)) -(716 (last-resort-condition-handler . 37)) -(717 (report-utter-lossage . 37)) -(718 (continuation-preview . 37)) -(719 (ignore-errors . 37)) -(720 (report-errors-as-warnings . 37)) -(721 (:thread . 39)) -(722 (really-make-thread . 39)) -(723 (thread-name . 39)) -(724 (thread-uid . 39)) -(725 (thread-current-task . 39)) -(726 (set-thread-current-task! . 39)) -(727 (thread-events . 39)) -(728 (set-thread-events! . 39)) -(729 (thread-data . 39)) -(730 (set-thread-data! . 39)) -(731 (thread-scheduler . 39)) -(732 (set-thread-scheduler! . 39)) -(733 (thread-time . 39)) -(734 (set-thread-time! . 39)) -(735 (thread-arguments . 39)) -(736 (set-thread-arguments! . 39)) -(737 (thread-queue . 39)) -(738 (set-thread-queue! . 39)) -(739 (thread-continuation . 39)) -(740 (set-thread-continuation! . 39)) -(741 (thread-dynamic-point . 39)) -(742 (set-thread-dynamic-point! . 39)) -(743 (thread-dynamic-env . 39)) -(744 (thread? . 39)) -(745 (*thread-uid* . 39)) -(746 (make-thread . 39)) -(747 (thread-top-level . 39)) -(748 (thread-uid->thread . 39)) -(749 (all-threads . 39)) -(750 (add-event! . 39)) -(751 (thunk->continuation . 39)) -(752 (compose-continuation . 39)) -(753 (make-thread-queue . 39)) -(754 (thread-queue-empty? . 39)) -(755 (enqueue-thread! . 39)) -(756 (dequeue-thread! . 39)) -(757 (remove-thread-from-queue! . 39)) -(758 (current-thread . 39)) -(759 (set-current-thread! . 39)) -(760 (event-type . 39)) -(761 (event-type-enumeration . 39)) -(762 (event-type-count . 39)) -(763 (run . 39)) -(764 (find-and-run-next-thread . 39)) -(765 (debit-thread-times-and-run! . 39)) -(766 (handle-timer-interrupt . 39)) -(767 (run-next-thread . 39)) -(768 (min . 39)) -(769 (switch-to-thread . 39)) -(770 (run-thread . 39)) -(771 (suspend . 39)) -(772 (suspend-to . 39)) -(773 (debit-down! . 39)) -(774 (exit . 39)) -(775 (wait . 39)) -(776 (waiting? . 39)) -(777 (block . 39)) -(778 (relinquish-timeslice . 39)) -(779 (upcall . 39)) -(780 (propogate-upcall . 39)) -(781 (kill-thread! . 39)) -(782 (interrupt-thread . 39)) -(783 (get-next-event! . 39)) -(784 (event-pending? . 39)) -(785 (schedule-event . 39)) -(786 (schedule-wakeup . 39)) -(787 (show-running . 39)) -(788 (running? . 39)) -(789 (spawn . 39)) -(790 (spawn-on-root . 39)) -(791 (spawn-on-scheduler . 39)) -(792 (make-ready . 39)) -(793 (schedule-interrupt! . 39)) -(794 (cancel-timer-interrupt! . 39)) -(795 (interrupt-timer-time . 39)) -(796 (real-time . 39)) -(797 (with-threads . 39)) -(798 (start-multitasking . 39)) -(799 (deadlock? . 39)) -(800 (terminate? . 39)) -(801 (terminate-current-thread . 39)) -(802 (root-scheduler-slot . 39)) -(803 (root-scheduler . 39)) -(804 (sleep . 39)) -(805 (*dozers* . 39)) -(806 (insert . 39)) -(807 (wake-some-threads . 39)) -(808 (:lock . 44)) -(809 (really-make-lock . 44)) -(810 (lock-uid . 44)) -(811 (lock-queue . 44)) -(812 (lock-owner-uid . 44)) -(813 (set-lock-owner-uid! . 44)) -(814 (lock? . 44)) -(815 (*lock-uid* . 44)) -(816 (make-lock . 44)) -(817 (obtain-lock . 44)) -(818 (maybe-obtain-lock . 44)) -(819 (release-lock . 44)) -(820 (:port-handler . 24)) -(821 (really-make-port-handler . 24)) -(822 (port-handler-steal . 24)) -(823 (port-handler-buffer-proc . 24)) -(824 (port-handler-close . 24)) -(825 (port-handler-discloser . 24)) -(826 (port-handler? . 24)) -(827 (make-port-handler . 24)) -(828 (disclose-port . 24)) -(829 (obtain-port-lock . 24)) -(830 (maybe-obtain-port-lock . 24)) -(831 (release-port-lock . 24)) -(832 (initialize-i/o-handlers! . 24)) -(833 (one-arg-proc->handler . 24)) -(834 (two-arg-proc->handler . 24)) -(835 (read-char-handler . 24)) -(836 (fill-port-buffer! . 24)) -(837 (write-char-handler . 24)) -(838 (empty-port-buffer! . 24)) -(839 (port-flushed? . 24)) -(840 (set-port-flushed?! . 24)) -(841 (close-input-port . 24)) -(842 (close-output-port . 24)) -(843 (define-port-op . 24)) -(844 (real-char-ready? . 24)) -(845 (read-block . 24)) -(846 (really-read-block . 24)) -(847 (buffer-length . 24)) -(848 (read-more . 24)) -(849 (okay-limits? . 24)) -(850 (write-block . 24)) -(851 (write-string . 24)) -(852 (write-buffered-block . 24)) -(853 (write-unbuffered-block . 24)) -(854 (force-output . 24)) -(855 (really-force-output . 24)) -(856 (force-output-if-open . 24)) -(857 (default-buffer-size . 24)) -(858 (open-port? . 24)) -(859 (open-port-mask . 24)) -(860 (input-port-mask . 24)) -(861 (open-input-port-mask . 24)) -(862 (open-input-port-status . 24)) -(863 (open-input-port? . 24)) -(864 (make-input-port-closed! . 24)) -(865 (make-input-port . 24)) -(866 (okay-buffer? . 24)) -(867 (output-port-mask . 24)) -(868 (open-output-port-mask . 24)) -(869 (open-output-port-status . 24)) -(870 (open-output-port? . 24)) -(871 (make-output-port-closed! . 24)) -(872 (make-output-port . 24)) -(873 (make-unbuffered-output-port . 24)) -(874 (null-output-port-handler . 24)) -(875 (make-null-output-port . 24)) -(876 (*flush-these-ports* . 24)) -(877 (initialize-output-port-list! . 24)) -(878 (periodically-force-output! . 24)) -(879 (output-port-forcers . 24)) -(880 (periodically-flushed-ports . 24)) -(881 (make-forcing-thunk . 24)) -(882 (steal-port! . 24)) -(883 (really-steal-port! . 24)) -(884 ($current-input-port . 24)) -(885 ($current-output-port . 24)) -(886 ($current-error-port . 24)) -(887 ($current-noise-port . 24)) -(888 (current-input-port . 24)) -(889 (current-output-port . 24)) -(890 (current-error-port . 24)) -(891 (current-noise-port . 24)) -(892 (initialize-i/o . 24)) -(893 (with-current-ports . 24)) -(894 (call-with-current-input-port . 24)) -(895 (call-with-current-output-port . 24)) -(896 (call-with-current-noise-port . 24)) -(897 (silently . 24)) -(898 (newline . 24)) -(899 (char-ready? . 24)) -(900 (output-port-option . 24)) -(901 (input-port-option . 24)) -(902 (write . 28)) -(903 (recurring-write . 28)) -(904 (write-boolean . 28)) -(905 (write-number . 28)) -(906 (write-char-literal . 28)) -(907 (character-name . 28)) -(908 (write-string-literal . 28)) -(909 (write-list . 28)) -(910 (quotation? . 28)) -(911 (write-vector . 28)) -(912 (write-other . 28)) -(913 (display-type-name . 28)) -(914 (display . 28)) -(915 (preferred-case . 29)) -(916 (script-skip . 29)) -(917 (read . 29)) -(918 (sub-read-carefully . 29)) -(919 (reader-token-marker . 29)) -(920 (make-reader-token . 29)) -(921 (reader-token? . 29)) -(922 (close-paren . 29)) -(923 (dot . 29)) -(924 (sub-read . 29)) -(925 (read-dispatch-vector . 29)) -(926 (read-terminating?-vector . 29)) -(927 (set-standard-syntax! . 29)) -(928 (set-standard-read-macro! . 29)) -(929 (sub-read-list . 29)) -(930 (gobble-line . 29)) -(931 (*sharp-macros* . 29)) -(932 (define-sharp-macro . 29)) -(933 (sub-read-token . 29)) -(934 (parse-token . 29)) -(935 (bel . 29)) -(936 (bs . 29)) -(937 (ff . 29)) -(938 (cr . 29)) -(939 (ht . 29)) -(940 (vt . 29)) -(941 (strange-symbol-names . 29)) -(942 (p-c-v . 29)) -(943 (reading-error . 29)) -(944 (input-channel? . 25)) -(945 (output-channel? . 25)) -(946 (open-input-channel . 25)) -(947 (open-output-channel . 25)) -(948 (close-input-channel . 25)) -(949 (close-output-channel . 25)) -(950 (input-channel-handler . 26)) -(951 (input-channel->port . 26)) -(952 (input-channel+closer->port . 26)) -(953 (real-input-channel->port . 26)) -(954 (output-channel-handler . 26)) -(955 (make-unbuffered-output-channel-handler . 26)) -(956 (output-channel->port . 26)) -(957 (output-channel+closer->port . 26)) -(958 (real-output-channel->port . 26)) -(959 (maybe-force-output . 26)) -(960 (:channel-cell . 26)) -(961 (make-channel-cell . 26)) -(962 (channel-cell-closer . 26)) -(963 (channel-cell-ref . 26)) -(964 (channel-cell? . 26)) -(965 (port->channel . 26)) -(966 (open-input-file . 26)) -(967 (open-output-file . 26)) -(968 (call-with-input-file . 26)) -(969 (call-with-output-file . 26)) -(970 (with-input-from-file . 26)) -(971 (with-output-to-file . 26)) -(972 (force-channel-output-ports! . 26)) -(973 (steal-channel-port! . 26)) -(974 (really-steal-channel-port! . 26)) -(975 (initialize-channel-i/o! . 26)) -(976 (i/o-completion-handler . 26)) -(977 (waiting-for-i/o? . 26)) -(978 (wait-for-channel . 26)) -(979 (nothing . 26)) -(980 (steal-channel! . 26)) -(981 (channel-wait-count-slot . 26)) -(982 (channel-wait-count . 26)) -(983 (increment-channel-wait-count! . 26)) -(984 (decrement-channel-wait-count! . 26)) -(985 (channel-wait-queues-slot . 26)) -(986 (add-channel-wait-queue! . 26)) -(987 (fetch-channel-wait-queue! . 26)) -(988 (:table . 77)) -(989 (really-make-table . 77)) -(990 (table-set!-procedure . 77)) -(991 (set-table-set!-procedure! . 77)) -(992 (table-ref-procedure . 77)) -(993 (set-table-ref-procedure! . 77)) -(994 (table-data . 77)) -(995 (set-table-data! . 77)) -(996 (table-size . 77)) -(997 (set-table-size! . 77)) -(998 (table? . 77)) -(999 (table-ref . 77)) -(1000 (table-set! . 77)) -(1001 (linear-table-size-limit . 77)) -(1002 (next-table-size . 77)) -(1003 (make-table-maker . 77)) -(1004 (assoc->table-maker . 77)) -(1005 (null-entry . 77)) -(1006 (new-entry . 77)) -(1007 (entry-value . 77)) -(1008 (entry-key . 77)) -(1009 (set-entry-value! . 77)) -(1010 (delete-entry! . 77)) -(1011 (make-assoc . 77)) -(1012 (make-linear-table-ref . 77)) -(1013 (make-linear-table-set! . 77)) -(1014 (make->hash-table . 77)) -(1015 (make-hash-table-ref . 77)) -(1016 (make-hash-table-set! . 77)) -(1017 (expand-hash-table! . 77)) -(1018 (table-enter-alist! . 77)) -(1019 (table-expand-table! . 77)) -(1020 (table-walk . 77)) -(1021 (really-table-walk . 77)) -(1022 (alist-walk . 77)) -(1023 (make-table-immutable! . 77)) -(1024 (table->entry-list . 77)) -(1025 (default-table-hash-function . 77)) -(1026 (eqv?-assoc . 77)) -(1027 (default-table-assoc . 77)) -(1028 (symbol-hash . 77)) -(1029 (make-table . 77)) -(1030 (make-string-table . 77)) -(1031 (make-symbol-table . 77)) -(1032 (make-integer-table . 77)) -(1033 (make-population . 46)) -(1034 (add-to-population! . 46)) -(1035 (weak-memq . 46)) -(1036 (population-reduce . 46)) -(1037 (population->list . 46)) -(1038 (walk-population . 46)) -(1039 (:meta-type . 48)) -(1040 (really-make-type . 48)) -(1041 (type-info . 48)) -(1042 (type-more . 48)) -(1043 (type-mask . 48)) -(1044 (meta-type? . 48)) -(1045 (make-type . 48)) -(1046 (name->type-table . 48)) -(1047 (mask->name-table . 48)) -(1048 (name->type . 48)) -(1049 (set-type-name! . 48)) -(1050 (*mask* . 48)) -(1051 (new-type-bit . 48)) -(1052 (mask->type . 48)) -(1053 (bottom-type . 48)) -(1054 (error-type . 48)) -(1055 (bottom-type? . 48)) -(1056 (new-atomic-type . 48)) -(1057 (named-atomic-type . 48)) -(1058 (syntax-type . 48)) -(1059 (other-static-type . 48)) -(1060 (empty-rail-type . 48)) -(1061 (rail-type . 48)) -(1062 (make-optional-type . 48)) -(1063 (make-rest-type . 48)) -(1064 (head-type . 48)) -(1065 (head-type-really . 48)) -(1066 (tail-type . 48)) -(1067 (empty-rail-type? . 48)) -(1068 (rest-type? . 48)) -(1069 (optional-type? . 48)) -(1070 (mask/no-values . 48)) -(1071 (mask/two-or-more . 48)) -(1072 (mask/&rest . 48)) -(1073 (value-type . 48)) -(1074 (mask/value . 48)) -(1075 (value-type? . 48)) -(1076 (any-values-type . 48)) -(1077 (any-arguments-type . 48)) -(1078 (mask/one-or-more . 48)) -(1079 (same-type? . 48)) -(1080 (subtype? . 48)) -(1081 (meet-type . 48)) -(1082 (other-type-info . 48)) -(1083 (meet-rail . 48)) -(1084 (meet-procedure . 48)) -(1085 (meet? . 48)) -(1086 (meet-procedure? . 48)) -(1087 (join-type . 48)) -(1088 (join-rail . 48)) -(1089 (join-procedure . 48)) -(1090 (number-hierarchy . 48)) -(1091 (integer-type . 48)) -(1092 (rational-type . 48)) -(1093 (real-type . 48)) -(1094 (complex-type . 48)) -(1095 (number-type . 48)) -(1096 (exact-type . 48)) -(1097 (inexact-type . 48)) -(1098 (exact-integer-type . 48)) -(1099 (inexact-real-type . 48)) -(1100 (boolean-type . 48)) -(1101 (pair-type . 48)) -(1102 (null-type . 48)) -(1103 (record-type . 48)) -(1104 (any-procedure-type . 48)) -(1105 (other-value-type . 48)) -(1106 (mask/other . 48)) -(1107 (make-other-type . 48)) -(1108 (char-type . 48)) -(1109 (unspecific-type . 48)) -(1110 (string-type . 48)) -(1111 (symbol-type . 48)) -(1112 (vector-type . 48)) -(1113 (escape-type . 48)) -(1114 (structure-type . 48)) -(1115 (mask/procedure . 48)) -(1116 (procedure-type . 48)) -(1117 (make-procedure-type . 48)) -(1118 (procedure-type-domain . 48)) -(1119 (procedure-type-codomain . 48)) -(1120 (restrictive? . 48)) -(1121 (sexp->type . 48)) -(1122 (sexp->values-type . 48)) -(1123 (type->sexp . 48)) -(1124 (atomic-type->sexp . 48)) -(1125 (rail-type->sexp . 48)) -(1126 (disjoin-type . 48)) -(1127 (disjoin-rest . 48)) -(1128 (mask/number . 48)) -(1129 (make-some-values-type . 48)) -(1130 (proc . 48)) -(1131 (some-values . 48)) -(1132 (procedure-type? . 48)) -(1133 (fixed-arity-procedure-type? . 48)) -(1134 (procedure-type-arity . 48)) -(1135 (procedure-type-argument-types . 48)) -(1136 (variable-type . 48)) -(1137 (variable-type? . 48)) -(1138 (variable-value-type . 48)) -(1139 (usual-variable-type . 48)) -(1140 (undeclared-type . 48)) -(1141 (compatible-types? . 48)) -(1142 (:interface . 65)) -(1143 (really-make-interface . 65)) -(1144 (interface-name . 65)) -(1145 (set-interface-name! . 65)) -(1146 (interface-clients . 65)) -(1147 (walk-method . 65)) -(1148 (ref-method . 65)) -(1149 (interface? . 65)) -(1150 (interface-ref . 65)) -(1151 (for-each-declaration . 65)) -(1152 (note-reference-to-interface! . 65)) -(1153 (make-interface . 65)) -(1154 (make-simple-interface . 65)) -(1155 (really-make-simple-interface . 65)) -(1156 (make-compound-interface . 65)) -(1157 (note-interface-name! . 65)) -(1158 (binding? . 49)) -(1159 (binding-type . 49)) -(1160 (binding-place . 49)) -(1161 (binding-static . 49)) -(1162 (binding-path . 49)) -(1163 (set-binding-place! . 49)) -(1164 (make-binding . 49)) -(1165 (add-path . 49)) -(1166 (clobber-binding! . 49)) -(1167 (impose-type . 49)) -(1168 (forget-integration . 49)) -(1169 (same-denotation? . 49)) -(1170 (maybe-fix-place! . 49)) -(1171 (follow-forwarding-pointers . 49)) -(1172 (name? . 50)) -(1173 (:generated . 50)) -(1174 (make-generated . 50)) -(1175 (generated-parent-name . 50)) -(1176 (generated-env . 50)) -(1177 (generated-token . 50)) -(1178 (generated-symbol . 50)) -(1179 (generated? . 50)) -(1180 (generate-name . 50)) -(1181 (generated-uid . 50)) -(1182 (*generated-uid* . 50)) -(1183 (name->symbol . 50)) -(1184 (name-hash . 50)) -(1185 (make-name-table . 50)) -(1186 (desyntaxify . 50)) -(1187 (make-qualified . 50)) -(1188 (qualified? . 50)) -(1189 (qualified-parent-name . 50)) -(1190 (qualified-symbol . 50)) -(1191 (name->qualified . 50)) -(1192 (qualify-parent . 50)) -(1193 (:transform . 50)) -(1194 (really-make-transform . 50)) -(1195 (transform-id . 50)) -(1196 (transform-source . 50)) -(1197 (transform-aux-names . 50)) -(1198 (transform-type . 50)) -(1199 (transform-env . 50)) -(1200 (transform-procedure . 50)) -(1201 (transform? . 50)) -(1202 (make-transform . 50)) -(1203 (maybe-apply-macro-transform . 50)) -(1204 (apply-inline-transform . 50)) -(1205 (make-keyword-comparator . 50)) -(1206 (name->source-name . 50)) -(1207 (bind-aliases . 50)) -(1208 (make-name-generator . 50)) -(1209 (lookup . 50)) -(1210 (lookup . 53)) -(1211 (bind1 . 53)) -(1212 (bind . 53)) -(1213 (bindrec . 53)) -(1214 (make-compiler-env . 53)) -(1215 (funny-name/macro-eval . 53)) -(1216 (environment-macro-eval . 53)) -(1217 (funny-name/define! . 53)) -(1218 (environment-define! . 53)) -(1219 (funny-name/package . 53)) -(1220 (extract-package-from-environment . 53)) -(1221 (funny-name/source-file-name . 53)) -(1222 (bind-source-file-name . 53)) -(1223 (source-file-name . 53)) -(1224 (:thingie . 51)) -(1225 (make-thingie . 51)) -(1226 (thingie-want-type . 51)) -(1227 (thingie-name . 51)) -(1228 (thingie-binding . 51)) -(1229 (thingie? . 51)) -(1230 (:structure . 66)) -(1231 (really-make-structure . 66)) -(1232 (structure-name . 66)) -(1233 (set-structure-name! . 66)) -(1234 (structure-clients . 66)) -(1235 (structure-package . 66)) -(1236 (structure-interface-really . 66)) -(1237 (set-structure-interface! . 66)) -(1238 (structure-interface-thunk . 66)) -(1239 (structure? . 66)) -(1240 (structure-interface . 66)) -(1241 (initialize-structure! . 66)) -(1242 (make-structure . 66)) -(1243 (note-structure-name! . 66)) -(1244 (structure-unstable? . 66)) -(1245 (for-each-export . 66)) -(1246 (:package . 66)) -(1247 (really-make-package . 66)) -(1248 (package-cached . 66)) -(1249 (package-clients . 66)) -(1250 (package-real-undefined-but-assigneds . 66)) -(1251 (set-package-undefined-but-assigneds! . 66)) -(1252 (package-real-undefineds . 66)) -(1253 (set-package-undefineds! . 66)) -(1254 (package-accesses-thunk . 66)) -(1255 (package-opens-thunk . 66)) -(1256 (set-package-opens-thunk! . 66)) -(1257 (package->environment . 66)) -(1258 (set-package->environment! . 66)) -(1259 (package-loaded? . 66)) -(1260 (set-package-loaded?! . 66)) -(1261 (package-clauses . 66)) -(1262 (package-file-name . 66)) -(1263 (package-get-location . 66)) -(1264 (set-package-get-location! . 66)) -(1265 (package-integrate? . 66)) -(1266 (set-package-integrate?! . 66)) -(1267 (package-unstable? . 66)) -(1268 (package-definitions . 66)) -(1269 (package-opens-really . 66)) -(1270 (set-package-opens! . 66)) -(1271 (package-uid . 66)) -(1272 (package? . 66)) -(1273 (make-package . 66)) -(1274 (really-package->environment . 66)) -(1275 (lazy-table-accessor . 66)) -(1276 (package-undefineds . 66)) -(1277 (package-undefined-but-assigneds . 66)) -(1278 (new-package-uid . 66)) -(1279 (*package-uid* . 66)) -(1280 (package-name-table . 66)) -(1281 (package-name . 66)) -(1282 (note-package-name! . 66)) -(1283 (package-opens . 66)) -(1284 (initialize-package-if-necessary! . 66)) -(1285 (package-accesses . 66)) -(1286 (make-simple-package . 66)) -(1287 (package-definition . 66)) -(1288 (package-define! . 66)) -(1289 (package-add-static! . 66)) -(1290 (package-refine-type! . 66)) -(1291 (package-lookup . 66)) -(1292 (really-package-lookup . 66)) -(1293 (search-opens . 66)) -(1294 (structure-lookup . 66)) -(1295 (real-structure-lookup . 66)) -(1296 (generic-lookup . 66)) -(1297 (initialize-package! . 66)) -(1298 (for-each-definition . 66)) -(1299 (get-new-location . 66)) -(1300 (make-new-location . 66)) -(1301 ($get-location . 66)) -(1302 (*location-uid* . 66)) -(1303 (location-info-table . 66)) -(1304 (flush-location-names . 66)) -(1305 (link! . 66)) -(1306 (really-link! . 66)) -(1307 (get-location . 66)) -(1308 (location-on-demand . 66)) -(1309 (get-undefined . 66)) -(1310 (location-for-assignment . 66)) -(1311 (package-note-caching! . 66)) -(1312 (note-caching! . 66)) -(1313 (get-location-for-unassignable . 66)) -(1314 (get-location-for-undefined . 66)) -(1315 ($note-undefined . 66)) -(1316 (cenv->package . 66)) -(1317 (location-for-reference . 66)) -(1318 (noting-undefined-variables . 66)) -(1319 (print-undefined-names . 66)) -(1320 (environment-ref . 79)) -(1321 (environment-set! . 79)) -(1322 (environment-define! . 79)) -(1323 (*structure-ref . 79)) -(1324 (carefully . 79)) -(1325 ($interaction-environment . 79)) -(1326 (interaction-environment . 79)) -(1327 (set-interaction-environment! . 79)) -(1328 (with-interaction-environment . 79)) -(1329 (scheme-report-environment . 79)) -(1330 (*scheme-report-environment* . 79)) -(1331 (*null-environment* . 79)) -(1332 (*scheme-report-number* . 79)) -(1333 (set-scheme-report-environment! . 79)) -(1334 (null-environment . 79)) -(1335 (make-reflective-tower . 79)) -(1336 (set-reflective-tower-maker! . 79)) -(1337 (namestring . 78)) -(1338 (directory-component-separator . 78)) -(1339 (type-component-separator . 78)) -(1340 (namestring-component . 78)) -(1341 (file-name-preferred-case . 78)) -(1342 (*scheme-file-type* . 78)) -(1343 (*load-file-type* . 78)) -(1344 (file-name-directory . 78)) -(1345 (file-name-nondirectory . 78)) -(1346 (file-nondirectory-position . 78)) -(1347 (string-posq . 78)) -(1348 (*translations* . 78)) -(1349 (translations . 78)) -(1350 (set-translation! . 78)) -(1351 (translate . 78)) -(1352 ($note-file-package . 63)) -(1353 (read-forms . 63)) -(1354 (really-read-forms . 63)) -(1355 (:operator . 52)) -(1356 (make-operator . 52)) -(1357 (operator-name . 52)) -(1358 (operator-uid . 52)) -(1359 (operator-nargs . 52)) -(1360 (operator-type . 52)) -(1361 (set-operator-type! . 52)) -(1362 (operator? . 52)) -(1363 (usual-operator-type . 52)) -(1364 (get-operator . 52)) -(1365 (*operator-uid* . 52)) -(1366 (operators-table . 52)) -(1367 (number-of-operators . 52)) -(1368 (the-operators . 52)) -(1369 (make-operator-table . 52)) -(1370 (operator-table-ref . 52)) -(1371 (operator-lookup . 52)) -(1372 (operator-define! . 52)) -(1373 (:node . 52)) -(1374 (really-make-node . 52)) -(1375 (node-plist . 52)) -(1376 (set-node-plist! . 52)) -(1377 (node-form . 52)) -(1378 (node-operator-id . 52)) -(1379 (node? . 52)) -(1380 (make-node . 52)) -(1381 (node-ref . 52)) -(1382 (node-set! . 52)) -(1383 (node-operator . 52)) -(1384 (node-predicate . 52)) -(1385 (make-similar-node . 52)) -(1386 (force-node . 52)) -(1387 (schemify . 52)) -(1388 (schemifiers . 52)) -(1389 (schemify-node . 52)) -(1390 (schemify-nodes . 52)) -(1391 (define-schemifier . 52)) -(1392 (schemify-lambda . 52)) -(1393 (schemify-formals . 52)) -(1394 (schemify-sexp . 52)) -(1395 (number-of-required-args . 56)) -(1396 (n-ary? . 56)) -(1397 (normalize-formals . 56)) -(1398 (scan-forms . 54)) -(1399 (expand-scanned-form . 54)) -(1400 (scan-define . 54)) -(1401 (expand-define . 54)) -(1402 (scan-define-syntax . 54)) -(1403 (expand-form . 54)) -(1404 (expand-head . 54)) -(1405 (destructure-define . 54)) -(1406 (make-operator-predicate . 54)) -(1407 (define? . 54)) -(1408 (begin? . 54)) -(1409 (define-syntax? . 54)) -(1410 (static-value . 54)) -(1411 (expand-body . 54)) -(1412 (scan-body-forms . 54)) -(1413 (body-lossage . 54)) -(1414 (expand . 54)) -(1415 (expand-list . 54)) -(1416 (expand-literal . 54)) -(1417 (expand-call . 54)) -(1418 (expand-name . 54)) -(1419 (expand-macro-application . 54)) -(1420 (expand-operator-form . 54)) -(1421 (expanders . 54)) -(1422 (define-expander . 54)) -(1423 (unspecific-node . 54)) -(1424 (expand-structure-ref . 54)) -(1425 (expand-lambda . 54)) -(1426 (bind-names . 54)) -(1427 (names? . 54)) -(1428 (expand-letrec . 54)) -(1429 (process-syntax . 54)) -(1430 (this-long? . 54)) -(1431 (at-least-this-long? . 54)) -(1432 (specs? . 54)) -(1433 (literal? . 54)) -(1434 (syntax? . 54)) -(1435 (begin-node? . 54)) -(1436 (call-node? . 54)) -(1437 (name-node? . 54)) -(1438 (operator/literal . 54)) -(1439 (operator/quote . 54)) -(1440 (operator/call . 54)) -(1441 (operator/name . 54)) -(1442 (operator/unspecific . 54)) -(1443 (operator/unassigned . 54)) -(1444 (operator/lambda . 54)) -(1445 (operator/begin . 54)) -(1446 (operator/letrec . 54)) -(1447 (operator/define . 54)) -(1448 (operator/define-syntax . 54)) -(1449 (operator/primitive-procedure . 54)) -(1450 (operator/structure-ref . 54)) -(1451 (:primop . 60)) -(1452 (make-primop . 60)) -(1453 (primop-compilator . 60)) -(1454 (primop-closed . 60)) -(1455 (primop-type . 60)) -(1456 (primop-name . 60)) -(1457 (primop? . 60)) -(1458 (primop-table . 60)) -(1459 (walk-primops . 60)) -(1460 (define-compiler-primitive . 60)) -(1461 (get-primop . 60)) -(1462 (:debug-data . 57)) -(1463 (make-debug-data . 57)) -(1464 (debug-data-source . 57)) -(1465 (set-debug-data-source! . 57)) -(1466 (debug-data-env-maps . 57)) -(1467 (set-debug-data-env-maps! . 57)) -(1468 (debug-data-pc-in-parent . 57)) -(1469 (debug-data-parent . 57)) -(1470 (debug-data-name . 57)) -(1471 (debug-data-uid . 57)) -(1472 (debug-data? . 57)) -(1473 (maximum-stack-use . 58)) -(1474 (protocol-skip . 58)) -(1475 (stack-delta . 58)) -(1476 (define-delta . 58)) -(1477 (stack-max . 58)) -(1478 (nothing . 58)) -(1479 (popper . 58)) -(1480 (pusher . 58)) -(1481 (continue . 58)) -(1482 (continuer . 58)) -(1483 (do-make-cont . 58)) -(1484 (stack-function . 58)) -(1485 (arg-spec-size . 58)) -(1486 (imax . 58)) -(1487 (get-offset . 58)) -(1488 (new-template-uid . 59)) -(1489 (*template-uid* . 59)) -(1490 (template-uid . 59)) -(1491 (set-template-uid! . 59)) -(1492 (debug-flag-names . 59)) -(1493 (type/debug-flags . 59)) -(1494 (make-debug-flags . 59)) -(1495 ($debug-flags . 59)) -(1496 (debug-flag-accessor . 59)) -(1497 (debug-flag-modifier . 59)) -(1498 (keep-source-code? . 59)) -(1499 (keep-environment-maps? . 59)) -(1500 (keep-procedure-names? . 59)) -(1501 (keep-file-names? . 59)) -(1502 (tabulate-debug-data? . 59)) -(1503 (debug-data-table . 59)) -(1504 (with-fresh-compiler-state . 59)) -(1505 (saving-and-restoring . 59)) -(1506 (debug-data->info . 59)) -(1507 (get-debug-data . 59)) -(1508 (note-debug-data! . 59)) -(1509 (new-debug-data . 59)) -(1510 (make-segment . 59)) -(1511 (segment-size . 59)) -(1512 (segment-emitter . 59)) -(1513 (segment->template . 59)) -(1514 (segment-data->template . 59)) -(1515 (check-stack-use . 59)) -(1516 (:assembly-state . 59)) -(1517 (make-assembly-state . 59)) -(1518 (astate-literals . 59)) -(1519 (set-astate-literals! . 59)) -(1520 (astate-count . 59)) -(1521 (set-astate-count! . 59)) -(1522 (astate-pc . 59)) -(1523 (set-astate-pc! . 59)) -(1524 (astate-code-vector . 59)) -(1525 (make-astate . 59)) -(1526 (emit-byte! . 59)) -(1527 (literal->index . 59)) -(1528 (literal-position . 59)) -(1529 (position . 59)) -(1530 (emit-literal! . 59)) -(1531 (emit-segment! . 59)) -(1532 (empty-segment . 59)) -(1533 (instruction . 59)) -(1534 (sequentially . 59)) -(1535 (sequentially-2 . 59)) -(1536 (instruction-with-literal . 59)) -(1537 (instruction-with-location . 59)) -(1538 (template . 59)) -(1539 (make-label . 59)) -(1540 (instruction-using-label . 59)) -(1541 (computed-goto-label-size . 59)) -(1542 (computed-goto-instruction . 59)) -(1543 (attach-label . 59)) -(1544 (insert-label! . 59)) -(1545 (code-vector-set2! . 59)) -(1546 (two-byte-limit . 59)) -(1547 (high-byte . 59)) -(1548 (low-byte . 59)) -(1549 ($debug-data . 59)) -(1550 (note-source-code . 59)) -(1551 (note-environment . 59)) -(1552 (emit-with-environment-maps! . 59)) -(1553 ($environment-maps . 59)) -(1554 (node-type . 61)) -(1555 (reconstruct-type . 61)) -(1556 (reconstruct . 61)) -(1557 (examine . 61)) -(1558 (reconstructors . 61)) -(1559 (define-reconstructor . 61)) -(1560 (reconstruct-lambda . 61)) -(1561 (careful-codomain . 61)) -(1562 (reconstruct-name . 61)) -(1563 (proc->reconstructor . 61)) -(1564 (reconstruct-call . 61)) -(1565 (fork-constraints . 61)) -(1566 (node->type . 61)) -(1567 (name-node? . 61)) -(1568 (lambda-node? . 61)) -(1569 (literal-node? . 61)) -(1570 (primop-reconstructors . 61)) -(1571 (define-primop-reconstructor . 61)) -(1572 (reconstruct-apply . 61)) -(1573 (constant-type . 61)) -(1574 (compile-expression . 62)) -(1575 (compile . 62)) -(1576 (compilators . 62)) -(1577 (define-compilator . 62)) -(1578 (compile-constant . 62)) -(1579 (compile-call . 62)) -(1580 (compile-name-call . 62)) -(1581 (compile-redex . 62)) -(1582 (compile-unknown-call . 62)) -(1583 (maybe-push-continuation . 62)) -(1584 (fixup-source . 62)) -(1585 (push-arguments . 62)) -(1586 (push-all-with-names . 62)) -(1587 (compile-lambda . 62)) -(1588 (compile-lambda-code . 62)) -(1589 (name-node->symbol . 62)) -(1590 (set-lexical-offsets! . 62)) -(1591 (compile-flat-lambda . 62)) -(1592 (get-variables-offsets . 62)) -(1593 (variable-env-data . 62)) -(1594 (sort-list . 62)) -(1595 (make-cont . 62)) -(1596 (cont-segment . 62)) -(1597 (cont-source-info . 62)) -(1598 (return-cont-segment . 62)) -(1599 (return-cont . 62)) -(1600 (return-cont? . 62)) -(1601 (fall-through-cont . 62)) -(1602 (fall-through-cont? . 62)) -(1603 (ignore-values-segment . 62)) -(1604 (ignore-values-cont . 62)) -(1605 (ignore-values-cont? . 62)) -(1606 (deliver-value . 62)) -(1607 (named-cont . 62)) -(1608 (cont-name . 62)) -(1609 (name-node-binding . 62)) -(1610 (generate-trap . 62)) -(1611 (type-check . 62)) -(1612 (set-type-check?! . 62)) -(1613 (*type-check?* . 62)) -(1614 (diagnose-call-error . 62)) -(1615 (lambda-node? . 62)) -(1616 (name-node? . 62)) -(1617 (literal-node? . 62)) -(1618 (operator/lambda . 62)) -(1619 (operator/set! . 62)) -(1620 (operator/call . 62)) -(1621 (operator/begin . 62)) -(1622 (direct-compilator . 62)) -(1623 (direct-closed-compilator . 62)) -(1624 (nargs->domain . 62)) -(1625 (get-primop-type . 62)) -(1626 (primop-types . 62)) -(1627 (define-simple-primitive . 62)) -(1628 (simple-compilator . 62)) -(1629 (simple-closed-compilator . 62)) -(1630 (symbol-append . 62)) -(1631 (define-stob-predicate . 62)) -(1632 (define-data-struct-primitives . 62)) -(1633 (define-vector-primitives . 62)) -(1634 (define-n-ary-compiler-primitive . 62)) -(1635 (n-ary-primitive-compilator . 62)) -(1636 (call-on-arg-and-id . 62)) -(1637 (call-on-args . 62)) -(1638 (op/unspecific . 62)) -(1639 (op/literal . 62)) -(1640 (push-all-but-last . 62)) -(1641 (dispatch-protocol-size . 62)) -(1642 (make-dispatch-protocol . 62)) -(1643 (compile-forms . 62)) -(1644 (compile-forms-loop . 62)) -(1645 (compile-form . 62)) -(1646 (define-node? . 62)) -(1647 (compile-definition . 62)) -(1648 (location-contents-offset . 62)) -(1649 (make-startup-procedure . 62)) -(1650 (append-templates . 62)) -(1651 (an-ignore-values-cont . 62)) -(1652 (eval . 80)) -(1653 (load-into . 80)) -(1654 (eval-from-file . 80)) -(1655 (load . 80)) -(1656 (load-into-port . 80)) -(1657 (load-port . 80)) -(1658 (really-load-into . 80)) -(1659 (compile-and-run . 80)) -(1660 (display-condition . 47)) -(1661 (really-display-condition . 47)) -(1662 (*depth* . 47)) -(1663 (*length* . 47)) -(1664 (&disclose-condition . 47)) -(1665 (disclose-condition . 47)) -(1666 (limited-write . 47)) -(1667 (command-processor . 84)) -(1668 (mini-load . 84)) -(1669 (read-string . 84)) -(1670 (enum-case . 42)) -(1671 (run-threads . 40)) -(1672 (run-threads-with-housekeeper . 40)) -(1673 (round-robin-event-handler . 40)) -(1674 (make-counter . 40)) -(1675 (counter-value . 40)) -(1676 (increment-counter! . 40)) -(1677 (decrement-counter! . 40)) -(1678 (root-scheduler . 41)) -(1679 (make-root-event-handler . 41)) -(1680 (root-handler . 41)) -(1681 (cheap-display-condition . 41)) -(1682 (abort-token . 41)) -(1683 (scheme-exit-now . 41)) -(1684 (root-wait . 41)) -(1685 (one-day-of-milliseconds . 41)) -(1686 (do-some-waiting . 41)) -(1687 (deadlock-handler . 41)) -(1688 (call-when-deadlocked! . 41)) -(1689 (spawn-output-forcers . 41)) -(1690 (unspecific . 41)) -(1691 (usual-resumer . 45)) -(1692 (initialize-rts . 45)) -(1693 (start . 85)) -(1694 (make-built-in-structures . 85)) -(1695 (initialize-interaction-environment! . 85)) -(1696 (make-initial-package . 85)) -(1697 (make-tower . 85)) -(1698 (the-usual-transforms . 55)) -(1699 (define-usual-macro . 55)) -(1700 (usual-transform . 55)) -(1701 (do-spec? . 55)) -(1702 (specs? . 55)) -(1703 (case-clause? . 55)) -(1704 (process-rules . 55)) -(1705 (segment-pattern? . 55)) -(1706 (segment-template? . 55)) -(1707 (segment-depth . 55)) -(1708 (segment-tail . 55)) -(1709 (indicators-for-zero-or-more . 55)) -(1710 (find-free-names-in-syntax-rules . 55)) -(1711 (strongly-connected-components . 76)) -(1712 (find-next-vertex . 76)) -(1713 (:vertex . 76)) -(1714 (really-make-vertex . 76)) -(1715 (vertex-lowpoint . 76)) -(1716 (set-vertex-lowpoint! . 76)) -(1717 (vertex-parent . 76)) -(1718 (set-vertex-parent! . 76)) -(1719 (vertex-index . 76)) -(1720 (set-vertex-index! . 76)) -(1721 (vertex-stack . 76)) -(1722 (set-vertex-stack! . 76)) -(1723 (vertex-edges . 76)) -(1724 (set-vertex-edges! . 76)) -(1725 (vertex-data . 76)) -(1726 (vertex? . 76)) -(1727 (make-vertex . 76)) -(1728 (make-vertices . 76)) -(1729 (do-vertex . 76)) -(1730 (get-strong . 76)) -(1731 (end-vertex . 76)) -(1732 (unwind-stack . 76)) -(1733 (follow-edge . 76)) -(1734 (pop-vertex-edge! . 76)) -(1735 (find-usages . 73)) -(1736 (maybe-update-known-type . 73)) -(1737 (find-node-usages . 73)) -(1738 (analyze . 73)) -(1739 (analyze-nodes . 73)) -(1740 (usage-analyzers . 73)) -(1741 (define-usage-analyzer . 73)) -(1742 (nothing . 73)) -(1743 (add-if-free . 73)) -(1744 (:usage . 73)) -(1745 (really-make-usage . 73)) -(1746 (usage-assignment-count . 73)) -(1747 (set-assignment! . 73)) -(1748 (usage-operator-count . 73)) -(1749 (set-operator! . 73)) -(1750 (usage-reference-count . 73)) -(1751 (set-reference! . 73)) -(1752 (usage-name-node . 73)) -(1753 (usage? . 73)) -(1754 (make-usage . 73)) -(1755 (make-package-usage . 73)) -(1756 (package-usage? . 73)) -(1757 (usage-incrementator . 73)) -(1758 (note-reference! . 73)) -(1759 (note-operator! . 73)) -(1760 (note-assignment! . 73)) -(1761 (lambda-node? . 73)) -(1762 (quote-node? . 73)) -(1763 (literal-node? . 73)) -(1764 (call-node? . 73)) -(1765 (name-node? . 73)) -(1766 (define-node? . 73)) -(1767 (sort-forms . 73)) -(1768 (stuff-count . 73)) -(1769 (maybe-make-aliased . 73)) -(1770 (topologically-sort . 73)) -(1771 (:form . 73)) -(1772 (really-make-form . 73)) -(1773 (form-temp . 73)) -(1774 (set-form-temp! . 73)) -(1775 (form-free . 73)) -(1776 (set-form-free! . 73)) -(1777 (form-unaliased? . 73)) -(1778 (set-form-unaliased?! . 73)) -(1779 (form-aliases . 73)) -(1780 (set-form-aliases! . 73)) -(1781 (form-node . 73)) -(1782 (form? . 73)) -(1783 (make-form . 73)) -(1784 (insert-aliases . 73)) -(1785 (make-inline-transform . 75)) -(1786 (clean-node . 75)) -(1787 (clean-lambda . 75)) -(1788 (clean-lookup . 75)) -(1789 (unused-name . 75)) -(1790 (inline-transform . 75)) -(1791 (make-substitution . 75)) -(1792 (reconstitute . 75)) -(1793 (reconstitute-name . 75)) -(1794 (operator/name . 75)) -(1795 (operator/literal . 75)) -(1796 (qualified->name . 75)) -(1797 (get-qualified-env . 75)) -(1798 (quote-node? . 75)) -(1799 (call-node? . 75)) -(1800 (lambda-node? . 75)) -(1801 (name-node? . 75)) -(1802 (loophole-node? . 75)) -(1803 (operator . 82)) -(1804 (primop . 82)) -(1805 (simple-interface . 82)) -(1806 (package . 82)) -(1807 (transform . 82)) -(1808 (package-define-static! . 82)) -(1809 (:syntax . 71)) -(1810 (:values . 71)) -(1811 (:arguments . 71)) -(1812 (:value . 71)) -(1813 (procedure . 71)) -(1814 (:boolean . 71)) -(1815 (:char . 71)) -(1816 (:null . 71)) -(1817 (:unspecific . 71)) -(1818 (:number . 71)) -(1819 (:complex . 71)) -(1820 (:real . 71)) -(1821 (:rational . 71)) -(1822 (:integer . 71)) -(1823 (:exact-integer . 71)) -(1824 (:pair . 71)) -(1825 (:string . 71)) -(1826 (:symbol . 71)) -(1827 (:vector . 71)) -(1828 (:procedure . 71)) -(1829 (:input-port . 71)) -(1830 (:output-port . 71)) -(1831 (:error . 71)) -(1832 (:escape . 71)) -(1833 (:structure . 71)) -(1834 (:type . 71)) -(1835 (def . 70)) -(1836 (really-def . 70)) -(1837 (define-multiple . 70)) -(1838 (define-interface . 70)) -(1839 (compound-interface . 70)) -(1840 (export . 70)) -(1841 (define-structure . 70)) -(1842 (define-structures . 70)) -(1843 (structure . 70)) -(1844 (structures . 70)) -(1845 (a-package . 70)) -(1846 (receive . 70)) -(1847 (define-reflective-tower-maker . 70)) -(1848 (export-reflective-tower-maker . 70)) -(1849 (define-module . 70)) -(1850 (make-a-package . 70)) -(1851 (loser . 70)) -(1852 (interface-of . 70)) -(1853 (*verify-later!* . 70)) -(1854 (verify-later! . 70)) -(1855 (set-verify-later! . 70)) -(1856 (note-name! . 70)) -(1857 (optimizers-table . 68)) -(1858 (set-optimizer! . 68)) -(1859 (get-optimizer . 68)) -(1860 (apply-optimizers . 68)) -(1861 (collect-packages . 67)) -(1862 (package-source . 67)) -(1863 (read-files . 67)) -(1864 (package-optimizer-names . 67)) -(1865 (check-structure . 67)) -(1866 (compile-package . 69)) -(1867 (expand-package . 69)) -(1868 (define-usual-transform . 69)) -(1869 (define-primitives . 69)) -(1870 (make-define-primitive-node . 69)) -(1871 (operator/define . 69)) -(1872 (operator/primitive-procedure . 69)) -(1873 (analyze-forms . 74)) -(1874 (analyze-form . 74)) -(1875 (inlinable-rhs? . 74)) -(1876 (simple-lambda? . 74)) -(1877 (operator/name . 74)) -(1878 (simple? . 74)) -(1879 (simple-list? . 74)) -(1880 (analyzers . 74)) -(1881 (define-analyzer . 74)) -(1882 (static-value . 74)) -(1883 (really-simple-call? . 74)) -(1884 (lexical-node? . 74)) -(1885 (no-ret . 74)) -(1886 (ret . 74)) -(1887 (simple-literal? . 74)) -(1888 (require . 74)) -(1889 (*debug?* . 74)) -(1890 (package-lookup-type . 74)) -(1891 (lambda-node? . 74)) -(1892 (name-node? . 74)) -(1893 (loophole-node? . 74)) -(1894 (define-node? . 74)) -(1895 (flatten-form . 64)) -(1896 (flatten-node . 64)) -(1897 (flatteners . 64)) -(1898 (define-flattener . 64)) -(1899 (flatten-list . 64)) -(1900 (no-free-vars . 64)) -(1901 (flatten-lambda . 64)) -(1902 (convert-lambda-body . 64)) -(1903 (add-cells . 64)) -(1904 (assigned? . 64)) -(1905 (mark-set-variables! . 64)) -(1906 (mark-sets . 64)) -(1907 (define-set-marker . 64)) -(1908 (no-sets . 64)) -(1909 (make-cell . 64)) -(1910 (make-unassigned-cell . 64)) -(1911 (make-cell-ref . 64)) -(1912 (make-cell-set! . 64)) -(1913 (make-primop-call . 64)) -(1914 (operator/flat-lambda . 64)) -(1915 (operator/lambda . 64)) -(1916 (operator/begin . 64)) -(1917 (operator/literal . 64)) -(1918 (operator/call . 64)) -(1919 (operator/unassigned . 64)) -(1920 (operator/set! . 64)) -(1921 (define-node? . 64)) -(1922 (lambda-node? . 64)) -(1923 (define-primop . 64)) -(1924 (temp0 . 64)) -(1925 (make-cell-primop . 64)) -(1926 (temp1 . 64)) -(1927 (cell-ref-primop . 64)) -(1928 (temp2 . 64)) -(1929 (cell-set!-primop . 64)) -(1930 (union . 64)) -(1931 (set-difference . 64)) -(1932 (ensure-loaded . 81)) +(666 (dynamic-wind . 22)) +(667 (call-with-current-continuation . 22)) +(668 (continuation->procedure . 22)) +(669 (:point . 22)) +(670 (make-point . 22)) +(671 (point-parent . 22)) +(672 (point-dynamic-env . 22)) +(673 (point-out . 22)) +(674 (point-in . 22)) +(675 (point-depth . 22)) +(676 (travel-to-point! . 22)) +(677 (template-overhead . 32)) +(678 (template-code . 32)) +(679 (template-info . 32)) +(680 (set-template-code! . 32)) +(681 (set-template-info! . 32)) +(682 (:closure . 34)) +(683 (:code-vector . 34)) +(684 (:location . 34)) +(685 (:template . 34)) +(686 (:channel . 34)) +(687 (:port . 34)) +(688 (:double . 34)) +(689 (:weak-pointer . 34)) +(690 (:shared-binding . 34)) +(691 (continuation-cont . 33)) +(692 (real-continuation-pc . 33)) +(693 (real-continuation-template . 33)) +(694 (continuation-env . 33)) +(695 (exception-continuation-pc . 33)) +(696 (exception-continuation-template . 33)) +(697 (exception-continuation-exception . 33)) +(698 (exception-continuation? . 33)) +(699 (continuation-pc . 33)) +(700 (continuation-template . 33)) +(701 (normal-continuation-overhead . 33)) +(702 (exception-continuation-overhead . 33)) +(703 (continuation-arg . 33)) +(704 (continuation-arg-count . 33)) +(705 (:continuation . 33)) +(706 (continuation-parent . 33)) +(707 (define-exception-handler . 37)) +(708 (signal-exception . 37)) +(709 (exception-handlers . 37)) +(710 (extend-opcode! . 37)) +(711 (really-signal-condition . 37)) +(712 (with-handler . 37)) +(713 ($condition-handlers . 37)) +(714 (initialize-exceptions! . 37)) +(715 (last-resort-condition-handler . 37)) +(716 (report-utter-lossage . 37)) +(717 (continuation-preview . 37)) +(718 (ignore-errors . 37)) +(719 (report-errors-as-warnings . 37)) +(720 (:thread . 39)) +(721 (really-make-thread . 39)) +(722 (thread-name . 39)) +(723 (thread-uid . 39)) +(724 (thread-current-task . 39)) +(725 (set-thread-current-task! . 39)) +(726 (thread-events . 39)) +(727 (set-thread-events! . 39)) +(728 (thread-data . 39)) +(729 (set-thread-data! . 39)) +(730 (thread-scheduler . 39)) +(731 (set-thread-scheduler! . 39)) +(732 (thread-time . 39)) +(733 (set-thread-time! . 39)) +(734 (thread-arguments . 39)) +(735 (set-thread-arguments! . 39)) +(736 (thread-queue . 39)) +(737 (set-thread-queue! . 39)) +(738 (thread-continuation . 39)) +(739 (set-thread-continuation! . 39)) +(740 (thread-dynamic-point . 39)) +(741 (set-thread-dynamic-point! . 39)) +(742 (thread-dynamic-env . 39)) +(743 (thread? . 39)) +(744 (*thread-uid* . 39)) +(745 (make-thread . 39)) +(746 (thread-top-level . 39)) +(747 (thread-uid->thread . 39)) +(748 (all-threads . 39)) +(749 (add-event! . 39)) +(750 (thunk->continuation . 39)) +(751 (compose-continuation . 39)) +(752 (make-thread-queue . 39)) +(753 (thread-queue-empty? . 39)) +(754 (enqueue-thread! . 39)) +(755 (dequeue-thread! . 39)) +(756 (remove-thread-from-queue! . 39)) +(757 (current-thread . 39)) +(758 (set-current-thread! . 39)) +(759 (event-type . 39)) +(760 (event-type-enumeration . 39)) +(761 (event-type-count . 39)) +(762 (run . 39)) +(763 (find-and-run-next-thread . 39)) +(764 (debit-thread-times-and-run! . 39)) +(765 (handle-timer-interrupt . 39)) +(766 (run-next-thread . 39)) +(767 (min . 39)) +(768 (switch-to-thread . 39)) +(769 (run-thread . 39)) +(770 (suspend . 39)) +(771 (suspend-to . 39)) +(772 (debit-down! . 39)) +(773 (exit . 39)) +(774 (wait . 39)) +(775 (waiting? . 39)) +(776 (block . 39)) +(777 (relinquish-timeslice . 39)) +(778 (upcall . 39)) +(779 (propogate-upcall . 39)) +(780 (kill-thread! . 39)) +(781 (interrupt-thread . 39)) +(782 (get-next-event! . 39)) +(783 (event-pending? . 39)) +(784 (schedule-event . 39)) +(785 (schedule-wakeup . 39)) +(786 (show-running . 39)) +(787 (running? . 39)) +(788 (spawn . 39)) +(789 (spawn-on-root . 39)) +(790 (spawn-on-scheduler . 39)) +(791 (make-ready . 39)) +(792 (schedule-interrupt! . 39)) +(793 (cancel-timer-interrupt! . 39)) +(794 (interrupt-timer-time . 39)) +(795 (real-time . 39)) +(796 (with-threads . 39)) +(797 (start-multitasking . 39)) +(798 (deadlock? . 39)) +(799 (terminate? . 39)) +(800 (terminate-current-thread . 39)) +(801 (root-scheduler-slot . 39)) +(802 (root-scheduler . 39)) +(803 (sleep . 39)) +(804 (*dozers* . 39)) +(805 (insert . 39)) +(806 (wake-some-threads . 39)) +(807 (:lock . 44)) +(808 (really-make-lock . 44)) +(809 (lock-uid . 44)) +(810 (lock-queue . 44)) +(811 (lock-owner-uid . 44)) +(812 (set-lock-owner-uid! . 44)) +(813 (lock? . 44)) +(814 (*lock-uid* . 44)) +(815 (make-lock . 44)) +(816 (obtain-lock . 44)) +(817 (maybe-obtain-lock . 44)) +(818 (release-lock . 44)) +(819 (:port-handler . 24)) +(820 (really-make-port-handler . 24)) +(821 (port-handler-steal . 24)) +(822 (port-handler-buffer-proc . 24)) +(823 (port-handler-close . 24)) +(824 (port-handler-discloser . 24)) +(825 (port-handler? . 24)) +(826 (make-port-handler . 24)) +(827 (disclose-port . 24)) +(828 (obtain-port-lock . 24)) +(829 (maybe-obtain-port-lock . 24)) +(830 (release-port-lock . 24)) +(831 (initialize-i/o-handlers! . 24)) +(832 (one-arg-proc->handler . 24)) +(833 (two-arg-proc->handler . 24)) +(834 (read-char-handler . 24)) +(835 (fill-port-buffer! . 24)) +(836 (write-char-handler . 24)) +(837 (empty-port-buffer! . 24)) +(838 (port-flushed? . 24)) +(839 (set-port-flushed?! . 24)) +(840 (close-input-port . 24)) +(841 (close-output-port . 24)) +(842 (define-port-op . 24)) +(843 (real-char-ready? . 24)) +(844 (read-block . 24)) +(845 (really-read-block . 24)) +(846 (buffer-length . 24)) +(847 (read-more . 24)) +(848 (okay-limits? . 24)) +(849 (write-block . 24)) +(850 (write-string . 24)) +(851 (write-buffered-block . 24)) +(852 (write-unbuffered-block . 24)) +(853 (force-output . 24)) +(854 (really-force-output . 24)) +(855 (force-output-if-open . 24)) +(856 (default-buffer-size . 24)) +(857 (open-port? . 24)) +(858 (open-port-mask . 24)) +(859 (input-port-mask . 24)) +(860 (open-input-port-mask . 24)) +(861 (open-input-port-status . 24)) +(862 (open-input-port? . 24)) +(863 (make-input-port-closed! . 24)) +(864 (make-input-port . 24)) +(865 (okay-buffer? . 24)) +(866 (output-port-mask . 24)) +(867 (open-output-port-mask . 24)) +(868 (open-output-port-status . 24)) +(869 (open-output-port? . 24)) +(870 (make-output-port-closed! . 24)) +(871 (make-output-port . 24)) +(872 (make-unbuffered-output-port . 24)) +(873 (null-output-port-handler . 24)) +(874 (make-null-output-port . 24)) +(875 (*flush-these-ports* . 24)) +(876 (initialize-output-port-list! . 24)) +(877 (periodically-force-output! . 24)) +(878 (output-port-forcers . 24)) +(879 (periodically-flushed-ports . 24)) +(880 (make-forcing-thunk . 24)) +(881 (steal-port! . 24)) +(882 (really-steal-port! . 24)) +(883 ($current-input-port . 24)) +(884 ($current-output-port . 24)) +(885 ($current-error-port . 24)) +(886 ($current-noise-port . 24)) +(887 (current-input-port . 24)) +(888 (current-output-port . 24)) +(889 (current-error-port . 24)) +(890 (current-noise-port . 24)) +(891 (initialize-i/o . 24)) +(892 (with-current-ports . 24)) +(893 (call-with-current-input-port . 24)) +(894 (call-with-current-output-port . 24)) +(895 (call-with-current-noise-port . 24)) +(896 (silently . 24)) +(897 (newline . 24)) +(898 (char-ready? . 24)) +(899 (output-port-option . 24)) +(900 (input-port-option . 24)) +(901 (write . 28)) +(902 (recurring-write . 28)) +(903 (write-boolean . 28)) +(904 (write-number . 28)) +(905 (write-char-literal . 28)) +(906 (character-name . 28)) +(907 (write-string-literal . 28)) +(908 (write-list . 28)) +(909 (quotation? . 28)) +(910 (write-vector . 28)) +(911 (write-other . 28)) +(912 (display-type-name . 28)) +(913 (display . 28)) +(914 (preferred-case . 29)) +(915 (script-skip . 29)) +(916 (read . 29)) +(917 (sub-read-carefully . 29)) +(918 (reader-token-marker . 29)) +(919 (make-reader-token . 29)) +(920 (reader-token? . 29)) +(921 (close-paren . 29)) +(922 (dot . 29)) +(923 (sub-read . 29)) +(924 (read-dispatch-vector . 29)) +(925 (read-terminating?-vector . 29)) +(926 (set-standard-syntax! . 29)) +(927 (set-standard-read-macro! . 29)) +(928 (sub-read-list . 29)) +(929 (gobble-line . 29)) +(930 (*sharp-macros* . 29)) +(931 (define-sharp-macro . 29)) +(932 (sub-read-token . 29)) +(933 (parse-token . 29)) +(934 (bel . 29)) +(935 (bs . 29)) +(936 (ff . 29)) +(937 (cr . 29)) +(938 (ht . 29)) +(939 (vt . 29)) +(940 (strange-symbol-names . 29)) +(941 (p-c-v . 29)) +(942 (reading-error . 29)) +(943 (input-channel? . 25)) +(944 (output-channel? . 25)) +(945 (open-input-channel . 25)) +(946 (open-output-channel . 25)) +(947 (close-input-channel . 25)) +(948 (close-output-channel . 25)) +(949 (input-channel-handler . 26)) +(950 (input-channel->port . 26)) +(951 (input-channel+closer->port . 26)) +(952 (real-input-channel->port . 26)) +(953 (output-channel-handler . 26)) +(954 (make-unbuffered-output-channel-handler . 26)) +(955 (output-channel->port . 26)) +(956 (output-channel+closer->port . 26)) +(957 (real-output-channel->port . 26)) +(958 (maybe-force-output . 26)) +(959 (:channel-cell . 26)) +(960 (make-channel-cell . 26)) +(961 (channel-cell-closer . 26)) +(962 (channel-cell-ref . 26)) +(963 (channel-cell? . 26)) +(964 (port->channel . 26)) +(965 (open-input-file . 26)) +(966 (open-output-file . 26)) +(967 (call-with-input-file . 26)) +(968 (call-with-output-file . 26)) +(969 (with-input-from-file . 26)) +(970 (with-output-to-file . 26)) +(971 (force-channel-output-ports! . 26)) +(972 (steal-channel-port! . 26)) +(973 (really-steal-channel-port! . 26)) +(974 (initialize-channel-i/o! . 26)) +(975 (i/o-completion-handler . 26)) +(976 (waiting-for-i/o? . 26)) +(977 (wait-for-channel . 26)) +(978 (nothing . 26)) +(979 (steal-channel! . 26)) +(980 (channel-wait-count-slot . 26)) +(981 (channel-wait-count . 26)) +(982 (increment-channel-wait-count! . 26)) +(983 (decrement-channel-wait-count! . 26)) +(984 (channel-wait-queues-slot . 26)) +(985 (add-channel-wait-queue! . 26)) +(986 (fetch-channel-wait-queue! . 26)) +(987 (:table . 77)) +(988 (really-make-table . 77)) +(989 (table-set!-procedure . 77)) +(990 (set-table-set!-procedure! . 77)) +(991 (table-ref-procedure . 77)) +(992 (set-table-ref-procedure! . 77)) +(993 (table-data . 77)) +(994 (set-table-data! . 77)) +(995 (table-size . 77)) +(996 (set-table-size! . 77)) +(997 (table? . 77)) +(998 (table-ref . 77)) +(999 (table-set! . 77)) +(1000 (linear-table-size-limit . 77)) +(1001 (next-table-size . 77)) +(1002 (make-table-maker . 77)) +(1003 (assoc->table-maker . 77)) +(1004 (null-entry . 77)) +(1005 (new-entry . 77)) +(1006 (entry-value . 77)) +(1007 (entry-key . 77)) +(1008 (set-entry-value! . 77)) +(1009 (delete-entry! . 77)) +(1010 (make-assoc . 77)) +(1011 (make-linear-table-ref . 77)) +(1012 (make-linear-table-set! . 77)) +(1013 (make->hash-table . 77)) +(1014 (make-hash-table-ref . 77)) +(1015 (make-hash-table-set! . 77)) +(1016 (expand-hash-table! . 77)) +(1017 (table-enter-alist! . 77)) +(1018 (table-expand-table! . 77)) +(1019 (table-walk . 77)) +(1020 (really-table-walk . 77)) +(1021 (alist-walk . 77)) +(1022 (make-table-immutable! . 77)) +(1023 (table->entry-list . 77)) +(1024 (default-table-hash-function . 77)) +(1025 (eqv?-assoc . 77)) +(1026 (default-table-assoc . 77)) +(1027 (symbol-hash . 77)) +(1028 (make-table . 77)) +(1029 (make-string-table . 77)) +(1030 (make-symbol-table . 77)) +(1031 (make-integer-table . 77)) +(1032 (make-population . 46)) +(1033 (add-to-population! . 46)) +(1034 (weak-memq . 46)) +(1035 (population-reduce . 46)) +(1036 (population->list . 46)) +(1037 (walk-population . 46)) +(1038 (:meta-type . 48)) +(1039 (really-make-type . 48)) +(1040 (type-info . 48)) +(1041 (type-more . 48)) +(1042 (type-mask . 48)) +(1043 (meta-type? . 48)) +(1044 (make-type . 48)) +(1045 (name->type-table . 48)) +(1046 (mask->name-table . 48)) +(1047 (name->type . 48)) +(1048 (set-type-name! . 48)) +(1049 (*mask* . 48)) +(1050 (new-type-bit . 48)) +(1051 (mask->type . 48)) +(1052 (bottom-type . 48)) +(1053 (error-type . 48)) +(1054 (bottom-type? . 48)) +(1055 (new-atomic-type . 48)) +(1056 (named-atomic-type . 48)) +(1057 (syntax-type . 48)) +(1058 (other-static-type . 48)) +(1059 (empty-rail-type . 48)) +(1060 (rail-type . 48)) +(1061 (make-optional-type . 48)) +(1062 (make-rest-type . 48)) +(1063 (head-type . 48)) +(1064 (head-type-really . 48)) +(1065 (tail-type . 48)) +(1066 (empty-rail-type? . 48)) +(1067 (rest-type? . 48)) +(1068 (optional-type? . 48)) +(1069 (mask/no-values . 48)) +(1070 (mask/two-or-more . 48)) +(1071 (mask/&rest . 48)) +(1072 (value-type . 48)) +(1073 (mask/value . 48)) +(1074 (value-type? . 48)) +(1075 (any-values-type . 48)) +(1076 (any-arguments-type . 48)) +(1077 (mask/one-or-more . 48)) +(1078 (same-type? . 48)) +(1079 (subtype? . 48)) +(1080 (meet-type . 48)) +(1081 (other-type-info . 48)) +(1082 (meet-rail . 48)) +(1083 (meet-procedure . 48)) +(1084 (meet? . 48)) +(1085 (meet-procedure? . 48)) +(1086 (join-type . 48)) +(1087 (join-rail . 48)) +(1088 (join-procedure . 48)) +(1089 (number-hierarchy . 48)) +(1090 (integer-type . 48)) +(1091 (rational-type . 48)) +(1092 (real-type . 48)) +(1093 (complex-type . 48)) +(1094 (number-type . 48)) +(1095 (exact-type . 48)) +(1096 (inexact-type . 48)) +(1097 (exact-integer-type . 48)) +(1098 (inexact-real-type . 48)) +(1099 (boolean-type . 48)) +(1100 (pair-type . 48)) +(1101 (null-type . 48)) +(1102 (record-type . 48)) +(1103 (any-procedure-type . 48)) +(1104 (other-value-type . 48)) +(1105 (mask/other . 48)) +(1106 (make-other-type . 48)) +(1107 (char-type . 48)) +(1108 (unspecific-type . 48)) +(1109 (string-type . 48)) +(1110 (symbol-type . 48)) +(1111 (vector-type . 48)) +(1112 (escape-type . 48)) +(1113 (structure-type . 48)) +(1114 (mask/procedure . 48)) +(1115 (procedure-type . 48)) +(1116 (make-procedure-type . 48)) +(1117 (procedure-type-domain . 48)) +(1118 (procedure-type-codomain . 48)) +(1119 (restrictive? . 48)) +(1120 (sexp->type . 48)) +(1121 (sexp->values-type . 48)) +(1122 (type->sexp . 48)) +(1123 (atomic-type->sexp . 48)) +(1124 (rail-type->sexp . 48)) +(1125 (disjoin-type . 48)) +(1126 (disjoin-rest . 48)) +(1127 (mask/number . 48)) +(1128 (make-some-values-type . 48)) +(1129 (proc . 48)) +(1130 (some-values . 48)) +(1131 (procedure-type? . 48)) +(1132 (fixed-arity-procedure-type? . 48)) +(1133 (procedure-type-arity . 48)) +(1134 (procedure-type-argument-types . 48)) +(1135 (variable-type . 48)) +(1136 (variable-type? . 48)) +(1137 (variable-value-type . 48)) +(1138 (usual-variable-type . 48)) +(1139 (undeclared-type . 48)) +(1140 (compatible-types? . 48)) +(1141 (:interface . 65)) +(1142 (really-make-interface . 65)) +(1143 (interface-name . 65)) +(1144 (set-interface-name! . 65)) +(1145 (interface-clients . 65)) +(1146 (walk-method . 65)) +(1147 (ref-method . 65)) +(1148 (interface? . 65)) +(1149 (interface-ref . 65)) +(1150 (for-each-declaration . 65)) +(1151 (note-reference-to-interface! . 65)) +(1152 (make-interface . 65)) +(1153 (make-simple-interface . 65)) +(1154 (really-make-simple-interface . 65)) +(1155 (make-compound-interface . 65)) +(1156 (note-interface-name! . 65)) +(1157 (binding? . 49)) +(1158 (binding-type . 49)) +(1159 (binding-place . 49)) +(1160 (binding-static . 49)) +(1161 (binding-path . 49)) +(1162 (set-binding-place! . 49)) +(1163 (make-binding . 49)) +(1164 (add-path . 49)) +(1165 (clobber-binding! . 49)) +(1166 (impose-type . 49)) +(1167 (forget-integration . 49)) +(1168 (same-denotation? . 49)) +(1169 (maybe-fix-place! . 49)) +(1170 (follow-forwarding-pointers . 49)) +(1171 (name? . 50)) +(1172 (:generated . 50)) +(1173 (make-generated . 50)) +(1174 (generated-parent-name . 50)) +(1175 (generated-env . 50)) +(1176 (generated-token . 50)) +(1177 (generated-symbol . 50)) +(1178 (generated? . 50)) +(1179 (generate-name . 50)) +(1180 (generated-uid . 50)) +(1181 (*generated-uid* . 50)) +(1182 (name->symbol . 50)) +(1183 (name-hash . 50)) +(1184 (make-name-table . 50)) +(1185 (desyntaxify . 50)) +(1186 (make-qualified . 50)) +(1187 (qualified? . 50)) +(1188 (qualified-parent-name . 50)) +(1189 (qualified-symbol . 50)) +(1190 (name->qualified . 50)) +(1191 (qualify-parent . 50)) +(1192 (:transform . 50)) +(1193 (really-make-transform . 50)) +(1194 (transform-id . 50)) +(1195 (transform-source . 50)) +(1196 (transform-aux-names . 50)) +(1197 (transform-type . 50)) +(1198 (transform-env . 50)) +(1199 (transform-procedure . 50)) +(1200 (transform? . 50)) +(1201 (make-transform . 50)) +(1202 (maybe-apply-macro-transform . 50)) +(1203 (apply-inline-transform . 50)) +(1204 (make-keyword-comparator . 50)) +(1205 (name->source-name . 50)) +(1206 (bind-aliases . 50)) +(1207 (make-name-generator . 50)) +(1208 (lookup . 50)) +(1209 (lookup . 53)) +(1210 (bind1 . 53)) +(1211 (bind . 53)) +(1212 (bindrec . 53)) +(1213 (make-compiler-env . 53)) +(1214 (funny-name/macro-eval . 53)) +(1215 (environment-macro-eval . 53)) +(1216 (funny-name/define! . 53)) +(1217 (environment-define! . 53)) +(1218 (funny-name/package . 53)) +(1219 (extract-package-from-environment . 53)) +(1220 (funny-name/source-file-name . 53)) +(1221 (bind-source-file-name . 53)) +(1222 (source-file-name . 53)) +(1223 (:thingie . 51)) +(1224 (make-thingie . 51)) +(1225 (thingie-want-type . 51)) +(1226 (thingie-name . 51)) +(1227 (thingie-binding . 51)) +(1228 (thingie? . 51)) +(1229 (:structure . 66)) +(1230 (really-make-structure . 66)) +(1231 (structure-name . 66)) +(1232 (set-structure-name! . 66)) +(1233 (structure-clients . 66)) +(1234 (structure-package . 66)) +(1235 (structure-interface-really . 66)) +(1236 (set-structure-interface! . 66)) +(1237 (structure-interface-thunk . 66)) +(1238 (structure? . 66)) +(1239 (structure-interface . 66)) +(1240 (initialize-structure! . 66)) +(1241 (make-structure . 66)) +(1242 (note-structure-name! . 66)) +(1243 (structure-unstable? . 66)) +(1244 (for-each-export . 66)) +(1245 (:package . 66)) +(1246 (really-make-package . 66)) +(1247 (package-cached . 66)) +(1248 (package-clients . 66)) +(1249 (package-real-undefined-but-assigneds . 66)) +(1250 (set-package-undefined-but-assigneds! . 66)) +(1251 (package-real-undefineds . 66)) +(1252 (set-package-undefineds! . 66)) +(1253 (package-accesses-thunk . 66)) +(1254 (package-opens-thunk . 66)) +(1255 (set-package-opens-thunk! . 66)) +(1256 (package->environment . 66)) +(1257 (set-package->environment! . 66)) +(1258 (package-loaded? . 66)) +(1259 (set-package-loaded?! . 66)) +(1260 (package-clauses . 66)) +(1261 (package-file-name . 66)) +(1262 (package-get-location . 66)) +(1263 (set-package-get-location! . 66)) +(1264 (package-integrate? . 66)) +(1265 (set-package-integrate?! . 66)) +(1266 (package-unstable? . 66)) +(1267 (package-definitions . 66)) +(1268 (package-opens-really . 66)) +(1269 (set-package-opens! . 66)) +(1270 (package-uid . 66)) +(1271 (package? . 66)) +(1272 (make-package . 66)) +(1273 (really-package->environment . 66)) +(1274 (lazy-table-accessor . 66)) +(1275 (package-undefineds . 66)) +(1276 (package-undefined-but-assigneds . 66)) +(1277 (new-package-uid . 66)) +(1278 (*package-uid* . 66)) +(1279 (package-name-table . 66)) +(1280 (package-name . 66)) +(1281 (note-package-name! . 66)) +(1282 (package-opens . 66)) +(1283 (initialize-package-if-necessary! . 66)) +(1284 (package-accesses . 66)) +(1285 (make-simple-package . 66)) +(1286 (package-definition . 66)) +(1287 (package-define! . 66)) +(1288 (package-add-static! . 66)) +(1289 (package-refine-type! . 66)) +(1290 (package-lookup . 66)) +(1291 (really-package-lookup . 66)) +(1292 (search-opens . 66)) +(1293 (structure-lookup . 66)) +(1294 (real-structure-lookup . 66)) +(1295 (generic-lookup . 66)) +(1296 (initialize-package! . 66)) +(1297 (for-each-definition . 66)) +(1298 (get-new-location . 66)) +(1299 (make-new-location . 66)) +(1300 ($get-location . 66)) +(1301 (*location-uid* . 66)) +(1302 (location-info-table . 66)) +(1303 (flush-location-names . 66)) +(1304 (link! . 66)) +(1305 (really-link! . 66)) +(1306 (get-location . 66)) +(1307 (location-on-demand . 66)) +(1308 (get-undefined . 66)) +(1309 (location-for-assignment . 66)) +(1310 (package-note-caching! . 66)) +(1311 (note-caching! . 66)) +(1312 (get-location-for-unassignable . 66)) +(1313 (get-location-for-undefined . 66)) +(1314 ($note-undefined . 66)) +(1315 (cenv->package . 66)) +(1316 (location-for-reference . 66)) +(1317 (noting-undefined-variables . 66)) +(1318 (print-undefined-names . 66)) +(1319 (environment-ref . 79)) +(1320 (environment-set! . 79)) +(1321 (environment-define! . 79)) +(1322 (*structure-ref . 79)) +(1323 (carefully . 79)) +(1324 ($interaction-environment . 79)) +(1325 (interaction-environment . 79)) +(1326 (set-interaction-environment! . 79)) +(1327 (with-interaction-environment . 79)) +(1328 (scheme-report-environment . 79)) +(1329 (*scheme-report-environment* . 79)) +(1330 (*null-environment* . 79)) +(1331 (*scheme-report-number* . 79)) +(1332 (set-scheme-report-environment! . 79)) +(1333 (null-environment . 79)) +(1334 (make-reflective-tower . 79)) +(1335 (set-reflective-tower-maker! . 79)) +(1336 (namestring . 78)) +(1337 (directory-component-separator . 78)) +(1338 (type-component-separator . 78)) +(1339 (namestring-component . 78)) +(1340 (file-name-preferred-case . 78)) +(1341 (*scheme-file-type* . 78)) +(1342 (*load-file-type* . 78)) +(1343 (file-name-directory . 78)) +(1344 (file-name-nondirectory . 78)) +(1345 (file-nondirectory-position . 78)) +(1346 (string-posq . 78)) +(1347 (*translations* . 78)) +(1348 (translations . 78)) +(1349 (set-translation! . 78)) +(1350 (translate . 78)) +(1351 ($note-file-package . 63)) +(1352 (read-forms . 63)) +(1353 (really-read-forms . 63)) +(1354 (:operator . 52)) +(1355 (make-operator . 52)) +(1356 (operator-name . 52)) +(1357 (operator-uid . 52)) +(1358 (operator-nargs . 52)) +(1359 (operator-type . 52)) +(1360 (set-operator-type! . 52)) +(1361 (operator? . 52)) +(1362 (usual-operator-type . 52)) +(1363 (get-operator . 52)) +(1364 (*operator-uid* . 52)) +(1365 (operators-table . 52)) +(1366 (number-of-operators . 52)) +(1367 (the-operators . 52)) +(1368 (make-operator-table . 52)) +(1369 (operator-table-ref . 52)) +(1370 (operator-lookup . 52)) +(1371 (operator-define! . 52)) +(1372 (:node . 52)) +(1373 (really-make-node . 52)) +(1374 (node-plist . 52)) +(1375 (set-node-plist! . 52)) +(1376 (node-form . 52)) +(1377 (node-operator-id . 52)) +(1378 (node? . 52)) +(1379 (make-node . 52)) +(1380 (node-ref . 52)) +(1381 (node-set! . 52)) +(1382 (node-operator . 52)) +(1383 (node-predicate . 52)) +(1384 (make-similar-node . 52)) +(1385 (force-node . 52)) +(1386 (schemify . 52)) +(1387 (schemifiers . 52)) +(1388 (schemify-node . 52)) +(1389 (schemify-nodes . 52)) +(1390 (define-schemifier . 52)) +(1391 (schemify-lambda . 52)) +(1392 (schemify-formals . 52)) +(1393 (schemify-sexp . 52)) +(1394 (number-of-required-args . 56)) +(1395 (n-ary? . 56)) +(1396 (normalize-formals . 56)) +(1397 (scan-forms . 54)) +(1398 (expand-scanned-form . 54)) +(1399 (scan-define . 54)) +(1400 (expand-define . 54)) +(1401 (scan-define-syntax . 54)) +(1402 (expand-form . 54)) +(1403 (expand-head . 54)) +(1404 (destructure-define . 54)) +(1405 (make-operator-predicate . 54)) +(1406 (define? . 54)) +(1407 (begin? . 54)) +(1408 (define-syntax? . 54)) +(1409 (static-value . 54)) +(1410 (expand-body . 54)) +(1411 (scan-body-forms . 54)) +(1412 (body-lossage . 54)) +(1413 (expand . 54)) +(1414 (expand-list . 54)) +(1415 (expand-literal . 54)) +(1416 (expand-call . 54)) +(1417 (expand-name . 54)) +(1418 (expand-macro-application . 54)) +(1419 (expand-operator-form . 54)) +(1420 (expanders . 54)) +(1421 (define-expander . 54)) +(1422 (unspecific-node . 54)) +(1423 (expand-structure-ref . 54)) +(1424 (expand-lambda . 54)) +(1425 (bind-names . 54)) +(1426 (names? . 54)) +(1427 (expand-letrec . 54)) +(1428 (process-syntax . 54)) +(1429 (this-long? . 54)) +(1430 (at-least-this-long? . 54)) +(1431 (specs? . 54)) +(1432 (literal? . 54)) +(1433 (syntax? . 54)) +(1434 (begin-node? . 54)) +(1435 (call-node? . 54)) +(1436 (name-node? . 54)) +(1437 (operator/literal . 54)) +(1438 (operator/quote . 54)) +(1439 (operator/call . 54)) +(1440 (operator/name . 54)) +(1441 (operator/unspecific . 54)) +(1442 (operator/unassigned . 54)) +(1443 (operator/lambda . 54)) +(1444 (operator/begin . 54)) +(1445 (operator/letrec . 54)) +(1446 (operator/define . 54)) +(1447 (operator/define-syntax . 54)) +(1448 (operator/primitive-procedure . 54)) +(1449 (operator/structure-ref . 54)) +(1450 (:primop . 60)) +(1451 (make-primop . 60)) +(1452 (primop-compilator . 60)) +(1453 (primop-closed . 60)) +(1454 (primop-type . 60)) +(1455 (primop-name . 60)) +(1456 (primop? . 60)) +(1457 (primop-table . 60)) +(1458 (walk-primops . 60)) +(1459 (define-compiler-primitive . 60)) +(1460 (get-primop . 60)) +(1461 (:debug-data . 57)) +(1462 (make-debug-data . 57)) +(1463 (debug-data-source . 57)) +(1464 (set-debug-data-source! . 57)) +(1465 (debug-data-env-maps . 57)) +(1466 (set-debug-data-env-maps! . 57)) +(1467 (debug-data-pc-in-parent . 57)) +(1468 (debug-data-parent . 57)) +(1469 (debug-data-name . 57)) +(1470 (debug-data-uid . 57)) +(1471 (debug-data? . 57)) +(1472 (maximum-stack-use . 58)) +(1473 (protocol-skip . 58)) +(1474 (stack-delta . 58)) +(1475 (define-delta . 58)) +(1476 (stack-max . 58)) +(1477 (nothing . 58)) +(1478 (popper . 58)) +(1479 (pusher . 58)) +(1480 (continue . 58)) +(1481 (continuer . 58)) +(1482 (do-make-cont . 58)) +(1483 (stack-function . 58)) +(1484 (arg-spec-size . 58)) +(1485 (imax . 58)) +(1486 (get-offset . 58)) +(1487 (new-template-uid . 59)) +(1488 (*template-uid* . 59)) +(1489 (template-uid . 59)) +(1490 (set-template-uid! . 59)) +(1491 (debug-flag-names . 59)) +(1492 (type/debug-flags . 59)) +(1493 (make-debug-flags . 59)) +(1494 ($debug-flags . 59)) +(1495 (debug-flag-accessor . 59)) +(1496 (debug-flag-modifier . 59)) +(1497 (keep-source-code? . 59)) +(1498 (keep-environment-maps? . 59)) +(1499 (keep-procedure-names? . 59)) +(1500 (keep-file-names? . 59)) +(1501 (tabulate-debug-data? . 59)) +(1502 (debug-data-table . 59)) +(1503 (with-fresh-compiler-state . 59)) +(1504 (saving-and-restoring . 59)) +(1505 (debug-data->info . 59)) +(1506 (get-debug-data . 59)) +(1507 (note-debug-data! . 59)) +(1508 (new-debug-data . 59)) +(1509 (make-segment . 59)) +(1510 (segment-size . 59)) +(1511 (segment-emitter . 59)) +(1512 (segment->template . 59)) +(1513 (segment-data->template . 59)) +(1514 (check-stack-use . 59)) +(1515 (:assembly-state . 59)) +(1516 (make-assembly-state . 59)) +(1517 (astate-literals . 59)) +(1518 (set-astate-literals! . 59)) +(1519 (astate-count . 59)) +(1520 (set-astate-count! . 59)) +(1521 (astate-pc . 59)) +(1522 (set-astate-pc! . 59)) +(1523 (astate-code-vector . 59)) +(1524 (make-astate . 59)) +(1525 (emit-byte! . 59)) +(1526 (literal->index . 59)) +(1527 (literal-position . 59)) +(1528 (position . 59)) +(1529 (emit-literal! . 59)) +(1530 (emit-segment! . 59)) +(1531 (empty-segment . 59)) +(1532 (instruction . 59)) +(1533 (sequentially . 59)) +(1534 (sequentially-2 . 59)) +(1535 (instruction-with-literal . 59)) +(1536 (instruction-with-location . 59)) +(1537 (template . 59)) +(1538 (make-label . 59)) +(1539 (instruction-using-label . 59)) +(1540 (computed-goto-label-size . 59)) +(1541 (computed-goto-instruction . 59)) +(1542 (attach-label . 59)) +(1543 (insert-label! . 59)) +(1544 (code-vector-set2! . 59)) +(1545 (two-byte-limit . 59)) +(1546 (high-byte . 59)) +(1547 (low-byte . 59)) +(1548 ($debug-data . 59)) +(1549 (note-source-code . 59)) +(1550 (note-environment . 59)) +(1551 (emit-with-environment-maps! . 59)) +(1552 ($environment-maps . 59)) +(1553 (node-type . 61)) +(1554 (reconstruct-type . 61)) +(1555 (reconstruct . 61)) +(1556 (examine . 61)) +(1557 (reconstructors . 61)) +(1558 (define-reconstructor . 61)) +(1559 (reconstruct-lambda . 61)) +(1560 (careful-codomain . 61)) +(1561 (reconstruct-name . 61)) +(1562 (proc->reconstructor . 61)) +(1563 (reconstruct-call . 61)) +(1564 (fork-constraints . 61)) +(1565 (node->type . 61)) +(1566 (name-node? . 61)) +(1567 (lambda-node? . 61)) +(1568 (literal-node? . 61)) +(1569 (primop-reconstructors . 61)) +(1570 (define-primop-reconstructor . 61)) +(1571 (reconstruct-apply . 61)) +(1572 (constant-type . 61)) +(1573 (compile-expression . 62)) +(1574 (compile . 62)) +(1575 (compilators . 62)) +(1576 (define-compilator . 62)) +(1577 (compile-constant . 62)) +(1578 (compile-call . 62)) +(1579 (compile-name-call . 62)) +(1580 (compile-redex . 62)) +(1581 (compile-unknown-call . 62)) +(1582 (maybe-push-continuation . 62)) +(1583 (fixup-source . 62)) +(1584 (push-arguments . 62)) +(1585 (push-all-with-names . 62)) +(1586 (compile-lambda . 62)) +(1587 (compile-lambda-code . 62)) +(1588 (name-node->symbol . 62)) +(1589 (set-lexical-offsets! . 62)) +(1590 (compile-flat-lambda . 62)) +(1591 (get-variables-offsets . 62)) +(1592 (variable-env-data . 62)) +(1593 (sort-list . 62)) +(1594 (make-cont . 62)) +(1595 (cont-segment . 62)) +(1596 (cont-source-info . 62)) +(1597 (return-cont-segment . 62)) +(1598 (return-cont . 62)) +(1599 (return-cont? . 62)) +(1600 (fall-through-cont . 62)) +(1601 (fall-through-cont? . 62)) +(1602 (ignore-values-segment . 62)) +(1603 (ignore-values-cont . 62)) +(1604 (ignore-values-cont? . 62)) +(1605 (deliver-value . 62)) +(1606 (named-cont . 62)) +(1607 (cont-name . 62)) +(1608 (name-node-binding . 62)) +(1609 (generate-trap . 62)) +(1610 (type-check . 62)) +(1611 (set-type-check?! . 62)) +(1612 (*type-check?* . 62)) +(1613 (diagnose-call-error . 62)) +(1614 (lambda-node? . 62)) +(1615 (name-node? . 62)) +(1616 (literal-node? . 62)) +(1617 (operator/lambda . 62)) +(1618 (operator/set! . 62)) +(1619 (operator/call . 62)) +(1620 (operator/begin . 62)) +(1621 (direct-compilator . 62)) +(1622 (direct-closed-compilator . 62)) +(1623 (nargs->domain . 62)) +(1624 (get-primop-type . 62)) +(1625 (primop-types . 62)) +(1626 (define-simple-primitive . 62)) +(1627 (simple-compilator . 62)) +(1628 (simple-closed-compilator . 62)) +(1629 (symbol-append . 62)) +(1630 (define-stob-predicate . 62)) +(1631 (define-data-struct-primitives . 62)) +(1632 (define-vector-primitives . 62)) +(1633 (define-n-ary-compiler-primitive . 62)) +(1634 (n-ary-primitive-compilator . 62)) +(1635 (call-on-arg-and-id . 62)) +(1636 (call-on-args . 62)) +(1637 (op/unspecific . 62)) +(1638 (op/literal . 62)) +(1639 (push-all-but-last . 62)) +(1640 (dispatch-protocol-size . 62)) +(1641 (make-dispatch-protocol . 62)) +(1642 (compile-forms . 62)) +(1643 (compile-forms-loop . 62)) +(1644 (compile-form . 62)) +(1645 (define-node? . 62)) +(1646 (compile-definition . 62)) +(1647 (location-contents-offset . 62)) +(1648 (make-startup-procedure . 62)) +(1649 (append-templates . 62)) +(1650 (an-ignore-values-cont . 62)) +(1651 (eval . 80)) +(1652 (load-into . 80)) +(1653 (eval-from-file . 80)) +(1654 (load . 80)) +(1655 (load-into-port . 80)) +(1656 (load-port . 80)) +(1657 (really-load-into . 80)) +(1658 (compile-and-run . 80)) +(1659 (display-condition . 47)) +(1660 (really-display-condition . 47)) +(1661 (*depth* . 47)) +(1662 (*length* . 47)) +(1663 (&disclose-condition . 47)) +(1664 (disclose-condition . 47)) +(1665 (limited-write . 47)) +(1666 (command-processor . 84)) +(1667 (mini-load . 84)) +(1668 (read-string . 84)) +(1669 (enum-case . 42)) +(1670 (run-threads . 40)) +(1671 (run-threads-with-housekeeper . 40)) +(1672 (round-robin-event-handler . 40)) +(1673 (make-counter . 40)) +(1674 (counter-value . 40)) +(1675 (increment-counter! . 40)) +(1676 (decrement-counter! . 40)) +(1677 (root-scheduler . 41)) +(1678 (make-root-event-handler . 41)) +(1679 (root-handler . 41)) +(1680 (cheap-display-condition . 41)) +(1681 (abort-token . 41)) +(1682 (scheme-exit-now . 41)) +(1683 (root-wait . 41)) +(1684 (one-day-of-milliseconds . 41)) +(1685 (do-some-waiting . 41)) +(1686 (deadlock-handler . 41)) +(1687 (call-when-deadlocked! . 41)) +(1688 (spawn-output-forcers . 41)) +(1689 (unspecific . 41)) +(1690 (usual-resumer . 45)) +(1691 (initialize-rts . 45)) +(1692 (start . 85)) +(1693 (make-built-in-structures . 85)) +(1694 (initialize-interaction-environment! . 85)) +(1695 (make-initial-package . 85)) +(1696 (make-tower . 85)) +(1697 (the-usual-transforms . 55)) +(1698 (define-usual-macro . 55)) +(1699 (usual-transform . 55)) +(1700 (do-spec? . 55)) +(1701 (specs? . 55)) +(1702 (case-clause? . 55)) +(1703 (process-rules . 55)) +(1704 (segment-pattern? . 55)) +(1705 (segment-template? . 55)) +(1706 (segment-depth . 55)) +(1707 (segment-tail . 55)) +(1708 (indicators-for-zero-or-more . 55)) +(1709 (find-free-names-in-syntax-rules . 55)) +(1710 (strongly-connected-components . 76)) +(1711 (find-next-vertex . 76)) +(1712 (:vertex . 76)) +(1713 (really-make-vertex . 76)) +(1714 (vertex-lowpoint . 76)) +(1715 (set-vertex-lowpoint! . 76)) +(1716 (vertex-parent . 76)) +(1717 (set-vertex-parent! . 76)) +(1718 (vertex-index . 76)) +(1719 (set-vertex-index! . 76)) +(1720 (vertex-stack . 76)) +(1721 (set-vertex-stack! . 76)) +(1722 (vertex-edges . 76)) +(1723 (set-vertex-edges! . 76)) +(1724 (vertex-data . 76)) +(1725 (vertex? . 76)) +(1726 (make-vertex . 76)) +(1727 (make-vertices . 76)) +(1728 (do-vertex . 76)) +(1729 (get-strong . 76)) +(1730 (end-vertex . 76)) +(1731 (unwind-stack . 76)) +(1732 (follow-edge . 76)) +(1733 (pop-vertex-edge! . 76)) +(1734 (find-usages . 73)) +(1735 (maybe-update-known-type . 73)) +(1736 (find-node-usages . 73)) +(1737 (analyze . 73)) +(1738 (analyze-nodes . 73)) +(1739 (usage-analyzers . 73)) +(1740 (define-usage-analyzer . 73)) +(1741 (nothing . 73)) +(1742 (add-if-free . 73)) +(1743 (:usage . 73)) +(1744 (really-make-usage . 73)) +(1745 (usage-assignment-count . 73)) +(1746 (set-assignment! . 73)) +(1747 (usage-operator-count . 73)) +(1748 (set-operator! . 73)) +(1749 (usage-reference-count . 73)) +(1750 (set-reference! . 73)) +(1751 (usage-name-node . 73)) +(1752 (usage? . 73)) +(1753 (make-usage . 73)) +(1754 (make-package-usage . 73)) +(1755 (package-usage? . 73)) +(1756 (usage-incrementator . 73)) +(1757 (note-reference! . 73)) +(1758 (note-operator! . 73)) +(1759 (note-assignment! . 73)) +(1760 (lambda-node? . 73)) +(1761 (quote-node? . 73)) +(1762 (literal-node? . 73)) +(1763 (call-node? . 73)) +(1764 (name-node? . 73)) +(1765 (define-node? . 73)) +(1766 (sort-forms . 73)) +(1767 (stuff-count . 73)) +(1768 (maybe-make-aliased . 73)) +(1769 (topologically-sort . 73)) +(1770 (:form . 73)) +(1771 (really-make-form . 73)) +(1772 (form-temp . 73)) +(1773 (set-form-temp! . 73)) +(1774 (form-free . 73)) +(1775 (set-form-free! . 73)) +(1776 (form-unaliased? . 73)) +(1777 (set-form-unaliased?! . 73)) +(1778 (form-aliases . 73)) +(1779 (set-form-aliases! . 73)) +(1780 (form-node . 73)) +(1781 (form? . 73)) +(1782 (make-form . 73)) +(1783 (insert-aliases . 73)) +(1784 (make-inline-transform . 75)) +(1785 (clean-node . 75)) +(1786 (clean-lambda . 75)) +(1787 (clean-lookup . 75)) +(1788 (unused-name . 75)) +(1789 (inline-transform . 75)) +(1790 (make-substitution . 75)) +(1791 (reconstitute . 75)) +(1792 (reconstitute-name . 75)) +(1793 (operator/name . 75)) +(1794 (operator/literal . 75)) +(1795 (qualified->name . 75)) +(1796 (get-qualified-env . 75)) +(1797 (quote-node? . 75)) +(1798 (call-node? . 75)) +(1799 (lambda-node? . 75)) +(1800 (name-node? . 75)) +(1801 (loophole-node? . 75)) +(1802 (operator . 82)) +(1803 (primop . 82)) +(1804 (simple-interface . 82)) +(1805 (package . 82)) +(1806 (transform . 82)) +(1807 (package-define-static! . 82)) +(1808 (:syntax . 71)) +(1809 (:values . 71)) +(1810 (:arguments . 71)) +(1811 (:value . 71)) +(1812 (procedure . 71)) +(1813 (:boolean . 71)) +(1814 (:char . 71)) +(1815 (:null . 71)) +(1816 (:unspecific . 71)) +(1817 (:number . 71)) +(1818 (:complex . 71)) +(1819 (:real . 71)) +(1820 (:rational . 71)) +(1821 (:integer . 71)) +(1822 (:exact-integer . 71)) +(1823 (:pair . 71)) +(1824 (:string . 71)) +(1825 (:symbol . 71)) +(1826 (:vector . 71)) +(1827 (:procedure . 71)) +(1828 (:input-port . 71)) +(1829 (:output-port . 71)) +(1830 (:error . 71)) +(1831 (:escape . 71)) +(1832 (:structure . 71)) +(1833 (:type . 71)) +(1834 (def . 70)) +(1835 (really-def . 70)) +(1836 (define-multiple . 70)) +(1837 (define-interface . 70)) +(1838 (compound-interface . 70)) +(1839 (export . 70)) +(1840 (define-structure . 70)) +(1841 (define-structures . 70)) +(1842 (structure . 70)) +(1843 (structures . 70)) +(1844 (a-package . 70)) +(1845 (receive . 70)) +(1846 (define-reflective-tower-maker . 70)) +(1847 (export-reflective-tower-maker . 70)) +(1848 (define-module . 70)) +(1849 (make-a-package . 70)) +(1850 (loser . 70)) +(1851 (interface-of . 70)) +(1852 (*verify-later!* . 70)) +(1853 (verify-later! . 70)) +(1854 (set-verify-later! . 70)) +(1855 (note-name! . 70)) +(1856 (optimizers-table . 68)) +(1857 (set-optimizer! . 68)) +(1858 (get-optimizer . 68)) +(1859 (apply-optimizers . 68)) +(1860 (collect-packages . 67)) +(1861 (package-source . 67)) +(1862 (read-files . 67)) +(1863 (package-optimizer-names . 67)) +(1864 (check-structure . 67)) +(1865 (compile-package . 69)) +(1866 (expand-package . 69)) +(1867 (define-usual-transform . 69)) +(1868 (define-primitives . 69)) +(1869 (make-define-primitive-node . 69)) +(1870 (operator/define . 69)) +(1871 (operator/primitive-procedure . 69)) +(1872 (analyze-forms . 74)) +(1873 (analyze-form . 74)) +(1874 (inlinable-rhs? . 74)) +(1875 (simple-lambda? . 74)) +(1876 (operator/name . 74)) +(1877 (simple? . 74)) +(1878 (simple-list? . 74)) +(1879 (analyzers . 74)) +(1880 (define-analyzer . 74)) +(1881 (static-value . 74)) +(1882 (really-simple-call? . 74)) +(1883 (lexical-node? . 74)) +(1884 (no-ret . 74)) +(1885 (ret . 74)) +(1886 (simple-literal? . 74)) +(1887 (require . 74)) +(1888 (*debug?* . 74)) +(1889 (package-lookup-type . 74)) +(1890 (lambda-node? . 74)) +(1891 (name-node? . 74)) +(1892 (loophole-node? . 74)) +(1893 (define-node? . 74)) +(1894 (flatten-form . 64)) +(1895 (flatten-node . 64)) +(1896 (flatteners . 64)) +(1897 (define-flattener . 64)) +(1898 (flatten-list . 64)) +(1899 (no-free-vars . 64)) +(1900 (flatten-lambda . 64)) +(1901 (convert-lambda-body . 64)) +(1902 (add-cells . 64)) +(1903 (assigned? . 64)) +(1904 (mark-set-variables! . 64)) +(1905 (mark-sets . 64)) +(1906 (define-set-marker . 64)) +(1907 (no-sets . 64)) +(1908 (make-cell . 64)) +(1909 (make-unassigned-cell . 64)) +(1910 (make-cell-ref . 64)) +(1911 (make-cell-set! . 64)) +(1912 (make-primop-call . 64)) +(1913 (operator/flat-lambda . 64)) +(1914 (operator/lambda . 64)) +(1915 (operator/begin . 64)) +(1916 (operator/literal . 64)) +(1917 (operator/call . 64)) +(1918 (operator/unassigned . 64)) +(1919 (operator/set! . 64)) +(1920 (define-node? . 64)) +(1921 (lambda-node? . 64)) +(1922 (define-primop . 64)) +(1923 (temp0 . 64)) +(1924 (make-cell-primop . 64)) +(1925 (temp1 . 64)) +(1926 (cell-ref-primop . 64)) +(1927 (temp2 . 64)) +(1928 (cell-set!-primop . 64)) +(1929 (union . 64)) +(1930 (set-difference . 64)) +(1931 (ensure-loaded . 81)) - ; Template uid -> name, parent, pc in parent, env maps (0 scheme-level-0 #f #f ()) @@ -3285,128 +3284,128 @@ (1260 interrupts #f #f ()) (1261 call-before-heap-overflow! 1260 7 ()) (1262 interrupts #f #f ()) -(1263 interrupt-handlers-vector 1262 7 ()) -(1264 interrupts #f #f ()) -(1265 interrupts #f #f ()) +(1263 interrupts #f #f ()) +(1264 wind #f #f ()) +(1265 point-depth 1264 7 ()) (1266 wind #f #f ()) -(1267 point-depth 1266 7 ()) +(1267 point-in 1266 7 ()) (1268 wind #f #f ()) -(1269 point-in 1268 7 ()) +(1269 point-out 1268 7 ()) (1270 wind #f #f ()) -(1271 point-out 1270 7 ()) +(1271 point-dynamic-env 1270 7 ()) (1272 wind #f #f ()) -(1273 point-dynamic-env 1272 7 ()) +(1273 point-parent 1272 7 ()) (1274 wind #f #f ()) -(1275 point-parent 1274 7 ()) +(1275 make-point 1274 7 ()) (1276 wind #f #f ()) -(1277 make-point 1276 7 ()) -(1278 wind #f #f ()) +(1277 wind #f #f ()) +(1278 dynamic-wind 1277 7 ()) (1279 wind #f #f ()) -(1280 dynamic-wind 1279 7 ()) +(1280 travel-to-point! 1279 7 ()) (1281 wind #f #f ()) -(1282 travel-to-point! 1281 7 ()) -(1283 wind #f #f ()) -(1284 continuation->procedure 1283 7 ()) -(1285 #f 1284 6 ()) -(1286 #f 1285 60 ()) -(1287 wind #f #f ()) -(1288 call-with-current-continuation 1287 7 ()) -(1289 #f 1288 6 ()) +(1282 continuation->procedure 1281 7 ()) +(1283 #f 1282 6 ()) +(1284 #f 1283 60 ()) +(1285 wind #f #f ()) +(1286 call-with-current-continuation 1285 7 ()) +(1287 #f 1286 6 ()) +(1288 templates #f #f ()) +(1289 template-code 1288 7 ()) (1290 templates #f #f ()) -(1291 template-code 1290 7 ()) +(1291 template-info 1290 7 ()) (1292 templates #f #f ()) -(1293 template-info 1292 7 ()) +(1293 set-template-code! 1292 7 ()) (1294 templates #f #f ()) -(1295 set-template-code! 1294 7 ()) +(1295 set-template-info! 1294 7 ()) (1296 templates #f #f ()) -(1297 set-template-info! 1296 7 ()) -(1298 templates #f #f ()) +(1297 more-types #f #f ()) +(1298 &disclose 1297 48 ()) (1299 more-types #f #f ()) -(1300 &disclose 1299 48 ()) -(1301 more-types #f #f ()) +(1300 more-types #f #f ()) +(1301 &disclose 1300 52 ()) (1302 more-types #f #f ()) -(1303 &disclose 1302 52 ()) +(1303 more-types #f #f ()) (1304 more-types #f #f ()) (1305 more-types #f #f ()) (1306 more-types #f #f ()) (1307 more-types #f #f ()) (1308 more-types #f #f ()) (1309 more-types #f #f ()) -(1310 more-types #f #f ()) -(1311 more-types #f #f ()) +(1310 continuations #f #f ()) +(1311 &disclose 1310 48 ()) (1312 continuations #f #f ()) -(1313 &disclose 1312 48 ()) +(1313 continuations #f #f ()) (1314 continuations #f #f ()) -(1315 continuations #f #f ()) +(1315 continuation-cont 1314 7 ()) (1316 continuations #f #f ()) -(1317 continuation-cont 1316 7 ()) +(1317 real-continuation-pc 1316 7 ()) (1318 continuations #f #f ()) -(1319 real-continuation-pc 1318 7 ()) +(1319 real-continuation-template 1318 7 ()) (1320 continuations #f #f ()) -(1321 real-continuation-template 1320 7 ()) +(1321 continuation-env 1320 7 ()) (1322 continuations #f #f ()) -(1323 continuation-env 1322 7 ()) +(1323 exception-continuation-pc 1322 7 ()) (1324 continuations #f #f ()) -(1325 exception-continuation-pc 1324 7 ()) +(1325 exception-continuation-template 1324 7 ()) (1326 continuations #f #f ()) -(1327 exception-continuation-template 1326 7 ()) +(1327 exception-continuation-exception 1326 7 ()) (1328 continuations #f #f ()) -(1329 exception-continuation-exception 1328 7 ()) +(1329 exception-continuation? 1328 7 ()) (1330 continuations #f #f ()) -(1331 exception-continuation? 1330 7 ()) +(1331 continuation-pc 1330 7 ()) (1332 continuations #f #f ()) -(1333 continuation-pc 1332 7 ()) +(1333 continuation-template 1332 7 ()) (1334 continuations #f #f ()) -(1335 continuation-template 1334 7 ()) +(1335 continuation-arg 1334 7 ()) (1336 continuations #f #f ()) -(1337 continuation-arg 1336 7 ()) +(1337 continuation-arg-count 1336 7 ()) (1338 continuations #f #f ()) -(1339 continuation-arg-count 1338 7 ()) -(1340 continuations #f #f ()) -(1341 continuation-parent 1340 7 ()) -(1342 loop 1341 105 ()) -(1343 continuations #f #f ()) +(1339 continuation-parent 1338 7 ()) +(1340 loop 1339 105 ()) +(1341 continuations #f #f ()) +(1342 exceptions #f #f ()) +(1343 &disclose 1342 48 ()) (1344 exceptions #f #f ()) -(1345 &disclose 1344 48 ()) +(1345 &disclose 1344 52 ()) (1346 exceptions #f #f ()) -(1347 &disclose 1346 52 ()) -(1348 exceptions #f #f ()) -(1349 report-errors-as-warnings 1348 7 ()) -(1350 #f 1349 12 ()) -(1351 exceptions #f #f ()) -(1352 ignore-errors 1351 7 ()) -(1353 #f 1352 6 ()) -(1354 #f 1353 6 ()) +(1347 report-errors-as-warnings 1346 7 ()) +(1348 #f 1347 12 ()) +(1349 exceptions #f #f ()) +(1350 ignore-errors 1349 7 ()) +(1351 #f 1350 6 ()) +(1352 #f 1351 6 ()) +(1353 exceptions #f #f ()) +(1354 continuation-preview 1353 7 ()) (1355 exceptions #f #f ()) -(1356 continuation-preview 1355 7 ()) -(1357 exceptions #f #f ()) -(1358 report-utter-lossage 1357 7 ()) -(1359 #f 1358 183 ()) -(1360 exceptions #f #f ()) -(1361 last-resort-condition-handler 1360 7 ()) -(1362 #f 1361 15 ()) -(1363 #f 1362 23 ()) -(1364 exceptions #f #f ()) -(1365 initialize-exceptions! 1364 7 ()) -(1366 #f 1365 6 ()) -(1367 exceptions #f #f ()) +(1356 report-utter-lossage 1355 7 ()) +(1357 #f 1356 183 ()) +(1358 exceptions #f #f ()) +(1359 last-resort-condition-handler 1358 7 ()) +(1360 #f 1359 15 ()) +(1361 #f 1360 23 ()) +(1362 exceptions #f #f ()) +(1363 initialize-exceptions! 1362 7 ()) +(1364 #f 1363 6 ()) +(1365 exceptions #f #f ()) +(1366 exceptions #f #f ()) +(1367 with-handler 1366 7 ()) (1368 exceptions #f #f ()) -(1369 with-handler 1368 7 ()) -(1370 exceptions #f #f ()) -(1371 really-signal-condition 1370 7 ()) -(1372 loop 1371 29 ()) -(1373 #f 1372 9 ()) -(1374 exceptions #f #f ()) -(1375 extend-opcode! 1374 7 ()) -(1376 except 1375 6 ()) -(1377 #f 1375 32 ()) +(1369 really-signal-condition 1368 7 ()) +(1370 loop 1369 29 ()) +(1371 #f 1370 9 ()) +(1372 exceptions #f #f ()) +(1373 extend-opcode! 1372 7 ()) +(1374 except 1373 6 ()) +(1375 #f 1373 32 ()) +(1376 exceptions #f #f ()) +(1377 #f 1376 11 ()) (1378 exceptions #f #f ()) -(1379 #f 1378 11 ()) -(1380 exceptions #f #f ()) +(1379 exceptions #f #f ()) +(1380 signal-exception 1379 7 ()) (1381 exceptions #f #f ()) -(1382 signal-exception 1381 7 ()) -(1383 exceptions #f #f ()) -(1384 define-exception-handler 1383 7 ()) +(1382 define-exception-handler 1381 7 ()) +(1383 threads #f #f ()) +(1384 threads #f #f ()) (1385 threads #f #f ()) (1386 threads #f #f ()) (1387 threads #f #f ()) @@ -3415,223 +3414,223 @@ (1390 threads #f #f ()) (1391 threads #f #f ()) (1392 threads #f #f ()) -(1393 threads #f #f ()) +(1393 #f 1392 11 ()) (1394 threads #f #f ()) -(1395 #f 1394 11 ()) +(1395 thread-dynamic-env 1394 7 ()) (1396 threads #f #f ()) -(1397 thread-dynamic-env 1396 7 ()) +(1397 set-thread-dynamic-point! 1396 7 ()) (1398 threads #f #f ()) -(1399 set-thread-dynamic-point! 1398 7 ()) +(1399 thread-dynamic-point 1398 7 ()) (1400 threads #f #f ()) -(1401 thread-dynamic-point 1400 7 ()) +(1401 set-thread-continuation! 1400 7 ()) (1402 threads #f #f ()) -(1403 set-thread-continuation! 1402 7 ()) +(1403 thread-continuation 1402 7 ()) (1404 threads #f #f ()) -(1405 thread-continuation 1404 7 ()) +(1405 set-thread-queue! 1404 7 ()) (1406 threads #f #f ()) -(1407 set-thread-queue! 1406 7 ()) +(1407 thread-queue 1406 7 ()) (1408 threads #f #f ()) -(1409 thread-queue 1408 7 ()) +(1409 set-thread-arguments! 1408 7 ()) (1410 threads #f #f ()) -(1411 set-thread-arguments! 1410 7 ()) +(1411 thread-arguments 1410 7 ()) (1412 threads #f #f ()) -(1413 thread-arguments 1412 7 ()) +(1413 set-thread-time! 1412 7 ()) (1414 threads #f #f ()) -(1415 set-thread-time! 1414 7 ()) +(1415 thread-time 1414 7 ()) (1416 threads #f #f ()) -(1417 thread-time 1416 7 ()) +(1417 set-thread-scheduler! 1416 7 ()) (1418 threads #f #f ()) -(1419 set-thread-scheduler! 1418 7 ()) +(1419 thread-scheduler 1418 7 ()) (1420 threads #f #f ()) -(1421 thread-scheduler 1420 7 ()) +(1421 set-thread-data! 1420 7 ()) (1422 threads #f #f ()) -(1423 set-thread-data! 1422 7 ()) +(1423 thread-data 1422 7 ()) (1424 threads #f #f ()) -(1425 thread-data 1424 7 ()) +(1425 set-thread-events! 1424 7 ()) (1426 threads #f #f ()) -(1427 set-thread-events! 1426 7 ()) +(1427 thread-events 1426 7 ()) (1428 threads #f #f ()) -(1429 thread-events 1428 7 ()) +(1429 set-thread-current-task! 1428 7 ()) (1430 threads #f #f ()) -(1431 set-thread-current-task! 1430 7 ()) +(1431 thread-current-task 1430 7 ()) (1432 threads #f #f ()) -(1433 thread-current-task 1432 7 ()) +(1433 thread-uid 1432 7 ()) (1434 threads #f #f ()) -(1435 thread-uid 1434 7 ()) +(1435 thread-name 1434 7 ()) (1436 threads #f #f ()) -(1437 thread-name 1436 7 ()) +(1437 really-make-thread 1436 7 ()) (1438 threads #f #f ()) -(1439 really-make-thread 1438 7 ()) -(1440 threads #f #f ()) +(1439 threads #f #f ()) +(1440 thread? 1439 7 ()) (1441 threads #f #f ()) -(1442 thread? 1441 7 ()) -(1443 threads #f #f ()) -(1444 compose-continuation 1443 7 ()) -(1445 #f 1444 6 ()) -(1446 #f 1445 27 ()) -(1447 #f 1446 10 ()) -(1448 #f 1447 9 ()) +(1442 compose-continuation 1441 7 ()) +(1443 #f 1442 6 ()) +(1444 #f 1443 27 ()) +(1445 #f 1444 10 ()) +(1446 #f 1445 9 ()) +(1447 threads #f #f ()) +(1448 thunk->continuation 1447 7 ()) (1449 threads #f #f ()) -(1450 thunk->continuation 1449 7 ()) +(1450 interrupt-timer-time 1449 7 ()) (1451 threads #f #f ()) -(1452 interrupt-timer-time 1451 7 ()) -(1453 threads #f #f ()) -(1454 debit-down! 1453 7 ()) -(1455 loop 1454 28 ()) -(1456 threads #f #f ()) -(1457 run-thread 1456 7 ()) -(1458 #f 1457 44 ()) -(1459 threads #f #f ()) -(1460 switch-to-thread 1459 7 ()) -(1461 #f 1460 6 ()) +(1452 debit-down! 1451 7 ()) +(1453 loop 1452 28 ()) +(1454 threads #f #f ()) +(1455 run-thread 1454 7 ()) +(1456 #f 1455 44 ()) +(1457 threads #f #f ()) +(1458 switch-to-thread 1457 7 ()) +(1459 #f 1458 6 ()) +(1460 threads #f #f ()) +(1461 suspend-to 1460 7 ()) (1462 threads #f #f ()) -(1463 suspend-to 1462 7 ()) +(1463 suspend 1462 7 ()) (1464 threads #f #f ()) -(1465 suspend 1464 7 ()) -(1466 threads #f #f ()) -(1467 thread-top-level 1466 7 ()) -(1468 thread-start 1467 6 ()) -(1469 #f 1468 3 ()) +(1465 thread-top-level 1464 7 ()) +(1466 thread-start 1465 6 ()) +(1467 #f 1466 3 ()) +(1468 threads #f #f ()) +(1469 make-thread 1468 7 ()) (1470 threads #f #f ()) -(1471 make-thread 1470 7 ()) +(1471 all-threads 1470 7 ()) (1472 threads #f #f ()) -(1473 all-threads 1472 7 ()) -(1474 threads #f #f ()) -(1475 thread-uid->thread 1474 7 ()) -(1476 loop 1475 27 ()) +(1473 thread-uid->thread 1472 7 ()) +(1474 loop 1473 27 ()) +(1475 threads #f #f ()) +(1476 add-event! 1475 7 ()) (1477 threads #f #f ()) -(1478 add-event! 1477 7 ()) +(1478 enqueue-thread! 1477 7 ()) (1479 threads #f #f ()) -(1480 enqueue-thread! 1479 7 ()) +(1480 dequeue-thread! 1479 7 ()) (1481 threads #f #f ()) -(1482 dequeue-thread! 1481 7 ()) +(1482 remove-thread-from-queue! 1481 7 ()) (1483 threads #f #f ()) -(1484 remove-thread-from-queue! 1483 7 ()) +(1484 event-pending? 1483 7 ()) (1485 threads #f #f ()) -(1486 event-pending? 1485 7 ()) +(1486 min 1485 7 ()) (1487 threads #f #f ()) -(1488 min 1487 7 ()) +(1488 schedule-interrupt! 1487 7 ()) (1489 threads #f #f ()) -(1490 schedule-interrupt! 1489 7 ()) +(1490 run-next-thread 1489 7 ()) (1491 threads #f #f ()) -(1492 run-next-thread 1491 7 ()) -(1493 threads #f #f ()) -(1494 debit-thread-times-and-run! 1493 7 ()) -(1495 loop 1494 41 ()) -(1496 threads #f #f ()) -(1497 find-and-run-next-thread 1496 7 ()) -(1498 loop 1497 35 ()) +(1492 debit-thread-times-and-run! 1491 7 ()) +(1493 loop 1492 41 ()) +(1494 threads #f #f ()) +(1495 find-and-run-next-thread 1494 7 ()) +(1496 loop 1495 35 ()) +(1497 threads #f #f ()) +(1498 run 1497 7 ()) (1499 threads #f #f ()) -(1500 run 1499 7 ()) +(1500 handle-timer-interrupt 1499 7 ()) (1501 threads #f #f ()) -(1502 handle-timer-interrupt 1501 7 ()) +(1502 exit 1501 7 ()) (1503 threads #f #f ()) -(1504 exit 1503 7 ()) +(1504 wait 1503 7 ()) (1505 threads #f #f ()) -(1506 wait 1505 7 ()) +(1506 waiting? 1505 7 ()) (1507 threads #f #f ()) -(1508 waiting? 1507 7 ()) +(1508 block 1507 7 ()) (1509 threads #f #f ()) -(1510 block 1509 7 ()) +(1510 relinquish-timeslice 1509 7 ()) (1511 threads #f #f ()) -(1512 relinquish-timeslice 1511 7 ()) -(1513 threads #f #f ()) -(1514 running? 1513 7 ()) -(1515 loop 1514 25 ()) +(1512 running? 1511 7 ()) +(1513 loop 1512 25 ()) +(1514 threads #f #f ()) +(1515 interrupt-thread 1514 7 ()) (1516 threads #f #f ()) -(1517 interrupt-thread 1516 7 ()) -(1518 threads #f #f ()) -(1519 propogate-upcall 1518 7 ()) -(1520 #f 1519 62 ()) +(1517 propogate-upcall 1516 7 ()) +(1518 #f 1517 62 ()) +(1519 threads #f #f ()) +(1520 upcall 1519 7 ()) (1521 threads #f #f ()) -(1522 upcall 1521 7 ()) -(1523 threads #f #f ()) -(1524 kill-thread! 1523 7 ()) -(1525 #f 1524 9 ()) +(1522 kill-thread! 1521 7 ()) +(1523 #f 1522 9 ()) +(1524 threads #f #f ()) +(1525 get-next-event! 1524 7 ()) (1526 threads #f #f ()) -(1527 get-next-event! 1526 7 ()) +(1527 schedule-wakeup 1526 7 ()) (1528 threads #f #f ()) -(1529 schedule-wakeup 1528 7 ()) +(1529 schedule-event 1528 7 ()) (1530 threads #f #f ()) -(1531 schedule-event 1530 7 ()) -(1532 threads #f #f ()) -(1533 show-running 1532 7 ()) -(1534 loop##111 1533 16 ()) +(1531 show-running 1530 7 ()) +(1532 loop##111 1531 16 ()) +(1533 threads #f #f ()) +(1534 spawn-on-scheduler 1533 7 ()) (1535 threads #f #f ()) -(1536 spawn-on-scheduler 1535 7 ()) +(1536 spawn 1535 7 ()) (1537 threads #f #f ()) -(1538 spawn 1537 7 ()) +(1538 root-scheduler 1537 7 ()) (1539 threads #f #f ()) -(1540 root-scheduler 1539 7 ()) +(1540 spawn-on-root 1539 7 ()) (1541 threads #f #f ()) -(1542 spawn-on-root 1541 7 ()) +(1542 make-ready 1541 7 ()) (1543 threads #f #f ()) -(1544 make-ready 1543 7 ()) +(1544 cancel-timer-interrupt! 1543 7 ()) (1545 threads #f #f ()) -(1546 cancel-timer-interrupt! 1545 7 ()) +(1546 real-time 1545 7 ()) (1547 threads #f #f ()) -(1548 real-time 1547 7 ()) -(1549 threads #f #f ()) -(1550 start-multitasking 1549 7 ()) -(1551 #f 1550 6 ()) -(1552 #f 1551 6 ()) -(1553 #f 1551 11 ()) -(1554 #f 1553 7 ()) -(1555 #f 1554 6 ()) -(1556 #f 1554 11 ()) -(1557 threads #f #f ()) -(1558 with-threads 1557 7 ()) -(1559 #f 1558 10 ()) -(1560 #f 1559 3 ()) -(1561 #f 1559 8 ()) -(1562 #f 1559 13 ()) +(1548 start-multitasking 1547 7 ()) +(1549 #f 1548 6 ()) +(1550 #f 1549 6 ()) +(1551 #f 1549 11 ()) +(1552 #f 1551 7 ()) +(1553 #f 1552 6 ()) +(1554 #f 1552 11 ()) +(1555 threads #f #f ()) +(1556 with-threads 1555 7 ()) +(1557 #f 1556 10 ()) +(1558 #f 1557 3 ()) +(1559 #f 1557 8 ()) +(1560 #f 1557 13 ()) +(1561 threads #f #f ()) +(1562 terminate-current-thread 1561 7 ()) (1563 threads #f #f ()) -(1564 terminate-current-thread 1563 7 ()) +(1564 insert 1563 7 ()) (1565 threads #f #f ()) -(1566 insert 1565 7 ()) -(1567 threads #f #f ()) -(1568 sleep 1567 7 ()) -(1569 #f 1568 71 ()) -(1570 threads #f #f ()) -(1571 wake-some-threads 1570 7 ()) -(1572 loop 1571 46 ()) +(1566 sleep 1565 7 ()) +(1567 #f 1566 71 ()) +(1568 threads #f #f ()) +(1569 wake-some-threads 1568 7 ()) +(1570 loop 1569 46 ()) +(1571 threads #f #f ()) +(1572 threads #f #f ()) (1573 threads #f #f ()) (1574 threads #f #f ()) -(1575 threads #f #f ()) -(1576 threads #f #f ()) +(1575 locks #f #f ()) +(1576 set-lock-owner-uid! 1575 7 ()) (1577 locks #f #f ()) -(1578 set-lock-owner-uid! 1577 7 ()) +(1578 lock-owner-uid 1577 7 ()) (1579 locks #f #f ()) -(1580 lock-owner-uid 1579 7 ()) +(1580 lock-queue 1579 7 ()) (1581 locks #f #f ()) -(1582 lock-queue 1581 7 ()) +(1582 lock-uid 1581 7 ()) (1583 locks #f #f ()) -(1584 lock-uid 1583 7 ()) +(1584 really-make-lock 1583 7 ()) (1585 locks #f #f ()) -(1586 really-make-lock 1585 7 ()) -(1587 locks #f #f ()) +(1586 locks #f #f ()) +(1587 lock? 1586 7 ()) (1588 locks #f #f ()) -(1589 lock? 1588 7 ()) +(1589 make-lock 1588 7 ()) (1590 locks #f #f ()) -(1591 make-lock 1590 7 ()) -(1592 locks #f #f ()) -(1593 obtain-lock 1592 7 ()) -(1594 #f 1593 10 ()) -(1595 locks #f #f ()) -(1596 maybe-obtain-lock 1595 7 ()) -(1597 #f 1596 10 ()) -(1598 locks #f #f ()) -(1599 release-lock 1598 7 ()) -(1600 #f 1599 10 ()) -(1601 locks #f #f ()) +(1591 obtain-lock 1590 7 ()) +(1592 #f 1591 10 ()) +(1593 locks #f #f ()) +(1594 maybe-obtain-lock 1593 7 ()) +(1595 #f 1594 10 ()) +(1596 locks #f #f ()) +(1597 release-lock 1596 7 ()) +(1598 #f 1597 10 ()) +(1599 locks #f #f ()) +(1600 i/o #f #f ()) +(1601 i/o #f #f ()) (1602 i/o #f #f ()) (1603 i/o #f #f ()) -(1604 i/o #f #f ()) -(1605 i/o #f #f ()) -(1606 #f 1605 11 ()) -(1607 #f 1605 16 ()) -(1608 #f 1605 21 ()) -(1609 #f 1605 26 ()) +(1604 #f 1603 11 ()) +(1605 #f 1603 16 ()) +(1606 #f 1603 21 ()) +(1607 #f 1603 26 ()) +(1608 i/o #f #f ()) +(1609 i/o #f #f ()) (1610 i/o #f #f ()) (1611 i/o #f #f ()) (1612 i/o #f #f ()) @@ -3640,207 +3639,207 @@ (1615 i/o #f #f ()) (1616 i/o #f #f ()) (1617 i/o #f #f ()) -(1618 i/o #f #f ()) +(1618 &disclose 1617 52 ()) (1619 i/o #f #f ()) (1620 &disclose 1619 52 ()) (1621 i/o #f #f ()) -(1622 &disclose 1621 52 ()) +(1622 port-handler-discloser 1621 7 ()) (1623 i/o #f #f ()) -(1624 port-handler-discloser 1623 7 ()) +(1624 port-handler-close 1623 7 ()) (1625 i/o #f #f ()) -(1626 port-handler-close 1625 7 ()) +(1626 port-handler-buffer-proc 1625 7 ()) (1627 i/o #f #f ()) -(1628 port-handler-buffer-proc 1627 7 ()) +(1628 port-handler-steal 1627 7 ()) (1629 i/o #f #f ()) -(1630 port-handler-steal 1629 7 ()) +(1630 really-make-port-handler 1629 7 ()) (1631 i/o #f #f ()) -(1632 really-make-port-handler 1631 7 ()) -(1633 i/o #f #f ()) +(1632 i/o #f #f ()) +(1633 port-handler? 1632 7 ()) (1634 i/o #f #f ()) -(1635 port-handler? 1634 7 ()) -(1636 i/o #f #f ()) -(1637 make-port-handler 1636 7 ()) -(1638 #f 1637 50 ()) +(1635 make-port-handler 1634 7 ()) +(1636 #f 1635 50 ()) +(1637 i/o #f #f ()) +(1638 disclose-port 1637 7 ()) (1639 i/o #f #f ()) -(1640 disclose-port 1639 7 ()) +(1640 obtain-port-lock 1639 7 ()) (1641 i/o #f #f ()) -(1642 obtain-port-lock 1641 7 ()) +(1642 maybe-obtain-port-lock 1641 7 ()) (1643 i/o #f #f ()) -(1644 maybe-obtain-port-lock 1643 7 ()) +(1644 release-port-lock 1643 7 ()) (1645 i/o #f #f ()) -(1646 release-port-lock 1645 7 ()) -(1647 i/o #f #f ()) -(1648 one-arg-proc->handler 1647 7 ()) -(1649 #f 1648 6 ()) +(1646 one-arg-proc->handler 1645 7 ()) +(1647 #f 1646 6 ()) +(1648 i/o #f #f ()) +(1649 fill-port-buffer! 1648 7 ()) (1650 i/o #f #f ()) -(1651 fill-port-buffer! 1650 7 ()) -(1652 i/o #f #f ()) -(1653 read-char-handler 1652 7 ()) -(1654 #f 1653 6 ()) -(1655 i/o #f #f ()) -(1656 two-arg-proc->handler 1655 7 ()) -(1657 #f 1656 6 ()) +(1651 read-char-handler 1650 7 ()) +(1652 #f 1651 6 ()) +(1653 i/o #f #f ()) +(1654 two-arg-proc->handler 1653 7 ()) +(1655 #f 1654 6 ()) +(1656 i/o #f #f ()) +(1657 empty-port-buffer! 1656 7 ()) (1658 i/o #f #f ()) -(1659 empty-port-buffer! 1658 7 ()) +(1659 write-char-handler 1658 7 ()) (1660 i/o #f #f ()) -(1661 write-char-handler 1660 7 ()) +(1661 initialize-i/o-handlers! 1660 7 ()) (1662 i/o #f #f ()) -(1663 initialize-i/o-handlers! 1662 7 ()) +(1663 open-input-port? 1662 7 ()) (1664 i/o #f #f ()) -(1665 open-input-port? 1664 7 ()) +(1665 make-input-port-closed! 1664 7 ()) (1666 i/o #f #f ()) -(1667 make-input-port-closed! 1666 7 ()) +(1667 close-input-port 1666 7 ()) (1668 i/o #f #f ()) -(1669 close-input-port 1668 7 ()) +(1669 open-output-port? 1668 7 ()) (1670 i/o #f #f ()) -(1671 open-output-port? 1670 7 ()) +(1671 really-force-output 1670 7 ()) (1672 i/o #f #f ()) -(1673 really-force-output 1672 7 ()) +(1673 make-output-port-closed! 1672 7 ()) (1674 i/o #f #f ()) -(1675 make-output-port-closed! 1674 7 ()) +(1675 close-output-port 1674 7 ()) (1676 i/o #f #f ()) -(1677 close-output-port 1676 7 ()) +(1677 open-port? 1676 7 ()) (1678 i/o #f #f ()) -(1679 open-port? 1678 7 ()) +(1679 current-input-port 1678 7 ()) (1680 i/o #f #f ()) -(1681 current-input-port 1680 7 ()) +(1681 input-port-option 1680 7 ()) (1682 i/o #f #f ()) -(1683 input-port-option 1682 7 ()) +(1683 char-ready? 1682 7 ()) (1684 i/o #f #f ()) -(1685 char-ready? 1684 7 ()) +(1685 real-char-ready? 1684 7 ()) (1686 i/o #f #f ()) -(1687 real-char-ready? 1686 7 ()) +(1687 okay-limits? 1686 7 ()) (1688 i/o #f #f ()) -(1689 okay-limits? 1688 7 ()) +(1689 read-more 1688 7 ()) (1690 i/o #f #f ()) -(1691 read-more 1690 7 ()) +(1691 buffer-length 1690 7 ()) (1692 i/o #f #f ()) -(1693 buffer-length 1692 7 ()) +(1693 really-read-block 1692 7 ()) (1694 i/o #f #f ()) -(1695 really-read-block 1694 7 ()) +(1695 read-block 1694 7 ()) (1696 i/o #f #f ()) -(1697 read-block 1696 7 ()) -(1698 i/o #f #f ()) -(1699 write-unbuffered-block 1698 7 ()) -(1700 loop##128 1699 40 ()) +(1697 write-unbuffered-block 1696 7 ()) +(1698 loop##128 1697 40 ()) +(1699 i/o #f #f ()) +(1700 write-buffered-block 1699 7 ()) (1701 i/o #f #f ()) -(1702 write-buffered-block 1701 7 ()) +(1702 write-block 1701 7 ()) (1703 i/o #f #f ()) -(1704 write-block 1703 7 ()) +(1704 write-string 1703 7 ()) (1705 i/o #f #f ()) -(1706 write-string 1705 7 ()) +(1706 force-output 1705 7 ()) (1707 i/o #f #f ()) -(1708 force-output 1707 7 ()) +(1708 force-output-if-open 1707 7 ()) (1709 i/o #f #f ()) -(1710 force-output-if-open 1709 7 ()) +(1710 okay-buffer? 1709 7 ()) (1711 i/o #f #f ()) -(1712 okay-buffer? 1711 7 ()) +(1712 make-input-port 1711 7 ()) (1713 i/o #f #f ()) -(1714 make-input-port 1713 7 ()) +(1714 make-output-port 1713 7 ()) (1715 i/o #f #f ()) -(1716 make-output-port 1715 7 ()) +(1716 make-unbuffered-output-port 1715 7 ()) (1717 i/o #f #f ()) -(1718 make-unbuffered-output-port 1717 7 ()) +(1718 make-null-output-port 1717 7 ()) (1719 i/o #f #f ()) -(1720 make-null-output-port 1719 7 ()) +(1720 initialize-output-port-list! 1719 7 ()) (1721 i/o #f #f ()) -(1722 initialize-output-port-list! 1721 7 ()) +(1722 periodically-force-output! 1721 7 ()) (1723 i/o #f #f ()) -(1724 periodically-force-output! 1723 7 ()) -(1725 i/o #f #f ()) -(1726 make-forcing-thunk 1725 7 ()) -(1727 #f 1726 6 ()) -(1728 #f 1727 7 ()) -(1729 #f 1727 46 ()) -(1730 i/o #f #f ()) -(1731 output-port-forcers 1730 7 ()) -(1732 loop 1731 30 ()) -(1733 i/o #f #f ()) -(1734 periodically-flushed-ports 1733 7 ()) -(1735 loop 1734 35 ()) -(1736 i/o #f #f ()) -(1737 really-steal-port! 1736 7 ()) -(1738 #f 1737 158 ()) +(1724 make-forcing-thunk 1723 7 ()) +(1725 #f 1724 6 ()) +(1726 #f 1725 7 ()) +(1727 #f 1725 46 ()) +(1728 i/o #f #f ()) +(1729 output-port-forcers 1728 7 ()) +(1730 loop 1729 30 ()) +(1731 i/o #f #f ()) +(1732 periodically-flushed-ports 1731 7 ()) +(1733 loop 1732 35 ()) +(1734 i/o #f #f ()) +(1735 really-steal-port! 1734 7 ()) +(1736 #f 1735 158 ()) +(1737 i/o #f #f ()) +(1738 steal-port! 1737 7 ()) (1739 i/o #f #f ()) -(1740 steal-port! 1739 7 ()) +(1740 current-output-port 1739 7 ()) (1741 i/o #f #f ()) -(1742 current-output-port 1741 7 ()) +(1742 current-error-port 1741 7 ()) (1743 i/o #f #f ()) -(1744 current-error-port 1743 7 ()) +(1744 current-noise-port 1743 7 ()) (1745 i/o #f #f ()) -(1746 current-noise-port 1745 7 ()) +(1746 with-current-ports 1745 7 ()) (1747 i/o #f #f ()) -(1748 with-current-ports 1747 7 ()) +(1748 initialize-i/o 1747 7 ()) (1749 i/o #f #f ()) -(1750 initialize-i/o 1749 7 ()) +(1750 call-with-current-input-port 1749 7 ()) (1751 i/o #f #f ()) -(1752 call-with-current-input-port 1751 7 ()) +(1752 call-with-current-output-port 1751 7 ()) (1753 i/o #f #f ()) -(1754 call-with-current-output-port 1753 7 ()) +(1754 call-with-current-noise-port 1753 7 ()) (1755 i/o #f #f ()) -(1756 call-with-current-noise-port 1755 7 ()) +(1756 silently 1755 7 ()) (1757 i/o #f #f ()) -(1758 silently 1757 7 ()) +(1758 output-port-option 1757 7 ()) (1759 i/o #f #f ()) -(1760 output-port-option 1759 7 ()) +(1760 newline 1759 7 ()) (1761 i/o #f #f ()) -(1762 newline 1761 7 ()) +(1762 i/o #f #f ()) (1763 i/o #f #f ()) -(1764 i/o #f #f ()) -(1765 i/o #f #f ()) -(1766 writing #f #f ()) -(1767 display 1766 7 ()) -(1768 recur 1767 36 ()) -(1769 writing #f #f ()) -(1770 display-type-name 1769 7 ()) -(1771 loop##135 1770 90 ()) -(1772 writing #f #f ()) -(1773 write-other 1772 7 ()) -(1774 #f 1773 73 ()) -(1775 writing #f #f ()) -(1776 write-vector 1775 7 ()) -(1777 loop 1776 76 ()) +(1764 writing #f #f ()) +(1765 display 1764 7 ()) +(1766 recur 1765 36 ()) +(1767 writing #f #f ()) +(1768 display-type-name 1767 7 ()) +(1769 loop##135 1768 90 ()) +(1770 writing #f #f ()) +(1771 write-other 1770 7 ()) +(1772 #f 1771 73 ()) +(1773 writing #f #f ()) +(1774 write-vector 1773 7 ()) +(1775 loop 1774 76 ()) +(1776 writing #f #f ()) +(1777 quotation? 1776 7 ()) (1778 writing #f #f ()) -(1779 quotation? 1778 7 ()) -(1780 writing #f #f ()) -(1781 write-list 1780 7 ()) -(1782 loop 1781 92 ()) -(1783 writing #f #f ()) -(1784 write-string-literal 1783 7 ()) -(1785 loop##139 1784 26 ()) +(1779 write-list 1778 7 ()) +(1780 loop 1779 92 ()) +(1781 writing #f #f ()) +(1782 write-string-literal 1781 7 ()) +(1783 loop##139 1782 26 ()) +(1784 writing #f #f ()) +(1785 character-name 1784 7 ()) (1786 writing #f #f ()) -(1787 character-name 1786 7 ()) +(1787 write-char-literal 1786 7 ()) (1788 writing #f #f ()) -(1789 write-char-literal 1788 7 ()) +(1789 write-number 1788 7 ()) (1790 writing #f #f ()) -(1791 write-number 1790 7 ()) +(1791 write-boolean 1790 7 ()) (1792 writing #f #f ()) -(1793 write-boolean 1792 7 ()) +(1793 recurring-write 1792 7 ()) (1794 writing #f #f ()) -(1795 recurring-write 1794 7 ()) -(1796 writing #f #f ()) -(1797 write 1796 7 ()) -(1798 recur 1797 36 ()) +(1795 write 1794 7 ()) +(1796 recur 1795 36 ()) +(1797 reading #f #f ()) +(1798 loop##141 1797 40 ()) (1799 reading #f #f ()) -(1800 loop##141 1799 40 ()) -(1801 reading #f #f ()) -(1802 reading #f #f ()) -(1803 #f 1802 15 ()) -(1804 readc 1803 8 ()) -(1805 read-digit 1803 16 ()) -(1806 loop 1803 41 ()) +(1800 reading #f #f ()) +(1801 #f 1800 15 ()) +(1802 readc 1801 8 ()) +(1803 read-digit 1801 16 ()) +(1804 loop 1801 41 ()) +(1805 reading #f #f ()) +(1806 reading #f #f ()) (1807 reading #f #f ()) (1808 reading #f #f ()) (1809 reading #f #f ()) (1810 reading #f #f ()) (1811 reading #f #f ()) -(1812 reading #f #f ()) +(1812 #f 1811 13 ()) (1813 reading #f #f ()) -(1814 #f 1813 13 ()) -(1815 reading #f #f ()) -(1816 reading #f #f ()) -(1817 number-sharp-macro 1816 7 ()) -(1818 #f 1816 15 ()) +(1814 reading #f #f ()) +(1815 number-sharp-macro 1814 7 ()) +(1816 #f 1814 15 ()) +(1817 reading #f #f ()) +(1818 #f 1817 11 ()) (1819 reading #f #f ()) (1820 #f 1819 11 ()) (1821 reading #f #f ()) @@ -3848,9 +3847,9 @@ (1823 reading #f #f ()) (1824 #f 1823 11 ()) (1825 reading #f #f ()) -(1826 #f 1825 11 ()) +(1826 #f 1825 13 ()) (1827 reading #f #f ()) -(1828 #f 1827 13 ()) +(1828 #f 1827 15 ()) (1829 reading #f #f ()) (1830 #f 1829 15 ()) (1831 reading #f #f ()) @@ -3860,275 +3859,275 @@ (1835 reading #f #f ()) (1836 #f 1835 15 ()) (1837 reading #f #f ()) -(1838 #f 1837 15 ()) -(1839 reading #f #f ()) -(1840 reading #f #f ()) -(1841 sub-read-constituent 1840 7 ()) -(1842 #f 1840 15 ()) -(1843 reading #f #f ()) -(1844 sub-read-whitespace 1843 7 ()) -(1845 #f 1843 15 ()) -(1846 reading #f #f ()) +(1838 reading #f #f ()) +(1839 sub-read-constituent 1838 7 ()) +(1840 #f 1838 15 ()) +(1841 reading #f #f ()) +(1842 sub-read-whitespace 1841 7 ()) +(1843 #f 1841 15 ()) +(1844 reading #f #f ()) +(1845 reading #f #f ()) +(1846 #f 1845 11 ()) (1847 reading #f #f ()) -(1848 #f 1847 11 ()) +(1848 reading #f #f ()) (1849 reading #f #f ()) (1850 reading #f #f ()) -(1851 reading #f #f ()) +(1851 preferred-case 1850 7 ()) (1852 reading #f #f ()) -(1853 preferred-case 1852 7 ()) +(1853 reader-token? 1852 7 ()) (1854 reading #f #f ()) -(1855 reader-token? 1854 7 ()) +(1855 reading-error 1854 7 ()) (1856 reading #f #f ()) -(1857 reading-error 1856 7 ()) +(1857 sub-read 1856 7 ()) (1858 reading #f #f ()) -(1859 sub-read 1858 7 ()) -(1860 reading #f #f ()) -(1861 read 1860 7 ()) -(1862 loop 1861 33 ()) -(1863 reading #f #f ()) -(1864 script-skip 1863 7 ()) -(1865 lp 1864 23 ()) -(1866 advance-if 1865 6 ()) +(1859 read 1858 7 ()) +(1860 loop 1859 33 ()) +(1861 reading #f #f ()) +(1862 script-skip 1861 7 ()) +(1863 lp 1862 23 ()) +(1864 advance-if 1863 6 ()) +(1865 reading #f #f ()) +(1866 sub-read-carefully 1865 7 ()) (1867 reading #f #f ()) -(1868 sub-read-carefully 1867 7 ()) +(1868 make-reader-token 1867 7 ()) (1869 reading #f #f ()) -(1870 make-reader-token 1869 7 ()) +(1870 set-standard-syntax! 1869 7 ()) (1871 reading #f #f ()) -(1872 set-standard-syntax! 1871 7 ()) +(1872 set-standard-read-macro! 1871 7 ()) (1873 reading #f #f ()) -(1874 set-standard-read-macro! 1873 7 ()) -(1875 reading #f #f ()) -(1876 sub-read-list 1875 7 ()) -(1877 recur 1876 56 ()) -(1878 reading #f #f ()) -(1879 gobble-line 1878 7 ()) -(1880 loop 1879 15 ()) +(1874 sub-read-list 1873 7 ()) +(1875 recur 1874 56 ()) +(1876 reading #f #f ()) +(1877 gobble-line 1876 7 ()) +(1878 loop 1877 15 ()) +(1879 reading #f #f ()) +(1880 define-sharp-macro 1879 7 ()) (1881 reading #f #f ()) -(1882 define-sharp-macro 1881 7 ()) -(1883 reading #f #f ()) -(1884 sub-read-token 1883 7 ()) -(1885 loop 1884 32 ()) +(1882 sub-read-token 1881 7 ()) +(1883 loop 1882 32 ()) +(1884 reading #f #f ()) +(1885 parse-token 1884 7 ()) (1886 reading #f #f ()) -(1887 parse-token 1886 7 ()) -(1888 reading #f #f ()) -(1889 reading #f #f ()) +(1887 reading #f #f ()) +(1888 channels #f #f ()) +(1889 close-output-channel 1888 7 ()) (1890 channels #f #f ()) -(1891 close-output-channel 1890 7 ()) +(1891 close-input-channel 1890 7 ()) (1892 channels #f #f ()) -(1893 close-input-channel 1892 7 ()) +(1893 open-output-channel 1892 7 ()) (1894 channels #f #f ()) -(1895 open-output-channel 1894 7 ()) +(1895 open-input-channel 1894 7 ()) (1896 channels #f #f ()) -(1897 open-input-channel 1896 7 ()) +(1897 output-channel? 1896 7 ()) (1898 channels #f #f ()) -(1899 output-channel? 1898 7 ()) -(1900 channels #f #f ()) -(1901 input-channel? 1900 7 ()) -(1902 channel-i/o #f #f ()) -(1903 fetch-channel-wait-queue! 1902 7 ()) -(1904 loop 1903 113 ()) +(1899 input-channel? 1898 7 ()) +(1900 channel-i/o #f #f ()) +(1901 fetch-channel-wait-queue! 1900 7 ()) +(1902 loop 1901 113 ()) +(1903 channel-i/o #f #f ()) +(1904 add-channel-wait-queue! 1903 7 ()) (1905 channel-i/o #f #f ()) -(1906 add-channel-wait-queue! 1905 7 ()) -(1907 channel-i/o #f #f ()) +(1906 channel-i/o #f #f ()) +(1907 decrement-channel-wait-count! 1906 7 ()) (1908 channel-i/o #f #f ()) -(1909 decrement-channel-wait-count! 1908 7 ()) +(1909 increment-channel-wait-count! 1908 7 ()) (1910 channel-i/o #f #f ()) -(1911 increment-channel-wait-count! 1910 7 ()) +(1911 channel-wait-count 1910 7 ()) (1912 channel-i/o #f #f ()) -(1913 channel-wait-count 1912 7 ()) -(1914 channel-i/o #f #f ()) +(1913 channel-i/o #f #f ()) +(1914 #f 1913 11 ()) (1915 channel-i/o #f #f ()) (1916 #f 1915 11 ()) (1917 channel-i/o #f #f ()) -(1918 #f 1917 11 ()) +(1918 steal-channel! 1917 7 ()) (1919 channel-i/o #f #f ()) -(1920 steal-channel! 1919 7 ()) +(1920 nothing 1919 7 ()) (1921 channel-i/o #f #f ()) -(1922 nothing 1921 7 ()) -(1923 channel-i/o #f #f ()) -(1924 wait-for-channel 1923 7 ()) -(1925 #f 1924 135 ()) +(1922 wait-for-channel 1921 7 ()) +(1923 #f 1922 135 ()) +(1924 channel-i/o #f #f ()) +(1925 waiting-for-i/o? 1924 7 ()) (1926 channel-i/o #f #f ()) -(1927 waiting-for-i/o? 1926 7 ()) +(1927 i/o-completion-handler 1926 7 ()) (1928 channel-i/o #f #f ()) -(1929 i/o-completion-handler 1928 7 ()) +(1929 initialize-channel-i/o! 1928 7 ()) (1930 channel-i/o #f #f ()) -(1931 initialize-channel-i/o! 1930 7 ()) -(1932 channel-i/o #f #f ()) -(1933 really-steal-channel-port! 1932 7 ()) -(1934 #f 1933 154 ()) +(1931 really-steal-channel-port! 1930 7 ()) +(1932 #f 1931 154 ()) +(1933 channel-i/o #f #f ()) +(1934 steal-channel-port! 1933 7 ()) (1935 channel-i/o #f #f ()) -(1936 steal-channel-port! 1935 7 ()) -(1937 channel-i/o #f #f ()) -(1938 force-channel-output-ports! 1937 7 ()) -(1939 #f 1938 3 ()) -(1940 channel-i/o #f #f ()) -(1941 with-output-to-file 1940 7 ()) -(1942 #f 1941 9 ()) -(1943 channel-i/o #f #f ()) -(1944 with-input-from-file 1943 7 ()) -(1945 #f 1944 9 ()) +(1936 force-channel-output-ports! 1935 7 ()) +(1937 #f 1936 3 ()) +(1938 channel-i/o #f #f ()) +(1939 with-output-to-file 1938 7 ()) +(1940 #f 1939 9 ()) +(1941 channel-i/o #f #f ()) +(1942 with-input-from-file 1941 7 ()) +(1943 #f 1942 9 ()) +(1944 channel-i/o #f #f ()) +(1945 call-with-output-file 1944 7 ()) (1946 channel-i/o #f #f ()) -(1947 call-with-output-file 1946 7 ()) +(1947 call-with-input-file 1946 7 ()) (1948 channel-i/o #f #f ()) -(1949 call-with-input-file 1948 7 ()) +(1949 open-output-file 1948 7 ()) (1950 channel-i/o #f #f ()) -(1951 open-output-file 1950 7 ()) +(1951 open-input-file 1950 7 ()) (1952 channel-i/o #f #f ()) -(1953 open-input-file 1952 7 ()) +(1953 port->channel 1952 7 ()) (1954 channel-i/o #f #f ()) -(1955 port->channel 1954 7 ()) +(1955 channel-cell? 1954 7 ()) (1956 channel-i/o #f #f ()) -(1957 channel-cell? 1956 7 ()) +(1957 channel-cell-ref 1956 7 ()) (1958 channel-i/o #f #f ()) -(1959 channel-cell-ref 1958 7 ()) +(1959 channel-cell-closer 1958 7 ()) (1960 channel-i/o #f #f ()) -(1961 channel-cell-closer 1960 7 ()) +(1961 make-channel-cell 1960 7 ()) (1962 channel-i/o #f #f ()) -(1963 make-channel-cell 1962 7 ()) -(1964 channel-i/o #f #f ()) -(1965 channel-i/o #f #f ()) -(1966 maybe-force-output 1965 7 ()) -(1967 #f 1966 28 ()) +(1963 channel-i/o #f #f ()) +(1964 maybe-force-output 1963 7 ()) +(1965 #f 1964 28 ()) +(1966 channel-i/o #f #f ()) +(1967 real-output-channel->port 1966 7 ()) (1968 channel-i/o #f #f ()) -(1969 real-output-channel->port 1968 7 ()) +(1969 output-channel+closer->port 1968 7 ()) (1970 channel-i/o #f #f ()) -(1971 output-channel+closer->port 1970 7 ()) +(1971 output-channel->port 1970 7 ()) (1972 channel-i/o #f #f ()) -(1973 output-channel->port 1972 7 ()) -(1974 channel-i/o #f #f ()) -(1975 make-unbuffered-output-channel-handler 1974 7 ()) -(1976 #f 1975 15 ()) -(1977 #f 1975 20 ()) -(1978 #f 1975 25 ()) -(1979 #f 1975 30 ()) -(1980 channel-i/o #f #f ()) -(1981 #f 1980 11 ()) -(1982 #f 1980 16 ()) -(1983 #f 1980 21 ()) -(1984 #f 1980 26 ()) +(1973 make-unbuffered-output-channel-handler 1972 7 ()) +(1974 #f 1973 15 ()) +(1975 #f 1973 20 ()) +(1976 #f 1973 25 ()) +(1977 #f 1973 30 ()) +(1978 channel-i/o #f #f ()) +(1979 #f 1978 11 ()) +(1980 #f 1978 16 ()) +(1981 #f 1978 21 ()) +(1982 #f 1978 26 ()) +(1983 channel-i/o #f #f ()) +(1984 real-input-channel->port 1983 7 ()) (1985 channel-i/o #f #f ()) -(1986 real-input-channel->port 1985 7 ()) +(1986 input-channel+closer->port 1985 7 ()) (1987 channel-i/o #f #f ()) -(1988 input-channel+closer->port 1987 7 ()) +(1988 input-channel->port 1987 7 ()) (1989 channel-i/o #f #f ()) -(1990 input-channel->port 1989 7 ()) -(1991 channel-i/o #f #f ()) -(1992 #f 1991 11 ()) -(1993 #f 1991 16 ()) -(1994 #f 1991 21 ()) -(1995 #f 1991 26 ()) -(1996 scheme-level-2 #f #f ()) -(1997 features #f #f ()) +(1990 #f 1989 11 ()) +(1991 #f 1989 16 ()) +(1992 #f 1989 21 ()) +(1993 #f 1989 26 ()) +(1994 scheme-level-2 #f #f ()) +(1995 features #f #f ()) +(1996 tables #f #f ()) +(1997 tables #f #f ()) (1998 tables #f #f ()) (1999 tables #f #f ()) -(2000 tables #f #f ()) +(2000 make-table 1999 32 ()) (2001 tables #f #f ()) -(2002 make-table 2001 32 ()) +(2002 tables #f #f ()) (2003 tables #f #f ()) (2004 tables #f #f ()) (2005 tables #f #f ()) -(2006 tables #f #f ()) +(2006 set-table-size! 2005 7 ()) (2007 tables #f #f ()) -(2008 set-table-size! 2007 7 ()) +(2008 table-size 2007 7 ()) (2009 tables #f #f ()) -(2010 table-size 2009 7 ()) +(2010 set-table-data! 2009 7 ()) (2011 tables #f #f ()) -(2012 set-table-data! 2011 7 ()) +(2012 table-data 2011 7 ()) (2013 tables #f #f ()) -(2014 table-data 2013 7 ()) +(2014 set-table-ref-procedure! 2013 7 ()) (2015 tables #f #f ()) -(2016 set-table-ref-procedure! 2015 7 ()) +(2016 table-ref-procedure 2015 7 ()) (2017 tables #f #f ()) -(2018 table-ref-procedure 2017 7 ()) +(2018 set-table-set!-procedure! 2017 7 ()) (2019 tables #f #f ()) -(2020 set-table-set!-procedure! 2019 7 ()) +(2020 table-set!-procedure 2019 7 ()) (2021 tables #f #f ()) -(2022 table-set!-procedure 2021 7 ()) +(2022 really-make-table 2021 7 ()) (2023 tables #f #f ()) -(2024 really-make-table 2023 7 ()) -(2025 tables #f #f ()) +(2024 tables #f #f ()) +(2025 table? 2024 7 ()) (2026 tables #f #f ()) -(2027 table? 2026 7 ()) +(2027 table-ref 2026 7 ()) (2028 tables #f #f ()) -(2029 table-ref 2028 7 ()) +(2029 table-set! 2028 7 ()) (2030 tables #f #f ()) -(2031 table-set! 2030 7 ()) +(2031 next-table-size 2030 7 ()) (2032 tables #f #f ()) -(2033 next-table-size 2032 7 ()) -(2034 tables #f #f ()) -(2035 delete-entry! 2034 7 ()) -(2036 loop 2035 40 ()) +(2033 delete-entry! 2032 7 ()) +(2034 loop 2033 40 ()) +(2035 tables #f #f ()) +(2036 new-entry 2035 7 ()) (2037 tables #f #f ()) -(2038 new-entry 2037 7 ()) -(2039 tables #f #f ()) -(2040 make-linear-table-set! 2039 7 ()) -(2041 #f 2040 6 ()) +(2038 make-linear-table-set! 2037 7 ()) +(2039 #f 2038 6 ()) +(2040 tables #f #f ()) +(2041 table-expand-table! 2040 7 ()) (2042 tables #f #f ()) -(2043 table-expand-table! 2042 7 ()) -(2044 tables #f #f ()) -(2045 table-enter-alist! 2044 7 ()) -(2046 loop##169 2045 26 ()) -(2047 tables #f #f ()) -(2048 make-hash-table-ref 2047 7 ()) -(2049 #f 2048 6 ()) -(2050 tables #f #f ()) -(2051 expand-hash-table! 2050 7 ()) -(2052 loop##171 2051 52 ()) -(2053 tables #f #f ()) -(2054 make-hash-table-set! 2053 7 ()) -(2055 #f 2054 6 ()) -(2056 tables #f #f ()) -(2057 make->hash-table 2056 7 ()) -(2058 #f 2057 41 ()) -(2059 tables #f #f ()) -(2060 make-linear-table-ref 2059 7 ()) -(2061 #f 2060 6 ()) -(2062 tables #f #f ()) -(2063 assoc->table-maker 2062 7 ()) -(2064 #f 2063 60 ()) -(2065 tables #f #f ()) -(2066 make-assoc 2065 7 ()) -(2067 #f 2066 20 ()) -(2068 loop 2067 18 ()) +(2043 table-enter-alist! 2042 7 ()) +(2044 loop##169 2043 26 ()) +(2045 tables #f #f ()) +(2046 make-hash-table-ref 2045 7 ()) +(2047 #f 2046 6 ()) +(2048 tables #f #f ()) +(2049 expand-hash-table! 2048 7 ()) +(2050 loop##171 2049 52 ()) +(2051 tables #f #f ()) +(2052 make-hash-table-set! 2051 7 ()) +(2053 #f 2052 6 ()) +(2054 tables #f #f ()) +(2055 make->hash-table 2054 7 ()) +(2056 #f 2055 41 ()) +(2057 tables #f #f ()) +(2058 make-linear-table-ref 2057 7 ()) +(2059 #f 2058 6 ()) +(2060 tables #f #f ()) +(2061 assoc->table-maker 2060 7 ()) +(2062 #f 2061 60 ()) +(2063 tables #f #f ()) +(2064 make-assoc 2063 7 ()) +(2065 #f 2064 20 ()) +(2066 loop 2065 18 ()) +(2067 tables #f #f ()) +(2068 make-table-maker 2067 7 ()) (2069 tables #f #f ()) -(2070 make-table-maker 2069 7 ()) -(2071 tables #f #f ()) -(2072 alist-walk 2071 7 ()) -(2073 loop##173 2072 11 ()) -(2074 tables #f #f ()) -(2075 really-table-walk 2074 7 ()) -(2076 loop##176 2075 63 ()) -(2077 tables #f #f ()) -(2078 table-walk 2077 7 ()) -(2079 #f 2078 6 ()) +(2070 alist-walk 2069 7 ()) +(2071 loop##173 2070 11 ()) +(2072 tables #f #f ()) +(2073 really-table-walk 2072 7 ()) +(2074 loop##176 2073 63 ()) +(2075 tables #f #f ()) +(2076 table-walk 2075 7 ()) +(2077 #f 2076 6 ()) +(2078 tables #f #f ()) +(2079 make-table-immutable! 2078 7 ()) (2080 tables #f #f ()) -(2081 make-table-immutable! 2080 7 ()) -(2082 tables #f #f ()) -(2083 table->entry-list 2082 7 ()) -(2084 #f 2083 17 ()) +(2081 table->entry-list 2080 7 ()) +(2082 #f 2081 17 ()) +(2083 tables #f #f ()) +(2084 default-table-hash-function 2083 7 ()) (2085 tables #f #f ()) -(2086 default-table-hash-function 2085 7 ()) +(2086 default-table-assoc 2085 7 ()) (2087 tables #f #f ()) -(2088 default-table-assoc 2087 7 ()) +(2088 symbol-hash 2087 7 ()) (2089 tables #f #f ()) -(2090 symbol-hash 2089 7 ()) -(2091 tables #f #f ()) -(2092 tables #f #f ()) -(2093 weak #f #f ()) -(2094 walk-population 2093 7 ()) -(2095 #f 2094 6 ()) +(2090 tables #f #f ()) +(2091 weak #f #f ()) +(2092 walk-population 2091 7 ()) +(2093 #f 2092 6 ()) +(2094 weak #f #f ()) +(2095 population->list 2094 7 ()) (2096 weak #f #f ()) -(2097 population->list 2096 7 ()) -(2098 weak #f #f ()) -(2099 population-reduce 2098 7 ()) -(2100 loop##178 2099 11 ()) +(2097 population-reduce 2096 7 ()) +(2098 loop##178 2097 11 ()) +(2099 weak #f #f ()) +(2100 weak-memq 2099 7 ()) (2101 weak #f #f ()) -(2102 weak-memq 2101 7 ()) +(2102 add-to-population! 2101 7 ()) (2103 weak #f #f ()) -(2104 add-to-population! 2103 7 ()) -(2105 weak #f #f ()) -(2106 make-population 2105 7 ()) +(2104 make-population 2103 7 ()) +(2105 meta-types #f #f ()) +(2106 meta-types #f #f ()) (2107 meta-types #f #f ()) (2108 meta-types #f #f ()) (2109 meta-types #f #f ()) @@ -4157,9 +4156,9 @@ (2132 meta-types #f #f ()) (2133 meta-types #f #f ()) (2134 meta-types #f #f ()) -(2135 meta-types #f #f ()) +(2135 loop 2134 28 ()) (2136 meta-types #f #f ()) -(2137 loop 2136 28 ()) +(2137 meta-types #f #f ()) (2138 meta-types #f #f ()) (2139 meta-types #f #f ()) (2140 meta-types #f #f ()) @@ -4178,693 +4177,693 @@ (2153 meta-types #f #f ()) (2154 meta-types #f #f ()) (2155 meta-types #f #f ()) -(2156 meta-types #f #f ()) +(2156 #f 2155 11 ()) (2157 meta-types #f #f ()) -(2158 #f 2157 11 ()) +(2158 type-mask 2157 7 ()) (2159 meta-types #f #f ()) -(2160 type-mask 2159 7 ()) +(2160 type-more 2159 7 ()) (2161 meta-types #f #f ()) -(2162 type-more 2161 7 ()) +(2162 type-info 2161 7 ()) (2163 meta-types #f #f ()) -(2164 type-info 2163 7 ()) +(2164 really-make-type 2163 7 ()) (2165 meta-types #f #f ()) -(2166 really-make-type 2165 7 ()) -(2167 meta-types #f #f ()) +(2166 meta-types #f #f ()) +(2167 meta-type? 2166 7 ()) (2168 meta-types #f #f ()) -(2169 meta-type? 2168 7 ()) +(2169 make-type 2168 7 ()) (2170 meta-types #f #f ()) -(2171 make-type 2170 7 ()) +(2171 set-type-name! 2170 7 ()) (2172 meta-types #f #f ()) -(2173 set-type-name! 2172 7 ()) +(2173 make-other-type 2172 7 ()) (2174 meta-types #f #f ()) -(2175 make-other-type 2174 7 ()) +(2175 name->type 2174 7 ()) (2176 meta-types #f #f ()) -(2177 name->type 2176 7 ()) +(2177 new-type-bit 2176 7 ()) (2178 meta-types #f #f ()) -(2179 new-type-bit 2178 7 ()) +(2179 mask->type 2178 7 ()) (2180 meta-types #f #f ()) -(2181 mask->type 2180 7 ()) +(2181 bottom-type? 2180 7 ()) (2182 meta-types #f #f ()) -(2183 bottom-type? 2182 7 ()) +(2183 new-atomic-type 2182 7 ()) (2184 meta-types #f #f ()) -(2185 new-atomic-type 2184 7 ()) +(2185 named-atomic-type 2184 7 ()) (2186 meta-types #f #f ()) -(2187 named-atomic-type 2186 7 ()) +(2187 empty-rail-type? 2186 7 ()) (2188 meta-types #f #f ()) -(2189 empty-rail-type? 2188 7 ()) +(2189 rest-type? 2188 7 ()) (2190 meta-types #f #f ()) -(2191 rest-type? 2190 7 ()) +(2191 same-type? 2190 7 ()) (2192 meta-types #f #f ()) -(2193 same-type? 2192 7 ()) +(2193 head-type 2192 7 ()) (2194 meta-types #f #f ()) -(2195 head-type 2194 7 ()) +(2195 optional-type? 2194 7 ()) (2196 meta-types #f #f ()) -(2197 optional-type? 2196 7 ()) +(2197 rail-type 2196 7 ()) (2198 meta-types #f #f ()) -(2199 rail-type 2198 7 ()) +(2199 make-optional-type 2198 7 ()) (2200 meta-types #f #f ()) -(2201 make-optional-type 2200 7 ()) +(2201 make-rest-type 2200 7 ()) (2202 meta-types #f #f ()) -(2203 make-rest-type 2202 7 ()) +(2203 head-type-really 2202 7 ()) (2204 meta-types #f #f ()) -(2205 head-type-really 2204 7 ()) +(2205 tail-type 2204 7 ()) (2206 meta-types #f #f ()) -(2207 tail-type 2206 7 ()) +(2207 value-type? 2206 7 ()) (2208 meta-types #f #f ()) -(2209 value-type? 2208 7 ()) +(2209 other-type-info 2208 7 ()) (2210 meta-types #f #f ()) -(2211 other-type-info 2210 7 ()) +(2211 restrictive? 2210 7 ()) (2212 meta-types #f #f ()) -(2213 restrictive? 2212 7 ()) +(2213 make-procedure-type 2212 7 ()) (2214 meta-types #f #f ()) -(2215 make-procedure-type 2214 7 ()) +(2215 procedure-type-domain 2214 7 ()) (2216 meta-types #f #f ()) -(2217 procedure-type-domain 2216 7 ()) +(2217 procedure-type-codomain 2216 7 ()) (2218 meta-types #f #f ()) -(2219 procedure-type-codomain 2218 7 ()) +(2219 meet-procedure 2218 7 ()) (2220 meta-types #f #f ()) -(2221 meet-procedure 2220 7 ()) +(2221 meet-rail 2220 7 ()) (2222 meta-types #f #f ()) -(2223 meet-rail 2222 7 ()) +(2223 meet-type 2222 7 ()) (2224 meta-types #f #f ()) -(2225 meet-type 2224 7 ()) +(2225 subtype? 2224 7 ()) (2226 meta-types #f #f ()) -(2227 subtype? 2226 7 ()) +(2227 meet-procedure? 2226 7 ()) (2228 meta-types #f #f ()) -(2229 meet-procedure? 2228 7 ()) +(2229 meet? 2228 7 ()) (2230 meta-types #f #f ()) -(2231 meet? 2230 7 ()) +(2231 procedure-type? 2230 7 ()) (2232 meta-types #f #f ()) -(2233 procedure-type? 2232 7 ()) +(2233 join-procedure 2232 7 ()) (2234 meta-types #f #f ()) -(2235 join-procedure 2234 7 ()) +(2235 join-rail 2234 7 ()) (2236 meta-types #f #f ()) -(2237 join-rail 2236 7 ()) +(2237 join-type 2236 7 ()) (2238 meta-types #f #f ()) -(2239 join-type 2238 7 ()) +(2239 procedure-type 2238 7 ()) (2240 meta-types #f #f ()) -(2241 procedure-type 2240 7 ()) +(2241 sexp->values-type 2240 7 ()) (2242 meta-types #f #f ()) -(2243 sexp->values-type 2242 7 ()) -(2244 meta-types #f #f ()) -(2245 sexp->type 2244 7 ()) -(2246 #f 2245 285 ()) -(2247 #f 2245 349 ()) +(2243 sexp->type 2242 7 ()) +(2244 #f 2243 285 ()) +(2245 #f 2243 349 ()) +(2246 meta-types #f #f ()) +(2247 disjoin-rest 2246 7 ()) (2248 meta-types #f #f ()) -(2249 disjoin-rest 2248 7 ()) -(2250 meta-types #f #f ()) -(2251 disjoin-type 2250 7 ()) -(2252 loop##197 2251 262 ()) +(2249 disjoin-type 2248 7 ()) +(2250 loop##197 2249 262 ()) +(2251 meta-types #f #f ()) +(2252 atomic-type->sexp 2251 7 ()) (2253 meta-types #f #f ()) -(2254 atomic-type->sexp 2253 7 ()) -(2255 meta-types #f #f ()) -(2256 rail-type->sexp 2255 7 ()) -(2257 recur 2256 25 ()) -(2258 meta-types #f #f ()) -(2259 type->sexp 2258 7 ()) -(2260 #f 2259 141 ()) +(2254 rail-type->sexp 2253 7 ()) +(2255 recur 2254 25 ()) +(2256 meta-types #f #f ()) +(2257 type->sexp 2256 7 ()) +(2258 #f 2257 141 ()) +(2259 meta-types #f #f ()) +(2260 make-some-values-type 2259 7 ()) (2261 meta-types #f #f ()) -(2262 make-some-values-type 2261 7 ()) -(2263 meta-types #f #f ()) -(2264 fixed-arity-procedure-type? 2263 7 ()) -(2265 loop 2264 43 ()) -(2266 meta-types #f #f ()) -(2267 procedure-type-arity 2266 7 ()) -(2268 loop##200 2267 11 ()) -(2269 meta-types #f #f ()) -(2270 procedure-type-argument-types 2269 7 ()) -(2271 recur 2270 28 ()) +(2262 fixed-arity-procedure-type? 2261 7 ()) +(2263 loop 2262 43 ()) +(2264 meta-types #f #f ()) +(2265 procedure-type-arity 2264 7 ()) +(2266 loop##200 2265 11 ()) +(2267 meta-types #f #f ()) +(2268 procedure-type-argument-types 2267 7 ()) +(2269 recur 2268 28 ()) +(2270 meta-types #f #f ()) +(2271 variable-type 2270 7 ()) (2272 meta-types #f #f ()) -(2273 variable-type 2272 7 ()) +(2273 variable-type? 2272 7 ()) (2274 meta-types #f #f ()) -(2275 variable-type? 2274 7 ()) +(2275 compatible-types? 2274 7 ()) (2276 meta-types #f #f ()) -(2277 compatible-types? 2276 7 ()) +(2277 meta-types #f #f ()) (2278 meta-types #f #f ()) -(2279 meta-types #f #f ()) -(2280 meta-types #f #f ()) +(2279 interfaces #f #f ()) +(2280 #f 2279 7 ()) (2281 interfaces #f #f ()) -(2282 #f 2281 7 ()) +(2282 ref-method 2281 7 ()) (2283 interfaces #f #f ()) -(2284 ref-method 2283 7 ()) +(2284 walk-method 2283 7 ()) (2285 interfaces #f #f ()) -(2286 walk-method 2285 7 ()) +(2286 interface-clients 2285 7 ()) (2287 interfaces #f #f ()) -(2288 interface-clients 2287 7 ()) +(2288 set-interface-name! 2287 7 ()) (2289 interfaces #f #f ()) -(2290 set-interface-name! 2289 7 ()) +(2290 interface-name 2289 7 ()) (2291 interfaces #f #f ()) -(2292 interface-name 2291 7 ()) +(2292 really-make-interface 2291 7 ()) (2293 interfaces #f #f ()) -(2294 really-make-interface 2293 7 ()) -(2295 interfaces #f #f ()) +(2294 interfaces #f #f ()) +(2295 interface? 2294 7 ()) (2296 interfaces #f #f ()) -(2297 interface? 2296 7 ()) +(2297 interface-ref 2296 7 ()) (2298 interfaces #f #f ()) -(2299 interface-ref 2298 7 ()) +(2299 for-each-declaration 2298 7 ()) (2300 interfaces #f #f ()) -(2301 for-each-declaration 2300 7 ()) +(2301 note-reference-to-interface! 2300 7 ()) (2302 interfaces #f #f ()) -(2303 note-reference-to-interface! 2302 7 ()) +(2303 make-interface 2302 7 ()) (2304 interfaces #f #f ()) -(2305 make-interface 2304 7 ()) -(2306 interfaces #f #f ()) -(2307 really-make-simple-interface 2306 7 ()) -(2308 #f 2307 6 ()) -(2309 #f 2307 11 ()) -(2310 interfaces #f #f ()) -(2311 make-simple-interface 2310 7 ()) -(2312 #f 2311 23 ()) -(2313 #f 2312 66 ()) -(2314 interfaces #f #f ()) -(2315 make-compound-interface 2314 7 ()) -(2316 #f 2315 12 ()) -(2317 loop 2316 18 ()) -(2318 #f 2315 17 ()) -(2319 #f 2318 6 ()) -(2320 #f 2315 38 ()) -(2321 interfaces #f #f ()) -(2322 note-interface-name! 2321 7 ()) -(2323 bindings #f #f ()) +(2305 really-make-simple-interface 2304 7 ()) +(2306 #f 2305 6 ()) +(2307 #f 2305 11 ()) +(2308 interfaces #f #f ()) +(2309 make-simple-interface 2308 7 ()) +(2310 #f 2309 23 ()) +(2311 #f 2310 66 ()) +(2312 interfaces #f #f ()) +(2313 make-compound-interface 2312 7 ()) +(2314 #f 2313 12 ()) +(2315 loop 2314 18 ()) +(2316 #f 2313 17 ()) +(2317 #f 2316 6 ()) +(2318 #f 2313 38 ()) +(2319 interfaces #f #f ()) +(2320 note-interface-name! 2319 7 ()) +(2321 bindings #f #f ()) +(2322 bindings #f #f ()) +(2323 binding-type 2322 7 ()) (2324 bindings #f #f ()) -(2325 binding-type 2324 7 ()) +(2325 binding-place 2324 7 ()) (2326 bindings #f #f ()) -(2327 binding-place 2326 7 ()) +(2327 binding-static 2326 7 ()) (2328 bindings #f #f ()) -(2329 binding-static 2328 7 ()) +(2329 binding-path 2328 7 ()) (2330 bindings #f #f ()) -(2331 binding-path 2330 7 ()) +(2331 set-binding-place! 2330 7 ()) (2332 bindings #f #f ()) -(2333 set-binding-place! 2332 7 ()) +(2333 make-binding 2332 7 ()) (2334 bindings #f #f ()) -(2335 make-binding 2334 7 ()) +(2335 add-path 2334 7 ()) (2336 bindings #f #f ()) -(2337 add-path 2336 7 ()) +(2337 clobber-binding! 2336 7 ()) (2338 bindings #f #f ()) -(2339 clobber-binding! 2338 7 ()) +(2339 impose-type 2338 7 ()) (2340 bindings #f #f ()) -(2341 impose-type 2340 7 ()) +(2341 forget-integration 2340 7 ()) (2342 bindings #f #f ()) -(2343 forget-integration 2342 7 ()) +(2343 same-denotation? 2342 7 ()) (2344 bindings #f #f ()) -(2345 same-denotation? 2344 7 ()) +(2345 follow-forwarding-pointers 2344 7 ()) (2346 bindings #f #f ()) -(2347 follow-forwarding-pointers 2346 7 ()) -(2348 bindings #f #f ()) -(2349 maybe-fix-place! 2348 7 ()) +(2347 maybe-fix-place! 2346 7 ()) +(2348 names #f #f ()) +(2349 #f 2348 7 ()) (2350 names #f #f ()) -(2351 #f 2350 7 ()) +(2351 transform-procedure 2350 7 ()) (2352 names #f #f ()) -(2353 transform-procedure 2352 7 ()) +(2353 transform-env 2352 7 ()) (2354 names #f #f ()) -(2355 transform-env 2354 7 ()) +(2355 transform-type 2354 7 ()) (2356 names #f #f ()) -(2357 transform-type 2356 7 ()) +(2357 transform-aux-names 2356 7 ()) (2358 names #f #f ()) -(2359 transform-aux-names 2358 7 ()) +(2359 transform-source 2358 7 ()) (2360 names #f #f ()) -(2361 transform-source 2360 7 ()) +(2361 transform-id 2360 7 ()) (2362 names #f #f ()) -(2363 transform-id 2362 7 ()) +(2363 really-make-transform 2362 7 ()) (2364 names #f #f ()) -(2365 really-make-transform 2364 7 ()) +(2365 names #f #f ()) (2366 names #f #f ()) -(2367 names #f #f ()) +(2367 #f 2366 11 ()) (2368 names #f #f ()) -(2369 #f 2368 11 ()) +(2369 generated-symbol 2368 7 ()) (2370 names #f #f ()) -(2371 generated-symbol 2370 7 ()) +(2371 generated-token 2370 7 ()) (2372 names #f #f ()) -(2373 generated-token 2372 7 ()) +(2373 generated-env 2372 7 ()) (2374 names #f #f ()) -(2375 generated-env 2374 7 ()) +(2375 generated-parent-name 2374 7 ()) (2376 names #f #f ()) -(2377 generated-parent-name 2376 7 ()) +(2377 make-generated 2376 7 ()) (2378 names #f #f ()) -(2379 make-generated 2378 7 ()) -(2380 names #f #f ()) +(2379 names #f #f ()) +(2380 generated? 2379 7 ()) (2381 names #f #f ()) -(2382 generated? 2381 7 ()) +(2382 name? 2381 7 ()) (2383 names #f #f ()) -(2384 name? 2383 7 ()) +(2384 generate-name 2383 7 ()) (2385 names #f #f ()) -(2386 generate-name 2385 7 ()) +(2386 generated-uid 2385 7 ()) (2387 names #f #f ()) -(2388 generated-uid 2387 7 ()) +(2388 name->symbol 2387 7 ()) (2389 names #f #f ()) -(2390 name->symbol 2389 7 ()) +(2390 name-hash 2389 7 ()) (2391 names #f #f ()) -(2392 name-hash 2391 7 ()) -(2393 names #f #f ()) -(2394 desyntaxify 2393 7 ()) -(2395 loop 2394 267 ()) +(2392 desyntaxify 2391 7 ()) +(2393 loop 2392 267 ()) +(2394 names #f #f ()) +(2395 make-qualified 2394 7 ()) (2396 names #f #f ()) -(2397 make-qualified 2396 7 ()) +(2397 qualified? 2396 7 ()) (2398 names #f #f ()) -(2399 qualified? 2398 7 ()) +(2399 qualified-parent-name 2398 7 ()) (2400 names #f #f ()) -(2401 qualified-parent-name 2400 7 ()) +(2401 qualified-symbol 2400 7 ()) (2402 names #f #f ()) -(2403 qualified-symbol 2402 7 ()) +(2403 lookup 2402 7 ()) (2404 names #f #f ()) -(2405 lookup 2404 7 ()) +(2405 transform? 2404 7 ()) (2406 names #f #f ()) -(2407 transform? 2406 7 ()) -(2408 names #f #f ()) -(2409 qualify-parent 2408 7 ()) -(2410 recur 2409 18 ()) +(2407 qualify-parent 2406 7 ()) +(2408 recur 2407 18 ()) +(2409 names #f #f ()) +(2410 name->qualified 2409 7 ()) (2411 names #f #f ()) -(2412 name->qualified 2411 7 ()) +(2412 make-transform 2411 7 ()) (2413 names #f #f ()) -(2414 make-transform 2413 7 ()) +(2414 name->source-name 2413 7 ()) (2415 names #f #f ()) -(2416 name->source-name 2415 7 ()) -(2417 names #f #f ()) -(2418 make-keyword-comparator 2417 7 ()) -(2419 #f 2418 6 ()) -(2420 names #f #f ()) -(2421 make-name-generator 2420 7 ()) -(2422 #f 2421 13 ()) -(2423 names #f #f ()) -(2424 bind-aliases 2423 7 ()) -(2425 #f 2424 36 ()) +(2416 make-keyword-comparator 2415 7 ()) +(2417 #f 2416 6 ()) +(2418 names #f #f ()) +(2419 make-name-generator 2418 7 ()) +(2420 #f 2419 13 ()) +(2421 names #f #f ()) +(2422 bind-aliases 2421 7 ()) +(2423 #f 2422 36 ()) +(2424 names #f #f ()) +(2425 maybe-apply-macro-transform 2424 7 ()) (2426 names #f #f ()) -(2427 maybe-apply-macro-transform 2426 7 ()) +(2427 apply-inline-transform 2426 7 ()) (2428 names #f #f ()) -(2429 apply-inline-transform 2428 7 ()) -(2430 names #f #f ()) +(2429 compiler-envs #f #f ()) +(2430 compiler-envs #f #f ()) (2431 compiler-envs #f #f ()) (2432 compiler-envs #f #f ()) (2433 compiler-envs #f #f ()) -(2434 compiler-envs #f #f ()) +(2434 lookup 2433 7 ()) (2435 compiler-envs #f #f ()) -(2436 lookup 2435 7 ()) -(2437 compiler-envs #f #f ()) -(2438 bind1 2437 7 ()) -(2439 #f 2438 6 ()) +(2436 bind1 2435 7 ()) +(2437 #f 2436 6 ()) +(2438 compiler-envs #f #f ()) +(2439 bind 2438 7 ()) (2440 compiler-envs #f #f ()) -(2441 bind 2440 7 ()) -(2442 compiler-envs #f #f ()) -(2443 bindrec 2442 7 ()) -(2444 #f 2443 17 ()) -(2445 compiler-envs #f #f ()) -(2446 make-compiler-env 2445 7 ()) -(2447 #f 2446 6 ()) +(2441 bindrec 2440 7 ()) +(2442 #f 2441 17 ()) +(2443 compiler-envs #f #f ()) +(2444 make-compiler-env 2443 7 ()) +(2445 #f 2444 6 ()) +(2446 compiler-envs #f #f ()) +(2447 environment-macro-eval 2446 7 ()) (2448 compiler-envs #f #f ()) -(2449 environment-macro-eval 2448 7 ()) +(2449 environment-define! 2448 7 ()) (2450 compiler-envs #f #f ()) -(2451 environment-define! 2450 7 ()) +(2451 extract-package-from-environment 2450 7 ()) (2452 compiler-envs #f #f ()) -(2453 extract-package-from-environment 2452 7 ()) +(2453 bind-source-file-name 2452 7 ()) (2454 compiler-envs #f #f ()) -(2455 bind-source-file-name 2454 7 ()) -(2456 compiler-envs #f #f ()) -(2457 source-file-name 2456 7 ()) +(2455 source-file-name 2454 7 ()) +(2456 thingies #f #f ()) +(2457 thingie-binding 2456 7 ()) (2458 thingies #f #f ()) -(2459 thingie-binding 2458 7 ()) +(2459 thingie-name 2458 7 ()) (2460 thingies #f #f ()) -(2461 thingie-name 2460 7 ()) +(2461 thingie-want-type 2460 7 ()) (2462 thingies #f #f ()) -(2463 thingie-want-type 2462 7 ()) +(2463 make-thingie 2462 7 ()) (2464 thingies #f #f ()) -(2465 make-thingie 2464 7 ()) -(2466 thingies #f #f ()) -(2467 thingies #f #f ()) -(2468 thingie? 2467 7 ()) +(2465 thingies #f #f ()) +(2466 thingie? 2465 7 ()) +(2467 packages #f #f ()) +(2468 #f 2467 11 ()) (2469 packages #f #f ()) -(2470 #f 2469 11 ()) +(2470 packages #f #f ()) (2471 packages #f #f ()) (2472 packages #f #f ()) (2473 packages #f #f ()) (2474 packages #f #f ()) (2475 packages #f #f ()) (2476 packages #f #f ()) -(2477 packages #f #f ()) +(2477 #f 2476 11 ()) (2478 packages #f #f ()) -(2479 #f 2478 11 ()) +(2479 package-uid 2478 7 ()) (2480 packages #f #f ()) -(2481 package-uid 2480 7 ()) +(2481 set-package-opens! 2480 7 ()) (2482 packages #f #f ()) -(2483 set-package-opens! 2482 7 ()) +(2483 package-opens-really 2482 7 ()) (2484 packages #f #f ()) -(2485 package-opens-really 2484 7 ()) +(2485 package-definitions 2484 7 ()) (2486 packages #f #f ()) -(2487 package-definitions 2486 7 ()) +(2487 package-unstable? 2486 7 ()) (2488 packages #f #f ()) -(2489 package-unstable? 2488 7 ()) +(2489 set-package-integrate?! 2488 7 ()) (2490 packages #f #f ()) -(2491 set-package-integrate?! 2490 7 ()) +(2491 package-integrate? 2490 7 ()) (2492 packages #f #f ()) -(2493 package-integrate? 2492 7 ()) +(2493 set-package-get-location! 2492 7 ()) (2494 packages #f #f ()) -(2495 set-package-get-location! 2494 7 ()) +(2495 package-get-location 2494 7 ()) (2496 packages #f #f ()) -(2497 package-get-location 2496 7 ()) +(2497 package-file-name 2496 7 ()) (2498 packages #f #f ()) -(2499 package-file-name 2498 7 ()) +(2499 package-clauses 2498 7 ()) (2500 packages #f #f ()) -(2501 package-clauses 2500 7 ()) +(2501 set-package-loaded?! 2500 7 ()) (2502 packages #f #f ()) -(2503 set-package-loaded?! 2502 7 ()) +(2503 package-loaded? 2502 7 ()) (2504 packages #f #f ()) -(2505 package-loaded? 2504 7 ()) +(2505 set-package->environment! 2504 7 ()) (2506 packages #f #f ()) -(2507 set-package->environment! 2506 7 ()) +(2507 package->environment 2506 7 ()) (2508 packages #f #f ()) -(2509 package->environment 2508 7 ()) +(2509 set-package-opens-thunk! 2508 7 ()) (2510 packages #f #f ()) -(2511 set-package-opens-thunk! 2510 7 ()) +(2511 package-opens-thunk 2510 7 ()) (2512 packages #f #f ()) -(2513 package-opens-thunk 2512 7 ()) +(2513 package-accesses-thunk 2512 7 ()) (2514 packages #f #f ()) -(2515 package-accesses-thunk 2514 7 ()) +(2515 set-package-undefineds! 2514 7 ()) (2516 packages #f #f ()) -(2517 set-package-undefineds! 2516 7 ()) +(2517 package-real-undefineds 2516 7 ()) (2518 packages #f #f ()) -(2519 package-real-undefineds 2518 7 ()) +(2519 set-package-undefined-but-assigneds! 2518 7 ()) (2520 packages #f #f ()) -(2521 set-package-undefined-but-assigneds! 2520 7 ()) +(2521 package-real-undefined-but-assigneds 2520 7 ()) (2522 packages #f #f ()) -(2523 package-real-undefined-but-assigneds 2522 7 ()) +(2523 package-clients 2522 7 ()) (2524 packages #f #f ()) -(2525 package-clients 2524 7 ()) +(2525 package-cached 2524 7 ()) (2526 packages #f #f ()) -(2527 package-cached 2526 7 ()) +(2527 really-make-package 2526 7 ()) (2528 packages #f #f ()) -(2529 really-make-package 2528 7 ()) -(2530 packages #f #f ()) +(2529 packages #f #f ()) +(2530 #f 2529 11 ()) (2531 packages #f #f ()) -(2532 #f 2531 11 ()) +(2532 structure-interface-thunk 2531 7 ()) (2533 packages #f #f ()) -(2534 structure-interface-thunk 2533 7 ()) +(2534 set-structure-interface! 2533 7 ()) (2535 packages #f #f ()) -(2536 set-structure-interface! 2535 7 ()) +(2536 structure-interface-really 2535 7 ()) (2537 packages #f #f ()) -(2538 structure-interface-really 2537 7 ()) +(2538 structure-package 2537 7 ()) (2539 packages #f #f ()) -(2540 structure-package 2539 7 ()) +(2540 structure-clients 2539 7 ()) (2541 packages #f #f ()) -(2542 structure-clients 2541 7 ()) +(2542 set-structure-name! 2541 7 ()) (2543 packages #f #f ()) -(2544 set-structure-name! 2543 7 ()) +(2544 structure-name 2543 7 ()) (2545 packages #f #f ()) -(2546 structure-name 2545 7 ()) +(2546 really-make-structure 2545 7 ()) (2547 packages #f #f ()) -(2548 really-make-structure 2547 7 ()) -(2549 packages #f #f ()) +(2548 packages #f #f ()) +(2549 structure? 2548 7 ()) (2550 packages #f #f ()) -(2551 structure? 2550 7 ()) +(2551 initialize-structure! 2550 7 ()) (2552 packages #f #f ()) -(2553 initialize-structure! 2552 7 ()) +(2553 structure-interface 2552 7 ()) (2554 packages #f #f ()) -(2555 structure-interface 2554 7 ()) +(2555 package? 2554 7 ()) (2556 packages #f #f ()) -(2557 package? 2556 7 ()) +(2557 note-package-name! 2556 7 ()) (2558 packages #f #f ()) -(2559 note-package-name! 2558 7 ()) +(2559 note-structure-name! 2558 7 ()) (2560 packages #f #f ()) -(2561 note-structure-name! 2560 7 ()) -(2562 packages #f #f ()) -(2563 make-structure 2562 7 ()) -(2564 #f 2563 85 ()) +(2561 make-structure 2560 7 ()) +(2562 #f 2561 85 ()) +(2563 packages #f #f ()) +(2564 structure-unstable? 2563 7 ()) (2565 packages #f #f ()) -(2566 structure-unstable? 2565 7 ()) +(2566 get-new-location 2565 7 ()) (2567 packages #f #f ()) -(2568 get-new-location 2567 7 ()) +(2568 package-define! 2567 7 ()) (2569 packages #f #f ()) -(2570 package-define! 2569 7 ()) +(2570 package-accesses 2569 7 ()) (2571 packages #f #f ()) -(2572 package-accesses 2571 7 ()) -(2573 packages #f #f ()) -(2574 initialize-package! 2573 7 ()) -(2575 #f 2574 45 ()) -(2576 #f 2574 59 ()) +(2572 initialize-package! 2571 7 ()) +(2573 #f 2572 45 ()) +(2574 #f 2572 59 ()) +(2575 packages #f #f ()) +(2576 initialize-package-if-necessary! 2575 7 ()) (2577 packages #f #f ()) -(2578 initialize-package-if-necessary! 2577 7 ()) +(2578 package-definition 2577 7 ()) (2579 packages #f #f ()) -(2580 package-definition 2579 7 ()) -(2581 packages #f #f ()) -(2582 search-opens 2581 7 ()) -(2583 loop 2582 18 ()) +(2580 search-opens 2579 7 ()) +(2581 loop 2580 18 ()) +(2582 packages #f #f ()) +(2583 structure-lookup 2582 7 ()) (2584 packages #f #f ()) -(2585 structure-lookup 2584 7 ()) +(2585 package-lookup 2584 7 ()) (2586 packages #f #f ()) -(2587 package-lookup 2586 7 ()) +(2587 generic-lookup 2586 7 ()) (2588 packages #f #f ()) -(2589 generic-lookup 2588 7 ()) +(2589 really-package-lookup 2588 7 ()) (2590 packages #f #f ()) -(2591 really-package-lookup 2590 7 ()) +(2591 real-structure-lookup 2590 7 ()) (2592 packages #f #f ()) -(2593 real-structure-lookup 2592 7 ()) -(2594 packages #f #f ()) -(2595 for-each-export 2594 7 ()) -(2596 #f 2595 22 ()) -(2597 packages #f #f ()) -(2598 really-package->environment 2597 7 ()) -(2599 #f 2598 6 ()) -(2600 #f 2598 11 ()) +(2593 for-each-export 2592 7 ()) +(2594 #f 2593 22 ()) +(2595 packages #f #f ()) +(2596 really-package->environment 2595 7 ()) +(2597 #f 2596 6 ()) +(2598 #f 2596 11 ()) +(2599 packages #f #f ()) +(2600 new-package-uid 2599 7 ()) (2601 packages #f #f ()) -(2602 new-package-uid 2601 7 ()) +(2602 make-package 2601 7 ()) (2603 packages #f #f ()) -(2604 make-package 2603 7 ()) -(2605 packages #f #f ()) -(2606 lazy-table-accessor 2605 7 ()) -(2607 #f 2606 6 ()) +(2604 lazy-table-accessor 2603 7 ()) +(2605 #f 2604 6 ()) +(2606 packages #f #f ()) +(2607 package-name 2606 7 ()) (2608 packages #f #f ()) -(2609 package-name 2608 7 ()) +(2609 package-opens 2608 7 ()) (2610 packages #f #f ()) -(2611 package-opens 2610 7 ()) -(2612 packages #f #f ()) -(2613 make-simple-package 2612 7 ()) -(2614 #f 2613 65 ()) -(2615 #f 2613 70 ()) +(2611 make-simple-package 2610 7 ()) +(2612 #f 2611 65 ()) +(2613 #f 2611 70 ()) +(2614 packages #f #f ()) +(2615 package-add-static! 2614 7 ()) (2616 packages #f #f ()) -(2617 package-add-static! 2616 7 ()) +(2617 package-refine-type! 2616 7 ()) (2618 packages #f #f ()) -(2619 package-refine-type! 2618 7 ()) -(2620 packages #f #f ()) -(2621 for-each-definition 2620 7 ()) -(2622 #f 2621 6 ()) +(2619 for-each-definition 2618 7 ()) +(2620 #f 2619 6 ()) +(2621 packages #f #f ()) +(2622 make-new-location 2621 7 ()) (2623 packages #f #f ()) -(2624 make-new-location 2623 7 ()) +(2624 flush-location-names 2623 7 ()) (2625 packages #f #f ()) -(2626 flush-location-names 2625 7 ()) -(2627 packages #f #f ()) -(2628 print-undefined-names 2627 7 ()) -(2629 #f 2628 10 ()) -(2630 #f 2628 184 ()) -(2631 packages #f #f ()) -(2632 noting-undefined-variables 2631 7 ()) -(2633 add-name 2632 13 ()) -(2634 #f 2632 25 ()) -(2635 #f 2632 30 ()) +(2626 print-undefined-names 2625 7 ()) +(2627 #f 2626 10 ()) +(2628 #f 2626 184 ()) +(2629 packages #f #f ()) +(2630 noting-undefined-variables 2629 7 ()) +(2631 add-name 2630 13 ()) +(2632 #f 2630 25 ()) +(2633 #f 2630 30 ()) +(2634 #f 2633 3 ()) +(2635 #f 2633 11 ()) (2636 #f 2635 3 ()) -(2637 #f 2635 11 ()) -(2638 #f 2637 3 ()) +(2637 packages #f #f ()) +(2638 cenv->package 2637 7 ()) (2639 packages #f #f ()) -(2640 cenv->package 2639 7 ()) -(2641 packages #f #f ()) -(2642 get-location-for-unassignable 2641 7 ()) -(2643 #f 2642 98 ()) -(2644 #f 2642 103 ()) -(2645 packages #f #f ()) -(2646 package-note-caching! 2645 7 ()) -(2647 loop 2646 79 ()) +(2640 get-location-for-unassignable 2639 7 ()) +(2641 #f 2640 98 ()) +(2642 #f 2640 103 ()) +(2643 packages #f #f ()) +(2644 package-note-caching! 2643 7 ()) +(2645 loop 2644 79 ()) +(2646 packages #f #f ()) +(2647 note-caching! 2646 7 ()) (2648 packages #f #f ()) -(2649 note-caching! 2648 7 ()) -(2650 packages #f #f ()) -(2651 location-for-reference 2650 7 ()) -(2652 loop 2651 28 ()) -(2653 packages #f #f ()) -(2654 get-location-for-undefined 2653 7 ()) -(2655 #f 2654 105 ()) +(2649 location-for-reference 2648 7 ()) +(2650 loop 2649 28 ()) +(2651 packages #f #f ()) +(2652 get-location-for-undefined 2651 7 ()) +(2653 #f 2652 105 ()) +(2654 packages #f #f ()) +(2655 get-location 2654 7 ()) (2656 packages #f #f ()) -(2657 get-location 2656 7 ()) -(2658 packages #f #f ()) -(2659 really-link! 2658 7 ()) -(2660 loop##280 2659 11 ()) -(2661 packages #f #f ()) -(2662 link! 2661 7 ()) -(2663 #f 2662 14 ()) -(2664 packages #f #f ()) -(2665 location-on-demand 2664 7 ()) -(2666 #f 2665 6 ()) -(2667 packages #f #f ()) -(2668 packages #f #f ()) +(2657 really-link! 2656 7 ()) +(2658 loop##280 2657 11 ()) +(2659 packages #f #f ()) +(2660 link! 2659 7 ()) +(2661 #f 2660 14 ()) +(2662 packages #f #f ()) +(2663 location-on-demand 2662 7 ()) +(2664 #f 2663 6 ()) +(2665 packages #f #f ()) +(2666 packages #f #f ()) +(2667 environments #f #f ()) +(2668 set-reflective-tower-maker! 2667 28 ()) (2669 environments #f #f ()) -(2670 set-reflective-tower-maker! 2669 28 ()) -(2671 environments #f #f ()) -(2672 make-reflective-tower 2671 7 ()) -(2673 recur 2672 19 ()) -(2674 #f 2673 6 ()) +(2670 make-reflective-tower 2669 7 ()) +(2671 recur 2670 19 ()) +(2672 #f 2671 6 ()) +(2673 environments #f #f ()) +(2674 null-environment 2673 7 ()) (2675 environments #f #f ()) -(2676 null-environment 2675 7 ()) +(2676 set-scheme-report-environment! 2675 7 ()) (2677 environments #f #f ()) -(2678 set-scheme-report-environment! 2677 7 ()) +(2678 environments #f #f ()) (2679 environments #f #f ()) (2680 environments #f #f ()) -(2681 environments #f #f ()) +(2681 scheme-report-environment 2680 7 ()) (2682 environments #f #f ()) -(2683 scheme-report-environment 2682 7 ()) +(2683 with-interaction-environment 2682 7 ()) (2684 environments #f #f ()) -(2685 with-interaction-environment 2684 7 ()) +(2685 set-interaction-environment! 2684 7 ()) (2686 environments #f #f ()) -(2687 set-interaction-environment! 2686 7 ()) +(2687 interaction-environment 2686 7 ()) (2688 environments #f #f ()) -(2689 interaction-environment 2688 7 ()) -(2690 environments #f #f ()) +(2689 environments #f #f ()) +(2690 carefully 2689 7 ()) (2691 environments #f #f ()) -(2692 carefully 2691 7 ()) +(2692 *structure-ref 2691 7 ()) (2693 environments #f #f ()) -(2694 *structure-ref 2693 7 ()) +(2694 environment-define! 2693 7 ()) (2695 environments #f #f ()) -(2696 environment-define! 2695 7 ()) -(2697 environments #f #f ()) -(2698 environment-set! 2697 7 ()) -(2699 #f 2698 115 ()) -(2700 environments #f #f ()) -(2701 environment-ref 2700 7 ()) -(2702 #f 2701 22 ()) -(2703 filenames #f #f ()) -(2704 translate 2703 7 ()) -(2705 loop 2704 26 ()) +(2696 environment-set! 2695 7 ()) +(2697 #f 2696 115 ()) +(2698 environments #f #f ()) +(2699 environment-ref 2698 7 ()) +(2700 #f 2699 22 ()) +(2701 filenames #f #f ()) +(2702 translate 2701 7 ()) +(2703 loop 2702 26 ()) +(2704 filenames #f #f ()) +(2705 set-translation! 2704 7 ()) (2706 filenames #f #f ()) -(2707 set-translation! 2706 7 ()) +(2707 translations 2706 7 ()) (2708 filenames #f #f ()) -(2709 translations 2708 7 ()) -(2710 filenames #f #f ()) -(2711 filenames #f #f ()) -(2712 string-posq 2711 7 ()) -(2713 loop 2712 19 ()) -(2714 filenames #f #f ()) -(2715 file-nondirectory-position 2714 7 ()) -(2716 loop 2715 24 ()) +(2709 filenames #f #f ()) +(2710 string-posq 2709 7 ()) +(2711 loop 2710 19 ()) +(2712 filenames #f #f ()) +(2713 file-nondirectory-position 2712 7 ()) +(2714 loop 2713 24 ()) +(2715 filenames #f #f ()) +(2716 file-name-nondirectory 2715 7 ()) (2717 filenames #f #f ()) -(2718 file-name-nondirectory 2717 7 ()) +(2718 file-name-directory 2717 7 ()) (2719 filenames #f #f ()) -(2720 file-name-directory 2719 7 ()) +(2720 filenames #f #f ()) (2721 filenames #f #f ()) (2722 filenames #f #f ()) -(2723 filenames #f #f ()) +(2723 namestring-component 2722 7 ()) (2724 filenames #f #f ()) -(2725 namestring-component 2724 7 ()) +(2725 filenames #f #f ()) (2726 filenames #f #f ()) -(2727 filenames #f #f ()) -(2728 filenames #f #f ()) -(2729 namestring 2728 7 ()) -(2730 #f 2729 192 ()) -(2731 reading-forms #f #f ()) -(2732 really-read-forms 2731 7 ()) -(2733 loop 2732 19 ()) -(2734 reading-forms #f #f ()) -(2735 read-forms 2734 7 ()) -(2736 #f 2735 47 ()) -(2737 reading-forms #f #f ()) -(2738 #f 2737 11 ()) +(2727 namestring 2726 7 ()) +(2728 #f 2727 192 ()) +(2729 reading-forms #f #f ()) +(2730 really-read-forms 2729 7 ()) +(2731 loop 2730 19 ()) +(2732 reading-forms #f #f ()) +(2733 read-forms 2732 7 ()) +(2734 #f 2733 47 ()) +(2735 reading-forms #f #f ()) +(2736 #f 2735 11 ()) +(2737 nodes #f #f ()) +(2738 #f 2737 15 ()) (2739 nodes #f #f ()) -(2740 #f 2739 15 ()) +(2740 #f 2739 19 ()) (2741 nodes #f #f ()) (2742 #f 2741 19 ()) -(2743 nodes #f #f ()) -(2744 #f 2743 19 ()) -(2745 #f 2744 29 ()) -(2746 #f 2744 57 ()) +(2743 #f 2742 29 ()) +(2744 #f 2742 57 ()) +(2745 nodes #f #f ()) +(2746 nodes #f #f ()) (2747 nodes #f #f ()) -(2748 nodes #f #f ()) -(2749 nodes #f #f ()) -(2750 #f 2749 19 ()) -(2751 #f 2750 6 ()) +(2748 #f 2747 19 ()) +(2749 #f 2748 6 ()) +(2750 nodes #f #f ()) +(2751 #f 2750 19 ()) (2752 nodes #f #f ()) (2753 #f 2752 19 ()) (2754 nodes #f #f ()) -(2755 #f 2754 19 ()) +(2755 #f 2754 11 ()) (2756 nodes #f #f ()) (2757 #f 2756 11 ()) (2758 nodes #f #f ()) -(2759 #f 2758 11 ()) +(2759 node-operator-id 2758 7 ()) (2760 nodes #f #f ()) -(2761 node-operator-id 2760 7 ()) +(2761 node-form 2760 7 ()) (2762 nodes #f #f ()) -(2763 node-form 2762 7 ()) +(2763 set-node-plist! 2762 7 ()) (2764 nodes #f #f ()) -(2765 set-node-plist! 2764 7 ()) +(2765 node-plist 2764 7 ()) (2766 nodes #f #f ()) -(2767 node-plist 2766 7 ()) +(2767 really-make-node 2766 7 ()) (2768 nodes #f #f ()) -(2769 really-make-node 2768 7 ()) +(2769 nodes #f #f ()) (2770 nodes #f #f ()) (2771 nodes #f #f ()) (2772 nodes #f #f ()) (2773 nodes #f #f ()) -(2774 nodes #f #f ()) +(2774 #f 2773 11 ()) (2775 nodes #f #f ()) -(2776 #f 2775 11 ()) +(2776 set-operator-type! 2775 7 ()) (2777 nodes #f #f ()) -(2778 set-operator-type! 2777 7 ()) +(2778 operator-type 2777 7 ()) (2779 nodes #f #f ()) -(2780 operator-type 2779 7 ()) +(2780 operator-nargs 2779 7 ()) (2781 nodes #f #f ()) -(2782 operator-nargs 2781 7 ()) +(2782 operator-uid 2781 7 ()) (2783 nodes #f #f ()) -(2784 operator-uid 2783 7 ()) +(2784 operator-name 2783 7 ()) (2785 nodes #f #f ()) -(2786 operator-name 2785 7 ()) +(2786 make-operator 2785 7 ()) (2787 nodes #f #f ()) -(2788 make-operator 2787 7 ()) -(2789 nodes #f #f ()) +(2788 nodes #f #f ()) +(2789 operator? 2788 7 ()) (2790 nodes #f #f ()) -(2791 operator? 2790 7 ()) +(2791 get-operator 2790 7 ()) (2792 nodes #f #f ()) -(2793 get-operator 2792 7 ()) +(2793 make-operator-table 2792 7 ()) (2794 nodes #f #f ()) -(2795 make-operator-table 2794 7 ()) +(2795 operator-lookup 2794 7 ()) (2796 nodes #f #f ()) -(2797 operator-lookup 2796 7 ()) +(2797 operator-define! 2796 7 ()) (2798 nodes #f #f ()) -(2799 operator-define! 2798 7 ()) +(2799 node? 2798 7 ()) (2800 nodes #f #f ()) -(2801 node? 2800 7 ()) +(2801 make-node 2800 7 ()) (2802 nodes #f #f ()) -(2803 make-node 2802 7 ()) +(2803 node-ref 2802 7 ()) (2804 nodes #f #f ()) -(2805 node-ref 2804 7 ()) -(2806 nodes #f #f ()) -(2807 node-set! 2806 7 ()) -(2808 loop 2807 103 ()) +(2805 node-set! 2804 7 ()) +(2806 loop 2805 103 ()) +(2807 nodes #f #f ()) +(2808 node-operator 2807 7 ()) (2809 nodes #f #f ()) -(2810 node-operator 2809 7 ()) -(2811 nodes #f #f ()) -(2812 node-predicate 2811 7 ()) -(2813 #f 2812 37 ()) +(2810 node-predicate 2809 7 ()) +(2811 #f 2810 37 ()) +(2812 nodes #f #f ()) +(2813 make-similar-node 2812 7 ()) (2814 nodes #f #f ()) -(2815 make-similar-node 2814 7 ()) +(2815 force-node 2814 7 ()) (2816 nodes #f #f ()) -(2817 force-node 2816 7 ()) +(2817 schemify-node 2816 7 ()) (2818 nodes #f #f ()) -(2819 schemify-node 2818 7 ()) -(2820 nodes #f #f ()) -(2821 schemify-sexp 2820 7 ()) -(2822 loop 2821 147 ()) +(2819 schemify-sexp 2818 7 ()) +(2820 loop 2819 147 ()) +(2821 nodes #f #f ()) +(2822 schemify 2821 7 ()) (2823 nodes #f #f ()) -(2824 schemify 2823 7 ()) -(2825 nodes #f #f ()) -(2826 schemify-nodes 2825 7 ()) -(2827 #f 2826 6 ()) +(2824 schemify-nodes 2823 7 ()) +(2825 #f 2824 6 ()) +(2826 nodes #f #f ()) +(2827 define-schemifier 2826 7 ()) (2828 nodes #f #f ()) -(2829 define-schemifier 2828 7 ()) +(2829 schemify-formals 2828 7 ()) (2830 nodes #f #f ()) -(2831 schemify-formals 2830 7 ()) +(2831 schemify-lambda 2830 7 ()) (2832 nodes #f #f ()) -(2833 schemify-lambda 2832 7 ()) -(2834 nodes #f #f ()) -(2835 nodes #f #f ()) +(2833 nodes #f #f ()) +(2834 var-utilities #f #f ()) +(2835 normalize-formals 2834 7 ()) (2836 var-utilities #f #f ()) -(2837 normalize-formals 2836 7 ()) +(2837 n-ary? 2836 7 ()) (2838 var-utilities #f #f ()) -(2839 n-ary? 2838 7 ()) -(2840 var-utilities #f #f ()) -(2841 number-of-required-args 2840 7 ()) -(2842 loop##299 2841 11 ()) +(2839 number-of-required-args 2838 7 ()) +(2840 loop##299 2839 11 ()) +(2841 syntactic #f #f ()) +(2842 syntactic #f #f ()) (2843 syntactic #f #f ()) (2844 syntactic #f #f ()) (2845 syntactic #f #f ()) @@ -4880,22 +4879,22 @@ (2855 syntactic #f #f ()) (2856 syntactic #f #f ()) (2857 syntactic #f #f ()) -(2858 syntactic #f #f ()) -(2859 syntactic #f #f ()) -(2860 #f 2859 19 ()) -(2861 #f 2860 113 ()) -(2862 syntactic #f #f ()) -(2863 #f 2862 19 ()) -(2864 #f 2863 104 ()) -(2865 #f 2864 6 ()) -(2866 syntactic #f #f ()) -(2867 #f 2866 19 ()) -(2868 #f 2867 108 ()) +(2858 #f 2857 19 ()) +(2859 #f 2858 113 ()) +(2860 syntactic #f #f ()) +(2861 #f 2860 19 ()) +(2862 #f 2861 104 ()) +(2863 #f 2862 6 ()) +(2864 syntactic #f #f ()) +(2865 #f 2864 19 ()) +(2866 #f 2865 108 ()) +(2867 syntactic #f #f ()) +(2868 #f 2867 19 ()) (2869 syntactic #f #f ()) (2870 #f 2869 19 ()) -(2871 syntactic #f #f ()) -(2872 #f 2871 19 ()) -(2873 #f 2872 87 ()) +(2871 #f 2870 87 ()) +(2872 syntactic #f #f ()) +(2873 #f 2872 19 ()) (2874 syntactic #f #f ()) (2875 #f 2874 19 ()) (2876 syntactic #f #f ()) @@ -4911,149 +4910,149 @@ (2886 syntactic #f #f ()) (2887 #f 2886 19 ()) (2888 syntactic #f #f ()) -(2889 #f 2888 19 ()) +(2889 #f 2888 11 ()) (2890 syntactic #f #f ()) -(2891 #f 2890 11 ()) +(2891 syntactic #f #f ()) (2892 syntactic #f #f ()) (2893 syntactic #f #f ()) -(2894 syntactic #f #f ()) +(2894 at-least-this-long? 2893 7 ()) (2895 syntactic #f #f ()) -(2896 at-least-this-long? 2895 7 ()) +(2896 names? 2895 7 ()) (2897 syntactic #f #f ()) -(2898 names? 2897 7 ()) +(2898 destructure-define 2897 7 ()) (2899 syntactic #f #f ()) -(2900 destructure-define 2899 7 ()) +(2900 scan-define 2899 7 ()) (2901 syntactic #f #f ()) -(2902 scan-define 2901 7 ()) +(2902 this-long? 2901 7 ()) (2903 syntactic #f #f ()) -(2904 this-long? 2903 7 ()) +(2904 process-syntax 2903 7 ()) (2905 syntactic #f #f ()) -(2906 process-syntax 2905 7 ()) +(2906 scan-define-syntax 2905 7 ()) (2907 syntactic #f #f ()) -(2908 scan-define-syntax 2907 7 ()) +(2908 expand-name 2907 7 ()) (2909 syntactic #f #f ()) -(2910 expand-name 2909 7 ()) +(2910 expand-operator-form 2909 7 ()) (2911 syntactic #f #f ()) -(2912 expand-operator-form 2911 7 ()) +(2912 literal? 2911 7 ()) (2913 syntactic #f #f ()) -(2914 literal? 2913 7 ()) +(2914 expand-literal 2913 7 ()) (2915 syntactic #f #f ()) -(2916 expand-literal 2915 7 ()) -(2917 syntactic #f #f ()) -(2918 expand-list 2917 7 ()) -(2919 #f 2918 6 ()) +(2916 expand-list 2915 7 ()) +(2917 #f 2916 6 ()) +(2918 syntactic #f #f ()) +(2919 expand-call 2918 7 ()) (2920 syntactic #f #f ()) -(2921 expand-call 2920 7 ()) +(2921 expand 2920 7 ()) (2922 syntactic #f #f ()) -(2923 expand 2922 7 ()) -(2924 syntactic #f #f ()) -(2925 expand-macro-application 2924 7 ()) -(2926 #f 2925 6 ()) -(2927 syntactic #f #f ()) -(2928 expand-structure-ref 2927 7 ()) -(2929 lose 2928 32 ()) +(2923 expand-macro-application 2922 7 ()) +(2924 #f 2923 6 ()) +(2925 syntactic #f #f ()) +(2926 expand-structure-ref 2925 7 ()) +(2927 lose 2926 32 ()) +(2928 syntactic #f #f ()) +(2929 expand-head 2928 7 ()) (2930 syntactic #f #f ()) -(2931 expand-head 2930 7 ()) -(2932 syntactic #f #f ()) -(2933 scan-forms 2932 7 ()) -(2934 loop 2933 22 ()) +(2931 scan-forms 2930 7 ()) +(2932 loop 2931 22 ()) +(2933 syntactic #f #f ()) +(2934 expand-define 2933 7 ()) (2935 syntactic #f #f ()) -(2936 expand-define 2935 7 ()) +(2936 expand-scanned-form 2935 7 ()) (2937 syntactic #f #f ()) -(2938 expand-scanned-form 2937 7 ()) -(2939 syntactic #f #f ()) -(2940 expand-form 2939 7 ()) -(2941 loop 2940 32 ()) +(2938 expand-form 2937 7 ()) +(2939 loop 2938 32 ()) +(2940 syntactic #f #f ()) +(2941 static-value 2940 7 ()) (2942 syntactic #f #f ()) -(2943 static-value 2942 7 ()) -(2944 syntactic #f #f ()) -(2945 make-operator-predicate 2944 7 ()) -(2946 #f 2945 26 ()) +(2943 make-operator-predicate 2942 7 ()) +(2944 #f 2943 26 ()) +(2945 syntactic #f #f ()) +(2946 body-lossage 2945 7 ()) (2947 syntactic #f #f ()) -(2948 body-lossage 2947 7 ()) -(2949 syntactic #f #f ()) -(2950 scan-body-forms 2949 7 ()) -(2951 #f 2950 231 ()) -(2952 syntactic #f #f ()) -(2953 expand-letrec 2952 7 ()) -(2954 #f 2953 10 ()) -(2955 syntactic #f #f ()) -(2956 expand-body 2955 7 ()) -(2957 #f 2956 33 ()) +(2948 scan-body-forms 2947 7 ()) +(2949 #f 2948 231 ()) +(2950 syntactic #f #f ()) +(2951 expand-letrec 2950 7 ()) +(2952 #f 2951 10 ()) +(2953 syntactic #f #f ()) +(2954 expand-body 2953 7 ()) +(2955 #f 2954 33 ()) +(2956 syntactic #f #f ()) +(2957 define-expander 2956 7 ()) (2958 syntactic #f #f ()) -(2959 define-expander 2958 7 ()) +(2959 unspecific-node 2958 7 ()) (2960 syntactic #f #f ()) -(2961 unspecific-node 2960 7 ()) -(2962 syntactic #f #f ()) -(2963 bind-names 2962 7 ()) -(2964 loop 2963 26 ()) -(2965 syntactic #f #f ()) -(2966 expand-lambda 2965 7 ()) -(2967 #f 2966 6 ()) +(2961 bind-names 2960 7 ()) +(2962 loop 2961 26 ()) +(2963 syntactic #f #f ()) +(2964 expand-lambda 2963 7 ()) +(2965 #f 2964 6 ()) +(2966 syntactic #f #f ()) +(2967 specs? 2966 7 ()) (2968 syntactic #f #f ()) -(2969 specs? 2968 7 ()) -(2970 syntactic #f #f ()) -(2971 syntax? 2970 7 ()) -(2972 primops #f #f ()) +(2969 syntax? 2968 7 ()) +(2970 primops #f #f ()) +(2971 primops #f #f ()) +(2972 #f 2971 11 ()) (2973 primops #f #f ()) -(2974 #f 2973 11 ()) +(2974 primop-name 2973 7 ()) (2975 primops #f #f ()) -(2976 primop-name 2975 7 ()) +(2976 primop-type 2975 7 ()) (2977 primops #f #f ()) -(2978 primop-type 2977 7 ()) +(2978 primop-closed 2977 7 ()) (2979 primops #f #f ()) -(2980 primop-closed 2979 7 ()) +(2980 primop-compilator 2979 7 ()) (2981 primops #f #f ()) -(2982 primop-compilator 2981 7 ()) +(2982 make-primop 2981 7 ()) (2983 primops #f #f ()) -(2984 make-primop 2983 7 ()) -(2985 primops #f #f ()) +(2984 primops #f #f ()) +(2985 primop? 2984 7 ()) (2986 primops #f #f ()) -(2987 primop? 2986 7 ()) -(2988 primops #f #f ()) -(2989 walk-primops 2988 7 ()) -(2990 #f 2989 6 ()) +(2987 walk-primops 2986 7 ()) +(2988 #f 2987 6 ()) +(2989 primops #f #f ()) +(2990 define-compiler-primitive 2989 7 ()) (2991 primops #f #f ()) -(2992 define-compiler-primitive 2991 7 ()) -(2993 primops #f #f ()) -(2994 get-primop 2993 7 ()) +(2992 get-primop 2991 7 ()) +(2993 debug-data #f #f ()) +(2994 #f 2993 7 ()) (2995 debug-data #f #f ()) -(2996 #f 2995 7 ()) +(2996 debug-data-uid 2995 7 ()) (2997 debug-data #f #f ()) -(2998 debug-data-uid 2997 7 ()) +(2998 debug-data-name 2997 7 ()) (2999 debug-data #f #f ()) -(3000 debug-data-name 2999 7 ()) +(3000 debug-data-parent 2999 7 ()) (3001 debug-data #f #f ()) -(3002 debug-data-parent 3001 7 ()) +(3002 debug-data-pc-in-parent 3001 7 ()) (3003 debug-data #f #f ()) -(3004 debug-data-pc-in-parent 3003 7 ()) +(3004 set-debug-data-env-maps! 3003 7 ()) (3005 debug-data #f #f ()) -(3006 set-debug-data-env-maps! 3005 7 ()) +(3006 debug-data-env-maps 3005 7 ()) (3007 debug-data #f #f ()) -(3008 debug-data-env-maps 3007 7 ()) +(3008 set-debug-data-source! 3007 7 ()) (3009 debug-data #f #f ()) -(3010 set-debug-data-source! 3009 7 ()) +(3010 debug-data-source 3009 7 ()) (3011 debug-data #f #f ()) -(3012 debug-data-source 3011 7 ()) +(3012 make-debug-data 3011 7 ()) (3013 debug-data #f #f ()) -(3014 make-debug-data 3013 7 ()) -(3015 debug-data #f #f ()) -(3016 debug-data #f #f ()) -(3017 debug-data? 3016 7 ()) +(3014 debug-data #f #f ()) +(3015 debug-data? 3014 7 ()) +(3016 stack-check #f #f ()) +(3017 loop##327 3016 8 ()) (3018 stack-check #f #f ()) -(3019 loop##327 3018 8 ()) -(3020 stack-check #f #f ()) -(3021 #f 3020 11 ()) -(3022 loop 3021 48 ()) +(3019 #f 3018 11 ()) +(3020 loop 3019 48 ()) +(3021 stack-check #f #f ()) +(3022 #f 3021 11 ()) (3023 stack-check #f #f ()) (3024 #f 3023 11 ()) (3025 stack-check #f #f ()) -(3026 #f 3025 11 ()) +(3026 stack-check #f #f ()) (3027 stack-check #f #f ()) -(3028 stack-check #f #f ()) -(3029 stack-check #f #f ()) -(3030 #f 3029 11 ()) -(3031 loop 3030 68 ()) +(3028 #f 3027 11 ()) +(3029 loop 3028 68 ()) +(3030 stack-check #f #f ()) +(3031 #f 3030 11 ()) (3032 stack-check #f #f ()) (3033 #f 3032 11 ()) (3034 stack-check #f #f ()) @@ -5061,7 +5060,7 @@ (3036 stack-check #f #f ()) (3037 #f 3036 11 ()) (3038 stack-check #f #f ()) -(3039 #f 3038 11 ()) +(3039 stack-check #f #f ()) (3040 stack-check #f #f ()) (3041 stack-check #f #f ()) (3042 stack-check #f #f ()) @@ -5077,61 +5076,61 @@ (3052 stack-check #f #f ()) (3053 stack-check #f #f ()) (3054 stack-check #f #f ()) -(3055 stack-check #f #f ()) +(3055 stack-max 3054 7 ()) (3056 stack-check #f #f ()) -(3057 stack-max 3056 7 ()) +(3057 protocol-skip 3056 7 ()) (3058 stack-check #f #f ()) -(3059 protocol-skip 3058 7 ()) -(3060 stack-check #f #f ()) -(3061 maximum-stack-use 3060 7 ()) -(3062 loop##330 3061 74 ()) -(3063 stack-check #f #f ()) -(3064 nothing 3063 7 ()) -(3065 #f 3064 6 ()) -(3066 stack-check #f #f ()) -(3067 popper 3066 7 ()) -(3068 #f 3067 6 ()) +(3059 maximum-stack-use 3058 7 ()) +(3060 loop##330 3059 74 ()) +(3061 stack-check #f #f ()) +(3062 nothing 3061 7 ()) +(3063 #f 3062 6 ()) +(3064 stack-check #f #f ()) +(3065 popper 3064 7 ()) +(3066 #f 3065 6 ()) +(3067 stack-check #f #f ()) +(3068 imax 3067 7 ()) (3069 stack-check #f #f ()) -(3070 imax 3069 7 ()) -(3071 stack-check #f #f ()) -(3072 pusher 3071 7 ()) -(3073 #f 3072 6 ()) +(3070 pusher 3069 7 ()) +(3071 #f 3070 6 ()) +(3072 stack-check #f #f ()) +(3073 continue 3072 7 ()) (3074 stack-check #f #f ()) -(3075 continue 3074 7 ()) -(3076 stack-check #f #f ()) -(3077 continuer 3076 7 ()) -(3078 #f 3077 6 ()) +(3075 continuer 3074 7 ()) +(3076 #f 3075 6 ()) +(3077 stack-check #f #f ()) +(3078 get-offset 3077 7 ()) (3079 stack-check #f #f ()) -(3080 get-offset 3079 7 ()) -(3081 stack-check #f #f ()) -(3082 do-make-cont 3081 7 ()) -(3083 #f 3082 6 ()) +(3080 do-make-cont 3079 7 ()) +(3081 #f 3080 6 ()) +(3082 stack-check #f #f ()) +(3083 arg-spec-size 3082 7 ()) (3084 stack-check #f #f ()) -(3085 arg-spec-size 3084 7 ()) -(3086 stack-check #f #f ()) -(3087 stack-function 3086 7 ()) -(3088 loop 3087 22 ()) +(3085 stack-function 3084 7 ()) +(3086 loop 3085 22 ()) +(3087 segments #f #f ()) +(3088 segments #f #f ()) (3089 segments #f #f ()) (3090 segments #f #f ()) -(3091 segments #f #f ()) +(3091 #f 3090 15 ()) (3092 segments #f #f ()) -(3093 #f 3092 15 ()) +(3093 astate-code-vector 3092 7 ()) (3094 segments #f #f ()) -(3095 astate-code-vector 3094 7 ()) +(3095 set-astate-pc! 3094 7 ()) (3096 segments #f #f ()) -(3097 set-astate-pc! 3096 7 ()) +(3097 astate-pc 3096 7 ()) (3098 segments #f #f ()) -(3099 astate-pc 3098 7 ()) +(3099 set-astate-count! 3098 7 ()) (3100 segments #f #f ()) -(3101 set-astate-count! 3100 7 ()) +(3101 astate-count 3100 7 ()) (3102 segments #f #f ()) -(3103 astate-count 3102 7 ()) +(3103 set-astate-literals! 3102 7 ()) (3104 segments #f #f ()) -(3105 set-astate-literals! 3104 7 ()) +(3105 astate-literals 3104 7 ()) (3106 segments #f #f ()) -(3107 astate-literals 3106 7 ()) +(3107 make-assembly-state 3106 7 ()) (3108 segments #f #f ()) -(3109 make-assembly-state 3108 7 ()) +(3109 segments #f #f ()) (3110 segments #f #f ()) (3111 segments #f #f ()) (3112 segments #f #f ()) @@ -5144,293 +5143,293 @@ (3119 segments #f #f ()) (3120 segments #f #f ()) (3121 segments #f #f ()) -(3122 segments #f #f ()) +(3122 new-template-uid 3121 7 ()) (3123 segments #f #f ()) -(3124 new-template-uid 3123 7 ()) +(3124 template-uid 3123 7 ()) (3125 segments #f #f ()) -(3126 template-uid 3125 7 ()) +(3126 set-template-uid! 3125 7 ()) (3127 segments #f #f ()) -(3128 set-template-uid! 3127 7 ()) -(3129 segments #f #f ()) -(3130 debug-flag-accessor 3129 7 ()) -(3131 #f 3130 26 ()) -(3132 segments #f #f ()) -(3133 debug-flag-modifier 3132 7 ()) -(3134 #f 3133 26 ()) -(3135 segments #f #f ()) -(3136 saving-and-restoring 3135 7 ()) -(3137 swap 3136 6 ()) -(3138 segments #f #f ()) -(3139 with-fresh-compiler-state 3138 7 ()) -(3140 #f 3139 44 ()) -(3141 #f 3140 3 ()) -(3142 #f 3140 8 ()) +(3128 debug-flag-accessor 3127 7 ()) +(3129 #f 3128 26 ()) +(3130 segments #f #f ()) +(3131 debug-flag-modifier 3130 7 ()) +(3132 #f 3131 26 ()) +(3133 segments #f #f ()) +(3134 saving-and-restoring 3133 7 ()) +(3135 swap 3134 6 ()) +(3136 segments #f #f ()) +(3137 with-fresh-compiler-state 3136 7 ()) +(3138 #f 3137 44 ()) +(3139 #f 3138 3 ()) +(3140 #f 3138 8 ()) +(3141 segments #f #f ()) +(3142 note-debug-data! 3141 7 ()) (3143 segments #f #f ()) -(3144 note-debug-data! 3143 7 ()) +(3144 debug-data->info 3143 7 ()) (3145 segments #f #f ()) -(3146 debug-data->info 3145 7 ()) +(3146 get-debug-data 3145 7 ()) (3147 segments #f #f ()) -(3148 get-debug-data 3147 7 ()) +(3148 new-debug-data 3147 7 ()) (3149 segments #f #f ()) -(3150 new-debug-data 3149 7 ()) +(3150 high-byte 3149 7 ()) (3151 segments #f #f ()) -(3152 high-byte 3151 7 ()) +(3152 emit-byte! 3151 7 ()) (3153 segments #f #f ()) -(3154 emit-byte! 3153 7 ()) +(3154 low-byte 3153 7 ()) (3155 segments #f #f ()) -(3156 low-byte 3155 7 ()) -(3157 segments #f #f ()) -(3158 position 3157 7 ()) -(3159 loop 3158 22 ()) -(3160 segments #f #f ()) -(3161 literal-position 3160 7 ()) -(3162 #f 3161 21 ()) +(3156 position 3155 7 ()) +(3157 loop 3156 22 ()) +(3158 segments #f #f ()) +(3159 literal-position 3158 7 ()) +(3160 #f 3159 21 ()) +(3161 segments #f #f ()) +(3162 literal->index 3161 7 ()) (3163 segments #f #f ()) -(3164 literal->index 3163 7 ()) +(3164 emit-literal! 3163 7 ()) (3165 segments #f #f ()) -(3166 emit-literal! 3165 7 ()) +(3166 code-vector-set2! 3165 7 ()) (3167 segments #f #f ()) -(3168 code-vector-set2! 3167 7 ()) -(3169 segments #f #f ()) -(3170 check-stack-use 3169 7 ()) -(3171 loop##341 3170 77 ()) +(3168 check-stack-use 3167 7 ()) +(3169 loop##341 3168 77 ()) +(3170 segments #f #f ()) +(3171 emit-segment! 3170 7 ()) (3172 segments #f #f ()) -(3173 emit-segment! 3172 7 ()) -(3174 segments #f #f ()) -(3175 emit-with-environment-maps! 3174 7 ()) -(3176 #f 3175 14 ()) +(3173 emit-with-environment-maps! 3172 7 ()) +(3174 #f 3173 14 ()) +(3175 segments #f #f ()) +(3176 make-astate 3175 7 ()) (3177 segments #f #f ()) -(3178 make-astate 3177 7 ()) -(3179 segments #f #f ()) -(3180 template 3179 7 ()) -(3181 #f 3180 10 ()) -(3182 segments #f #f ()) -(3183 segment-data->template 3182 7 ()) -(3184 loop##343 3183 68 ()) -(3185 segments #f #f ()) -(3186 segment->template 3185 7 ()) -(3187 #f 3186 124 ()) -(3188 segments #f #f ()) -(3189 instruction 3188 7 ()) -(3190 #f 3189 30 ()) -(3191 #f 3190 22 ()) -(3192 segments #f #f ()) -(3193 sequentially-2 3192 7 ()) -(3194 #f 3193 59 ()) -(3195 segments #f #f ()) -(3196 sequentially 3195 7 ()) -(3197 loop 3196 105 ()) -(3198 #f 3196 120 ()) -(3199 loop 3198 18 ()) -(3200 segments #f #f ()) -(3201 instruction-with-literal 3200 7 ()) -(3202 #f 3201 30 ()) -(3203 #f 3202 160 ()) -(3204 segments #f #f ()) -(3205 instruction-with-location 3204 7 ()) -(3206 #f 3205 10 ()) +(3178 template 3177 7 ()) +(3179 #f 3178 10 ()) +(3180 segments #f #f ()) +(3181 segment-data->template 3180 7 ()) +(3182 loop##343 3181 68 ()) +(3183 segments #f #f ()) +(3184 segment->template 3183 7 ()) +(3185 #f 3184 124 ()) +(3186 segments #f #f ()) +(3187 instruction 3186 7 ()) +(3188 #f 3187 30 ()) +(3189 #f 3188 22 ()) +(3190 segments #f #f ()) +(3191 sequentially-2 3190 7 ()) +(3192 #f 3191 59 ()) +(3193 segments #f #f ()) +(3194 sequentially 3193 7 ()) +(3195 loop 3194 105 ()) +(3196 #f 3194 120 ()) +(3197 loop 3196 18 ()) +(3198 segments #f #f ()) +(3199 instruction-with-literal 3198 7 ()) +(3200 #f 3199 30 ()) +(3201 #f 3200 160 ()) +(3202 segments #f #f ()) +(3203 instruction-with-location 3202 7 ()) +(3204 #f 3203 10 ()) +(3205 segments #f #f ()) +(3206 make-label 3205 7 ()) (3207 segments #f #f ()) -(3208 make-label 3207 7 ()) +(3208 insert-label! 3207 7 ()) (3209 segments #f #f ()) -(3210 insert-label! 3209 7 ()) -(3211 segments #f #f ()) -(3212 instruction-using-label 3211 7 ()) -(3213 #f 3212 49 ()) -(3214 segments #f #f ()) -(3215 computed-goto-instruction 3214 7 ()) -(3216 #f 3215 68 ()) -(3217 loop##344 3216 75 ()) -(3218 segments #f #f ()) -(3219 attach-label 3218 7 ()) -(3220 #f 3219 19 ()) -(3221 #f 3220 37 ()) -(3222 segments #f #f ()) -(3223 note-source-code 3222 7 ()) -(3224 #f 3223 19 ()) -(3225 segments #f #f ()) -(3226 note-environment 3225 7 ()) -(3227 #f 3226 31 ()) +(3210 instruction-using-label 3209 7 ()) +(3211 #f 3210 49 ()) +(3212 segments #f #f ()) +(3213 computed-goto-instruction 3212 7 ()) +(3214 #f 3213 68 ()) +(3215 loop##344 3214 75 ()) +(3216 segments #f #f ()) +(3217 attach-label 3216 7 ()) +(3218 #f 3217 19 ()) +(3219 #f 3218 37 ()) +(3220 segments #f #f ()) +(3221 note-source-code 3220 7 ()) +(3222 #f 3221 19 ()) +(3223 segments #f #f ()) +(3224 note-environment 3223 7 ()) +(3225 #f 3224 31 ()) +(3226 segments #f #f ()) +(3227 segments #f #f ()) (3228 segments #f #f ()) -(3229 segments #f #f ()) -(3230 segments #f #f ()) +(3229 reconstruction #f #f ()) +(3230 constant-type 3229 7 ()) (3231 reconstruction #f #f ()) -(3232 constant-type 3231 7 ()) +(3232 reconstruction #f #f ()) (3233 reconstruction #f #f ()) -(3234 reconstruction #f #f ()) -(3235 reconstruction #f #f ()) -(3236 reconstruct-apply 3235 7 ()) -(3237 #f 3236 56 ()) +(3234 reconstruct-apply 3233 7 ()) +(3235 #f 3234 56 ()) +(3236 reconstruction #f #f ()) +(3237 #f 3236 11 ()) (3238 reconstruction #f #f ()) (3239 #f 3238 11 ()) -(3240 reconstruction #f #f ()) -(3241 #f 3240 11 ()) -(3242 #f 3241 10 ()) +(3240 #f 3239 10 ()) +(3241 reconstruction #f #f ()) +(3242 #f 3241 15 ()) (3243 reconstruction #f #f ()) -(3244 #f 3243 15 ()) +(3244 define-primop-reconstructor 3243 7 ()) (3245 reconstruction #f #f ()) -(3246 define-primop-reconstructor 3245 7 ()) +(3246 reconstruction #f #f ()) (3247 reconstruction #f #f ()) (3248 reconstruction #f #f ()) (3249 reconstruction #f #f ()) -(3250 reconstruction #f #f ()) +(3250 #f 3249 15 ()) (3251 reconstruction #f #f ()) (3252 #f 3251 15 ()) (3253 reconstruction #f #f ()) -(3254 #f 3253 15 ()) +(3254 node->type 3253 7 ()) (3255 reconstruction #f #f ()) -(3256 node->type 3255 7 ()) +(3256 #f 3255 15 ()) (3257 reconstruction #f #f ()) (3258 #f 3257 15 ()) -(3259 reconstruction #f #f ()) -(3260 #f 3259 15 ()) -(3261 #f 3260 60 ()) +(3259 #f 3258 60 ()) +(3260 reconstruction #f #f ()) +(3261 #f 3260 15 ()) (3262 reconstruction #f #f ()) (3263 #f 3262 15 ()) -(3264 reconstruction #f #f ()) -(3265 #f 3264 15 ()) -(3266 loop##346 3265 11 ()) -(3267 reconstruction #f #f ()) -(3268 reconstruction #f #f ()) -(3269 fork-constraints 3268 7 ()) -(3270 #f 3269 13 ()) -(3271 reconstruction #f #f ()) -(3272 #f 3271 15 ()) -(3273 #f 3272 153 ()) +(3264 loop##346 3263 11 ()) +(3265 reconstruction #f #f ()) +(3266 reconstruction #f #f ()) +(3267 fork-constraints 3266 7 ()) +(3268 #f 3267 13 ()) +(3269 reconstruction #f #f ()) +(3270 #f 3269 15 ()) +(3271 #f 3270 153 ()) +(3272 reconstruction #f #f ()) +(3273 #f 3272 13 ()) (3274 reconstruction #f #f ()) (3275 #f 3274 13 ()) (3276 reconstruction #f #f ()) -(3277 #f 3276 13 ()) +(3277 #f 3276 15 ()) (3278 reconstruction #f #f ()) (3279 #f 3278 15 ()) (3280 reconstruction #f #f ()) -(3281 #f 3280 15 ()) -(3282 reconstruction #f #f ()) -(3283 reconstruct-call 3282 7 ()) -(3284 lose 3283 112 ()) -(3285 #f 3284 3 ()) -(3286 loop 3283 179 ()) +(3281 reconstruct-call 3280 7 ()) +(3282 lose 3281 112 ()) +(3283 #f 3282 3 ()) +(3284 loop 3281 179 ()) +(3285 reconstruction #f #f ()) +(3286 proc->reconstructor 3285 7 ()) (3287 reconstruction #f #f ()) -(3288 proc->reconstructor 3287 7 ()) +(3288 #f 3287 15 ()) (3289 reconstruction #f #f ()) -(3290 #f 3289 15 ()) +(3290 reconstruct-name 3289 7 ()) (3291 reconstruction #f #f ()) -(3292 reconstruct-name 3291 7 ()) +(3292 #f 3291 15 ()) (3293 reconstruction #f #f ()) -(3294 #f 3293 15 ()) +(3294 careful-codomain 3293 7 ()) (3295 reconstruction #f #f ()) -(3296 careful-codomain 3295 7 ()) -(3297 reconstruction #f #f ()) -(3298 reconstruct-lambda 3297 7 ()) -(3299 #f 3298 71 ()) +(3296 reconstruct-lambda 3295 7 ()) +(3297 #f 3296 71 ()) +(3298 reconstruction #f #f ()) +(3299 #f 3298 15 ()) (3300 reconstruction #f #f ()) (3301 #f 3300 15 ()) (3302 reconstruction #f #f ()) -(3303 #f 3302 15 ()) +(3303 define-reconstructor 3302 7 ()) (3304 reconstruction #f #f ()) -(3305 define-reconstructor 3304 7 ()) +(3305 #f 3304 11 ()) (3306 reconstruction #f #f ()) -(3307 #f 3306 11 ()) +(3307 examine 3306 7 ()) (3308 reconstruction #f #f ()) -(3309 examine 3308 7 ()) +(3309 reconstruct 3308 7 ()) (3310 reconstruction #f #f ()) -(3311 reconstruct 3310 7 ()) +(3311 reconstruct-type 3310 7 ()) (3312 reconstruction #f #f ()) -(3313 reconstruct-type 3312 7 ()) -(3314 reconstruction #f #f ()) -(3315 node-type 3314 7 ()) -(3316 compiler #f #f ()) +(3313 node-type 3312 7 ()) +(3314 compiler #f #f ()) +(3315 compiler #f #f ()) +(3316 loop 3315 60 ()) (3317 compiler #f #f ()) -(3318 loop 3317 60 ()) +(3318 compiler #f #f ()) (3319 compiler #f #f ()) -(3320 compiler #f #f ()) -(3321 compiler #f #f ()) -(3322 define-one-or-two 3321 7 ()) -(3323 #f 3322 12 ()) -(3324 #f 3322 17 ()) -(3325 compiler #f #f ()) -(3326 define-one-or-two 3325 7 ()) -(3327 #f 3326 73 ()) -(3328 #f 3326 78 ()) +(3320 define-one-or-two 3319 7 ()) +(3321 #f 3320 12 ()) +(3322 #f 3320 17 ()) +(3323 compiler #f #f ()) +(3324 define-one-or-two 3323 7 ()) +(3325 #f 3324 73 ()) +(3326 #f 3324 78 ()) +(3327 compiler #f #f ()) +(3328 compiler #f #f ()) (3329 compiler #f #f ()) -(3330 compiler #f #f ()) -(3331 compiler #f #f ()) -(3332 define=< 3331 7 ()) -(3333 #f 3332 73 ()) -(3334 #f 3332 78 ()) -(3335 compiler #f #f ()) -(3336 define+* 3335 7 ()) -(3337 #f 3336 43 ()) -(3338 #f 3336 48 ()) -(3339 compiler #f #f ()) -(3340 define-char-io 3339 7 ()) -(3341 #f 3340 12 ()) -(3342 #f 3340 17 ()) -(3343 compiler #f #f ()) -(3344 define-char-io 3343 7 ()) -(3345 #f 3344 12 ()) -(3346 #f 3344 17 ()) -(3347 compiler #f #f ()) -(3348 n-ary-constructor 3347 7 ()) -(3349 #f 3348 16 ()) -(3350 #f 3348 21 ()) +(3330 define=< 3329 7 ()) +(3331 #f 3330 73 ()) +(3332 #f 3330 78 ()) +(3333 compiler #f #f ()) +(3334 define+* 3333 7 ()) +(3335 #f 3334 43 ()) +(3336 #f 3334 48 ()) +(3337 compiler #f #f ()) +(3338 define-char-io 3337 7 ()) +(3339 #f 3338 12 ()) +(3340 #f 3338 17 ()) +(3341 compiler #f #f ()) +(3342 define-char-io 3341 7 ()) +(3343 #f 3342 12 ()) +(3344 #f 3342 17 ()) +(3345 compiler #f #f ()) +(3346 n-ary-constructor 3345 7 ()) +(3347 #f 3346 16 ()) +(3348 #f 3346 21 ()) +(3349 compiler #f #f ()) +(3350 #f 3349 21 ()) (3351 compiler #f #f ()) -(3352 #f 3351 21 ()) -(3353 compiler #f #f ()) -(3354 #f 3353 44 ()) -(3355 #f 3354 112 ()) -(3356 #f 3353 49 ()) -(3357 compiler #f #f ()) -(3358 #f 3357 17 ()) -(3359 #f 3357 22 ()) -(3360 compiler #f #f ()) -(3361 #f 3360 73 ()) -(3362 #f 3360 84 ()) -(3363 compiler #f #f ()) -(3364 #f 3363 71 ()) -(3365 #f 3363 76 ()) -(3366 compiler #f #f ()) -(3367 #f 3366 57 ()) -(3368 #f 3366 62 ()) -(3369 compiler #f #f ()) +(3352 #f 3351 44 ()) +(3353 #f 3352 112 ()) +(3354 #f 3351 49 ()) +(3355 compiler #f #f ()) +(3356 #f 3355 17 ()) +(3357 #f 3355 22 ()) +(3358 compiler #f #f ()) +(3359 #f 3358 73 ()) +(3360 #f 3358 84 ()) +(3361 compiler #f #f ()) +(3362 #f 3361 71 ()) +(3363 #f 3361 76 ()) +(3364 compiler #f #f ()) +(3365 #f 3364 57 ()) +(3366 #f 3364 62 ()) +(3367 compiler #f #f ()) +(3368 compiler #f #f ()) +(3369 #f 3368 7 ()) (3370 compiler #f #f ()) -(3371 #f 3370 7 ()) -(3372 compiler #f #f ()) +(3371 compiler #f #f ()) +(3372 #f 3371 7 ()) (3373 compiler #f #f ()) -(3374 #f 3373 7 ()) +(3374 compiler #f #f ()) (3375 compiler #f #f ()) (3376 compiler #f #f ()) (3377 compiler #f #f ()) -(3378 compiler #f #f ()) +(3378 loop##350 3377 12 ()) (3379 compiler #f #f ()) -(3380 loop##350 3379 12 ()) -(3381 compiler #f #f ()) +(3380 compiler #f #f ()) +(3381 #f 3380 19 ()) (3382 compiler #f #f ()) -(3383 #f 3382 19 ()) +(3383 compiler #f #f ()) (3384 compiler #f #f ()) (3385 compiler #f #f ()) (3386 compiler #f #f ()) (3387 compiler #f #f ()) (3388 compiler #f #f ()) (3389 compiler #f #f ()) -(3390 compiler #f #f ()) +(3390 #f 3389 19 ()) (3391 compiler #f #f ()) -(3392 #f 3391 19 ()) +(3392 compiler #f #f ()) (3393 compiler #f #f ()) (3394 compiler #f #f ()) (3395 compiler #f #f ()) -(3396 compiler #f #f ()) -(3397 compiler #f #f ()) -(3398 #f 3397 19 ()) -(3399 #f 3398 73 ()) -(3400 #f 3398 157 ()) +(3396 #f 3395 19 ()) +(3397 #f 3396 73 ()) +(3398 #f 3396 157 ()) +(3399 compiler #f #f ()) +(3400 #f 3399 19 ()) (3401 compiler #f #f ()) (3402 #f 3401 19 ()) (3403 compiler #f #f ()) -(3404 #f 3403 19 ()) -(3405 compiler #f #f ()) -(3406 compiler #f #f ()) -(3407 #f 3406 19 ()) -(3408 loop 3407 89 ()) +(3404 compiler #f #f ()) +(3405 #f 3404 19 ()) +(3406 loop 3405 89 ()) +(3407 compiler #f #f ()) +(3408 #f 3407 19 ()) (3409 compiler #f #f ()) (3410 #f 3409 19 ()) (3411 compiler #f #f ()) @@ -5438,503 +5437,503 @@ (3413 compiler #f #f ()) (3414 #f 3413 19 ()) (3415 compiler #f #f ()) -(3416 #f 3415 19 ()) +(3416 #f 3415 41 ()) (3417 compiler #f #f ()) (3418 #f 3417 41 ()) (3419 compiler #f #f ()) -(3420 #f 3419 41 ()) +(3420 #f 3419 19 ()) (3421 compiler #f #f ()) -(3422 #f 3421 19 ()) +(3422 #f 3421 11 ()) (3423 compiler #f #f ()) -(3424 #f 3423 11 ()) -(3425 compiler #f #f ()) -(3426 diagnose-call-error 3425 7 ()) -(3427 #f 3426 173 ()) -(3428 compiler #f #f ()) -(3429 type-check 3428 7 ()) -(3430 #f 3429 121 ()) +(3424 diagnose-call-error 3423 7 ()) +(3425 #f 3424 173 ()) +(3426 compiler #f #f ()) +(3427 type-check 3426 7 ()) +(3428 #f 3427 121 ()) +(3429 compiler #f #f ()) +(3430 compile 3429 7 ()) (3431 compiler #f #f ()) -(3432 compile 3431 7 ()) +(3432 compile-expression 3431 7 ()) (3433 compiler #f #f ()) -(3434 compile-expression 3433 7 ()) +(3434 define-compilator 3433 7 ()) (3435 compiler #f #f ()) -(3436 define-compilator 3435 7 ()) +(3436 ignore-values-cont? 3435 7 ()) (3437 compiler #f #f ()) -(3438 ignore-values-cont? 3437 7 ()) +(3438 deliver-value 3437 7 ()) (3439 compiler #f #f ()) -(3440 deliver-value 3439 7 ()) +(3440 compile-constant 3439 7 ()) (3441 compiler #f #f ()) -(3442 compile-constant 3441 7 ()) +(3442 return-cont? 3441 7 ()) (3443 compiler #f #f ()) -(3444 return-cont? 3443 7 ()) +(3444 fixup-source 3443 7 ()) (3445 compiler #f #f ()) -(3446 fixup-source 3445 7 ()) +(3446 maybe-push-continuation 3445 7 ()) (3447 compiler #f #f ()) -(3448 maybe-push-continuation 3447 7 ()) +(3448 make-cont 3447 7 ()) (3449 compiler #f #f ()) -(3450 make-cont 3449 7 ()) +(3450 fall-through-cont 3449 7 ()) (3451 compiler #f #f ()) -(3452 fall-through-cont 3451 7 ()) -(3453 compiler #f #f ()) -(3454 push-arguments 3453 7 ()) -(3455 recur 3454 37 ()) +(3452 push-arguments 3451 7 ()) +(3453 recur 3452 37 ()) +(3454 compiler #f #f ()) +(3455 compile-unknown-call 3454 7 ()) (3456 compiler #f #f ()) -(3457 compile-unknown-call 3456 7 ()) +(3457 name-node-binding 3456 7 ()) (3458 compiler #f #f ()) -(3459 name-node-binding 3458 7 ()) +(3459 compile-name-call 3458 7 ()) (3460 compiler #f #f ()) -(3461 compile-name-call 3460 7 ()) +(3461 generate-trap 3460 7 ()) (3462 compiler #f #f ()) -(3463 generate-trap 3462 7 ()) +(3463 named-cont 3462 7 ()) (3464 compiler #f #f ()) -(3465 named-cont 3464 7 ()) +(3465 push-all-with-names 3464 7 ()) (3466 compiler #f #f ()) -(3467 push-all-with-names 3466 7 ()) -(3468 compiler #f #f ()) -(3469 set-lexical-offsets! 3468 7 ()) -(3470 loop 3469 22 ()) +(3467 set-lexical-offsets! 3466 7 ()) +(3468 loop 3467 22 ()) +(3469 compiler #f #f ()) +(3470 name-node->symbol 3469 7 ()) (3471 compiler #f #f ()) -(3472 name-node->symbol 3471 7 ()) +(3472 return-cont 3471 7 ()) (3473 compiler #f #f ()) -(3474 return-cont 3473 7 ()) +(3474 compile-lambda-code 3473 7 ()) (3475 compiler #f #f ()) -(3476 compile-lambda-code 3475 7 ()) +(3476 cont-name 3475 7 ()) (3477 compiler #f #f ()) -(3478 cont-name 3477 7 ()) +(3478 compile-redex 3477 7 ()) (3479 compiler #f #f ()) -(3480 compile-redex 3479 7 ()) +(3480 compile-call 3479 7 ()) (3481 compiler #f #f ()) -(3482 compile-call 3481 7 ()) +(3482 compile-lambda 3481 7 ()) (3483 compiler #f #f ()) -(3484 compile-lambda 3483 7 ()) -(3485 compiler #f #f ()) -(3486 variable-env-data 3485 7 ()) -(3487 level-loop 3486 26 ()) -(3488 loop 3487 60 ()) -(3489 loop 3488 123 ()) -(3490 compiler #f #f ()) -(3491 sort-list 3490 7 ()) -(3492 insert 3491 11 ()) -(3493 sort 3491 32 ()) -(3494 compiler #f #f ()) -(3495 get-variables-offsets 3494 7 ()) -(3496 loop 3495 22 ()) -(3497 compiler #f #f ()) -(3498 compile-flat-lambda 3497 7 ()) -(3499 #f 3498 26 ()) -(3500 #f 3498 366 ()) +(3484 variable-env-data 3483 7 ()) +(3485 level-loop 3484 26 ()) +(3486 loop 3485 60 ()) +(3487 loop 3486 123 ()) +(3488 compiler #f #f ()) +(3489 sort-list 3488 7 ()) +(3490 insert 3489 11 ()) +(3491 sort 3489 32 ()) +(3492 compiler #f #f ()) +(3493 get-variables-offsets 3492 7 ()) +(3494 loop 3493 22 ()) +(3495 compiler #f #f ()) +(3496 compile-flat-lambda 3495 7 ()) +(3497 #f 3496 26 ()) +(3498 #f 3496 366 ()) +(3499 compiler #f #f ()) +(3500 fall-through-cont? 3499 7 ()) (3501 compiler #f #f ()) -(3502 fall-through-cont? 3501 7 ()) +(3502 ignore-values-cont 3501 7 ()) (3503 compiler #f #f ()) -(3504 ignore-values-cont 3503 7 ()) +(3504 set-type-check?! 3503 7 ()) (3505 compiler #f #f ()) -(3506 set-type-check?! 3505 7 ()) -(3507 compiler #f #f ()) -(3508 push-all-but-last 3507 7 ()) -(3509 recur 3508 25 ()) -(3510 compiler #f #f ()) -(3511 direct-compilator 3510 7 ()) -(3512 #f 3511 6 ()) -(3513 compiler #f #f ()) -(3514 direct-closed-compilator 3513 7 ()) -(3515 #f 3514 6 ()) -(3516 compiler #f #f ()) -(3517 nargs->domain 3516 7 ()) -(3518 loop##359 3517 11 ()) -(3519 compiler #f #f ()) -(3520 get-primop-type 3519 7 ()) -(3521 #f 3520 10 ()) -(3522 compiler #f #f ()) -(3523 simple-compilator 3522 7 ()) -(3524 #f 3523 6 ()) -(3525 compiler #f #f ()) -(3526 simple-closed-compilator 3525 7 ()) -(3527 #f 3526 6 ()) +(3506 push-all-but-last 3505 7 ()) +(3507 recur 3506 25 ()) +(3508 compiler #f #f ()) +(3509 direct-compilator 3508 7 ()) +(3510 #f 3509 6 ()) +(3511 compiler #f #f ()) +(3512 direct-closed-compilator 3511 7 ()) +(3513 #f 3512 6 ()) +(3514 compiler #f #f ()) +(3515 nargs->domain 3514 7 ()) +(3516 loop##359 3515 11 ()) +(3517 compiler #f #f ()) +(3518 get-primop-type 3517 7 ()) +(3519 #f 3518 10 ()) +(3520 compiler #f #f ()) +(3521 simple-compilator 3520 7 ()) +(3522 #f 3521 6 ()) +(3523 compiler #f #f ()) +(3524 simple-closed-compilator 3523 7 ()) +(3525 #f 3524 6 ()) +(3526 compiler #f #f ()) +(3527 define-simple-primitive 3526 7 ()) (3528 compiler #f #f ()) -(3529 define-simple-primitive 3528 7 ()) +(3529 symbol-append 3528 7 ()) (3530 compiler #f #f ()) -(3531 symbol-append 3530 7 ()) +(3531 define-stob-predicate 3530 7 ()) (3532 compiler #f #f ()) -(3533 define-stob-predicate 3532 7 ()) -(3534 compiler #f #f ()) -(3535 define-data-struct-primitives 3534 7 ()) -(3536 def-prim 3535 8 ()) -(3537 loop##361 3535 190 ()) -(3538 compiler #f #f ()) -(3539 define-vector-primitives 3538 7 ()) -(3540 def-prim 3539 26 ()) -(3541 compiler #f #f ()) -(3542 n-ary-primitive-compilator 3541 7 ()) -(3543 #f 3542 6 ()) +(3533 define-data-struct-primitives 3532 7 ()) +(3534 def-prim 3533 8 ()) +(3535 loop##361 3533 190 ()) +(3536 compiler #f #f ()) +(3537 define-vector-primitives 3536 7 ()) +(3538 def-prim 3537 26 ()) +(3539 compiler #f #f ()) +(3540 n-ary-primitive-compilator 3539 7 ()) +(3541 #f 3540 6 ()) +(3542 compiler #f #f ()) +(3543 define-n-ary-compiler-primitive 3542 7 ()) (3544 compiler #f #f ()) -(3545 define-n-ary-compiler-primitive 3544 7 ()) +(3545 call-on-arg-and-id 3544 7 ()) (3546 compiler #f #f ()) -(3547 call-on-arg-and-id 3546 7 ()) -(3548 compiler #f #f ()) -(3549 call-on-args 3548 7 ()) -(3550 do-arg 3549 6 ()) -(3551 loop 3549 52 ()) +(3547 call-on-args 3546 7 ()) +(3548 do-arg 3547 6 ()) +(3549 loop 3547 52 ()) +(3550 compiler #f #f ()) +(3551 make-dispatch-protocol 3550 7 ()) (3552 compiler #f #f ()) -(3553 make-dispatch-protocol 3552 7 ()) +(3553 compile-definition 3552 7 ()) (3554 compiler #f #f ()) -(3555 compile-definition 3554 7 ()) +(3555 compile-form 3554 7 ()) (3556 compiler #f #f ()) -(3557 compile-form 3556 7 ()) +(3557 compile-forms-loop 3556 7 ()) (3558 compiler #f #f ()) -(3559 compile-forms-loop 3558 7 ()) +(3559 compile-forms 3558 7 ()) (3560 compiler #f #f ()) -(3561 compile-forms 3560 7 ()) -(3562 compiler #f #f ()) -(3563 append-templates 3562 7 ()) -(3564 #f 3563 31 ()) +(3561 append-templates 3560 7 ()) +(3562 #f 3561 31 ()) +(3563 compiler #f #f ()) +(3564 make-startup-procedure 3563 7 ()) (3565 compiler #f #f ()) -(3566 make-startup-procedure 3565 7 ()) -(3567 compiler #f #f ()) -(3568 evaluation #f #f ()) -(3569 compile-and-run 3568 7 ()) -(3570 #f 3569 61 ()) -(3571 #f 3570 6 ()) +(3566 evaluation #f #f ()) +(3567 compile-and-run 3566 7 ()) +(3568 #f 3567 61 ()) +(3569 #f 3568 6 ()) +(3570 evaluation #f #f ()) +(3571 really-load-into 3570 7 ()) (3572 evaluation #f #f ()) -(3573 really-load-into 3572 7 ()) +(3573 load-port 3572 7 ()) (3574 evaluation #f #f ()) -(3575 load-port 3574 7 ()) -(3576 #f 3575 42 ()) -(3577 evaluation #f #f ()) -(3578 load-into-port 3577 7 ()) -(3579 #f 3578 12 ()) +(3575 load-into-port 3574 7 ()) +(3576 evaluation #f #f ()) +(3577 load 3576 7 ()) +(3578 evaluation #f #f ()) +(3579 eval-from-file 3578 7 ()) (3580 evaluation #f #f ()) -(3581 load 3580 7 ()) +(3581 load-into 3580 7 ()) (3582 evaluation #f #f ()) -(3583 eval-from-file 3582 7 ()) -(3584 evaluation #f #f ()) -(3585 load-into 3584 7 ()) -(3586 evaluation #f #f ()) -(3587 eval 3586 7 ()) -(3588 scheme #f #f ()) -(3589 display-conditions #f #f ()) -(3590 limited-write 3589 7 ()) -(3591 recur 3590 22 ()) -(3592 #f 3591 145 ()) -(3593 #f 3592 24 ()) +(3583 eval 3582 7 ()) +(3584 scheme #f #f ()) +(3585 display-conditions #f #f ()) +(3586 limited-write 3585 7 ()) +(3587 recur 3586 22 ()) +(3588 #f 3587 145 ()) +(3589 #f 3588 24 ()) +(3590 display-conditions #f #f ()) +(3591 &disclose-condition 3590 52 ()) +(3592 display-conditions #f #f ()) +(3593 display-conditions #f #f ()) (3594 display-conditions #f #f ()) -(3595 &disclose-condition 3594 52 ()) +(3595 display-conditions #f #f ()) (3596 display-conditions #f #f ()) -(3597 display-conditions #f #f ()) -(3598 display-conditions #f #f ()) +(3597 really-display-condition 3596 7 ()) +(3598 #f 3597 246 ()) (3599 display-conditions #f #f ()) -(3600 display-conditions #f #f ()) -(3601 really-display-condition 3600 7 ()) -(3602 #f 3601 246 ()) -(3603 display-conditions #f #f ()) -(3604 display-condition 3603 22 ()) -(3605 #f 3604 10 ()) -(3606 mini-command #f #f ()) -(3607 read-string 3606 7 ()) -(3608 loop 3607 23 ()) -(3609 mini-command #f #f ()) -(3610 mini-load 3609 7 ()) -(3611 mini-command #f #f ()) -(3612 command-processor 3611 7 ()) -(3613 loop 3612 77 ()) -(3614 #f 3613 7 ()) -(3615 #f 3614 6 ()) -(3616 #f 3615 68 ()) -(3617 #f 3614 11 ()) -(3618 #f 3617 75 ()) -(3619 #f 3617 201 ()) -(3620 #f 3617 246 ()) -(3621 #f 3620 12 ()) -(3622 export-the-record-type #f #f ()) -(3623 enum-case #f #f ()) +(3600 display-condition 3599 22 ()) +(3601 #f 3600 10 ()) +(3602 mini-command #f #f ()) +(3603 read-string 3602 7 ()) +(3604 loop 3603 23 ()) +(3605 mini-command #f #f ()) +(3606 mini-load 3605 7 ()) +(3607 mini-command #f #f ()) +(3608 command-processor 3607 7 ()) +(3609 loop 3608 77 ()) +(3610 #f 3609 7 ()) +(3611 #f 3610 6 ()) +(3612 #f 3611 68 ()) +(3613 #f 3610 11 ()) +(3614 #f 3613 75 ()) +(3615 #f 3613 201 ()) +(3616 #f 3613 246 ()) +(3617 #f 3616 12 ()) +(3618 export-the-record-type #f #f ()) +(3619 enum-case #f #f ()) +(3620 scheduler #f #f ()) +(3621 decrement-counter! 3620 7 ()) +(3622 scheduler #f #f ()) +(3623 increment-counter! 3622 7 ()) (3624 scheduler #f #f ()) -(3625 decrement-counter! 3624 7 ()) -(3626 scheduler #f #f ()) -(3627 increment-counter! 3626 7 ()) -(3628 scheduler #f #f ()) -(3629 scheduler #f #f ()) -(3630 make-counter 3629 7 ()) -(3631 scheduler #f #f ()) -(3632 round-robin-event-handler 3631 7 ()) -(3633 thread-event-handler 3632 15 ()) -(3634 #f 3633 111 ()) -(3635 asynchronous-event-handler 3632 24 ()) -(3636 next-thread 3632 33 ()) -(3637 #f 3636 18 ()) -(3638 scheduler #f #f ()) -(3639 run-threads-with-housekeeper 3638 7 ()) -(3640 #f 3639 6 ()) -(3641 loop 3640 29 ()) +(3625 scheduler #f #f ()) +(3626 make-counter 3625 7 ()) +(3627 scheduler #f #f ()) +(3628 round-robin-event-handler 3627 7 ()) +(3629 thread-event-handler 3628 15 ()) +(3630 #f 3629 111 ()) +(3631 asynchronous-event-handler 3628 24 ()) +(3632 next-thread 3628 33 ()) +(3633 #f 3632 18 ()) +(3634 scheduler #f #f ()) +(3635 run-threads-with-housekeeper 3634 7 ()) +(3636 #f 3635 6 ()) +(3637 loop 3636 29 ()) +(3638 #f 3637 6 ()) +(3639 #f 3638 57 ()) +(3640 scheduler #f #f ()) +(3641 run-threads 3640 7 ()) (3642 #f 3641 6 ()) -(3643 #f 3642 57 ()) -(3644 scheduler #f #f ()) -(3645 run-threads 3644 7 ()) -(3646 #f 3645 6 ()) -(3647 loop 3646 26 ()) -(3648 #f 3647 6 ()) -(3649 #f 3648 8 ()) -(3650 root-scheduler #f #f ()) +(3643 loop 3642 26 ()) +(3644 #f 3643 6 ()) +(3645 #f 3644 8 ()) +(3646 root-scheduler #f #f ()) +(3647 root-scheduler #f #f ()) +(3648 spawn-output-forcers 3647 7 ()) +(3649 root-scheduler #f #f ()) +(3650 call-when-deadlocked! 3649 7 ()) (3651 root-scheduler #f #f ()) -(3652 spawn-output-forcers 3651 7 ()) -(3653 root-scheduler #f #f ()) -(3654 call-when-deadlocked! 3653 7 ()) +(3652 root-scheduler #f #f ()) +(3653 do-some-waiting 3652 7 ()) +(3654 root-scheduler #f #f ()) (3655 root-scheduler #f #f ()) -(3656 root-scheduler #f #f ()) -(3657 do-some-waiting 3656 7 ()) +(3656 root-wait 3655 7 ()) +(3657 #f 3656 22 ()) (3658 root-scheduler #f #f ()) -(3659 root-scheduler #f #f ()) -(3660 root-wait 3659 7 ()) -(3661 #f 3660 22 ()) -(3662 root-scheduler #f #f ()) -(3663 scheme-exit-now 3662 7 ()) +(3659 scheme-exit-now 3658 7 ()) +(3660 root-scheduler #f #f ()) +(3661 root-scheduler #f #f ()) +(3662 cheap-display-condition 3661 7 ()) +(3663 #f 3662 164 ()) (3664 root-scheduler #f #f ()) -(3665 root-scheduler #f #f ()) -(3666 cheap-display-condition 3665 7 ()) -(3667 #f 3666 164 ()) -(3668 root-scheduler #f #f ()) -(3669 root-handler 3668 7 ()) +(3665 root-handler 3664 7 ()) +(3666 root-scheduler #f #f ()) +(3667 make-root-event-handler 3666 7 ()) +(3668 #f 3667 115 ()) +(3669 #f 3667 120 ()) (3670 root-scheduler #f #f ()) -(3671 make-root-event-handler 3670 7 ()) -(3672 #f 3671 115 ()) -(3673 #f 3671 120 ()) -(3674 root-scheduler #f #f ()) -(3675 root-scheduler 3674 7 ()) -(3676 #f 3675 13 ()) -(3677 #f 3676 24 ()) -(3678 #f 3676 41 ()) -(3679 usual-resumer #f #f ()) -(3680 usual-resumer #f #f ()) -(3681 initialize-rts 3680 7 ()) -(3682 #f 3681 44 ()) -(3683 #f 3682 7 ()) -(3684 #f 3683 46 ()) -(3685 #f 3684 3 ()) -(3686 usual-resumer #f #f ()) -(3687 usual-resumer 3686 7 ()) -(3688 #f 3687 6 ()) -(3689 #f 3688 15 ()) -(3690 initial-system #f #f ()) -(3691 make-tower 3690 7 ()) -(3692 initial-system #f #f ()) -(3693 make-initial-package 3692 7 ()) -(3694 #f 3693 17 ()) -(3695 initial-system #f #f ()) -(3696 initialize-interaction-environment! 3695 7 ()) +(3671 root-scheduler 3670 7 ()) +(3672 #f 3671 13 ()) +(3673 #f 3672 24 ()) +(3674 #f 3672 41 ()) +(3675 usual-resumer #f #f ()) +(3676 usual-resumer #f #f ()) +(3677 initialize-rts 3676 7 ()) +(3678 #f 3677 44 ()) +(3679 #f 3678 7 ()) +(3680 #f 3679 46 ()) +(3681 #f 3680 3 ()) +(3682 usual-resumer #f #f ()) +(3683 usual-resumer 3682 7 ()) +(3684 #f 3683 6 ()) +(3685 #f 3684 15 ()) +(3686 initial-system #f #f ()) +(3687 make-tower 3686 7 ()) +(3688 initial-system #f #f ()) +(3689 make-initial-package 3688 7 ()) +(3690 #f 3689 17 ()) +(3691 initial-system #f #f ()) +(3692 initialize-interaction-environment! 3691 7 ()) +(3693 initial-system #f #f ()) +(3694 make-built-in-structures 3693 7 ()) +(3695 #f 3694 38 ()) +(3696 #f 3694 60 ()) (3697 initial-system #f #f ()) -(3698 make-built-in-structures 3697 7 ()) -(3699 #f 3698 38 ()) -(3700 #f 3698 60 ()) -(3701 initial-system #f #f ()) -(3702 start 3701 7 ()) -(3703 #f 3702 6 ()) -(3704 #f 3703 6 ()) -(3705 #f 3704 64 ()) -(3706 usual-macros #f #f ()) -(3707 find-free-names-in-syntax-rules 3706 7 ()) -(3708 meta-variables 3707 13 ()) -(3709 free-names 3707 22 ()) -(3710 loop##381 3707 36 ()) +(3698 start 3697 7 ()) +(3699 #f 3698 6 ()) +(3700 #f 3699 6 ()) +(3701 #f 3700 64 ()) +(3702 usual-macros #f #f ()) +(3703 find-free-names-in-syntax-rules 3702 7 ()) +(3704 meta-variables 3703 13 ()) +(3705 free-names 3703 22 ()) +(3706 loop##381 3703 36 ()) +(3707 usual-macros #f #f ()) +(3708 usual-macros #f #f ()) +(3709 segment-tail 3708 7 ()) +(3710 loop 3709 21 ()) (3711 usual-macros #f #f ()) -(3712 usual-macros #f #f ()) -(3713 segment-tail 3712 7 ()) -(3714 loop 3713 21 ()) +(3712 segment-depth 3711 7 ()) +(3713 usual-macros #f #f ()) +(3714 segment-template? 3713 7 ()) (3715 usual-macros #f #f ()) -(3716 segment-depth 3715 7 ()) +(3716 segment-pattern? 3715 7 ()) (3717 usual-macros #f #f ()) -(3718 segment-template? 3717 7 ()) -(3719 usual-macros #f #f ()) -(3720 segment-pattern? 3719 7 ()) -(3721 usual-macros #f #f ()) -(3722 process-rules 3721 7 ()) -(3723 make-transformer 3722 424 ()) -(3724 process-rule 3722 433 ()) -(3725 #f 3724 114 ()) -(3726 process-match 3722 442 ()) -(3727 process-segment-match 3722 451 ()) -(3728 process-pattern 3722 460 ()) -(3729 #f 3728 97 ()) -(3730 process-template 3722 469 ()) -(3731 loop##385 3730 294 ()) -(3732 meta-variables 3722 478 ()) -(3733 free-meta-variables 3722 487 ()) -(3734 usual-macros #f #f ()) -(3735 #f 3734 11 ()) -(3736 usual-macros #f #f ()) -(3737 #f 3736 11 ()) -(3738 expand-quasiquote 3737 154 ()) -(3739 finalize-quasiquote 3737 163 ()) -(3740 descend-quasiquote 3737 172 ()) -(3741 descend-quasiquote-pair 3737 181 ()) -(3742 #f 3741 15 ()) -(3743 #f 3742 15 ()) -(3744 descend-quasiquote-vector 3737 190 ()) -(3745 #f 3744 22 ()) -(3746 interesting-to-quasiquote? 3737 199 ()) -(3747 usual-macros #f #f ()) -(3748 case-clause? 3747 7 ()) +(3718 process-rules 3717 7 ()) +(3719 make-transformer 3718 424 ()) +(3720 process-rule 3718 433 ()) +(3721 #f 3720 114 ()) +(3722 process-match 3718 442 ()) +(3723 process-segment-match 3718 451 ()) +(3724 process-pattern 3718 460 ()) +(3725 #f 3724 97 ()) +(3726 process-template 3718 469 ()) +(3727 loop##385 3726 294 ()) +(3728 meta-variables 3718 478 ()) +(3729 free-meta-variables 3718 487 ()) +(3730 usual-macros #f #f ()) +(3731 #f 3730 11 ()) +(3732 usual-macros #f #f ()) +(3733 #f 3732 11 ()) +(3734 expand-quasiquote 3733 154 ()) +(3735 finalize-quasiquote 3733 163 ()) +(3736 descend-quasiquote 3733 172 ()) +(3737 descend-quasiquote-pair 3733 181 ()) +(3738 #f 3737 15 ()) +(3739 #f 3738 15 ()) +(3740 descend-quasiquote-vector 3733 190 ()) +(3741 #f 3740 22 ()) +(3742 interesting-to-quasiquote? 3733 199 ()) +(3743 usual-macros #f #f ()) +(3744 case-clause? 3743 7 ()) +(3745 usual-macros #f #f ()) +(3746 #f 3745 11 ()) +(3747 #f 3746 28 ()) +(3748 #f 3746 218 ()) (3749 usual-macros #f #f ()) (3750 #f 3749 11 ()) -(3751 #f 3750 28 ()) -(3752 #f 3750 218 ()) +(3751 usual-macros #f #f ()) +(3752 specs? 3751 7 ()) (3753 usual-macros #f #f ()) (3754 #f 3753 11 ()) (3755 usual-macros #f #f ()) -(3756 specs? 3755 7 ()) +(3756 #f 3755 11 ()) (3757 usual-macros #f #f ()) -(3758 #f 3757 11 ()) +(3758 do-spec? 3757 7 ()) (3759 usual-macros #f #f ()) (3760 #f 3759 11 ()) -(3761 usual-macros #f #f ()) -(3762 do-spec? 3761 7 ()) -(3763 usual-macros #f #f ()) -(3764 #f 3763 11 ()) -(3765 #f 3764 238 ()) -(3766 usual-macros #f #f ()) -(3767 #f 3766 11 ()) -(3768 recur 3767 85 ()) +(3761 #f 3760 238 ()) +(3762 usual-macros #f #f ()) +(3763 #f 3762 11 ()) +(3764 recur 3763 85 ()) +(3765 usual-macros #f #f ()) +(3766 #f 3765 11 ()) +(3767 usual-macros #f #f ()) +(3768 usual-transform 3767 7 ()) (3769 usual-macros #f #f ()) -(3770 #f 3769 11 ()) +(3770 define-usual-macro 3769 7 ()) (3771 usual-macros #f #f ()) -(3772 usual-transform 3771 7 ()) -(3773 usual-macros #f #f ()) -(3774 define-usual-macro 3773 7 ()) -(3775 usual-macros #f #f ()) +(3772 strong #f #f ()) +(3773 pop-vertex-edge! 3772 7 ()) +(3774 strong #f #f ()) +(3775 follow-edge 3774 7 ()) (3776 strong #f #f ()) -(3777 pop-vertex-edge! 3776 7 ()) -(3778 strong #f #f ()) -(3779 follow-edge 3778 7 ()) -(3780 strong #f #f ()) -(3781 unwind-stack 3780 7 ()) -(3782 loop 3781 22 ()) -(3783 strong #f #f ()) -(3784 end-vertex 3783 7 ()) -(3785 #f 3784 6 ()) +(3777 unwind-stack 3776 7 ()) +(3778 loop 3777 22 ()) +(3779 strong #f #f ()) +(3780 end-vertex 3779 7 ()) +(3781 #f 3780 6 ()) +(3782 strong #f #f ()) +(3783 get-strong 3782 7 ()) +(3784 strong #f #f ()) +(3785 do-vertex 3784 7 ()) (3786 strong #f #f ()) -(3787 get-strong 3786 7 ()) -(3788 strong #f #f ()) -(3789 do-vertex 3788 7 ()) -(3790 strong #f #f ()) -(3791 make-vertices 3790 7 ()) -(3792 maybe-slot 3791 6 ()) -(3793 #f 3791 18 ()) -(3794 #f 3791 36 ()) +(3787 make-vertices 3786 7 ()) +(3788 maybe-slot 3787 6 ()) +(3789 #f 3787 18 ()) +(3790 #f 3787 36 ()) +(3791 strong #f #f ()) +(3792 make-vertex 3791 7 ()) +(3793 strong #f #f ()) +(3794 vertex? 3793 7 ()) (3795 strong #f #f ()) -(3796 make-vertex 3795 7 ()) +(3796 vertex-data 3795 7 ()) (3797 strong #f #f ()) -(3798 vertex? 3797 7 ()) +(3798 set-vertex-edges! 3797 7 ()) (3799 strong #f #f ()) -(3800 vertex-data 3799 7 ()) +(3800 vertex-edges 3799 7 ()) (3801 strong #f #f ()) -(3802 set-vertex-edges! 3801 7 ()) +(3802 set-vertex-stack! 3801 7 ()) (3803 strong #f #f ()) -(3804 vertex-edges 3803 7 ()) +(3804 vertex-stack 3803 7 ()) (3805 strong #f #f ()) -(3806 set-vertex-stack! 3805 7 ()) +(3806 set-vertex-index! 3805 7 ()) (3807 strong #f #f ()) -(3808 vertex-stack 3807 7 ()) +(3808 vertex-index 3807 7 ()) (3809 strong #f #f ()) -(3810 set-vertex-index! 3809 7 ()) +(3810 set-vertex-parent! 3809 7 ()) (3811 strong #f #f ()) -(3812 vertex-index 3811 7 ()) +(3812 vertex-parent 3811 7 ()) (3813 strong #f #f ()) -(3814 set-vertex-parent! 3813 7 ()) +(3814 set-vertex-lowpoint! 3813 7 ()) (3815 strong #f #f ()) -(3816 vertex-parent 3815 7 ()) +(3816 vertex-lowpoint 3815 7 ()) (3817 strong #f #f ()) -(3818 set-vertex-lowpoint! 3817 7 ()) +(3818 really-make-vertex 3817 7 ()) (3819 strong #f #f ()) -(3820 vertex-lowpoint 3819 7 ()) -(3821 strong #f #f ()) -(3822 really-make-vertex 3821 7 ()) +(3820 strong #f #f ()) +(3821 find-next-vertex 3820 7 ()) +(3822 loop##407 3821 11 ()) (3823 strong #f #f ()) -(3824 strong #f #f ()) -(3825 find-next-vertex 3824 7 ()) -(3826 loop##407 3825 11 ()) -(3827 strong #f #f ()) -(3828 strongly-connected-components 3827 7 ()) -(3829 loop 3828 52 ()) -(3830 #f 3829 39 ()) -(3831 #f 3829 57 ()) -(3832 usages #f #f ()) -(3833 insert-aliases 3832 7 ()) -(3834 loop 3833 22 ()) +(3824 strongly-connected-components 3823 7 ()) +(3825 loop 3824 52 ()) +(3826 #f 3825 39 ()) +(3827 #f 3825 57 ()) +(3828 usages #f #f ()) +(3829 insert-aliases 3828 7 ()) +(3830 loop 3829 22 ()) +(3831 usages #f #f ()) +(3832 make-form 3831 7 ()) +(3833 usages #f #f ()) +(3834 #f 3833 11 ()) (3835 usages #f #f ()) -(3836 make-form 3835 7 ()) +(3836 form? 3835 7 ()) (3837 usages #f #f ()) -(3838 #f 3837 11 ()) +(3838 form-node 3837 7 ()) (3839 usages #f #f ()) -(3840 form? 3839 7 ()) +(3840 set-form-aliases! 3839 7 ()) (3841 usages #f #f ()) -(3842 form-node 3841 7 ()) +(3842 form-aliases 3841 7 ()) (3843 usages #f #f ()) -(3844 set-form-aliases! 3843 7 ()) +(3844 set-form-unaliased?! 3843 7 ()) (3845 usages #f #f ()) -(3846 form-aliases 3845 7 ()) +(3846 form-unaliased? 3845 7 ()) (3847 usages #f #f ()) -(3848 set-form-unaliased?! 3847 7 ()) +(3848 set-form-free! 3847 7 ()) (3849 usages #f #f ()) -(3850 form-unaliased? 3849 7 ()) +(3850 form-free 3849 7 ()) (3851 usages #f #f ()) -(3852 set-form-free! 3851 7 ()) +(3852 set-form-temp! 3851 7 ()) (3853 usages #f #f ()) -(3854 form-free 3853 7 ()) +(3854 form-temp 3853 7 ()) (3855 usages #f #f ()) -(3856 set-form-temp! 3855 7 ()) +(3856 really-make-form 3855 7 ()) (3857 usages #f #f ()) -(3858 form-temp 3857 7 ()) -(3859 usages #f #f ()) -(3860 really-make-form 3859 7 ()) -(3861 usages #f #f ()) -(3862 usages #f #f ()) -(3863 topologically-sort 3862 7 ()) -(3864 #f 3863 13 ()) -(3865 #f 3864 6 ()) -(3866 #f 3864 15 ()) -(3867 usages #f #f ()) -(3868 maybe-make-aliased 3867 7 ()) -(3869 usages #f #f ()) -(3870 stuff-count 3869 7 ()) -(3871 #f 3870 10 ()) +(3858 usages #f #f ()) +(3859 topologically-sort 3858 7 ()) +(3860 #f 3859 13 ()) +(3861 #f 3860 6 ()) +(3862 #f 3860 15 ()) +(3863 usages #f #f ()) +(3864 maybe-make-aliased 3863 7 ()) +(3865 usages #f #f ()) +(3866 stuff-count 3865 7 ()) +(3867 #f 3866 10 ()) +(3868 usages #f #f ()) +(3869 sort-forms 3868 7 ()) +(3870 #f 3869 39 ()) +(3871 #f 3869 71 ()) (3872 usages #f #f ()) -(3873 sort-forms 3872 7 ()) -(3874 #f 3873 39 ()) -(3875 #f 3873 71 ()) +(3873 usages #f #f ()) +(3874 usages #f #f ()) +(3875 usages #f #f ()) (3876 usages #f #f ()) (3877 usages #f #f ()) (3878 usages #f #f ()) (3879 usages #f #f ()) (3880 usages #f #f ()) (3881 usages #f #f ()) -(3882 usages #f #f ()) -(3883 usages #f #f ()) +(3882 usage-incrementator 3881 7 ()) +(3883 #f 3882 6 ()) (3884 usages #f #f ()) -(3885 usages #f #f ()) -(3886 usage-incrementator 3885 7 ()) -(3887 #f 3886 6 ()) +(3885 package-usage? 3884 7 ()) +(3886 usages #f #f ()) +(3887 make-package-usage 3886 7 ()) (3888 usages #f #f ()) -(3889 package-usage? 3888 7 ()) +(3889 make-usage 3888 7 ()) (3890 usages #f #f ()) -(3891 make-package-usage 3890 7 ()) +(3891 usage? 3890 7 ()) (3892 usages #f #f ()) -(3893 make-usage 3892 7 ()) +(3893 usage-name-node 3892 7 ()) (3894 usages #f #f ()) -(3895 usage? 3894 7 ()) +(3895 set-reference! 3894 7 ()) (3896 usages #f #f ()) -(3897 usage-name-node 3896 7 ()) +(3897 usage-reference-count 3896 7 ()) (3898 usages #f #f ()) -(3899 set-reference! 3898 7 ()) +(3899 set-operator! 3898 7 ()) (3900 usages #f #f ()) -(3901 usage-reference-count 3900 7 ()) +(3901 usage-operator-count 3900 7 ()) (3902 usages #f #f ()) -(3903 set-operator! 3902 7 ()) +(3903 set-assignment! 3902 7 ()) (3904 usages #f #f ()) -(3905 usage-operator-count 3904 7 ()) +(3905 usage-assignment-count 3904 7 ()) (3906 usages #f #f ()) -(3907 set-assignment! 3906 7 ()) +(3907 really-make-usage 3906 7 ()) (3908 usages #f #f ()) -(3909 usage-assignment-count 3908 7 ()) -(3910 usages #f #f ()) -(3911 really-make-usage 3910 7 ()) -(3912 usages #f #f ()) +(3909 usages #f #f ()) +(3910 #f 3909 15 ()) +(3911 usages #f #f ()) +(3912 #f 3911 15 ()) (3913 usages #f #f ()) (3914 #f 3913 15 ()) (3915 usages #f #f ()) @@ -5945,105 +5944,105 @@ (3920 #f 3919 15 ()) (3921 usages #f #f ()) (3922 #f 3921 15 ()) -(3923 usages #f #f ()) -(3924 #f 3923 15 ()) -(3925 usages #f #f ()) -(3926 #f 3925 15 ()) -(3927 #f 3926 57 ()) -(3928 usages #f #f ()) -(3929 #f 3928 15 ()) -(3930 #f 3929 41 ()) +(3923 #f 3922 57 ()) +(3924 usages #f #f ()) +(3925 #f 3924 15 ()) +(3926 #f 3925 41 ()) +(3927 usages #f #f ()) +(3928 #f 3927 13 ()) +(3929 usages #f #f ()) +(3930 add-if-free 3929 7 ()) (3931 usages #f #f ()) (3932 #f 3931 13 ()) (3933 usages #f #f ()) -(3934 add-if-free 3933 7 ()) +(3934 usages #f #f ()) (3935 usages #f #f ()) -(3936 #f 3935 13 ()) +(3936 usages #f #f ()) (3937 usages #f #f ()) (3938 usages #f #f ()) -(3939 usages #f #f ()) +(3939 nothing 3938 7 ()) (3940 usages #f #f ()) -(3941 usages #f #f ()) +(3941 define-usage-analyzer 3940 7 ()) (3942 usages #f #f ()) -(3943 nothing 3942 7 ()) +(3943 #f 3942 11 ()) (3944 usages #f #f ()) -(3945 define-usage-analyzer 3944 7 ()) -(3946 usages #f #f ()) -(3947 #f 3946 11 ()) -(3948 usages #f #f ()) -(3949 analyze-nodes 3948 7 ()) -(3950 #f 3949 6 ()) -(3951 usages #f #f ()) -(3952 analyze 3951 7 ()) +(3945 analyze-nodes 3944 7 ()) +(3946 #f 3945 6 ()) +(3947 usages #f #f ()) +(3948 analyze 3947 7 ()) +(3949 usages #f #f ()) +(3950 find-node-usages 3949 7 ()) +(3951 #f 3950 30 ()) +(3952 #f 3950 44 ()) (3953 usages #f #f ()) -(3954 find-node-usages 3953 7 ()) -(3955 #f 3954 30 ()) -(3956 #f 3954 44 ()) -(3957 usages #f #f ()) -(3958 maybe-update-known-type 3957 7 ()) -(3959 usages #f #f ()) -(3960 find-usages 3959 7 ()) -(3961 #f 3960 23 ()) -(3962 #f 3960 41 ()) -(3963 #f 3962 24 ()) -(3964 #f 3960 59 ()) +(3954 maybe-update-known-type 3953 7 ()) +(3955 usages #f #f ()) +(3956 find-usages 3955 7 ()) +(3957 #f 3956 23 ()) +(3958 #f 3956 41 ()) +(3959 #f 3958 24 ()) +(3960 #f 3956 59 ()) +(3961 inline #f #f ()) +(3962 inline #f #f ()) +(3963 inline #f #f ()) +(3964 inline #f #f ()) (3965 inline #f #f ()) (3966 inline #f #f ()) -(3967 inline #f #f ()) +(3967 get-qualified-env 3966 7 ()) (3968 inline #f #f ()) -(3969 inline #f #f ()) -(3970 inline #f #f ()) -(3971 get-qualified-env 3970 7 ()) +(3969 qualified->name 3968 7 ()) +(3970 recur 3969 18 ()) +(3971 inline #f #f ()) (3972 inline #f #f ()) -(3973 qualified->name 3972 7 ()) -(3974 recur 3973 18 ()) +(3973 inline #f #f ()) +(3974 reconstitute-name 3973 7 ()) (3975 inline #f #f ()) -(3976 inline #f #f ()) -(3977 inline #f #f ()) -(3978 reconstitute-name 3977 7 ()) -(3979 inline #f #f ()) -(3980 reconstitute 3979 7 ()) -(3981 label 3980 18 ()) -(3982 inline #f #f ()) -(3983 make-substitution 3982 7 ()) -(3984 #f 3983 29 ()) +(3976 reconstitute 3975 7 ()) +(3977 label 3976 18 ()) +(3978 inline #f #f ()) +(3979 make-substitution 3978 7 ()) +(3980 #f 3979 29 ()) +(3981 inline #f #f ()) +(3982 inline-transform 3981 7 ()) +(3983 #f 3982 63 ()) +(3984 #f 3982 71 ()) (3985 inline #f #f ()) -(3986 inline-transform 3985 7 ()) -(3987 #f 3986 63 ()) -(3988 #f 3986 71 ()) +(3986 unused-name 3985 7 ()) +(3987 loop##431 3986 46 ()) +(3988 #f 3987 10 ()) (3989 inline #f #f ()) -(3990 unused-name 3989 7 ()) -(3991 loop##431 3990 46 ()) -(3992 #f 3991 10 ()) -(3993 inline #f #f ()) -(3994 clean-lookup 3993 7 ()) +(3990 clean-lookup 3989 7 ()) +(3991 inline #f #f ()) +(3992 clean-lambda 3991 7 ()) +(3993 #f 3992 41 ()) +(3994 recur 3992 91 ()) (3995 inline #f #f ()) -(3996 clean-lambda 3995 7 ()) -(3997 #f 3996 41 ()) -(3998 recur 3996 91 ()) +(3996 clean-node 3995 7 ()) +(3997 #f 3996 132 ()) +(3998 #f 3996 296 ()) (3999 inline #f #f ()) -(4000 clean-node 3999 7 ()) -(4001 #f 4000 132 ()) -(4002 #f 4000 296 ()) -(4003 inline #f #f ()) -(4004 make-inline-transform 4003 7 ()) -(4005 #f 4004 41 ()) -(4006 #f 4004 96 ()) -(4007 loop##432 4006 11 ()) +(4000 make-inline-transform 3999 7 ()) +(4001 #f 4000 41 ()) +(4002 #f 4000 96 ()) +(4003 loop##432 4002 11 ()) +(4004 for-reification #f #f ()) +(4005 package-define-static! 4004 7 ()) +(4006 for-reification #f #f ()) +(4007 transform 4006 7 ()) (4008 for-reification #f #f ()) -(4009 package-define-static! 4008 7 ()) -(4010 for-reification #f #f ()) -(4011 transform 4010 7 ()) -(4012 for-reification #f #f ()) -(4013 package 4012 7 ()) -(4014 loop##433 4013 73 ()) -(4015 for-reification #f #f ()) -(4016 simple-interface 4015 7 ()) -(4017 #f 4016 12 ()) -(4018 for-reification #f #f ()) -(4019 primop 4018 7 ()) -(4020 for-reification #f #f ()) -(4021 operator 4020 7 ()) +(4009 package 4008 7 ()) +(4010 loop##433 4009 73 ()) +(4011 for-reification #f #f ()) +(4012 simple-interface 4011 7 ()) +(4013 #f 4012 12 ()) +(4014 for-reification #f #f ()) +(4015 primop 4014 7 ()) +(4016 for-reification #f #f ()) +(4017 operator 4016 7 ()) +(4018 types #f #f ()) +(4019 types #f #f ()) +(4020 types #f #f ()) +(4021 types #f #f ()) (4022 types #f #f ()) (4023 types #f #f ()) (4024 types #f #f ()) @@ -6062,101 +6061,101 @@ (4037 types #f #f ()) (4038 types #f #f ()) (4039 types #f #f ()) -(4040 types #f #f ()) +(4040 procedure 4039 7 ()) (4041 types #f #f ()) (4042 types #f #f ()) (4043 types #f #f ()) -(4044 procedure 4043 7 ()) -(4045 types #f #f ()) -(4046 types #f #f ()) -(4047 types #f #f ()) -(4048 types #f #f ()) +(4044 types #f #f ()) +(4045 defpackage #f #f ()) +(4046 note-name! 4045 7 ()) +(4047 defpackage #f #f ()) +(4048 set-verify-later! 4047 7 ()) (4049 defpackage #f #f ()) -(4050 note-name! 4049 7 ()) +(4050 verify-later! 4049 7 ()) (4051 defpackage #f #f ()) -(4052 set-verify-later! 4051 7 ()) +(4052 *verify-later!* 4051 7 ()) (4053 defpackage #f #f ()) -(4054 verify-later! 4053 7 ()) -(4055 defpackage #f #f ()) -(4056 *verify-later!* 4055 7 ()) -(4057 defpackage #f #f ()) -(4058 defpackage #f #f ()) -(4059 loser 4058 7 ()) -(4060 defpackage #f #f ()) -(4061 make-a-package 4060 7 ()) -(4062 optimizer #f #f ()) -(4063 apply-optimizers 4062 7 ()) -(4064 #f 4063 6 ()) -(4065 optimizer #f #f ()) -(4066 get-optimizer 4065 7 ()) -(4067 #f 4066 6 ()) -(4068 #f 4067 10 ()) -(4069 #f 4068 55 ()) -(4070 optimizer #f #f ()) -(4071 set-optimizer! 4070 7 ()) -(4072 optimizer #f #f ()) -(4073 scan-package #f #f ()) -(4074 check-structure 4073 7 ()) -(4075 #f 4074 17 ()) +(4054 defpackage #f #f ()) +(4055 loser 4054 7 ()) +(4056 defpackage #f #f ()) +(4057 make-a-package 4056 7 ()) +(4058 optimizer #f #f ()) +(4059 apply-optimizers 4058 7 ()) +(4060 #f 4059 6 ()) +(4061 optimizer #f #f ()) +(4062 get-optimizer 4061 7 ()) +(4063 #f 4062 6 ()) +(4064 #f 4063 10 ()) +(4065 #f 4064 55 ()) +(4066 optimizer #f #f ()) +(4067 set-optimizer! 4066 7 ()) +(4068 optimizer #f #f ()) +(4069 scan-package #f #f ()) +(4070 check-structure 4069 7 ()) +(4071 #f 4070 17 ()) +(4072 scan-package #f #f ()) +(4073 package-optimizer-names 4072 7 ()) +(4074 #f 4073 36 ()) +(4075 #f 4073 75 ()) (4076 scan-package #f #f ()) -(4077 package-optimizer-names 4076 7 ()) -(4078 #f 4077 36 ()) -(4079 #f 4077 75 ()) -(4080 scan-package #f #f ()) -(4081 read-files 4080 7 ()) -(4082 #f 4081 30 ()) -(4083 scan-package #f #f ()) -(4084 package-source 4083 7 ()) -(4085 #f 4084 46 ()) -(4086 scan-package #f #f ()) -(4087 collect-packages 4086 7 ()) -(4088 recur 4087 26 ()) -(4089 #f 4088 150 ()) +(4077 read-files 4076 7 ()) +(4078 #f 4077 30 ()) +(4079 scan-package #f #f ()) +(4080 package-source 4079 7 ()) +(4081 #f 4080 46 ()) +(4082 scan-package #f #f ()) +(4083 collect-packages 4082 7 ()) +(4084 recur 4083 26 ()) +(4085 #f 4084 150 ()) +(4086 compile-packages #f #f ()) +(4087 compile-packages #f #f ()) +(4088 compile-packages #f #f ()) +(4089 make-define-primitive-node 4088 7 ()) (4090 compile-packages #f #f ()) -(4091 compile-packages #f #f ()) -(4092 compile-packages #f #f ()) -(4093 make-define-primitive-node 4092 7 ()) +(4091 define-primitives 4090 7 ()) +(4092 #f 4091 17 ()) +(4093 #f 4091 36 ()) (4094 compile-packages #f #f ()) -(4095 define-primitives 4094 7 ()) -(4096 #f 4095 17 ()) -(4097 #f 4095 36 ()) -(4098 compile-packages #f #f ()) -(4099 define-usual-transform 4098 7 ()) -(4100 compile-packages #f #f ()) -(4101 expand-package 4100 7 ()) -(4102 #f 4101 21 ()) +(4095 define-usual-transform 4094 7 ()) +(4096 compile-packages #f #f ()) +(4097 expand-package 4096 7 ()) +(4098 #f 4097 21 ()) +(4099 #f 4098 10 ()) +(4100 #f 4098 28 ()) +(4101 #f 4098 82 ()) +(4102 #f 4101 15 ()) (4103 #f 4102 10 ()) -(4104 #f 4102 28 ()) -(4105 #f 4102 82 ()) -(4106 #f 4105 15 ()) -(4107 #f 4106 10 ()) -(4108 compile-packages #f #f ()) -(4109 compile-package 4108 7 ()) -(4110 module-system #f #f ()) +(4104 compile-packages #f #f ()) +(4105 compile-package 4104 7 ()) +(4106 module-system #f #f ()) +(4107 analysis #f #f ()) +(4108 analysis #f #f ()) +(4109 analysis #f #f ()) +(4110 analysis #f #f ()) (4111 analysis #f #f ()) -(4112 analysis #f #f ()) +(4112 package-lookup-type 4111 7 ()) (4113 analysis #f #f ()) (4114 analysis #f #f ()) -(4115 analysis #f #f ()) -(4116 package-lookup-type 4115 7 ()) -(4117 analysis #f #f ()) +(4115 require 4114 7 ()) +(4116 analysis #f #f ()) +(4117 simple-literal? 4116 7 ()) (4118 analysis #f #f ()) -(4119 require 4118 7 ()) +(4119 analysis #f #f ()) (4120 analysis #f #f ()) -(4121 simple-literal? 4120 7 ()) +(4121 lexical-node? 4120 7 ()) (4122 analysis #f #f ()) -(4123 analysis #f #f ()) +(4123 really-simple-call? 4122 7 ()) (4124 analysis #f #f ()) -(4125 lexical-node? 4124 7 ()) +(4125 static-value 4124 7 ()) (4126 analysis #f #f ()) -(4127 really-simple-call? 4126 7 ()) +(4127 #f 4126 11 ()) (4128 analysis #f #f ()) -(4129 static-value 4128 7 ()) -(4130 analysis #f #f ()) -(4131 #f 4130 11 ()) -(4132 analysis #f #f ()) -(4133 #f 4132 11 ()) -(4134 loop 4133 21 ()) +(4129 #f 4128 11 ()) +(4130 loop 4129 21 ()) +(4131 analysis #f #f ()) +(4132 #f 4131 11 ()) +(4133 analysis #f #f ()) +(4134 #f 4133 11 ()) (4135 analysis #f #f ()) (4136 #f 4135 11 ()) (4137 analysis #f #f ()) @@ -6174,44 +6173,44 @@ (4149 analysis #f #f ()) (4150 #f 4149 11 ()) (4151 analysis #f #f ()) -(4152 #f 4151 11 ()) +(4152 define-analyzer 4151 7 ()) (4153 analysis #f #f ()) (4154 #f 4153 11 ()) (4155 analysis #f #f ()) -(4156 define-analyzer 4155 7 ()) +(4156 simple-list? 4155 7 ()) (4157 analysis #f #f ()) -(4158 #f 4157 11 ()) +(4158 simple? 4157 7 ()) (4159 analysis #f #f ()) -(4160 simple-list? 4159 7 ()) -(4161 analysis #f #f ()) -(4162 simple? 4161 7 ()) +(4160 analysis #f #f ()) +(4161 simple-lambda? 4160 7 ()) +(4162 #f 4161 128 ()) (4163 analysis #f #f ()) -(4164 analysis #f #f ()) -(4165 simple-lambda? 4164 7 ()) -(4166 #f 4165 128 ()) +(4164 inlinable-rhs? 4163 7 ()) +(4165 analysis #f #f ()) +(4166 analyze-form 4165 7 ()) (4167 analysis #f #f ()) -(4168 inlinable-rhs? 4167 7 ()) -(4169 analysis #f #f ()) -(4170 analyze-form 4169 7 ()) -(4171 analysis #f #f ()) -(4172 analyze-forms 4171 7 ()) -(4173 #f 4172 17 ()) -(4174 analysis #f #f ()) -(4175 #f 4174 11 ()) -(4176 flat-environments #f #f ()) -(4177 set-difference 4176 7 ()) -(4178 recur 4177 18 ()) -(4179 flat-environments #f #f ()) -(4180 union 4179 7 ()) -(4181 recur 4180 31 ()) -(4182 flat-environments #f #f ()) -(4183 cell-set!-primop 4182 7 ()) +(4168 analyze-forms 4167 7 ()) +(4169 #f 4168 17 ()) +(4170 analysis #f #f ()) +(4171 #f 4170 11 ()) +(4172 flat-environments #f #f ()) +(4173 set-difference 4172 7 ()) +(4174 recur 4173 18 ()) +(4175 flat-environments #f #f ()) +(4176 union 4175 7 ()) +(4177 recur 4176 31 ()) +(4178 flat-environments #f #f ()) +(4179 cell-set!-primop 4178 7 ()) +(4180 flat-environments #f #f ()) +(4181 flat-environments #f #f ()) +(4182 cell-ref-primop 4181 7 ()) +(4183 flat-environments #f #f ()) (4184 flat-environments #f #f ()) -(4185 flat-environments #f #f ()) -(4186 cell-ref-primop 4185 7 ()) +(4185 make-cell-primop 4184 7 ()) +(4186 flat-environments #f #f ()) (4187 flat-environments #f #f ()) (4188 flat-environments #f #f ()) -(4189 make-cell-primop 4188 7 ()) +(4189 flat-environments #f #f ()) (4190 flat-environments #f #f ()) (4191 flat-environments #f #f ()) (4192 flat-environments #f #f ()) @@ -6219,184 +6218,180 @@ (4194 flat-environments #f #f ()) (4195 flat-environments #f #f ()) (4196 flat-environments #f #f ()) -(4197 flat-environments #f #f ()) +(4197 make-primop-call 4196 7 ()) (4198 flat-environments #f #f ()) -(4199 flat-environments #f #f ()) +(4199 make-cell-set! 4198 7 ()) (4200 flat-environments #f #f ()) -(4201 make-primop-call 4200 7 ()) +(4201 make-cell-ref 4200 7 ()) (4202 flat-environments #f #f ()) -(4203 make-cell-set! 4202 7 ()) +(4203 make-unassigned-cell 4202 7 ()) (4204 flat-environments #f #f ()) -(4205 make-cell-ref 4204 7 ()) +(4205 make-cell 4204 7 ()) (4206 flat-environments #f #f ()) -(4207 make-unassigned-cell 4206 7 ()) -(4208 flat-environments #f #f ()) -(4209 make-cell 4208 7 ()) -(4210 flat-environments #f #f ()) -(4211 #f 4210 11 ()) -(4212 #f 4211 25 ()) +(4207 #f 4206 11 ()) +(4208 #f 4207 25 ()) +(4209 flat-environments #f #f ()) +(4210 #f 4209 11 ()) +(4211 flat-environments #f #f ()) +(4212 #f 4211 11 ()) (4213 flat-environments #f #f ()) (4214 #f 4213 11 ()) (4215 flat-environments #f #f ()) (4216 #f 4215 11 ()) (4217 flat-environments #f #f ()) -(4218 #f 4217 11 ()) +(4218 flat-environments #f #f ()) (4219 flat-environments #f #f ()) -(4220 #f 4219 11 ()) +(4220 flat-environments #f #f ()) (4221 flat-environments #f #f ()) (4222 flat-environments #f #f ()) -(4223 flat-environments #f #f ()) +(4223 no-sets 4222 7 ()) (4224 flat-environments #f #f ()) -(4225 flat-environments #f #f ()) +(4225 define-set-marker 4224 7 ()) (4226 flat-environments #f #f ()) -(4227 no-sets 4226 7 ()) +(4227 #f 4226 11 ()) (4228 flat-environments #f #f ()) -(4229 define-set-marker 4228 7 ()) +(4229 mark-set-variables! 4228 7 ()) (4230 flat-environments #f #f ()) -(4231 #f 4230 11 ()) +(4231 assigned? 4230 7 ()) (4232 flat-environments #f #f ()) -(4233 mark-set-variables! 4232 7 ()) +(4233 #f 4232 11 ()) (4234 flat-environments #f #f ()) -(4235 assigned? 4234 7 ()) -(4236 flat-environments #f #f ()) -(4237 #f 4236 11 ()) -(4238 flat-environments #f #f ()) -(4239 #f 4238 11 ()) -(4240 #f 4239 85 ()) -(4241 #f 4239 99 ()) -(4242 #f 4241 119 ()) -(4243 flat-environments #f #f ()) -(4244 #f 4243 11 ()) -(4245 #f 4244 21 ()) +(4235 #f 4234 11 ()) +(4236 #f 4235 85 ()) +(4237 #f 4235 99 ()) +(4238 #f 4237 119 ()) +(4239 flat-environments #f #f ()) +(4240 #f 4239 11 ()) +(4241 #f 4240 21 ()) +(4242 flat-environments #f #f ()) +(4243 #f 4242 11 ()) +(4244 #f 4243 21 ()) +(4245 #f 4244 6 ()) (4246 flat-environments #f #f ()) (4247 #f 4246 11 ()) -(4248 #f 4247 21 ()) -(4249 #f 4248 6 ()) -(4250 flat-environments #f #f ()) -(4251 #f 4250 11 ()) -(4252 #f 4251 37 ()) -(4253 flat-environments #f #f ()) -(4254 #f 4253 11 ()) -(4255 flat-environments #f #f ()) -(4256 add-cells 4255 7 ()) -(4257 loop##446 4256 11 ()) -(4258 flat-environments #f #f ()) -(4259 convert-lambda-body 4258 7 ()) -(4260 #f 4259 47 ()) -(4261 flat-environments #f #f ()) -(4262 flatten-lambda 4261 7 ()) -(4263 #f 4262 21 ()) +(4248 #f 4247 37 ()) +(4249 flat-environments #f #f ()) +(4250 #f 4249 11 ()) +(4251 flat-environments #f #f ()) +(4252 add-cells 4251 7 ()) +(4253 loop##446 4252 11 ()) +(4254 flat-environments #f #f ()) +(4255 convert-lambda-body 4254 7 ()) +(4256 #f 4255 47 ()) +(4257 flat-environments #f #f ()) +(4258 flatten-lambda 4257 7 ()) +(4259 #f 4258 21 ()) +(4260 flat-environments #f #f ()) +(4261 #f 4260 11 ()) +(4262 flat-environments #f #f ()) +(4263 flat-environments #f #f ()) (4264 flat-environments #f #f ()) -(4265 #f 4264 11 ()) +(4265 flat-environments #f #f ()) (4266 flat-environments #f #f ()) -(4267 flat-environments #f #f ()) +(4267 no-free-vars 4266 7 ()) (4268 flat-environments #f #f ()) -(4269 flat-environments #f #f ()) -(4270 flat-environments #f #f ()) -(4271 no-free-vars 4270 7 ()) +(4269 flatten-list 4268 7 ()) +(4270 loop 4269 26 ()) +(4271 #f 4270 39 ()) (4272 flat-environments #f #f ()) -(4273 flatten-list 4272 7 ()) -(4274 loop 4273 26 ()) -(4275 #f 4274 39 ()) -(4276 flat-environments #f #f ()) -(4277 define-flattener 4276 7 ()) -(4278 flat-environments #f #f ()) -(4279 #f 4278 11 ()) -(4280 #f 4279 6 ()) -(4281 flat-environments #f #f ()) -(4282 flatten-node 4281 7 ()) +(4273 define-flattener 4272 7 ()) +(4274 flat-environments #f #f ()) +(4275 #f 4274 11 ()) +(4276 #f 4275 6 ()) +(4277 flat-environments #f #f ()) +(4278 flatten-node 4277 7 ()) +(4279 flat-environments #f #f ()) +(4280 flatten-form 4279 7 ()) +(4281 #f 4280 73 ()) +(4282 #f 4280 120 ()) (4283 flat-environments #f #f ()) -(4284 flatten-form 4283 7 ()) -(4285 #f 4284 73 ()) -(4286 #f 4284 120 ()) -(4287 flat-environments #f #f ()) -(4288 #f 4287 11 ()) -(4289 #f 4288 6 ()) -(4290 ensures-loaded #f #f ()) -(4291 ensure-loaded 4290 7 ()) -(4292 #f 4291 49 ()) -(4293 #f 4292 56 ()) -(4294 #f 4291 61 ()) -(4295 #f #f #f ()) -(4296 #f 4295 3 ()) -(4297 get-location 4296 3 ()) -(4298 #f 4296 10490 ()) -(4299 #f 4296 10539 ()) -(4300 #f 4296 10652 ()) -(4301 #f 4296 10770 ()) -(4302 #f 4296 10851 ()) -(4303 conc 4302 42 ()) -(4304 #f 4303 16 ()) -(4305 #f 4296 12161 ()) -(4306 loop 4305 115 ()) -(4307 #f 4305 202 ()) -(4308 #f 4305 233 ()) -(4309 #f 4305 413 ()) -(4310 #f 4305 471 ()) -(4311 #f 4296 12549 ()) -(4312 mem? 4311 197 ()) -(4313 every? 4311 206 ()) -(4314 #f 4311 219 ()) -(4315 #f 4311 282 ()) -(4316 #f 4296 12745 ()) -(4317 loop##451 4316 66 ()) -(4318 #f 4296 12794 ()) -(4319 #f 4296 14536 ()) -(4320 #f 4296 21629 ()) -(4321 #f 4320 456 ()) -(4322 #f 4296 22563 ()) +(4284 #f 4283 11 ()) +(4285 #f 4284 6 ()) +(4286 ensures-loaded #f #f ()) +(4287 ensure-loaded 4286 7 ()) +(4288 #f 4287 49 ()) +(4289 #f 4288 56 ()) +(4290 #f 4287 61 ()) +(4291 #f #f #f ()) +(4292 #f 4291 3 ()) +(4293 get-location 4292 3 ()) +(4294 #f 4292 10490 ()) +(4295 #f 4292 10539 ()) +(4296 #f 4292 10652 ()) +(4297 #f 4292 10770 ()) +(4298 #f 4292 10851 ()) +(4299 conc 4298 42 ()) +(4300 #f 4299 16 ()) +(4301 #f 4292 12161 ()) +(4302 loop 4301 115 ()) +(4303 #f 4301 202 ()) +(4304 #f 4301 233 ()) +(4305 #f 4301 413 ()) +(4306 #f 4301 471 ()) +(4307 #f 4292 12549 ()) +(4308 mem? 4307 197 ()) +(4309 every? 4307 206 ()) +(4310 #f 4307 219 ()) +(4311 #f 4307 282 ()) +(4312 #f 4292 12745 ()) +(4313 loop##451 4312 66 ()) +(4314 #f 4292 12794 ()) +(4315 #f 4292 14536 ()) +(4316 #f 4292 21629 ()) +(4317 #f 4316 456 ()) +(4318 #f 4292 22563 ()) +(4319 loop 4318 95 ()) +(4320 #f 4292 22720 ()) +(4321 loop 4320 95 ()) +(4322 #f 4292 22845 ()) (4323 loop 4322 95 ()) -(4324 #f 4296 22720 ()) +(4324 #f 4292 22938 ()) (4325 loop 4324 95 ()) -(4326 #f 4296 22845 ()) +(4326 #f 4292 23031 ()) (4327 loop 4326 95 ()) -(4328 #f 4296 22938 ()) +(4328 #f 4292 23124 ()) (4329 loop 4328 95 ()) -(4330 #f 4296 23031 ()) +(4330 #f 4292 23217 ()) (4331 loop 4330 95 ()) -(4332 #f 4296 23124 ()) +(4332 #f 4292 23310 ()) (4333 loop 4332 95 ()) -(4334 #f 4296 23217 ()) +(4334 #f 4292 23403 ()) (4335 loop 4334 95 ()) -(4336 #f 4296 23310 ()) +(4336 #f 4292 24099 ()) (4337 loop 4336 95 ()) -(4338 #f 4296 23403 ()) -(4339 loop 4338 95 ()) -(4340 #f 4296 24099 ()) -(4341 loop 4340 95 ()) -(4342 #f 4296 26227 ()) -(4343 #f 4296 26390 ()) -(4344 #f 4296 26439 ()) -(4345 #f 4296 26488 ()) -(4346 #f 4296 26633 ()) -(4347 #f 4296 26851 ()) -(4348 #f 4296 29774 ()) -(4349 #f 4296 29974 ()) -(4350 #f 4296 30023 ()) -(4351 #f 4296 30072 ()) -(4352 #f 4351 146 ()) -(4353 #f 4296 30121 ()) -(4354 #f 4353 329 ()) -(4355 #f 4353 403 ()) -(4356 #f 4296 30500 ()) -(4357 #f 4296 30549 ()) -(4358 #f 4357 176 ()) -(4359 parse-package-clauses 4296 30607 ()) -(4360 loop 4359 76 ()) -(4361 #f 4296 30616 ()) -(4362 #f 4361 35 ()) -(4363 #f 4362 146 ()) -(4364 #f 4296 30872 ()) -(4365 #f 4296 30921 ()) -(4366 loop 4365 35 ()) -(4367 #f 4296 31034 ()) -(4368 #f 4296 31115 ()) -(4369 #f 4296 31196 ()) -(4370 loop 4369 51 ()) -(4371 #f 4369 90 ()) -(4372 #f 4369 114 ()) -(4373 #f 4296 31277 ()) -(4374 #f 4296 32534 ()) -(4375 #f 4296 32670 ()) -(4376 #f #f #f ()) +(4338 #f 4292 26227 ()) +(4339 #f 4292 26390 ()) +(4340 #f 4292 26439 ()) +(4341 #f 4292 26488 ()) +(4342 #f 4292 26633 ()) +(4343 #f 4292 26851 ()) +(4344 #f 4292 29774 ()) +(4345 #f 4292 29974 ()) +(4346 #f 4292 30023 ()) +(4347 #f 4292 30072 ()) +(4348 #f 4347 146 ()) +(4349 #f 4292 30121 ()) +(4350 #f 4349 329 ()) +(4351 #f 4349 403 ()) +(4352 #f 4292 30500 ()) +(4353 #f 4292 30549 ()) +(4354 #f 4353 176 ()) +(4355 parse-package-clauses 4292 30607 ()) +(4356 loop 4355 76 ()) +(4357 #f 4292 30616 ()) +(4358 #f 4357 35 ()) +(4359 #f 4358 146 ()) +(4360 #f 4292 30872 ()) +(4361 #f 4292 30921 ()) +(4362 loop 4361 35 ()) +(4363 #f 4292 31034 ()) +(4364 #f 4292 31115 ()) +(4365 #f 4292 31196 ()) +(4366 loop 4365 51 ()) +(4367 #f 4365 90 ()) +(4368 #f 4365 114 ()) +(4369 #f 4292 31277 ()) +(4370 #f 4292 32534 ()) +(4371 #f 4292 32670 ()) +(4372 #f #f #f ()) - diff --git a/build/initial.image b/build/initial.image index bc6aace37a6768c5891c99d693deea11579c6c78..76847f853659948927466bf900043d95287ed794 100644 GIT binary patch delta 212582 zcmaI94Oms@mG`~(J`hwCl%pI4;V2j}9u*B%tk__J4K~V_S%en_j(q7aq;)QGDBbWy{)O`fk$<%<#AmL26e4&hpv@B zt!usC)wTT7y5@UV*J4L>Eqtt@)y*-qfn-BV{Hmd)LRnB@p`rPT46WoXL#sMrXk~4N zHhj_0(t8ap>_bBf#Cx>HJ3Ly^ogS@jp+_st@n~sZ_h{Z1Jz8IlM+^SIQ?7Nr<DxoJ+9yM_Ca7a~h}QFLh!$HJq9sF3FNSD?2ST*`+7NBzP>5FXUWk_ZL5Nls z8mg81LbaNyp;~D|s203ERO?L&)rRMXYIUihS~Jw29jes_(Vqy_+V>lp7CKQI6*@yR zw2FGYrC!%x&(lw;d%vlt>L=9GuyMz{npX8qT~m->&3jl6Om9Ox4jlHdu1(Q2Ed-Lk zS&+)pHLrT=VZG3siunj`+3-B5@nKyZiw}(-J4Vwc=$bZfqNbIo_jSWO!OKa7tjU)S2hB)>75QRUa7MrqnY$B!hFuphuL9i9ahlGgd< zpXW+ac`9O^9_uZ~x(`nUuZJ$>>o3K`tB2O<;Snw9`|aGi@>THVkQnvCI(@u%5W`*! z;p-R{P{ul49eT(Uuilfe0Lb%LeKe637Vpgi+XdD|WC?QTI=yDui*aKrkavUEuT$yk z^_fQVI#mew_JMB)ABKmm*R{;`W@ALpaVj}p(_+DQ;*+*sbrX{)jWElx(+K(4*I+M& zS3rpcx?1*UBVNsWL=PXMK-OYyT(6Sf)???-*R)=sbwK%Z=^6gAAJH|^)Oz63zkTpD ze58Lp>cvO&(s6}A8|;ue6;+^T7|oBU+yecc+Xpdi!4y_NUr}7`ZcWoQJxq@n%TSB+ z&!ZE3>X!v{LK-ehag~g6kUKY6ty6%!47{X3mG|h;@d|x8y8Ow&8>Aptz>+pFvNov9 z4f=xY}6C)uLWI=wS6=x>y$E7 zpDdX?OZ8i@Nqf9Q9g2e`+vgS*%-ytp>xL~Gx0%DY5Box5hv8uxbuF+_CI6%D|7?U? z)g%{RCf50QN*l^w##%<^MqRBtV%#2GfpHE-8QRj=(h2n&Rm!9K%;+|3v#?2>oWS0V zDu`{|5VmR9yx6?z^+)xjfS*-t29P;J3|%wI{ANirz$Y>=^5BI~|D)!hirwN28fsVu zJ{g~CxPOAC&R6Qulh7N`r^3reG_BLas`#kNE!6Mw7dx@oJcSe;-ivQ6a#x|*jY|T^ zqrlVP?f7fNdt?y!SpcR|9`Lc)CEa@DWXfEG+*GK-H|h6J*yrRyQ?_9ruO8dPsJVi8 zi)u>92$a8Bui3pTX4NW9%h^OjNsgO!EtCv%;L@nVg)o_6BFoTpaui)gyyHiPT8=U{ z>jSBon9N~7dK-dUH)1iDo$XHHNV6258FhRg`2l-C;Mk8>S^#xkc`wWm(PZc z#oIU8K3BkpZJ$BM$D?VRw_0h0713Xiq~TS+EYf}HNvM*13S5?VF{LA$MPT7AUcYUl zltI?-0`RL8y$oInwG^4Pp0v}cHLa+?uSxaPy<7AoZx`xi)GP2o$iKx5@$GU#=#;Q6 zy7rOPB5L^afN~!<3lzQA6_XBr&WdUKn(m)K8H<2U0hPn69#`dS^%(WL z$Mx}HXG}j`?MtITU09dVP`C-;RF= z{B#H1|A?kFQSEN@!Bf;SsMi#~`-O-jb{aB-dV{K}SdU5c73*3tv6*luHaL#qfiAHn z#b&JfcCkKI&sSrf(EW+E*tQVU>5A#QmrcWt8MI^mn;4_7SXDnkMzK%m+9ras;7&&A zU)Ho-bTgwT%#6kzcNMZgMQqb!6KiqVAo;mM{mg|PJ9N+rjX2>7?R!F1Zw(I^t9kx}(RDNv5Nw>-h zAj{|=wo5$97^r{6=WlcD7FS)^orJvm1@%|S zu1YQ1q5I=Iu`Rc=lQ?&Fz8xy^IX!ng=41}zE8w~CGWGi%Y~8fixAa84Qr!uQYQb;= zhfcVx=si1B^__ZbyxmH&P7PqX3J?1hJ0+A{YR>UHMuppF(P^5N3VsbA`RhdPfn*ct zgNLaE{dlK7HmU;PBaDsk z7N~QFO4+H;3tV-jd(%l5zf1UBgb%_;pp2aq`;quKmy2&FOW^-ZvSX)yr#BD$Jh;@P z1i59Wt}c%laTBUgF4zGuZIpWJNj=5e1$-7=YJCMc@TBEGW(4J&>8~1|)R%ZOo@Cv# zT+jEa6r&mGr=cmkIz@Im#-le%C1^(lRPsOKqNJE`7!O80w{5s%@L z3D1E_pE5gS!eysww0r^haTQU9do|(_+#BG{P>OJwxMm&IDA-n`qmfwU6uIwwo52|^)bbnM6;y&Cv;N8$rnQGgm z&kpTF-mhN7#T&Vc=K@@k;3-hWd3G zIpDSnHyMW+Pcu*j}Odd-^hKkakavRn)x+P>6H|InccHdNlJwmgr(X|w-KNLdIeEUr zZh~D(6N}vZ9cx-fr=V=WPyo-=xwe3}&sGB~>7rZT(c>n~a0)|vmt)+7vr_Y((f!Hw zs9PjcS>CizeVry*PS&Mro!Hi3>w^zKDbMIH-(|%Aj~;r4ZA!9MZ#|=@O~^uBEh^sO zI*%9XZ_nt7-g4j-zzSXurBs;xc>gS?TnxAt@Rj&YY7$j(@%@`3lT)Fz3T-p`>TcCyzM`*``tFW9rZ4 zftyiT{)whF{{y!fq+aiOO)m?vT$frnS>T1};OMKRe)otF25PsS$& zo~Pcc)MFzv5vKy>!|8o>tI`uQiV+e-pQd8=>dD?l#8J4MhIc^)d*#Mtijyuy8w4GT zN5)=S^jTH2SAR4#8+p9?bgv#8K-V}BMVq&50XFdg7rvvoVEvXY79K{PW?tNDY}>JQ>v}mE@+aj;RPR;kzOSUYTsCZ6 zzd>?yTykBut--k)zhyr2S<7EJwtX~94V)Ix>eL6%>4`pBK3agD$J7az-K58AG5rIC4=vAr6a>Us6KdJ&zw?&X)h*8Ub0DgfyD(% zS9iUj*QK7Z`$o=a=UnnyCv{3$fctimD1%o*6));9t&U&ncr4_u0dyxGi7(QVT;?Ui z(;z8_WSWUw1d)kZkW#hvMZKu}lq1v7HLab!n3?){xXigv~}Jnq?Z`FHF_Yb6L=ZsK6p~iXDN;u zLSGIZTci44(o1NW^cb}^ubq;xr$E*{Zo+=O zx*!bITqrn#Y~H$g`{wmq=5F7#jrG79i-%p~_@YbRV^>UCbfQy9nOvkdgM7>2l~BWe zb9$@IKi9{ORsgdwhN!21uKS|eP^Y5y!26(){VMrkt|^@4;Df-^tPb*hpN$RgbS7sq za@Naq&}mQH7m841+(=F394q5;08H9eFiK@|r&W9}Gj&wV%X%{d_Pv*R{3!q#OA2N1 zN@#$j<->~GostmR06rccX+ODsc6i^*Dp%?E#H?|A$u3OMyZHLy0i`09o-k>zW2cDe z;G-lh^|9hUvk>)`kFx;03hGwe*H1Fyr#m6IHh^nzXF^J4B6R{~8&KcJ-!;3(ZI>@G^qZE=H!_&-zhj_CmZ}MK80|lKK&v0k>!Zzfbg;x zlzFe}e*Z!zibA*IauSzrcrWCC)k=Am<3q}W;HM;a>c$5Ouj)zuIgXhmQeWkv9kUmn z4MobOuys^i%nU6FY@ zvj32o>imT~^`IWbB%@>iSw@D8JIO(+Dts6`?2x3Ma7eF+IOrM?C&O#XUQ6(%Vm&As z5}l3Qd&pkb3s4SWkm^>esMqwAaScF+fy`Xg1Fz{B-XWm3LMT`-Js-cy>Dd)* zNWi;sai*i>F@tgm_k8v9Mwh846i)jNw2b=a~8>_vtrgE zryjPtmNlXqb?4vZ=ya*1=+shj3#exf>-qi=SIXIkIS3IhM}R`)Rx{3KVg(RhBg4a;UYIrBqbi}?a=tEhH!D&?A5n5!v%KsXzarB5jeRc-G zI@>{tCV!5z@OtcKGv=x4hm2@7?#KE{|1DS69XPBc0deX@9{#bt0S%$7!az~YPDxR3 z{8-PJng3%>cy@;F?v~8tPcj_%v5I_Cf7yT2m5=vLjzYu@5FbEpeUp6tJtXdqJd_o7 zf=&%&R7!%<$iiiQ7N{|eyqwUD`%>Kd;X{zO(OeDF);VL0@_HIMj^X3_WcUT9nmMNe z*cM`wa%LbG63+*aqX^4JU93KBEdaqg*`KW1fmx9)((wM~+%OFs>VA z8U`6jnd<4Eu>JdfLZbl56HPL5?@!Fq&t$;mqE2?@A_Kb-%sEQse3iv>QRpNU_m;jh zY6#0%yk#Sde2a(fx1@sclai6g+o{MXF1=s!{{35euD1r0hN%(W0_8TDEgyf>)yrMr zA$B;?+VESdyh*=vw6}>XRnP^ zSRaaaV7rb@4$ZyD<;Tosm_~`ij&Y#ER0x+HM!HIxK+f7F>SxFFqQDV57xTQ~oDpCOwvR$b<%%ktv{m6f?uHC{F$Eh`JtRT7T|J*kOEfmGUWcBSzGFuYLv4W>VIaw zS|W$?HlTAr&XP>0u%d5m=G5(J<|u$Ez^W08+}vz+z%&YhdJaOE@z}pFY6j-X!hg@;o-tLD`j$vSqYDwyi<9h0(%;Owe>?F)%B{^iO zKOJX2)nYn~sTtk|^&U6Jse0l2e3Z}ya6~=zb9VY6#Dn-n{+v2M=|4C9qE9$Of)WS7 z58*Rhr!M_mkMZWB?=f|DW8{>#ts;)DK-r6di`ut!|Ck2U=TSR4{A%VzKnmwhD#o4D(f*KVxW7D}*H*?#4Y z9~IoNe*1c%GQw6j>} zBa2FaWdL>XMyTf(dd;!!c=d_o&<3#F&S8d%_$Moe#UNp=Y_m{$t2se@>s-}H0$*z9 zF@LgWdQ>jJe1IUl3~FdKF9zHVTMfL>&S{$ZKym_^1=0iWgCb9wIZfH*%4rCEjvX~s zy2G1vlKl}R9i9c1T2bnSlls_k`2aHOHBOS6l8T>j0l>MX6Oi z#`Fn80OJ87|A|Ec%2ap#lO7nCj5yIweX@GGjnqL#ft124pr(Ja8f&Mk3JQFzow~do zi|vgR_KbAg>R3mTwUNd?4V;Uy!!e+stxB?{x*Gf?qR(thaFr z(J!Ny!>gc{Ho2Nr@3raS;dSUA*%_QSLV3Fe;3B{k_#oszMFvsvlU(VConl+G(&x<` z9tP3Rqi4hOph^h|iJP+D6%z!%VCBQdu#bVu9-F&}4M9EpjvhN91^Ae_?`LQ)meheK zPhqDkz;aXqs;qNOY!2h#9aa7fJ;7It?FhDlmpJ!ePh3r(zhl3v*n{yf#xM#j2ON*mmxIWc%uRDxI2%dd)6?WGb0i z=loB8&8b3RzKFRA-U?N;o0W<`C+ zK!>V5tH&pWpS5=8NY~Ds40e+AGvPT<`B~=E#rSBaNbmySQ&tgbc6CqpD)i&%P4HIe z3L)}--KS^uQRApW7uX5Y-&%r3(2t_~e!~!kvVWti@k>4Nlbk$=Nd-S<#hA-VA^KtT za(ETg@*8Wg{_}72v1950j#$o-!`9n_oj?bHdg1-QvECm1!n^wT+YVWN`J;4yG?O6t zT~2_!43GiWma%NTYfY4OyqVxkltOHK@hKA@{wi&sb1t7cYzFBS4(9Ecli@|saHsij5>th| z6I_O<6d_Z$u1vZ+RsP3%mU{La2Y2r|PD(fh;HgmMIV*q7l|eRmF+M?fnfe=Hfs1w( zn!t2%YKY{0bzei|B(-&3t!db~bI{a#!y zyIi_(nJ+Hys@U^-eB=z|$nzY8pzibL;=0grpF{P4XW=4CyR&o)mkR^u0=NSokNVqr zy~2Oi38iKFfhQAcn*W6^|E>8vId>K#5_Kx3emFHW|Ed{SvN8^VnYYg`@EFyi^6xQ{ zRKjm{m3YpX@zdDUeyeNKNT3DoC-5}93#a)R#*Ze**t>2!i@Zj?)U78)%QhC)&1sD| zKRf`XUXUd?NjBk3)bW_)uMAmcM`gE4x}YzKJL;-d9kz-1iCs3afO`6ZUgO{Ia>>5H z+{dL5UIOL+t2uJxPq=)lz(eqHvTD7cihidrx}zU_lskF!#D8Vmg3_Q&Nd9tK-u)dP z@n+v}RdlkQzEpauOTOvyIpr!tDQR7cAuV_{G}L2Vj?^Jv2XFdU^XncnyU}l;`+7L0 zLGs2)fO1tKUxM0~Nr`IC@0g^{_vmvcB!k_=U&<{#lc^#u>ID(?z_)8T>^x}6x(q@hgAs76cIg6uw|HcUcJPV!+ zHMgsQf79;?9Co$tJ|{oYDZ}TSlnGu3W&GaU5EnQuGnfv*=W+4>-bvEx&;YuGwXh?! z=ctiSd3Ws8@AWSmAB~j{PNMR#pCPUUUJhknGG8K}>m<#zY6L!uOW=}~q&tgLu#(@a z%1iol#-4HJM=^y!Cvh)_S3&vjn~xq}aHZG+e9BHyQcHfHQ3%OI&4f#+S>SD|`jQ^2 z-hN-tkJw@-Aj7cO%BmFK<90gL$h~C6*RDeAkWZ+m{$0=V4j~@JCGy`{jG(rEHy>o( zrO5<7hKtO2nfWpX&GE%JYrrOk-_YZqf%F z38ZwSC+Rk#JL$F{ORSmhx6O2?_3BR;8?1_5!F-U=5qNknjnZphIyjBUAoPPD!bkqn z)Th0AqJOz#X3XSc-j6vAUJ7+wHrGk{$gK(WfL*Yv%byocQc~#kkSqvI@HF+@W&KLb zGFRiTa>*;L^7i8SJSj@#5LEFW*2Q#0TtT63QQ!IlPoo`( z>+s5k_d(BOjG=WXYt^@|=%rr&6%HEs zq{1_xwyS2lEt%t#ia}8Zz8W8CJK2D$uhKSsty3Upz|0!q7ZC=mEoKUdG!jqt^kIf3kyzi8W`H}{{6dyT4+Xo(R0oZ&nsazTI z>5uJkTZ6I?gZ#C8tb+aeJpU#qF$#JK`z-8(@DZq|pL;vLe0jIyLyM;N^SqDG->)my zMrA#_N{hDPC+V1L!FSBHVE#4z1@8d(G~&fS>>8J9*JO2zAB8vrI7R*C8gu@6Cr3(^ zi)k_@nQcMjrfXKSM^vCp#UOw6*HpoO=`;NkU4b3g$77eJsuwx-zwCAxLYZg>rd*SD zm~FlTnDSqgA3O`53nhJGe)j#@8E-xV5_l{wasrd(PX?Cf6Ilj6uX-eUmU{FPy~5aK zO}TUsjVSTVg(^NVm-Nwv$RXfq>fQl8(OZjplhGiFHX{#wVi&j*<(3Q+{?gw6yue`t z96rGP@BlP4zzBIHet~_4k=HeHfp6eaY*y_MutPV84vLo_+}XBYW*1 z&A2HTwU5BvF*0k@)NOy_Q?n|}7clpeT|IL0pUhTV(2RT${50HrYtG=^MCYrTGOWSh z$G(`Pq|f*e?oWE2H}g-N0Dz@M@{vmh&E&=ekd{ek=;zU;HnRRUUsa`p z`iI`CLH2v_W|o3_4f|r3@hqHX6 zCMpl*i0v%x+;>K${YAge+X8+NTpFtj+4C1W^*)qC7{s~h*Xs0NI9kU3g)JE@1)dI- z{Kb4Ebl*AT03X1G#z-F0XM3yA_oCOsn;`#?`5@bBU;_w2LJytsE*w2mGQ_y$W>6T@1fIyd9o{XF3XF_+&jZP!C zHr?PN_rixDx!vi9%VF^yUN9}#5-iz>EIyu_Q~?s7NcHheJ$6w5m0V0H71;?Z*}if8 z7I4`X^1!#_R01!D8gH7PoVzcCs)2XfrN8{Pkr0Kx1^p8I3grE(xg+>4I1`>7VHmvF zjxle*1Ak?21;~JBLuGc*MORP(_$E8(Se7Rt3VkhlBfJIbvtra8f8$oD6JVX`tjsH< zVf5AL-oMcfP}bkfQbk{OWsm~C#){!4DIrjXz7kztdhhFE|9a%}r^GI7&inL(q*eUk zgYx=YFYqctQq(Vp_1MtFVRldT!LaU&EJbtzYKK1ys03c&1ekBWHiIk!kq5+Hx}am& zx}EL?UkWY{jmdoEFgUE*Zs{>oytmka!CTnKWct&=<{>Us{pl8W1v!`(N^%^>owY7_ zOBMaMo)BGyZN4OF+a$EXww=Z{2U{=Pc}nQNrSd=3znExH`jG)(e5CMk$Z?SD&735loC$6}M`wL#?c zPuZNHAS5%h@>6#Ig~o!p@_Bw3;CP&4;nG*1eQ3+mq5XXqbFe2VV?IM%1mzyH_>dwHY zYM3twjiscX5hfcZUb?3w-W1eP@)8O>7wQ=?2WRX==YU2?5%^eqWcB+`=$Ak;YUn8%APOKhSj` zDYnPpS7Qv-J7UB~#UkGTpG6tuOF|BS+076Dk8*4=6kny zg&4lsWuRsQ(imGemTuY1Pa;UA>%cD%DQ(|^Tp40kB%%xXqNJEWB|NGz#8?vQ3o*3! z)yE-5g|`mzEM|{{A$x9Jf}I<1y}oAF#!>}`g2%1$Z;x#~8vaG_bqXHjmLJdR5%yaQ?pGtA$1 zaXNV(S@eUSkYvKF1|}!7H2JDM%qR~n0Y0hj8)f87=t4Y#XCc+Pg6vmsjWYaMDWeSS zC~$Z`w_u~KMDpN;ko-DH4ZIeTLX0qDnvhRJJC4Bl0RP=v-e5fF9DM# zzA{?ngd5L=hKCz`bN0huLCdH7nC&Bng-Y;h z=pE*8fOG__MX$H9xi;2>-Xa*)nKy5q>315vQ!pmO0)i#B2ff$!n+qsdKf07r{N~=p zt57n=!^as~F@;NnCqt1DhJ1cJVZT#>Ib5%RZ&xu9Mr`OXqDL)>Fq-_E91l`SiZHYd zq>>KLg2E$7B`QA7c?Z-RW|&DyBB6O7U0aBl-!jlDNg)r~i1 zh7O>wQSXj7QoPCI4Q)B5On45I8fC~^1a~;aVVy1kUV%#++(WTD;loha1cvXIYwE7~ z)Yb_`s=h_NF~LY%aKZ_l#U_l)N*SW0vuyaZ~XY;@8CyPO=TS_Swrd}`t5&g5Y;iS$H78WHxlg{+-vrxQcBwc)$a zj_E;;^_q)%L_hLk@JKInHbQlJjoJQUS6mAC9PC-}T&U7($Qv`!jtj*p1fGvenb%Oe z6GA4LKk2l_aUkzH9A@AkwQoVroMS#mF|3^K3isQrNRp68Hk-xTys&tYuZ_EhTRItWLs%erjb4*FJ zp_N0!<5lk@<7ZR4CK=i^?8zo(tst^_6sk9)jrwti?c}AOR;h=4Mr>3Ao}-A6l-i&c zpV^+1yOGC&%S}+2kN%lQG47^R$-NcbW=6$MVSh$XffK0ZPEq;y8vZXj%}f2WfUn`wj%@$v zlz$#)&=T;E%%lvh2DyyM-#kUtH5xOGx+$tG#)zNP1%4SHsV$>L>qn1NZ^amylL9ep zs+eS!h$$02Urf`~>{uh#N4$0cyNuH?78Qlw8)K+rU-iVxZ`w4XU&MYIP6JlO8cQY( zBcBHwk(oz~?5#fa`&c6}CN-9=6H`9C0!qg$TUcYP@=ayH1i{W?ZyT?&ry4Q$*Px$6 zm+Z}NEy|IWGa%o6Sw@gl;W4K6@o4*MlXX{WSR0?kvT5`kZuq4AVMRIAglNmOXnLVxt{Rs9> zjA80$@ka8L*m!nj30Y@_q@zpDN<9^C1jgl}9>Pp1h`7^lBrmE&G*4dPn)bww^(C91 z*b&^mk*y847Hs<^wK-O5m(V4(X1`evIZk=}Y{|If!)2t8UdAebTnmM%5Bx^CQQ=ql z(~N{W8-ScM-j1zSHj+y>`16uWnw86tgp*5Pnwg7?qVQ=P5pa=Bg|6?PX3X?ug6)wo zj=hD*5|TLGc=_Xy+ox2b@5MFIXG>=wU7?Y}+M{5z}JFU7F5`j$e6L(gCm&qx970JxVY~RkKG) zUnX)lZ0eGogv2pD)mUZ z-B863hEDfoU|cE2U6cq}Mn^5i%U45gA6E*n3gc%pe3pFswi$E4!5JwIS1G=26E5lP`%P!R3)i#$Xz{)Ve-kPNO(X zc|bGZ3O)cyOUhsEER{CPxF@0!Y!>z|xGdJQjQirfv&d1BmAdd(f?fg1%8Ae5EaSy; z{~c6SeAd!30S++-kk`{%-?v(GG(9dYCi6|2W%O3;Y~!PO`C8gT=95%@^tY@Urjmx_ zH;w!Xk!9H!&4^eg`JxoOvXi$xfD=obJ_V@z>aWO=z?E@66bPa`knsy$5Z2JKJcTeeXfz=B}O}h zdk#DwYM5&tKPQ}WN`iX{_+fS5Jlxw558&Pd?}KvY8S=uRb0s0OX9V~lF4Bhbjhs~V z`*}vbw`d+KEpP?A8X6&zb8g&OCnG`|!T00CvSNnzN$4`wo^1HNzGPNjY{~F6s4Urx zpK{KLXT0ZtKaY>pJz340Z=^(41MLQ?hc_j2)Lg4inR4D0(}7_R4$=Vi5;Ony8RR~n z#%FQOgy%rb&=8co055LJiWaE!g~piG3^}|{mom8 z`5leo;5G)O94triCH4sz<+7~_x`R81V^l`Gk}AG}A|2Szyc?mw`UR zj>%UEcN&TQm5w`&QGt0Z=300I)VIKFu$YTZk;%3dd^|qVs67i*?VUz~|FUBzjbZE| z*u8hM)j(NynrTG8@Az=wNCqE;5Al&HMuN8h{Z_o_bP{rE3X3COdz;;eA{&;>74scI zxHpBh1V{PIP}(|xUVcecr5Ml7)11oCANk-{Nwix0p#dmqAww3D{-{}K^~Xm}!60z(~K5t<;c zJ2rx!2R{w(f_#e%`6lLErv#LG2>1dnRL=ZM`~nw!Pz}@v)&E8He8IRgA`ST>exH|g zW|WMIAo%-s*4C()9n}PO8BG2pU20af$ha$V2>c`4*ImryMI3CwGvPT0sATJZSYQLh$NW0YHq6aTk z<_*r>OIdVLPhxV90pDU4eUgwdAdM+wKwkBczLwW{|;uI2A#$U*r<@k9u5870NLT@_KY9az7+*XYnyv(HD(-$6P``j{Wp+RV#XI+80?n z(evRrXjPDWRD@BTzdQ7fh+B59ay47}MU}I}NJv*W$@WkWmuiWv3E7TCM+ zs7io+05Xj0kUK5M(ap&F&GcSOe4Ni#dpH`bY9jI~(s=k2tQ-3YnE zn**>Lpa@L(!oDQ&e63=s5k9FEU^_8uLUbp zucp%@gQzP|!_!$fpkTV$NHMdV!jen?d?h{^@E$vvT;x??%~mp%s7q1n;Ej-PnVHO# zIZiT+xzpgw@acv7)vL>lq^Lo}W=Tyc+p0zAF9VQe#vspU;?MHF+5)L!2_< zIgtNuGwr+PJ8947Y7>01ozVZ^JFwonxq`?iqi4<6LU!M6Jn3KPq(d1~vCkqM@ymw1 z8Rm*%{#pa-96JlvHCgt|S25%ryOeu)0R17KW2uMkG1{VYQRm|-A7VSNy$;@^k~55V zy@3oiPiz_RY^W#0x-VbglwuZr13m+vX1L5``Qe#1Wcg#G(>js)4WGQ_#$BoF>^Sp= z$R#gz(xX-b_)jK1i3?lKY*=pA>UOe9L7j@J8eR*TKMM5%Zz>`8LH)~Bygxx|v6YLc%2HKIG;@@PSp zUzIowmmiyM->2H9dScaw_j298K|P#lq%2tDs^JPJAC`zdV#bn>3@d3RDU;;qQSW4O zoXpAOl)r>J}oGn>V?6jdX#-Q0G|{N|Go*bUre1T`TCS6E#!jWrqdCML;5 zx-hN1ixdk=BNkLtHa z4Pd;8QMx$nJ~qz#tZgC|`F$%$T~qoLZwA150O^}NWObj^o}U>+zF?=Gr|!?9!zpbC&rr)|g7< zQ)Z0HUui6f=s-V)E|-PW}9abeMhU7kmi)W<80 z*3cf*6Y9;c8u@9-Uu8LA8M8*flYaReIsUZJCp?FoafnYX zw!`=|!KDPPw$Cw_PdB!M`1HevAn*O=yh)P}r_B>S`FrkX>&M6ZAxpVT4As~17Kk}I z1K9Rs%YbJ?)mD7;C?}rPCm;L(J{9+?^la|zLmV4rY{2$Bwl;Vt)RJxHKS91dVCK(= z^kj2XP;X}&0i!xw^<^8s@OA<1ChQ7)5Gq(j*dy_uZJ4ASzKRVV7pZv)a<2M#m605p zj<{FFf6egwuesWx40tErHSjuUL=p^%i@)jkum!h*@4}~z%U z|238UfH5y{(v{x{SAHG%tixB*>_u*Uz+5S&0(lPrBix zLaUboZ^AWKJ&EC3LPy!q8G^FxS(!Z z%_Dai;!1pK;B`vrD}s?b-ctzYMZ=t0E!n8;QO|2pUE zubT@-OcL@!@FI9AQ~^~(?aO32ouXzuXv|%7&Q-h%F8RExs0{=yCLw8c`D^;Bs(g^= z%uC=iz$Jr0DE~pLO+61X`N6#p8fxEaeNt2aU=D!OZH$2MTw_U8Dfnb?DP1*keXiLC z(GAGb-Iw53ph2j8ZcXGf(dxBaW7@qJT?KvLDJbhzVlGDvS3Z&-U1{dakkHDpS3wGD z|GM?#G;wQ;6{&|^30`%{A32HBVXXv>C2=WGH*)Sb%-Vjf4|%*~Dv5IQW!@}1Z$dJ~ z0&6%5h}|BuN#9_XgG878QFywoi=5Rm<{O4b&p72O#~GJ=+$CRjl`lvd8u?_wE1}GX z%xMz`)QB45DuUAvgWph<4;c@P344g?gq>fe>wAbBtbFtvtklx}rO4rV-0}W7Bz^(% zO>hPOUsa`vn!s;icdAN1SLYdzL?!02y-FNSl!n}&XZCYc4)QhIU;3vaPx-&e*GdjO zWQ3}(t~I8H*5YwpZCz^=cs*;`h;fza;KwyWT#^uIY`SX1A~<`7kMl3 zxqy$%f;!}$Z<^gVrV05Xc-vZ4{Y@i!$q4%Uc3QH;NOwtEf8S+-Io&3^7prLRH;oUx z1K(tuCSGh|4|61V*evD}((&!hwePz8dcAO93sOijXP)~6+w?n(!F8%@ zy%Aj=zMlJ2NFM2ZaGjQWCzK1(%};GaG#~rr=RK0K$rV5vJlpoqbo?0-+crLG+VjAs z5GUysy6hzzx0{b#m0!#f190U&Y%a}mniV3uggURO{u_$Die-$gKgt^#B&NGZGm zYT6(#oVc4wfvz)SRCO9P??7LT-V5)Cd>hFpDqcOj(FhM80a#;Ypw^AjoWOZ*qoLNl!vQ=G!%7Tt0BPYPt)OG5#IOQ`%=6|MoHi{(bPOk@7HrG0RdAw{ z4?JXZ@1Y3e4?UJo{8T3;N<-4x`_w|g>!B-!it85t0>=g30(=>l z4!B&um>-;)PqA{evtGXLE>umMc>iz&p9}cxLHmR#T>wRjv#Rg+ss9XdT+DgkBCJ)4{XJ&;myWf-XgG5 zU={FcDDap$Dx>E($uW8Bz|Y{*v00TrX3UH1K|gD!(|$kyjn(gTpXz>$)G{7pS;dkE zFNA8X)Z*tmsYx4xpTsA2wN;Xe%__ghNQi6#KMH;t-u0OEnMdJ5ClKC;;TR6Xa4D|2 zB^dTsC?d+7)3ZmOo5G4%pYb)HTf~Q#j&9?>7m%mwWNZf*&KYpo`Lc_+>VH>{iFfkC zrx4qIe9GXJ(CH%c87nVjf;BW{-MsWJg9Mw%dB}CP-1{5099zyuZn5RQvsQ(r441(6 zk^TUD81ii~(@#5Rr!Q-5*cN;3rVEzr*t%h3!502ws14RN7q-2`XTozJ@8gC#wM&nm zX2;7%T0!vV@#%vPK*La&y8m&bY|1IyO%B^S75k96DWS14yx|Ibgax1GRdJ>#u zwCtcc3a^V~N?-`|L8waM*9l64U6!@ZrajjoY>b`S3%0o_G0lmGCl> zbDVmN|0qr>Apg~3Kfx=gTnmNVZTRH%3Ey@$9U!SsGV-Mz<_U9L2J&KX>7JlU*kPp1 zZ2(#dP4CXJykuk!x+jt>Z)xcuvsYXGiPqwShAgzrR0ZPK3$Fv z+0G0Wi;KCA41&)w3(gbEx7gI4G*8~;`{^*$`Iwvz6HZmlf;aDEl5^B;gA3k8=XE0Y zKpnrerma-G4_#^?ohg0;w!g^XPcko{L?{gsEC-$s#TMDXt&x!t0V{32J)Fnmhm1)r zKP)wF>E&x&17NwUV>h|vT`qa2t22iwi`i`9e8|0J%iKqU+a70iHJfg#E9QMyGbU3E zr~e<{xG~pkM;Setj=>x~JJ%Orkv>@EDxfpT%n|DNk7l&-cE1&2ov~}4RKcfMRa^0y zMhD1j=thp*W%kWC*06;=#VrD+tg_GB*4;PKma@i3AC++k$;B^>Ww-z?eHMh5LDFZH z@EWMDtR=F{NYKl7y2`xF)ex6m_yHHb)Fn@L$p>v&UTSM2gITV@MA^*FmV&geM3K8i zzOusWe(KmRjnTaXr>5#mt6Z@>S_{DzL8r1TdSr)P+TZ)ei*a~YSdyo30ZaOa2;>fS5}>vF{jZdex^r<$^g8nez}`Z?!3EMZ81qb1IYQ` zF~`!vg=B&ng2`F$W#y47OLYU^u~r=kOGVCsBGo9P<8wYZy$9V3B72ChCj>r zeb&4o@+Km`4=(Pq2vBeN8S`irQ)z@p}Ac_YrXRjorrP{ zgIR6PHj-oCPBpUEcs8m9+bL|aS#%+Xeb?McBl?iffXnZ<28S3P_1IYwTR z<^WV%Wfo)FG&cDvo=h-FyGqHOp<@k~KUEpk-ez2m;37G7BImwfM$ezmYig)RG0FMQ z94Zt@Qjv{7dP52*1(l)WYx&@LBVYFhU*N8Z81b(}?lO~$^VK6C26uW?COxMywaV~J zQsb(PF)DkXFXa9z9YyPFIr>G_ac{4t~4Zm{yyF+@Kqa8-aM@PB#P3M zAcs|3-94oSWj_Wf@-VXWN!cSzakZ`52*#gsHKo6rCmmd6WTYaORhv1F&PIM7JX6iw z$Je21P)9sagd{8)yx)asAk7E^7xX)ac{AXP`rh@O15C(wE zpS*p1=)TXGl5Bo!CFB7fG#C42#W>>%DkrFzAn8VhocKMn&l2eIR@Cj1C#JCPkuT>o zNm~{Q4%qTNlF91$_l&Q5)39#BQx1MP$d{}{4@1|FfWfs4>dD3YS%cL~i3=3%O@M!-M~AW z@veNNDV*jIE+I1FMK(97mcP7g1obGTIB63nRct~YP}bNzjl59OQ?DN2D~4eQI76XI ztN4)%4_MVpL!RTxHt&E`FL5TOXS6Dgl zc+Aql3c2$K*2Hc?o(P_)o_)m#c>7RCp$@~tUg25l6?4W;+TtWdOZvda;*+EP@(M4a zWuj`Rl5swA^($6;mLP|KXQ=yYd7r2O_2zWzEZBzZuQdx0-Gh7!JgnAw$nnD4?@%L2 zp^55)S|f7yYF9(7aLzL{L@JKg36y|rsMbm_su1}GxNMa&Tn7%Q%!9@fZ!`E+aGF`` zL@qjL4y8HsS?5u&*=3LqAU+#13>_JgGK}OQjGz2JXq0*@4syW2T~e<_?jR*T0SRwJ z{s^4#n#;eO?(Idth&}}O{E!LtLzZj4n5LE-;&Rvr^1kJ*mfh6vh|LAKU;$bgvV!Cz zhknB3BZt|Q06ImHUl4zM({(9CCY+ z%`~Xf=BkAoEyw5|s0*!GDDq?dtYa(DPRD%%34GLO+9E0k4KyUuASJ z|2%}ydf>BGh+O$6M4_KV?}raTiFM}aQk(0HvHTn|2M^oXd~q=i;5a}IJRhp6GrxB> z(J2$W1o(u+sQV8YiM|HZqgE1H2Xff!910F`=W-=M{zJd9+A0ZhTv2w9~>5!^>jl=XH_+fBKQt-&vxFwA9 zOrI2ZjUxdDd5n=i88_K#%gW1j+aXs8NqF@ zss0}u@v(CCcnSM{?8ETBc5A%}d)-jW9@KA-+v6m}l<~jL2?576xU4w5!}vPu#9o(6 zKBnh!k-I2yDSKU|*Bc2jwcvZfWn&SWw3oDB>+7oRExsh!jeQSx*(78o7a(I=Tuew#zMvw3PR-*;0OaFittlxdA(e3^NU<7CDEFm;Ra{pG^eu z*n$T~E7L=^^6JAX`$xu1Zv(bX*jnLY?>KCC)_JD^NuUqo20H<{Ws@R|SVb^9EA~g6 z5u^ydendk2%!mB<5;@q{V3)gab3~wLs5{><(&8Ht*J6^nEO$7Pv|QatKlPNW zsyB>Refe*&nd4Iqmn(C5^u}P0g@jSg@<~1oIIP0411|UJ;@JI$N^dak^bLTm#1`4W zuFIXe*kT*3MAT0jjIonav8=!&7cRH%;!&X9YcNux%Yl|-lA8{>gcnm?gUUZ*%#3cu zwhWuxMoA6CcFD5&hOjNgCO1-2E3x^Guq8gKC&>4QQjc&Hz@7(}+DRI67%x0xeg>5= z!&SKod=}ci6`fWm)EzO$LA-fEf_*;rKDboUNo&ALYx*o#TH!xt!?%5tkfqi6Zq1K* zB1usZZyJ7I0q86|D&S$~toc{{W2?Cm=eUw;#9;=Go$%p*wj6tGN45D)V{FtQmT7o+ z-=vbJhf06bn4P%Ll}Z}6srcl|})aTtYTE4%{|$3ELJVwLSEn^HyGZt zQVtxoQl7rrm2xHy8jgkVN_s(3E>RyGHBx-lK(|GVkDkg!Q1h?=2%X zrVitE9Oa2odc|qMwx6hSmd}{~%h>zCWqFo;+&A}mJ5*5ATe%gK8%4#56E{qp*l=OP zh7B7QD}06f>7B(zwrwtnxEA|Wat2BqUT^3fld;ng2_k;Myg zd9oxs$AlLdFTJWsPR03jo3pWj(33VSarsjk@rf4~Z z;PRh5_3+dqESI3VBRb;vD7P|8at8}odQ5t%o@r=lazw2N??51XuGd90_r{MLMAU?Cc+D#{+G^BTQ# z#y8*|3qG8yD;vF0%ewG~v8qG3& zVgl~#;8NK-UxyuKtCkOT1&lKDl;Un}wAShx_f=b$qBT#_+vZ!h)V_YyJAFzI3YSo* zB;XM4xT7YLDWOMc-gZE#pSEebcb}T}^p7~~NI`Z1SrTEgaFVrh)p7y643d6d3^)CrC1CLbTMJ0K(WwNlvvsO}q>F#d@~;E`Y2xaG4?@vDwi0;G zNgyRQ3Vy~;pt+cn^kWv$02%OXsLTo!dEN;`t_r|UnLyUfoND~X@i)R-paCn)v(0>B^Ovh!p$>jh|MC;*y40 zlMBEOfk`EqVMqV?P4A*95|Vb^3~z^$eqxGL|Kw%vdG!DsM(CqX_^SL*yjd}8Tzx9z zCs;%r56^>Ye`4*Ei*Y{(F28vFnV0!kMl;X>pe}eXl=-sR$xL;uQ3pf72T@7WufOcg z3EmLVvGQMLQH`h+UI7iiEITJX@wj)aymwm&lFd-=)2F`&QP%v%}}&8(>r#lw@J z;b!Z7lUtmK7jfJQz84)?+oxfQhG?!ah$-u;flfK@{jNXaIE!qt1y6!Xk9+wWA71Ho zY?0Co@ZCD*6)*qWfpZ7y4e(}Y^tdV6$xB@7UEn+Q_h0d*`U9`9Zbm&3o&x2*VyQ23 z)X7~s_;x-2Ro=rb#<>OcN_aKYYN=0I;Hc9T>cO|ptxBw)p%1;vFwld4BVmT%qfpYT z=624F^iv7`S6N!?cVG1;PRYP|AKH2FLa6Fhb2Ui6(BcidsT5$t+^WtOBBSMV7Bc$P z1Fb{972XLAy=t|jaVNatH}wLnpQ{@RLp}@;*1`gp0CDg{D62&R#7uVOAQgD++^WGuJd2nvupYUcS9J1A9Iy~-(v$dd<6RntF{<8(9WC8jxl0x1>cL#hqu{6xCCw8W*b1Z3z_-_8%HSV7bd*^LoczW>@xNrF|I4P%)80Em#;4%fWDM)T>wLGW8~=LzgYXfk{B^6~ zzTN2!kBNJo(Hx=MvM5S-EqYy#zV3b0UxUtCbeiC;P->?!FnfoSQU>$$W>RNRE8SlOR0q~XJ>I@YPrJk|Ma;p;^ zWf=rtC1LdkXIPEcxnkEpXMsXy&OD4-~TJ#7;eV9NW8T9F5IDf+@3FK zhV|oKBGz7`kH~p&{IA#_S%4=4cRnPG*WO=Qi`UX@0Mj!$56<8G=;p^B*e+LU%nG$< z1>amoE-TtnxQ1j!Tj7M^vDo&)g3WTNN_1+$n{1s1M~52T{OIFG-U=q8s@UkX@|cw$Lq#IITMLg~MztHq3oiF6fI0{C1zYi8M-3osp^7+wZ7{MyUEG){AZ(5^M; zOcTT`dMCHzpM<{`J^%&u9bH@&AH_Mj*@Mght zp^7)G7t(G7p^A&ZFPb3tbTbsy;ys7A8Qu;J5sAETaCwNY*GA0cu(Q2fNQAL3ZloIiK zU|#k?Jzz({q{gM@r|Y|ZLUH=vWPqH{u@5{M%70T*6QiGa%R5%SYncwV0eQ}wI-