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 <time.h> 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 bc6aace..76847f8 100644
Binary files a/build/initial.image and b/build/initial.image differ
diff --git a/c/sysdep.h.in b/c/sysdep.h.in
index 5cbb90e..faaf408 100644
--- a/c/sysdep.h.in
+++ b/c/sysdep.h.in
@@ -3,6 +3,10 @@
 /* Define to empty if the keyword does not work.  */
 #undef const
 
+/* Define if you don't have tm_zone but do have the external array
+   tzname.  */
+#undef HAVE_TZNAME
+
 /* Define if you need to in order for stat and other things to work.  */
 #undef _POSIX_SOURCE
 
@@ -12,31 +16,38 @@
 /*
  * HAVE_SIGACTION is defined iff sigaction() is available.
  */
-#undef	HAVE_SIGACTION
+#undef HAVE_SIGACTION
 
 /*
  * HAVE_STRERROR is defined iff the standard libraries provide strerror().
  */
-#undef	HAVE_STRERROR
+#undef HAVE_STRERROR
 
 /*
  * NLIST_HAS_N_NAME is defined iff a struct nlist has an n_name member.
  * If it doesn't then we assume it has an n_un member which, in turn,
  * has an n_name member.
  */
-#undef	NLIST_HAS_N_NAME
+#undef NLIST_HAS_N_NAME
 
 /*
  * USCORE is defined iff C externals are prepended with an underscore.
  */
-#undef	USCORE
+#undef USCORE
+
+/* 
+ * Define if your tm struct in <time.h> 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
 
 /* Define if you have the chroot function.  */
 #undef HAVE_CHROOT
 
-/* Define if you have the dlopen function.  */
-#undef HAVE_DLOPEN
-
 /* Define if you have the ftime function.  */
 #undef HAVE_FTIME
 
diff --git a/c/unix/event.c b/c/unix/event.c
index 46d9dcf..9a69f8f 100644
--- a/c/unix/event.c
+++ b/c/unix/event.c
@@ -27,6 +27,16 @@ static void     when_sigpipe_interrupt();
 //JMG:
 static void	when_child_interrupt();
 static void	when_hup_interrupt();
+static void     when_cont_interrupt();
+static void     when_quit_interrupt();
+static void     when_term_interrupt();
+static void     when_tstp_interrupt();
+static void     when_usr1_interrupt();
+static void     when_usr2_interrupt();
+
+
+
+
 
 
 bool		s48_setcatcher(int signum, void (*catcher)(int));
@@ -736,7 +746,7 @@ enum scsh_os_signal{
 int
 s48_os_signal_pending(void) {
   if (child_interrupt_count > 0) {
-    fprintf(stderr, "cld c %d \n", child_interrupt_count);
+    // fprintf(stderr, "cld c %d", child_interrupt_count);
     block_interrupts();
     --child_interrupt_count;
     allow_interrupts();
@@ -745,7 +755,7 @@ s48_os_signal_pending(void) {
     return TRUE;
   }
   else if (hup_interrupt_count > 0){
-    fprintf(stderr, "hup c %d \n", hup_interrupt_count);
+    fprintf(stderr, "hup c %d", hup_interrupt_count);
     block_interrupts();
     --hup_interrupt_count;
     allow_interrupts();
diff --git a/configure b/configure
index 1eb1def..ac80b4e 100755
--- a/configure
+++ b/configure
@@ -1,7 +1,7 @@
 #! /bin/sh
 
 # Guess values for system-dependent variables and create Makefiles.
-# Generated automatically using autoconf version 2.10 
+# Generated automatically using autoconf version 2.12 
 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc.
 #
 # This configure script is free software; the Free Software Foundation
@@ -9,7 +9,7 @@
 
 # Defaults:
 ac_help=
-ac_default_prefix=~/install06
+ac_default_prefix=/usr/local
 # Any additions from configure.in:
 
 # Initialize some variables set by options.
@@ -49,6 +49,8 @@ mandir='${prefix}/man'
 # Initialize some other variables.
 subdirs=
 MFLAGS= MAKEFLAGS=
+# Maximum number of lines to put in a shell here document.
+ac_max_here_lines=12
 
 ac_prev=
 for ac_option
@@ -330,7 +332,7 @@ EOF
     verbose=yes ;;
 
   -version | --version | --versio | --versi | --vers)
-    echo "configure generated by autoconf version 2.10"
+    echo "configure generated by autoconf version 2.12"
     exit 0 ;;
 
   -with-* | --with-*)
@@ -432,11 +434,14 @@ do
 done
 
 # NLS nuisances.
-# Only set LANG and LC_ALL to C if already set.
-# These must not be set unconditionally because not all systems understand
-# e.g. LANG=C (notably SCO).
-if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+# Only set these to C if already set.  These must not be set unconditionally
+# because not all systems understand e.g. LANG=C (notably SCO).
+# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'!
+# Non-C LC_CTYPE values break the ctype check.
 if test "${LANG+set}"   = set; then LANG=C;   export LANG;   fi
+if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
+if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi
+if test "${LC_CTYPE+set}"    = set; then LC_CTYPE=C;    export LC_CTYPE;    fi
 
 # confdefs.h avoids OS command line length limits that DEFS can exceed.
 rm -rf conftest* confdefs.h
@@ -498,6 +503,7 @@ ac_ext=c
 ac_cpp='$CPP $CPPFLAGS'
 ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
 ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
+cross_compiling=$ac_cv_prog_cc_cross
 
 if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
   # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
@@ -517,6 +523,7 @@ fi
 	# Extract the first word of "gcc", so it can be a program name with args.
 set dummy gcc; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:527: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -545,6 +552,7 @@ if test -z "$CC"; then
   # Extract the first word of "cc", so it can be a program name with args.
 set dummy cc; ac_word=$2
 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
+echo "configure:556: checking for $ac_word" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -591,7 +599,47 @@ fi
   test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; }
 fi
 
+echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6
+echo "configure:604: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
+
+ac_ext=c
+# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
+ac_cpp='$CPP $CPPFLAGS'
+ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
+ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
+cross_compiling=$ac_cv_prog_cc_cross
+
+cat > conftest.$ac_ext <<EOF
+#line 614 "configure"
+#include "confdefs.h"
+main(){return(0);}
+EOF
+if { (eval echo configure:618: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
+  ac_cv_prog_cc_works=yes
+  # If we can't run a trivial program, we are probably using a cross compiler.
+  if (./conftest; exit) 2>/dev/null; then
+    ac_cv_prog_cc_cross=no
+  else
+    ac_cv_prog_cc_cross=yes
+  fi
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  ac_cv_prog_cc_works=no
+fi
+rm -fr conftest*
+
+echo "$ac_t""$ac_cv_prog_cc_works" 1>&6
+if test $ac_cv_prog_cc_works = no; then
+  { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; }
+fi
+echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
+echo "configure:638: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
+echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6
+cross_compiling=$ac_cv_prog_cc_cross
+
 echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
+echo "configure:643: checking whether we are using GNU C" >&5
 if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
@@ -600,7 +648,7 @@ else
   yes;
 #endif
 EOF
-if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:604: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
+if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:652: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
   ac_cv_prog_gcc=yes
 else
   ac_cv_prog_gcc=no
@@ -608,29 +656,34 @@ fi
 fi
 
 echo "$ac_t""$ac_cv_prog_gcc" 1>&6
+
 if test $ac_cv_prog_gcc = yes; then
   GCC=yes
-  if test "${CFLAGS+set}" != set; then
-    echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
-if eval "test \"`echo '$''{'ac_cv_prog_gcc_g'+set}'`\" = set"; then
+  ac_test_CFLAGS="${CFLAGS+set}"
+  ac_save_CFLAGS="$CFLAGS"
+  CFLAGS=
+  echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6
+echo "configure:667: checking whether ${CC-cc} accepts -g" >&5
+if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   echo 'void f(){}' > conftest.c
 if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then
-  ac_cv_prog_gcc_g=yes
+  ac_cv_prog_cc_g=yes
 else
-  ac_cv_prog_gcc_g=no
+  ac_cv_prog_cc_g=no
 fi
 rm -f conftest*
 
 fi
 
-echo "$ac_t""$ac_cv_prog_gcc_g" 1>&6
-    if test $ac_cv_prog_gcc_g = yes; then
-      CFLAGS="-g -O"
-    else
-      CFLAGS="-O"
-    fi
+echo "$ac_t""$ac_cv_prog_cc_g" 1>&6
+  if test "$ac_test_CFLAGS" = set; then
+    CFLAGS="$ac_save_CFLAGS"
+  elif test $ac_cv_prog_cc_g = yes; then
+    CFLAGS="-g -O2"
+  else
+    CFLAGS="-O2"
   fi
 else
   GCC=
@@ -646,6 +699,7 @@ fi
 	fi
 
      echo $ac_n "checking for POSIXized ISC""... $ac_c" 1>&6
+echo "configure:703: checking for POSIXized ISC" >&5
 if test -d /etc/conf/kconfig.d &&
   grep _POSIX_VERSION /usr/include/sys/unistd.h >/dev/null 2>&1
 then
@@ -665,68 +719,51 @@ else
   ISC=
 fi
 
-          # If we cannot run a trivial program, we must be cross compiling.
-echo $ac_n "checking whether cross-compiling""... $ac_c" 1>&6
-if eval "test \"`echo '$''{'ac_cv_c_cross'+set}'`\" = set"; then
-  echo $ac_n "(cached) $ac_c" 1>&6
-else
-  if test "$cross_compiling" = yes; then
-  ac_cv_c_cross=yes
-else
-cat > conftest.$ac_ext <<EOF
-#line 678 "configure"
-#include "confdefs.h"
-main(){return(0);}
-EOF
-{ (eval echo configure:682: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }
-if test -s conftest && (./conftest; exit) 2>/dev/null; then
-  ac_cv_c_cross=no
-else
-  ac_cv_c_cross=yes
-fi
-fi
-rm -fr conftest*
-fi
-
-echo "$ac_t""$ac_cv_c_cross" 1>&6
-cross_compiling=$ac_cv_c_cross
-
-if test "$cross_compiling" = yes; then
+          if test "$cross_compiling" = yes; then
   true
 else
-cat > conftest.$ac_ext <<EOF
-#line 699 "configure"
+  cat > conftest.$ac_ext <<EOF
+#line 727 "configure"
 #include "confdefs.h"
 int main() { return 0;}
 EOF
-{ (eval echo configure:703: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }
-if test -s conftest && (./conftest; exit) 2>/dev/null; then
+if { (eval echo configure:731: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null
+then
   :
-fi
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
 fi
 rm -fr conftest*
+fi
+
      	if test "z$GCC" = z; then
 		echo $ac_n "checking -cckr""... $ac_c" 1>&6
+echo "configure:743: checking -cckr" >&5
 		oldCFLAGS="$CFLAGS"
 		CFLAGS="$CFLAGS -cckr"
 		if test "$cross_compiling" = yes; then
   echo "$ac_t""no" 1>&6
 				CFLAGS="$oldCFLAGS"
 else
-cat > conftest.$ac_ext <<EOF
-#line 718 "configure"
+  cat > conftest.$ac_ext <<EOF
+#line 751 "configure"
 #include "confdefs.h"
 int main() { return 0;}
 EOF
-{ (eval echo configure:722: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }
-if test -s conftest && (./conftest; exit) 2>/dev/null; then
+if { (eval echo configure:755: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null
+then
   echo "$ac_t""yes" 1>&6
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  rm -fr conftest*
   echo "$ac_t""no" 1>&6
 				CFLAGS="$oldCFLAGS"
 fi
-fi
 rm -fr conftest*
+fi
+
 	fi
 
      ac_aux_dir=
@@ -759,11 +796,12 @@ ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
 # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
 # ./install, which can be erroneously created by make from ./install.sh.
 echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
+echo "configure:800: checking for a BSD compatible install" >&5
 if test -z "$INSTALL"; then
 if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
-    IFS="${IFS= 	}"; ac_save_ifs="$IFS"; IFS="${IFS}:"
+    IFS="${IFS= 	}"; ac_save_IFS="$IFS"; IFS="${IFS}:"
   for ac_dir in $PATH; do
     # Account for people who put trailing slashes in PATH elements.
     case "$ac_dir/" in
@@ -786,7 +824,7 @@ else
       ;;
     esac
   done
-  IFS="$ac_save_ifs"
+  IFS="$ac_save_IFS"
 
 fi
   if test "${ac_cv_path_install+set}" = set; then
@@ -807,26 +845,28 @@ test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
 
 test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
 
-     echo $ac_n "checking for -lm""... $ac_c" 1>&6
-ac_lib_var=`echo m'_'main | tr './+\055' '__p_'`
+     echo $ac_n "checking for main in -lm""... $ac_c" 1>&6
+echo "configure:850: checking for main in -lm" >&5
+ac_lib_var=`echo m'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lm  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 819 "configure"
+#line 858 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:827: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:865: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -836,7 +876,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo m | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo m | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -847,26 +888,28 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-     echo $ac_n "checking for -ldl""... $ac_c" 1>&6
-ac_lib_var=`echo dl'_'main | tr './+\055' '__p_'`
+     echo $ac_n "checking for main in -ldl""... $ac_c" 1>&6
+echo "configure:893: checking for main in -ldl" >&5
+ac_lib_var=`echo dl'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-ldl  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 859 "configure"
+#line 901 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:867: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:908: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -876,7 +919,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo dl | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo dl | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -887,26 +931,28 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-     echo $ac_n "checking for -lmld""... $ac_c" 1>&6
-ac_lib_var=`echo mld'_'main | tr './+\055' '__p_'`
+     echo $ac_n "checking for main in -lmld""... $ac_c" 1>&6
+echo "configure:936: checking for main in -lmld" >&5
+ac_lib_var=`echo mld'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lmld  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 899 "configure"
+#line 944 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:907: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:951: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -916,7 +962,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo mld | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo mld | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -927,26 +974,28 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-     echo $ac_n "checking for -lnsl""... $ac_c" 1>&6
-ac_lib_var=`echo nsl'_'main | tr './+\055' '__p_'`
+     echo $ac_n "checking for main in -lnsl""... $ac_c" 1>&6
+echo "configure:979: checking for main in -lnsl" >&5
+ac_lib_var=`echo nsl'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lnsl  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 939 "configure"
+#line 987 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:947: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:994: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -956,7 +1005,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo nsl | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo nsl | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -967,26 +1017,28 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-     echo $ac_n "checking for -lgen""... $ac_c" 1>&6
-ac_lib_var=`echo gen'_'main | tr './+\055' '__p_'`
+     echo $ac_n "checking for main in -lgen""... $ac_c" 1>&6
+echo "configure:1022: checking for main in -lgen" >&5
+ac_lib_var=`echo gen'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lgen  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 979 "configure"
+#line 1030 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:987: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1037: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -996,7 +1048,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo gen | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo gen | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -1007,26 +1060,28 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-     echo $ac_n "checking for -lsocket""... $ac_c" 1>&6
-ac_lib_var=`echo socket'_'main | tr './+\055' '__p_'`
+     echo $ac_n "checking for main in -lsocket""... $ac_c" 1>&6
+echo "configure:1065: checking for main in -lsocket" >&5
+ac_lib_var=`echo socket'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lsocket  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1019 "configure"
+#line 1073 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:1027: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1080: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -1036,7 +1091,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo socket | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo socket | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -1047,30 +1103,32 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-     echo $ac_n "checking for -lsun""... $ac_c" 1>&6
-ac_lib_var=`echo sun'_'getpwnam | tr './+\055' '__p_'`
+     echo $ac_n "checking for getpwnam in -lsun""... $ac_c" 1>&6
+echo "configure:1108: checking for getpwnam in -lsun" >&5
+ac_lib_var=`echo sun'_'getpwnam | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lsun  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1059 "configure"
+#line 1116 "configure"
 #include "confdefs.h"
 /* Override any gcc2 internal prototype to avoid an error.  */
 /* We use char because int might match the return type of a gcc2
     builtin and then its argument prototype would still apply.  */
 char getpwnam();
 
-int main() { return 0; }
-int t() {
+int main() {
 getpwnam()
 ; return 0; }
 EOF
-if { (eval echo configure:1071: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1127: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -1080,7 +1138,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo sun | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo sun | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -1091,26 +1150,28 @@ else
   echo "$ac_t""no" 1>&6
 fi
 
-          echo $ac_n "checking for -lelf""... $ac_c" 1>&6
-ac_lib_var=`echo elf'_'main | tr './+\055' '__p_'`
+          echo $ac_n "checking for main in -lelf""... $ac_c" 1>&6
+echo "configure:1155: checking for main in -lelf" >&5
+ac_lib_var=`echo elf'_'main | sed 'y%./+-%__p_%'`
 if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   ac_save_LIBS="$LIBS"
 LIBS="-lelf  $LIBS"
 cat > conftest.$ac_ext <<EOF
-#line 1103 "configure"
+#line 1163 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 main()
 ; return 0; }
 EOF
-if { (eval echo configure:1111: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1170: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_lib_$ac_lib_var=no"
 fi
@@ -1120,7 +1181,8 @@ LIBS="$ac_save_LIBS"
 fi
 if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_lib=HAVE_LIB`echo elf | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
+    ac_tr_lib=HAVE_LIB`echo elf | sed -e 's/[^a-zA-Z0-9_]/_/g' \
+    -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_lib 1
 EOF
@@ -1137,15 +1199,15 @@ if test -f /usr/posix/usr/lib/libc.a; then
 fi
 
      echo $ac_n "checking for working const""... $ac_c" 1>&6
+echo "configure:1203: checking for working const" >&5
 if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1145 "configure"
+#line 1208 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 
 /* Ultrix mips cc rejects this.  */
 typedef int charset[2]; const charset x;
@@ -1191,15 +1253,16 @@ ccp = (char const *const *) p;
 
 ; return 0; }
 EOF
-if { (eval echo configure:1195: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1257: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_c_const=yes
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   ac_cv_c_const=no
 fi
 rm -f conftest*
-
 fi
 
 echo "$ac_t""$ac_cv_c_const" 1>&6
@@ -1211,11 +1274,12 @@ EOF
 fi
 
      echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6
+echo "configure:1278: checking return type of signal handlers" >&5
 if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1219 "configure"
+#line 1283 "configure"
 #include "confdefs.h"
 #include <sys/types.h>
 #include <signal.h>
@@ -1228,20 +1292,20 @@ extern "C" void (*signal (int, void (*)(int)))(int);
 void (*signal ()) ();
 #endif
 
-int main() { return 0; }
-int t() {
+int main() {
 int i;
 ; return 0; }
 EOF
-if { (eval echo configure:1237: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1300: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   ac_cv_type_signal=void
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   ac_cv_type_signal=int
 fi
 rm -f conftest*
-
 fi
 
 echo "$ac_t""$ac_cv_type_signal" 1>&6
@@ -1251,6 +1315,7 @@ EOF
 
 
      echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
+echo "configure:1319: checking how to run the C preprocessor" >&5
 # On Suns, sometimes $CPP names a directory.
 if test -n "$CPP" && test -d "$CPP"; then
   CPP=
@@ -1265,33 +1330,37 @@ else
   # On the NeXT, cc -E runs the code through the compiler's parser,
   # not just through cpp.
   cat > conftest.$ac_ext <<EOF
-#line 1269 "configure"
+#line 1334 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1275: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1340: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out`
 if test -z "$ac_err"; then
   :
 else
   echo "$ac_err" >&5
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   CPP="${CC-cc} -E -traditional-cpp"
   cat > conftest.$ac_ext <<EOF
-#line 1284 "configure"
+#line 1351 "configure"
 #include "confdefs.h"
 #include <assert.h>
 Syntax Error
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1290: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1357: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out`
 if test -z "$ac_err"; then
   :
 else
   echo "$ac_err" >&5
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   CPP=/lib/cpp
 fi
@@ -1308,24 +1377,27 @@ echo "$ac_t""$CPP" 1>&6
 
 for ac_hdr in libgen.h sys/timeb.h posix/time.h
 do
-ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:1383: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1318 "configure"
+#line 1388 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1323: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1393: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out`
 if test -z "$ac_err"; then
   rm -rf conftest*
   eval "ac_cv_header_$ac_safe=yes"
 else
   echo "$ac_err" >&5
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_header_$ac_safe=no"
 fi
@@ -1333,7 +1405,7 @@ rm -f conftest*
 fi
 if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+    ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_hdr 1
 EOF
@@ -1345,24 +1417,27 @@ done
 
      for ac_hdr in sys/select.h
 do
-ac_safe=`echo "$ac_hdr" | tr './\055' '___'`
+ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'`
 echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6
+echo "configure:1423: checking for $ac_hdr" >&5
 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1355 "configure"
+#line 1428 "configure"
 #include "confdefs.h"
 #include <$ac_hdr>
 EOF
 ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:1360: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
+{ (eval echo configure:1433: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
 ac_err=`grep -v '^ *+' conftest.out`
 if test -z "$ac_err"; then
   rm -rf conftest*
   eval "ac_cv_header_$ac_safe=yes"
 else
   echo "$ac_err" >&5
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_header_$ac_safe=no"
 fi
@@ -1370,7 +1445,7 @@ rm -f conftest*
 fi
 if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
   echo "$ac_t""yes" 1>&6
-    ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
+    ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'`
   cat >> confdefs.h <<EOF
 #define $ac_tr_hdr 1
 EOF
@@ -1380,14 +1455,15 @@ else
 fi
 done
 
-     for ac_func in dlopen gettimeofday ftime nlist select setitimer sigaction
+     for ac_func in gettimeofday ftime nlist select setitimer sigaction
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:1462: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1391 "configure"
+#line 1467 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1397,8 +1473,7 @@ else
     builtin and then its argument prototype would still apply.  */
 char $ac_func();
 
-int main() { return 0; }
-int t() {
+int main() {
 
 /* The GNU C library defines this for functions which it implements
     to always fail with ENOSYS.  Some functions are actually named
@@ -1411,16 +1486,18 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1415: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1490: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=no"
 fi
 rm -f conftest*
-
 fi
+
 if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
   echo "$ac_t""yes" 1>&6
     ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
@@ -1433,14 +1510,115 @@ else
 fi
 done
 
+     echo $ac_n "checking for dlopen""... $ac_c" 1>&6
+echo "configure:1515: checking for dlopen" >&5
+if eval "test \"`echo '$''{'ac_cv_func_dlopen'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1520 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char dlopen(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+/* We use char because int might match the return type of a gcc2
+    builtin and then its argument prototype would still apply.  */
+char dlopen();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_dlopen) || defined (__stub___dlopen)
+choke me
+#else
+dlopen();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:1543: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
+  rm -rf conftest*
+  eval "ac_cv_func_dlopen=yes"
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  rm -rf conftest*
+  eval "ac_cv_func_dlopen=no"
+fi
+rm -f conftest*
+fi
+
+if eval "test \"`echo '$ac_cv_func_'dlopen`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  cat >> confdefs.h <<\EOF
+#define HAVE_DLOPEN 1
+EOF
+
+else
+  echo "$ac_t""no" 1>&6
+echo $ac_n "checking for nlist""... $ac_c" 1>&6
+echo "configure:1564: checking for nlist" >&5
+if eval "test \"`echo '$''{'ac_cv_func_nlist'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  cat > conftest.$ac_ext <<EOF
+#line 1569 "configure"
+#include "confdefs.h"
+/* System header to define __stub macros and hopefully few prototypes,
+    which can conflict with char nlist(); below.  */
+#include <assert.h>
+/* Override any gcc2 internal prototype to avoid an error.  */
+/* We use char because int might match the return type of a gcc2
+    builtin and then its argument prototype would still apply.  */
+char nlist();
+
+int main() {
+
+/* The GNU C library defines this for functions which it implements
+    to always fail with ENOSYS.  Some functions are actually named
+    something starting with __ and the normal name is an alias.  */
+#if defined (__stub_nlist) || defined (__stub___nlist)
+choke me
+#else
+nlist();
+#endif
+
+; return 0; }
+EOF
+if { (eval echo configure:1592: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
+  rm -rf conftest*
+  eval "ac_cv_func_nlist=yes"
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  rm -rf conftest*
+  eval "ac_cv_func_nlist=no"
+fi
+rm -f conftest*
+fi
+
+if eval "test \"`echo '$ac_cv_func_'nlist`\" = yes"; then
+  echo "$ac_t""yes" 1>&6
+  LIBOBJS="$LIBOBJS c/fake/libdl1.c
+else
+  echo "$ac_t""no" 1>&6
+LIBOBJS="$LIBOBJS c/fake/libdl2.c
+fi
+
+fi
+
      for ac_func in socket chroot
 do
 echo $ac_n "checking for $ac_func""... $ac_c" 1>&6
+echo "configure:1617: checking for $ac_func" >&5
 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1444 "configure"
+#line 1622 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char $ac_func(); below.  */
@@ -1450,8 +1628,7 @@ else
     builtin and then its argument prototype would still apply.  */
 char $ac_func();
 
-int main() { return 0; }
-int t() {
+int main() {
 
 /* The GNU C library defines this for functions which it implements
     to always fail with ENOSYS.  Some functions are actually named
@@ -1464,16 +1641,18 @@ $ac_func();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1468: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1645: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_func_$ac_func=no"
 fi
 rm -f conftest*
-
 fi
+
 if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then
   echo "$ac_t""yes" 1>&6
     ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'`
@@ -1487,11 +1666,12 @@ fi
 done
 
      echo $ac_n "checking for strerror""... $ac_c" 1>&6
+echo "configure:1670: checking for strerror" >&5
 if eval "test \"`echo '$''{'ac_cv_func_strerror'+set}'`\" = set"; then
   echo $ac_n "(cached) $ac_c" 1>&6
 else
   cat > conftest.$ac_ext <<EOF
-#line 1495 "configure"
+#line 1675 "configure"
 #include "confdefs.h"
 /* System header to define __stub macros and hopefully few prototypes,
     which can conflict with char strerror(); below.  */
@@ -1501,8 +1681,7 @@ else
     builtin and then its argument prototype would still apply.  */
 char strerror();
 
-int main() { return 0; }
-int t() {
+int main() {
 
 /* The GNU C library defines this for functions which it implements
     to always fail with ENOSYS.  Some functions are actually named
@@ -1515,16 +1694,18 @@ strerror();
 
 ; return 0; }
 EOF
-if { (eval echo configure:1519: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1698: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   eval "ac_cv_func_strerror=yes"
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   eval "ac_cv_func_strerror=no"
 fi
 rm -f conftest*
-
 fi
+
 if eval "test \"`echo '$ac_cv_func_'strerror`\" = yes"; then
   echo "$ac_t""yes" 1>&6
   cat >> confdefs.h <<\EOF
@@ -1537,17 +1718,17 @@ LIBOBJS="$LIBOBJS c/fake/strerror.o"
 fi
 
      echo $ac_n "checking n_name""... $ac_c" 1>&6
+echo "configure:1722: checking n_name" >&5
      cat > conftest.$ac_ext <<EOF
-#line 1542 "configure"
+#line 1724 "configure"
 #include "confdefs.h"
 #include <nlist.h>
-int main() { return 0; }
-int t() {
+int main() {
 struct nlist name_list;
 		  name_list.n_name = "foo";
 ; return 0; }
 EOF
-if { (eval echo configure:1551: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1732: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   cat >> confdefs.h <<\EOF
 #define NLIST_HAS_N_NAME 1
@@ -1555,18 +1736,19 @@ EOF
 
 		 echo "$ac_t""yes" 1>&6
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   echo "$ac_t""no" 1>&6
 fi
 rm -f conftest*
-
      echo $ac_n "checking __NEXT__""... $ac_c" 1>&6
+echo "configure:1747: checking __NEXT__" >&5
      cat > conftest.$ac_ext <<EOF
-#line 1566 "configure"
+#line 1749 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 
 #ifdef	__NeXT__
 return 0;
@@ -1576,7 +1758,7 @@ fail
 
 ; return 0; }
 EOF
-if { (eval echo configure:1580: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then
+if { (eval echo configure:1762: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
   rm -rf conftest*
   CC="$CC -posix"
 		cat >> confdefs.h <<\EOF
@@ -1585,12 +1767,14 @@ EOF
 
 		echo "$ac_t""yes" 1>&6
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   echo "$ac_t""no" 1>&6
 fi
 rm -f conftest*
-
      	echo $ac_n "checking underscore before symbols""... $ac_c" 1>&6
+echo "configure:1778: checking underscore before symbols" >&5
 	echo 'main() { return 0; } fnord() {}' >conftest.c
 	if ${CC} ${CFLAGS} ${CPPFLAGS} ${LDFLAGS} conftest.c ${LIBS} &&
 	nm a.out | grep _fnord >/dev/null; then
@@ -1605,31 +1789,103 @@ EOF
 	rm -f conftest.c a.out
 
      	echo $ac_n "checking link with -rdynamic""... $ac_c" 1>&6
+echo "configure:1793: checking link with -rdynamic" >&5
 	cat > conftest.$ac_ext <<EOF
-#line 1610 "configure"
+#line 1795 "configure"
 #include "confdefs.h"
 
-int main() { return 0; }
-int t() {
+int main() {
 #if defined(__linux__) && defined(__ELF__)
 	this must not compile
 #endif
 ; return 0; }
 EOF
-if { (eval echo configure:1620: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:1804: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
   rm -rf conftest*
   echo "$ac_t""no" 1>&6
 else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
   rm -rf conftest*
   echo "$ac_t""yes" 1>&6
 			LDFLAGS="$LDFLAGS -rdynamic"
 fi
 rm -f conftest*
 
+     
+     
+     
+     
+  echo $ac_n "checking for tzname""... $ac_c" 1>&6
+echo "configure:1821: checking for tzname" >&5
+  if eval "test \"`echo '$''{'scsh_cv_tzname'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  
+    cat > conftest.$ac_ext <<EOF
+#line 1827 "configure"
+#include "confdefs.h"
+#include <time.h>
+int main() {
+return (int) tzname;
+; return 0; }
+EOF
+if { (eval echo configure:1834: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+  rm -rf conftest*
+  scsh_cv_tzname=yes
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  rm -rf conftest*
+  scsh_cv_tzname=no
+fi
+rm -f conftest*
+fi
+
+  echo "$ac_t""$scsh_cv_tzname" 1>&6
+  if test $scsh_cv_tzname = yes; then
+    cat >> confdefs.h <<\EOF
+#define HAVE_TZNAME 1
+EOF
+
+  fi
 
      
-     
-     
+  echo $ac_n "checking for gmtoff""... $ac_c" 1>&6
+echo "configure:1856: checking for gmtoff" >&5
+  if eval "test \"`echo '$''{'scsh_cv_gmtoff'+set}'`\" = set"; then
+  echo $ac_n "(cached) $ac_c" 1>&6
+else
+  
+    cat > conftest.$ac_ext <<EOF
+#line 1862 "configure"
+#include "confdefs.h"
+#include <time.h>
+int main() {
+struct tm time;
+		    return time.tm_gmtoff;
+; return 0; }
+EOF
+if { (eval echo configure:1870: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+  rm -rf conftest*
+  scsh_cv_gmtoff=yes
+else
+  echo "configure: failed program was:" >&5
+  cat conftest.$ac_ext >&5
+  rm -rf conftest*
+  scsh_cv_gmtoff=no
+fi
+rm -f conftest*
+fi
+
+  echo "$ac_t""$scsh_cv_gmtoff" 1>&6
+  if test $scsh_cv_gmtoff = yes; then
+    cat >> confdefs.h <<\EOF
+#define HAVE_GMTOFF 1
+EOF
+
+  fi
+	
 trap '' 1 2 15
 cat > confcache <<\EOF
 # This file is a shell script that caches the results of configure
@@ -1647,11 +1903,25 @@ cat > confcache <<\EOF
 # --recheck option to rerun configure.
 #
 EOF
+# The following way of writing the cache mishandles newlines in values,
+# but we know of no workaround that is simple, portable, and efficient.
+# So, don't put newlines in cache variables' values.
 # Ultrix sh set writes to stderr and can't be redirected directly,
 # and sets the high bit in the cache file unless we assign to the vars.
 (set) 2>&1 |
-  sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \
-  >> confcache
+  case `(ac_space=' '; set) 2>&1` in
+  *ac_space=\ *)
+    # `set' does not quote correctly, so add quotes (double-quote substitution
+    # turns \\\\ into \\, and sed turns \\ into \).
+    sed -n \
+      -e "s/'/'\\\\''/g" \
+      -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p"
+    ;;
+  *)
+    # `set' quotes correctly as required by POSIX, so do not add quotes.
+    sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p'
+    ;;
+  esac >> confcache
 if cmp -s $cache_file confcache; then
   :
 else
@@ -1706,7 +1976,7 @@ do
     echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
     exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
   -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
-    echo "$CONFIG_STATUS generated by autoconf version 2.10"
+    echo "$CONFIG_STATUS generated by autoconf version 2.12"
     exit 0 ;;
   -help | --help | --hel | --he | --h)
     echo "\$ac_cs_usage"; exit 0 ;;
@@ -1755,20 +2025,56 @@ s%@LIBOBJS@%$LIBOBJS%g
 
 CEOF
 EOF
+
+cat >> $CONFIG_STATUS <<\EOF
+
+# Split the substitutions into bite-sized pieces for seds with
+# small command number limits, like on Digital OSF/1 and HP-UX.
+ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script.
+ac_file=1 # Number of current file.
+ac_beg=1 # First line for current file.
+ac_end=$ac_max_sed_cmds # Line after last line for current file.
+ac_more_lines=:
+ac_sed_cmds=""
+while $ac_more_lines; do
+  if test $ac_beg -gt 1; then
+    sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file
+  else
+    sed "${ac_end}q" conftest.subs > conftest.s$ac_file
+  fi
+  if test ! -s conftest.s$ac_file; then
+    ac_more_lines=false
+    rm -f conftest.s$ac_file
+  else
+    if test -z "$ac_sed_cmds"; then
+      ac_sed_cmds="sed -f conftest.s$ac_file"
+    else
+      ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file"
+    fi
+    ac_file=`expr $ac_file + 1`
+    ac_beg=$ac_end
+    ac_end=`expr $ac_end + $ac_max_sed_cmds`
+  fi
+done
+if test -z "$ac_sed_cmds"; then
+  ac_sed_cmds=cat
+fi
+EOF
+
 cat >> $CONFIG_STATUS <<EOF
 
 CONFIG_FILES=\${CONFIG_FILES-"Makefile"}
 EOF
 cat >> $CONFIG_STATUS <<\EOF
 for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
-  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in".
   case "$ac_file" in
-  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'`
        ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
   *) ac_file_in="${ac_file}.in" ;;
   esac
 
-  # Adjust relative srcdir, etc. for subdirectories.
+  # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories.
 
   # Remove last slash and all that follows it.  Not all systems have dirname.
   ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
@@ -1796,6 +2102,7 @@ for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
   [/$]*) INSTALL="$ac_given_INSTALL" ;;
   *) INSTALL="$ac_dots$ac_given_INSTALL" ;;
   esac
+
   echo creating "$ac_file"
   rm -f "$ac_file"
   configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
@@ -1804,14 +2111,16 @@ for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
 # $configure_input" ;;
   *) ac_comsub= ;;
   esac
+
+  ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"`
   sed -e "$ac_comsub
 s%@configure_input@%$configure_input%g
 s%@srcdir@%$srcdir%g
 s%@top_srcdir@%$top_srcdir%g
 s%@INSTALL@%$INSTALL%g
-" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
+" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file
 fi; done
-rm -f conftest.subs
+rm -f conftest.s*
 
 # These sed commands are passed to sed as "A NAME B NAME C VALUE D", where
 # NAME is the cpp macro being defined and VALUE is the value it is being given.
@@ -1832,11 +2141,17 @@ ac_eB='$%\1#\2define\3'
 ac_eC=' '
 ac_eD='%g'
 
-CONFIG_HEADERS=${CONFIG_HEADERS-"c/sysdep.h"}
+if test "${CONFIG_HEADERS+set}" != set; then
+EOF
+cat >> $CONFIG_STATUS <<EOF
+  CONFIG_HEADERS="c/sysdep.h"
+EOF
+cat >> $CONFIG_STATUS <<\EOF
+fi
 for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then
-  # Support "outfile[:infile]", defaulting infile="outfile.in".
+  # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in".
   case "$ac_file" in
-  *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
+  *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'`
        ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
   *) ac_file_in="${ac_file}.in" ;;
   esac
@@ -1844,7 +2159,8 @@ for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then
   echo creating $ac_file
 
   rm -f conftest.frag conftest.in conftest.out
-  cp $ac_given_srcdir/$ac_file_in conftest.in
+  ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"`
+  cat $ac_file_inputs > conftest.in
 
 EOF
 
@@ -1872,8 +2188,6 @@ EOF
 
 # Break up conftest.vals because some shells have a limit on
 # the size of here documents, and old seds have small limits too.
-# Maximum number of lines to put in a single here document.
-ac_max_here_lines=12
 
 rm -f conftest.tail
 while :
@@ -1915,7 +2229,11 @@ cat >> $CONFIG_STATUS <<\EOF
   fi
 fi; done
 
+EOF
+cat >> $CONFIG_STATUS <<EOF
 
+EOF
+cat >> $CONFIG_STATUS <<\EOF
 
 exit 0
 EOF
diff --git a/configure.in b/configure.in
index cca28cf..7ba2443 100644
--- a/configure.in
+++ b/configure.in
@@ -79,6 +79,36 @@ define(S48_USCORE, [dnl
 	rm -f conftest.c a.out
 ])dnl
 dnl
+dnl -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+AC_DEFUN(SCSH_TZNAME,[
+  AC_MSG_CHECKING(for tzname)
+  AC_CACHE_VAL(scsh_cv_tzname,[
+    AC_TRY_COMPILE([#include <time.h>], 
+		   [return (int) tzname;],
+                   scsh_cv_tzname=yes,
+                   scsh_cv_tzname=no)])
+  AC_MSG_RESULT($scsh_cv_tzname)
+  if test $scsh_cv_tzname = yes; then
+    AC_DEFINE(HAVE_TZNAME)
+  fi
+])
+
+dnl -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+AC_DEFUN(SCSH_GMTOFF,[
+  AC_MSG_CHECKING(for gmtoff)
+  AC_CACHE_VAL(scsh_cv_gmtoff,[
+    AC_TRY_COMPILE([#include <time.h>], 
+		   [struct tm time;
+		    return time.tm_gmtoff;],
+                   scsh_cv_gmtoff=yes,
+                   scsh_cv_gmtoff=no)])
+  AC_MSG_RESULT($scsh_cv_gmtoff)
+  if test $scsh_cv_gmtoff = yes; then
+    AC_DEFINE(HAVE_GMTOFF)
+  fi
+])
+
+dnl -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 AC_INIT(c/scheme48vm.c)
      AC_CONFIG_HEADER(c/sysdep.h)
      S48_PROG_CC
@@ -132,4 +162,6 @@ fail
      AC_SUBST(CFLAGS)
      AC_SUBST(LIBOBJS)
      AC_SUBST(LDFLAGS)
+     SCSH_TZNAME
+     SCSH_GMTOFF	
 AC_OUTPUT(Makefile)
diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index 6f3cdc6..2ef078c 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -446,6 +446,7 @@
 	  $current-input-port
 	  $current-output-port
 	  $current-error-port
+	  $current-noise-port
 	  ;; end of additions. ;;
 	  char-ready?
 	  read-block write-block
diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index 9d8b902..80373ef 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -64,6 +64,8 @@
 
 	  push-command-levels?
 
+	  start-new-session
+
 	  command-input
 	  command-output
 	  command-error-output
diff --git a/scsh/regexp/regcomp.o b/scsh/regexp/regcomp.o
deleted file mode 100644
index 92b00c5..0000000
Binary files a/scsh/regexp/regcomp.o and /dev/null differ
diff --git a/scsh/regexp/regexec.o b/scsh/regexp/regexec.o
deleted file mode 100644
index 267f74b..0000000
Binary files a/scsh/regexp/regexec.o and /dev/null differ
diff --git a/scsh/rx/re-low.c b/scsh/rx/re-low.c
index 1c58762..9fe116c 100644
--- a/scsh/rx/re-low.c
+++ b/scsh/rx/re-low.c
@@ -1,5 +1,6 @@
 /* This is an Scheme48/C interface file, 
-** automatically generated by cig.
+** automatically generated by a hacked version of cig 3.0.
+step 4
 */
 
 #include <stdio.h>
@@ -11,51 +12,60 @@
 #include "../regexp/regex.h"
 #include "re1.h"
 
-scheme_value df_compile_re(long nargs, scheme_value *args)
+s48_value df_compile_re(s48_value g1, s48_value g2, s48_value mv_vec)
 {
-    extern int compile_re(scheme_value , int , regex_t* *);
-    scheme_value ret1;
+    extern int compile_re(s48_value , int , regex_t* *);
+    s48_value ret1;
     int r1;
     regex_t* r2;
 
-    cig_check_nargs(3, nargs, "compile_re");
-    r1 = compile_re(args[2], EXTRACT_BOOLEAN(args[1]), &r2);
-    ret1 = ENTER_FIXNUM(r1);
-    AlienVal(VECTOR_REF(*args,0)) = (long) r2;
+    
+    r1 = compile_re(g1, EXTRACT_BOOLEAN(g2), &r2);
+    ret1 = s48_enter_integer(r1);
+    SetAlienVal(S48_VECTOR_REF(mv_vec,0),(long) r2);//simple-assign
     return ret1;
-    }
+}
 
-scheme_value df_re_search(long nargs, scheme_value *args)
+s48_value df_re_search(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value g7)
 {
-    extern scheme_value re_search(const regex_t *, scheme_value , int , scheme_value , int , scheme_value , scheme_value );
-    scheme_value ret1;
-    scheme_value r1;
+    extern s48_value re_search(const regex_t *, s48_value , int , s48_value , int , s48_value , s48_value );
+    s48_value ret1;
+    s48_value r1;
 
-    cig_check_nargs(7, nargs, "re_search");
-    r1 = re_search((const regex_t *)AlienVal(args[6]), args[5], EXTRACT_FIXNUM(args[4]), args[3], EXTRACT_FIXNUM(args[2]), args[1], args[0]);
+    
+    r1 = re_search((const regex_t *)AlienVal(g1), g2, s48_extract_integer(g3), g4, s48_extract_integer(g5), g6, g7);
     ret1 = r1;
     return ret1;
-    }
+}
 
-scheme_value df_re_errint2str(long nargs, scheme_value *args)
+s48_value df_re_errint2str(s48_value g1, s48_value g2, s48_value mv_vec)
 {
     extern const char *re_errint2str(int , const regex_t *);
-    scheme_value ret1;
+    s48_value ret1;
     const char *r1;
 
-    cig_check_nargs(3, nargs, "re_errint2str");
-    r1 = re_errint2str(EXTRACT_FIXNUM(args[2]), (const regex_t *)AlienVal(args[1]));
-    ret1 = VECTOR_REF(*args,0);
-    {AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
+    
+    r1 = re_errint2str(s48_extract_integer(g1), (const regex_t *)AlienVal(g2));
+    ret1 = S48_VECTOR_REF(mv_vec,0);
+    SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len
     return ret1;
-    }
+}
 
-scheme_value df_free_re(long nargs, scheme_value *args)
+s48_value df_free_re(s48_value g1)
 {
     extern void free_re(regex_t* );
 
-    cig_check_nargs(1, nargs, "free_re");
-    free_re((regex_t* )AlienVal(args[0]));
-    return SCHFALSE;
-    }
+    
+    free_re((regex_t* )AlienVal(g1));
+    return S48_FALSE;
+}
 
+s48_value s48_init_re_low(void)
+{
+    S48_EXPORT_FUNCTION(df_compile_re);
+    S48_EXPORT_FUNCTION(df_re_search);
+    S48_EXPORT_FUNCTION(df_re_errint2str);
+    S48_EXPORT_FUNCTION(df_free_re);
+
+    return S48_UNSPECIFIC;
+}
diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm
index c648165..b300885 100644
--- a/scsh/scsh-interfaces.scm
+++ b/scsh/scsh-interfaces.scm
@@ -113,6 +113,7 @@
 		      (export close
 			      close-after
 			      current-error-port
+			      error-output-port
 			      dup
 			      dup->inport
 			      dup->outport
@@ -127,7 +128,7 @@
 			      init-fdports!  ;added by JMG
 			     
 			      force-output
-;			      set-port-buffering
+			      set-port-buffering
 			      bufpol/block
 			      bufpol/line
 			      bufpol/none
@@ -1099,7 +1100,14 @@
 
 (define-interface event-interface
   (export most-recent-event
+	  most-recent-event?
+
 	  next-event
 	  event-type
+	  
 	  wait-interrupt
+	  wait-interrupt-set
+	  nonblockwait-interrupt
+	  nonblockwait-interrupt-set
+	  
 	  install-event-handlers!))
\ No newline at end of file
diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index 4b5c108..74b9a5a 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -28,14 +28,14 @@
 
 (define-structure error-package (export error warn)
   (open signals)
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 
 (define-structure scsh-utilities scsh-utilities-interface
   (open bitwise error-package loopholes let-opt scheme)
   (files utilities)
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 
@@ -49,7 +49,7 @@
 	scheme
 	)
   (files syntax-helpers)
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 
@@ -57,7 +57,7 @@
 (define-structure buffered-io-flags buffered-io-flags-interface
   (open defenum-package scheme)
   (files (machine bufpol))
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 
@@ -68,7 +68,7 @@
 	scsh-utilities		; For DEPRECATED-PROC
 	scheme)
   (files char-set)
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 
@@ -76,7 +76,7 @@
 		    (scsh-internal-tty-flags scsh-internal-tty-flags-interface))
   (open scheme ascii bitwise)
   (files (machine tty-consts))
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 
@@ -91,7 +91,8 @@
 
 	  $current-input-port
 	  $current-output-port
-	  $current-error-port)
+	  $current-error-port
+	  $current-noise-port)
   (open ports i/o))
 
 (define-structure signal-handler signal-handler-interface
@@ -234,7 +235,7 @@
 	 sighandlers		; New in release 0.5.
 	 scsh
 ;	 re
-	 rdelim   ;rdelim omitted for now by JMG
+	 rdelim  
 	 )
 ;  (optimize auto-integrate)
   )
@@ -243,21 +244,24 @@
   (open records scheme)
   (for-syntax (open scheme error-package receiving))
   (files defrec)
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 (define-structure defenum-package (export (define-enum-constant  :syntax)
 					  (define-enum-constants :syntax))
   (open scheme)
   (files enumconst)
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 ;;; This code opens so many modules of gruesome, low-level S48 internals 
 ;;; that these two modules are segregated into separate packages, each
 ;;; exporting just two definitions.
 
-(define-structure scsh-startup-package (export dump-scsh-program dump-scsh)
+(define-structure scsh-startup-package (export dump-scsh-program 
+					       dump-scsh
+					       make-scsh-starter
+					       scsh-stand-alone-resumer)
   (open scsh-level-0-internals	; init-scsh-* set-command-line-args!
 	scsh-level-0		; error-output-port command-line-arguments
 	scsh-top-package	; parse-switches-and-execute
@@ -267,6 +271,7 @@
 	build-internals		; simple-condition-handler
 	low-level		; flush-the-symbol-table!
 	command-processor	; command-output
+	package-commands-internal
 	filenames		; translate
 	usual-resumer           ; usual-resumer
 	fluids-internal            ; JMG: get-dynamic-env 
@@ -276,7 +281,8 @@
 	scheme)
   (files startup))
 
-(define-structure scsh-top-package (export parse-switches-and-execute repl)
+(define-structure scsh-top-package (export parse-switches-and-execute 
+					   repl )
   (open command-processor
 	command-levels          ; with-new-session
 	char-set-package
@@ -289,7 +295,7 @@
 
 	fluids-internal            ; JMG: get-dynamic-env 
 	handle                     ; JMG: with-handler
-
+;	package-commands
 	interrupts
 	i/o
 	package-commands-internal
@@ -332,7 +338,8 @@
 	scheme
 	)
   (files awk) 
-  (optimize auto-integrate))
+;  (optimize auto-integrate)
+)
 	 
 
 (define-structure awk-package awk-interface
@@ -376,7 +383,7 @@
 
   (access scsh-top-package)
   (begin (define repl (structure-ref scsh-top-package repl)))
-  (optimize auto-integrate)
+;  (optimize auto-integrate)
   )
 
 (define-structure scsh-here-string-hax (export)
diff --git a/scsh/sighandlers.c b/scsh/sighandlers.c
index 48279e4..2088d6f 100644
--- a/scsh/sighandlers.c
+++ b/scsh/sighandlers.c
@@ -19,8 +19,8 @@ s48_value df_sig2interrupt(s48_value g1)
     int r1;
 
     
-    r1 = sig2interrupt(s48_extract_fixnum(g1));
-    ret1 = s48_enter_fixnum(r1);
+    r1 = sig2interrupt(s48_extract_integer(g1));
+    ret1 = s48_enter_integer(r1);
     return ret1;
 }
 
@@ -44,8 +44,8 @@ s48_value df_scsh_set_sig(s48_value g1, s48_value g2, s48_value g3, s48_value mv
     
     r1 = scsh_set_sig(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), &r2, &r3);
     ret1 = r1;
-    S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
-    S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
+    S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
+    S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
     return ret1;
 }
 
@@ -60,8 +60,8 @@ s48_value df_scsh_get_sig(s48_value g1, s48_value mv_vec)
     
     r1 = scsh_get_sig(s48_extract_fixnum(g1), &r2, &r3);
     ret1 = r1;
-    S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
-    S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
+    S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
+    S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
     return ret1;
 }
 
diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm
index 94bf213..203351b 100644
--- a/scsh/sighandlers.scm
+++ b/scsh/sighandlers.scm
@@ -64,7 +64,9 @@
 ;(define-simple-syntax (with-enabled-interrupts mask body ...)
 ;  (with-interrupts mask (lambda () body ...)))
 (define-simple-syntax (with-enabled-interrupts mask body ...)
-   (begin body ...))
+   (begin 
+     ;(display "JMG:  use of  w-e-i") 
+     body ...))
 
 (define (with-enabled-interrupts* thunk thunk)
   (warn "JMG:  use of  with-enabled-interrupts*")
@@ -127,23 +129,15 @@
 	((< sig 0))			
     (set-scsh-os-signal-handler! 
      sig 
-     (lambda (x) (display "default handler was called"))))
+     (lambda (x) #t)))
 				       
-	
+
   (begin
     (set-interrupt-handler! 
      (enum interrupt os-signal)
      (lambda (type arg enabled-interrupts)
-       (display type)
-       
-       (newline)
-       (display arg)
-       (newline)
-       (display enabled-interrupts)
-       (newline)
        (if (= type (enum scsh-os-signal chld))
 	   (begin 
-	     (display "will call proc")
 	     (procobj-handler enabled-interrupts)))
        ((scsh-os-signal-handler-ref type) enabled-interrupts)
        ))
diff --git a/scsh/syscalls.c b/scsh/syscalls.c
index 93e954a..72f913e 100644
--- a/scsh/syscalls.c
+++ b/scsh/syscalls.c
@@ -74,10 +74,10 @@ s48_value df_fork(s48_value mv_vec)
 
 s48_value df_wait_pid(s48_value g1, s48_value g2, s48_value mv_vec)
 {
-    extern s48_value wait_pid(int , int , int *, int *);
+    extern s48_value wait_pid(pid_t , int , pid_t *, int *);
     s48_value ret1;
     s48_value r1;
-    int r2;
+    pid_t r2;
     int r3;
 
     
@@ -300,13 +300,13 @@ s48_value df_umask(s48_value g1)
 
 s48_value df_process_times(s48_value mv_vec)
 {
-    extern int process_times(int *, int *, int *, int *);
+    extern int process_times(clock_t *, clock_t *, clock_t *, clock_t *);
     s48_value ret1;
     int r1;
-    int r2;
-    int r3;
-    int r4;
-    int r5;
+    clock_t r2;
+    clock_t r3;
+    clock_t r4;
+    clock_t r5;
 
     
     r1 = process_times(&r2, &r3, &r4, &r5);
@@ -326,7 +326,7 @@ s48_value df_cpu_clock_ticks_per_sec(void)
 
     
     r1 = cpu_clock_ticks_per_sec();
-    ret1 = s48_enter_fixnum(r1);
+    ret1 = s48_enter_integer(r1);
     return ret1;
 }
 
@@ -385,7 +385,7 @@ s48_value df_access(s48_value g1, s48_value g2)
     int r1;
 
     
-    r1 = access(s48_extract_string(g1), s48_extract_fixnum(g2));
+    r1 = access(s48_extract_string(g1), s48_extract_integer(g2));
     ret1 = ENTER_BOOLEAN(r1);
     return ret1;
 }
@@ -463,14 +463,14 @@ s48_value df_rmdir(s48_value g1)
     return ret1;
 }
 
-s48_value df_scm_utime(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5)
+s48_value df_scm_utime(s48_value g1, s48_value g2, s48_value g3)
 {
-    extern int scm_utime(const char *, int , int , int , int );
+    extern int scm_utime(const char *, time_t , time_t );
     s48_value ret1;
     int r1;
 
     
-    r1 = scm_utime(s48_extract_string(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5));
+    r1 = scm_utime(s48_extract_string(g1), s48_extract_integer(g2), s48_extract_integer(g3));
     ret1 = errno_or_false(r1);
     return ret1;
 }
@@ -506,7 +506,7 @@ s48_value df_scheme_fstat(s48_value g1, s48_value g2)
     int r1;
 
     
-    r1 = scheme_fstat(s48_extract_fixnum(g1), g2);
+    r1 = scheme_fstat(s48_extract_integer(g1), g2);
     ret1 = False_on_zero(r1);
     return ret1;
 }
@@ -698,7 +698,7 @@ s48_value df_write_fdes_char(s48_value g1, s48_value g2)
 
 s48_value df_read_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value mv_vec)
 {
-    extern int read_fdes_substring(s48_value , int , int , int );
+    extern int read_fdes_substring(s48_value , size_t , size_t , int );
     s48_value ret1;
     int r1;
 
@@ -711,7 +711,7 @@ s48_value df_read_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_v
 
 s48_value df_write_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value mv_vec)
 {
-    extern int write_fdes_substring(s48_value , int , int , int );
+    extern int write_fdes_substring(s48_value , size_t , size_t , int );
     s48_value ret1;
     int r1;
 
@@ -750,7 +750,7 @@ s48_value df_alarm(s48_value g1)
     unsigned int r1;
 
     
-    r1 = alarm(s48_extract_fixnum(g1));
+    r1 = alarm(s48_extract_integer(g1));
     ret1 = s48_enter_fixnum(r1);
     return ret1;
 }
@@ -805,7 +805,7 @@ s48_value df_group_info_gid(s48_value g1, s48_value mv_vec)
     int r4;
 
     
-    r1 = group_info_gid(s48_extract_fixnum(g1), &r2, &r3, &r4);
+    r1 = group_info_gid(s48_extract_integer(g1), &r2, &r3, &r4);
     ret1 = ENTER_BOOLEAN(r1);
     SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len
     SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign
@@ -825,7 +825,7 @@ s48_value df_group_info_name(s48_value g1, s48_value mv_vec)
     
     r1 = group_info_name(s48_extract_string(g1), &r2, &r3, &r4);
     ret1 = ENTER_BOOLEAN(r1);
-    S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
+    S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
     SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign
     S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4));
     return ret1;
@@ -956,14 +956,14 @@ s48_value df_fcntl_write(s48_value g1, s48_value g2, s48_value g3)
     return ret1;
 }
 
-s48_value df_sleep_until(s48_value g1, s48_value g2)
+s48_value df_sleep_until(s48_value g1)
 {
-    extern s48_value sleep_until(int , int );
+    extern s48_value sleep_until(time_t );
     s48_value ret1;
     s48_value r1;
 
     
-    r1 = sleep_until(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
+    r1 = sleep_until(s48_extract_integer(g1));
     ret1 = r1;
     return ret1;
 }
@@ -988,7 +988,7 @@ s48_value df_errno_msg(s48_value g1, s48_value mv_vec)
     char *r1;
 
     
-    r1 = errno_msg(s48_extract_fixnum(g1));
+    r1 = errno_msg(s48_extract_integer(g1));
     ret1 = S48_VECTOR_REF(mv_vec,0);
     SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len
     return ret1;
diff --git a/scsh/time.c b/scsh/time.c
index ab930cf..14248e5 100644
--- a/scsh/time.c
+++ b/scsh/time.c
@@ -30,39 +30,35 @@ s48_value df_time_plus_ticks(s48_value mv_vec)
 
 s48_value df_scheme_time(s48_value mv_vec)
 {
-    extern s48_value scheme_time(int *, int *);
+    extern s48_value scheme_time(time_t *);
     s48_value ret1;
     s48_value r1;
-    int r2;
-    int r3;
+    time_t r2;
 
     
-    r1 = scheme_time(&r2, &r3);
+    r1 = scheme_time(&r2);
     ret1 = r1;
-    S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
-    S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
+    S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
     return ret1;
 }
 
 s48_value df_date2time(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value g7, s48_value g8, s48_value g9, s48_value mv_vec)
 {
-    extern s48_value date2time(int , int , int , int , int , int , s48_value , s48_value , int , int *, int *);
+    extern s48_value date2time(int , int , int , int , int , int , s48_value , s48_value , int , time_t *);
     s48_value ret1;
     s48_value r1;
-    int r2;
-    int r3;
+    time_t r2;
 
     
-    r1 = date2time(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6), g7, g8, EXTRACT_BOOLEAN(g9), &r2, &r3);
+    r1 = date2time(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6), g7, g8, EXTRACT_BOOLEAN(g9), &r2);
     ret1 = r1;
-    S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
-    S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
+    S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
     return ret1;
 }
 
-s48_value df_time2date(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
+s48_value df_time2date(s48_value g1, s48_value g2, s48_value mv_vec)
 {
-    extern s48_value time2date(int , int , s48_value , int *, int *, int *, int *, int *, int *, const char **, int *, int *, int *, int *);
+    extern s48_value time2date(time_t , s48_value , int *, int *, int *, int *, int *, int *, const char **, int *, int *, int *, int *);
     s48_value ret1;
     s48_value r1;
     int r2;
@@ -78,7 +74,7 @@ s48_value df_time2date(s48_value g1, s48_value g2, s48_value g3, s48_value mv_ve
     int r12;
 
     
-    r1 = time2date(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3, &r2, &r3, &r4, &r5, &r6, &r7, &r8, &r9, &r10, &r11, &r12);
+    r1 = time2date(s48_extract_integer(g1), g2, &r2, &r3, &r4, &r5, &r6, &r7, &r8, &r9, &r10, &r11, &r12);
     ret1 = r1;
     S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
     S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
diff --git a/scsh/time.scm b/scsh/time.scm
index e85d427..c93f060 100644
--- a/scsh/time.scm
+++ b/scsh/time.scm
@@ -200,6 +200,7 @@
   (format-date "~a ~b ~d ~H:~M:~S ~Y" date))
 
 (define (format-date fmt date)
+  (warn "format-date called, this will fail since it calls with 13 args")
   (check-arg date? date format-date)
   (receive (err result)
 	   (%format-date/errno fmt