diff --git a/build/filenames.make b/build/filenames.make
index 71e0cee..6348aab 100644
--- a/build/filenames.make
+++ b/build/filenames.make
@@ -1,6 +1,6 @@
 #### This file was generated automatically. ####
 
-initial-files = scheme/rts/low.scm scheme/rts/signal.scm scheme/rts/base.scm scheme/rts/util.scm scheme/rts/number.scm scheme/rts/lize.scm scheme/rts/record.scm scheme/rts/jar-defrecord.scm scheme/rts/method.scm scheme/rts/numio.scm scheme/rts/fluid.scm scheme/rts/defenum.scm scheme/vm/arch.scm scheme/big/queue.scm scheme/rts/condition.scm scheme/rts/session.scm scheme/rts/interrupt.scm scheme/rts/wind.scm scheme/rts/template.scm scheme/rts/continuation.scm scheme/rts/exception.scm scheme/rts/thread.scm scheme/rts/sleep.scm scheme/rts/lock.scm scheme/rts/port.scm scheme/rts/current-port.scm scheme/rts/write.scm scheme/rts/read.scm scheme/rts/channel.scm scheme/rts/channel-port.scm scheme/rts/channel-io.scm scheme/big/general-table.scm scheme/rts/population.scm scheme/bcomp/mtype.scm scheme/bcomp/interface.scm scheme/bcomp/binding.scm scheme/bcomp/name.scm scheme/bcomp/transform.scm scheme/bcomp/cenv.scm scheme/bcomp/thingie.scm scheme/bcomp/package.scm scheme/bcomp/package-undef.scm scheme/rts/env.scm scheme/big/filename.scm scheme/bcomp/read-form.scm scheme/bcomp/node.scm scheme/bcomp/schemify.scm scheme/bcomp/var-util.scm scheme/bcomp/syntax.scm scheme/bcomp/primop.scm scheme/bcomp/ddata.scm scheme/bcomp/stack-check.scm scheme/bcomp/state.scm scheme/bcomp/segment.scm scheme/bcomp/recon.scm scheme/bcomp/comp-exp.scm scheme/bcomp/comp-prim.scm scheme/bcomp/comp.scm scheme/rts/eval.scm scheme/env/dispcond.scm scheme/debug/mini-command.scm scheme/rts/scheduler.scm scheme/rts/root-scheduler.scm scheme/rts/init.scm scheme/env/start.scm scheme/bcomp/usual.scm scheme/bcomp/rules.scm scheme/bcomp/type.scm scheme/bcomp/module-language.scm scheme/bcomp/config.scm scheme/bcomp/scan-package.scm scheme/bcomp/optimize.scm scheme/bcomp/comp-package.scm scheme/env/load-package.scm scheme/big/strong.scm scheme/opt/usage.scm scheme/opt/sort.scm scheme/opt/inline.scm scheme/bcomp/for-reify.scm 
+initial-files = scheme/rts/low.scm scheme/rts/signal.scm scheme/rts/base.scm scheme/rts/util.scm scheme/rts/number.scm scheme/rts/lize.scm scheme/rts/record.scm scheme/rts/jar-defrecord.scm scheme/rts/method.scm scheme/rts/numio.scm scheme/rts/fluid.scm scheme/rts/defenum.scm scheme/vm/arch.scm scheme/big/queue.scm scheme/rts/condition.scm scheme/rts/session.scm scheme/rts/interrupt.scm scheme/rts/wind.scm scheme/rts/thread-cell.scm scheme/rts/template.scm scheme/rts/continuation.scm scheme/rts/exception.scm scheme/rts/thread.scm scheme/rts/sleep.scm scheme/rts/lock.scm scheme/rts/port.scm scheme/rts/current-port.scm scheme/rts/write.scm scheme/rts/read.scm scheme/rts/channel.scm scheme/rts/channel-port.scm scheme/rts/channel-io.scm scheme/big/general-table.scm scheme/rts/population.scm scheme/bcomp/mtype.scm scheme/bcomp/interface.scm scheme/bcomp/binding.scm scheme/bcomp/name.scm scheme/bcomp/transform.scm scheme/bcomp/cenv.scm scheme/bcomp/thingie.scm scheme/bcomp/package.scm scheme/bcomp/package-undef.scm scheme/rts/env.scm scheme/big/filename.scm scheme/bcomp/read-form.scm scheme/bcomp/node.scm scheme/bcomp/schemify.scm scheme/bcomp/var-util.scm scheme/bcomp/syntax.scm scheme/bcomp/primop.scm scheme/bcomp/ddata.scm scheme/bcomp/stack-check.scm scheme/bcomp/state.scm scheme/bcomp/segment.scm scheme/bcomp/recon.scm scheme/bcomp/comp-exp.scm scheme/bcomp/comp-prim.scm scheme/bcomp/comp.scm scheme/rts/eval.scm scheme/env/dispcond.scm scheme/debug/mini-command.scm scheme/rts/sigevents.scm scheme/rts/scheduler.scm scheme/rts/root-scheduler.scm scheme/rts/init.scm scheme/env/start.scm scheme/bcomp/usual.scm scheme/bcomp/rules.scm scheme/bcomp/type.scm scheme/bcomp/module-language.scm scheme/bcomp/config.scm scheme/bcomp/scan-package.scm scheme/bcomp/optimize.scm scheme/bcomp/comp-package.scm scheme/env/load-package.scm scheme/big/strong.scm scheme/opt/usage.scm scheme/opt/sort.scm scheme/opt/inline.scm scheme/bcomp/for-reify.scm 
 
 usual-files = scheme/opt/analyze.scm scheme/env/disclosers.scm scheme/env/command-level.scm scheme/env/version-info.scm scheme/env/command.scm scheme/env/read-command.scm scheme/env/debuginfo.scm scheme/rts/xnum.scm scheme/rts/bignum.scm scheme/rts/ratnum.scm scheme/rts/recnum.scm scheme/rts/innum.scm scheme/env/basic-command.scm scheme/env/build.scm scheme/env/shadow.scm scheme/env/pedit.scm scheme/env/pacman.scm scheme/rts/time.scm scheme/env/debug.scm scheme/env/inspect.scm scheme/env/disasm.scm 
 
diff --git a/build/initial.debug b/build/initial.debug
index ad7f5a1..c8fbd42 100644
--- a/build/initial.debug
+++ b/build/initial.debug
@@ -21,70 +21,72 @@
 (19 methods)
 (20 number-i/o)
 (21 fluids)
-(22 wind)
-(23 session-data)
-(24 i/o)
-(25 channels)
-(26 channel-i/o)
-(27 conditions)
-(28 writing)
-(29 reading)
-(30 scheme-level-2)
-(31 features)
-(32 templates)
-(33 continuations)
-(34 more-types)
-(35 enumerated)
-(36 architecture)
-(37 exceptions)
-(38 interrupts)
-(39 threads)
-(40 scheduler)
-(41 root-scheduler)
-(42 enum-case)
-(43 queues)
-(44 locks)
-(45 usual-resumer)
-(46 weak)
-(47 display-conditions)
-(48 meta-types)
-(49 bindings)
-(50 names)
-(51 thingies)
-(52 nodes)
-(53 compiler-envs)
-(54 syntactic)
-(55 usual-macros)
-(56 var-utilities)
-(57 debug-data)
-(58 stack-check)
-(59 segments)
-(60 primops)
-(61 reconstruction)
-(62 compiler)
-(63 reading-forms)
-(64 flat-environments)
-(65 interfaces)
-(66 packages)
-(67 scan-package)
-(68 optimizer)
-(69 compile-packages)
-(70 defpackage)
-(71 types)
-(72 module-system)
-(73 usages)
-(74 analysis)
-(75 inline)
-(76 strong)
-(77 tables)
-(78 filenames)
-(79 environments)
-(80 evaluation)
-(81 ensures-loaded)
-(82 for-reification)
-(83 scheme)
-(84 mini-command)
-(85 initial-system)
+(22 thread-cells)
+(23 wind)
+(24 session-data)
+(25 i/o)
+(26 channels)
+(27 channel-i/o)
+(28 conditions)
+(29 writing)
+(30 reading)
+(31 scheme-level-2)
+(32 features)
+(33 templates)
+(34 continuations)
+(35 more-types)
+(36 enumerated)
+(37 architecture)
+(38 exceptions)
+(39 interrupts)
+(40 sigevents)
+(41 threads)
+(42 scheduler)
+(43 root-scheduler)
+(44 enum-case)
+(45 queues)
+(46 locks)
+(47 usual-resumer)
+(48 weak)
+(49 display-conditions)
+(50 meta-types)
+(51 bindings)
+(52 names)
+(53 thingies)
+(54 nodes)
+(55 compiler-envs)
+(56 syntactic)
+(57 usual-macros)
+(58 var-utilities)
+(59 debug-data)
+(60 stack-check)
+(61 segments)
+(62 primops)
+(63 reconstruction)
+(64 compiler)
+(65 reading-forms)
+(66 flat-environments)
+(67 interfaces)
+(68 packages)
+(69 scan-package)
+(70 optimizer)
+(71 compile-packages)
+(72 defpackage)
+(73 types)
+(74 module-system)
+(75 usages)
+(76 analysis)
+(77 inline)
+(78 strong)
+(79 tables)
+(80 filenames)
+(81 environments)
+(82 evaluation)
+(83 ensures-loaded)
+(84 for-reification)
+(85 scheme)
+(86 mini-command)
+(87 initial-system)
 -
 ; Location uid -> (name . package-uid)
 (0 (and . 14))
@@ -176,462 +178,462 @@
 (86 (false . 14))
 (87 (remainder . 14))
 (88 (continuation? . 14))
-(89 (binary-reduce1 . 14))
-(90 (binary-reduce2 . 14))
-(91 (char<? . 14))
-(92 (char=? . 14))
-(93 (<= . 14))
-(94 (magnitude . 14))
-(95 (>= . 14))
-(96 (with-continuation . 14))
-(97 (floor . 14))
-(98 (apply . 14))
-(99 (memory-status . 14))
-(100 (checked-record-set! . 14))
-(101 (inexact->exact . 14))
-(102 (exact->inexact . 14))
-(103 (error . 14))
-(104 (extended-number-length . 14))
-(105 (open-channels-list . 14))
-(106 (channel-id . 14))
-(107 (shared-binding-set! . 14))
-(108 (numerator . 14))
-(109 (eof-object . 14))
-(110 (byte-vector-length . 14))
-(111 (record-ref . 14))
-(112 (make-polar . 14))
-(113 (write-char . 14))
-(114 (symbol->string . 14))
-(115 (exact? . 14))
-(116 (vector-ref . 14))
-(117 (set-current-thread! . 14))
-(118 (immutable? . 14))
-(119 (set-exception-handlers! . 14))
-(120 (string-ref . 14))
-(121 (set-port-index! . 14))
-(122 (make-shared-binding . 14))
-(123 (current-thread . 14))
-(124 (channel-status . 14))
-(125 (set-port-limit! . 14))
-(126 (shared-binding-name . 14))
-(127 (port-index . 14))
-(128 (make-immutable! . 14))
-(129 (set-enabled-interrupts! . 14))
-(130 (port-limit . 14))
-(131 (ascii->char . 14))
-(132 (char->ascii . 14))
-(133 (undefine-shared-binding . 14))
-(134 (record-set! . 14))
-(135 (shared-binding? . 14))
-(136 (eof-object? . 14))
-(137 (set-interrupt-handlers! . 14))
-(138 (record . 14))
-(139 (schedule-interrupt . 14))
-(140 (channel-maybe-write . 14))
-(141 (extended-number-ref . 14))
-(142 (vector-set! . 14))
-(143 (copy-bytes! . 14))
-(144 (string-set! . 14))
-(145 (call-external-value . 14))
-(146 (values . 14))
-(147 (intern . 14))
-(148 (vector . 14))
-(149 (byte-vector-ref . 14))
-(150 (make-double . 14))
-(151 (make-record . 14))
-(152 (set-location-id! . 14))
-(153 (location-id . 14))
-(154 (bitwise-and . 14))
-(155 (eq? . 14))
-(156 (write-image . 14))
-(157 (double? . 14))
-(158 (extended-number-set! . 14))
-(159 (make-vector . 14))
-(160 (record? . 14))
-(161 (make-string . 14))
-(162 (set-port-buffer! . 14))
-(163 (primitive-catch . 14))
-(164 (string-hash . 14))
-(165 (template-length . 14))
-(166 (number? . 14))
-(167 (port-buffer . 14))
-(168 (byte-vector-set! . 14))
-(169 (bitwise-ior . 14))
-(170 (set-car! . 14))
-(171 (closure-env . 14))
-(172 (vector? . 14))
-(173 (bitwise-not . 14))
-(174 (set-cdr! . 14))
-(175 (symbol? . 14))
-(176 (string? . 14))
-(177 (car . 14))
-(178 (bitwise-xor . 14))
-(179 (cdr . 14))
-(180 (find-all-records . 14))
-(181 (continuation-length . 14))
-(182 (log . 14))
-(183 (message . 14))
-(184 (tan . 14))
-(185 (collect . 14))
-(186 (cos . 14))
-(187 (channel-os-index . 14))
-(188 (make-extended-number . 14))
-(189 (set-port-status! . 14))
-(190 (sin . 14))
-(191 (exp . 14))
-(192 (pop . 14))
-(193 (port-status . 14))
-(194 (return-from-callback . 14))
-(195 (set-port-locked?! . 14))
-(196 (make-byte-vector . 14))
-(197 (weak-pointer-ref . 14))
-(198 (call-with-values . 14))
-(199 (denominator . 14))
-(200 (reverse-list->string . 14))
-(201 (port-locked? . 14))
-(202 (extended-number? . 14))
-(203 (shared-binding-is-import? . 14))
-(204 (find-all . 14))
-(205 (cell-ref . 14))
-(206 (byte-vector? . 14))
-(207 (string=? . 14))
-(208 (open-channel . 14))
-(209 (channel? . 14))
-(210 (make-rectangular . 14))
-(211 (set-session-data! . 14))
-(212 (template-ref . 14))
-(213 (set-port-handler! . 14))
-(214 (make-closure . 14))
-(215 (session-data . 14))
-(216 (integer? . 14))
-(217 (signal-condition . 14))
-(218 (port-handler . 14))
-(219 (set-port-pending-eof?! . 14))
-(220 (define-shared-binding . 14))
-(221 (arithmetic-shift . 14))
-(222 (complex? . 14))
-(223 (port-pending-eof? . 14))
-(224 (cell-set! . 14))
-(225 (binary-comparison-reduce2 . 14))
-(226 (closure? . 14))
-(227 (continuation-ref . 14))
-(228 (closure-template . 14))
-(229 (current-cont . 14))
-(230 (char->integer . 14))
-(231 (integer->char . 14))
-(232 (ascii-limit . 14))
-(233 (ascii-whitespaces . 14))
-(234 (procedure? . 14))
-(235 (invoke-closure . 14))
-(236 (primitive-cwcc . 14))
-(237 (make-undefined-location . 14))
-(238 (location-assigned? . 14))
-(239 (vector-unassigned? . 14))
-(240 (string-copy . 14))
-(241 (string->symbol . 14))
-(242 (input-port? . 14))
-(243 (output-port? . 14))
-(244 (make-code-vector . 14))
-(245 (code-vector? . 14))
-(246 (code-vector-length . 14))
-(247 (code-vector-ref . 14))
-(248 (code-vector-set! . 14))
-(249 (channel-read . 14))
-(250 (buffer-length . 14))
-(251 (channel-write . 14))
-(252 (lookup-imported-binding . 14))
-(253 (lookup-exported-binding . 14))
-(254 (define-imported-binding . 14))
-(255 (define-exported-binding . 14))
-(256 (undefine-imported-binding . 14))
-(257 (undefine-exported-binding . 14))
-(258 (debug-message . 14))
-(259 (make-condition . 14))
-(260 (signal . 14))
-(261 (warn . 14))
-(262 (syntax-error . 14))
-(263 (call-error . 14))
-(264 (case . 15))
-(265 (quasiquote . 15))
-(266 (syntax-rules . 15))
-(267 (not . 15))
-(268 (boolean? . 15))
-(269 (eqv? . 15))
-(270 (equal? . 15))
-(271 (max . 15))
-(272 (min . 15))
-(273 (max-or-min . 15))
-(274 (abs . 15))
-(275 (zero? . 15))
-(276 (positive? . 15))
-(277 (negative? . 15))
-(278 (even? . 15))
-(279 (odd? . 15))
-(280 (caar . 15))
-(281 (cadr . 15))
-(282 (cdar . 15))
-(283 (cddr . 15))
-(284 (caaar . 15))
-(285 (caadr . 15))
-(286 (cadar . 15))
-(287 (caddr . 15))
-(288 (cdaar . 15))
-(289 (cdadr . 15))
-(290 (cddar . 15))
-(291 (cdddr . 15))
-(292 (caaaar . 15))
-(293 (caaadr . 15))
-(294 (caadar . 15))
-(295 (caaddr . 15))
-(296 (cadaar . 15))
-(297 (cadadr . 15))
-(298 (caddar . 15))
-(299 (cadddr . 15))
-(300 (cdaaar . 15))
-(301 (cdaadr . 15))
-(302 (cdadar . 15))
-(303 (cdaddr . 15))
-(304 (cddaar . 15))
-(305 (cddadr . 15))
-(306 (cdddar . 15))
-(307 (cddddr . 15))
-(308 (null? . 15))
-(309 (list . 15))
-(310 (length . 15))
-(311 (real-length . 15))
-(312 (append . 15))
-(313 (reverse . 15))
-(314 (append-reverse . 15))
-(315 (list-tail . 15))
-(316 (list-ref . 15))
-(317 (mem . 15))
-(318 (memq . 15))
-(319 (memv . 15))
-(320 (member . 15))
-(321 (ass . 15))
-(322 (assv . 15))
-(323 (assoc . 15))
-(324 (list? . 15))
-(325 (char>? . 15))
-(326 (char>=? . 15))
-(327 (char<=? . 15))
-(328 (char-whitespace? . 15))
-(329 (char-lower-case? . 15))
-(330 (char-upper-case? . 15))
-(331 (char-numeric? . 15))
-(332 (char-alphabetic? . 15))
-(333 (char-case-delta . 15))
-(334 (make-character-map . 15))
-(335 (upcase-map . 15))
-(336 (char-upcase . 15))
-(337 (downcase-map . 15))
-(338 (char-downcase . 15))
-(339 (char-ci-compare . 15))
-(340 (char-ci=? . 15))
-(341 (char-ci<? . 15))
-(342 (char-ci<=? . 15))
-(343 (char-ci>? . 15))
-(344 (char-ci>=? . 15))
-(345 (string . 15))
-(346 (substring . 15))
-(347 (string-append . 15))
-(348 (string->list . 15))
-(349 (list->string . 15))
-(350 (string-fill! . 15))
-(351 (make-string=? . 15))
-(352 (string-ci=? . 15))
-(353 (make-string<? . 15))
-(354 (string<? . 15))
-(355 (string-ci<? . 15))
-(356 (string>? . 15))
-(357 (string<=? . 15))
-(358 (string>=? . 15))
-(359 (string-ci>? . 15))
-(360 (string-ci<=? . 15))
-(361 (string-ci>=? . 15))
-(362 (vector->list . 15))
-(363 (list->vector . 15))
-(364 (vector-fill! . 15))
-(365 (map . 15))
-(366 (map1 . 15))
-(367 (map2+ . 15))
-(368 (for-each . 15))
-(369 (for-each1 . 15))
-(370 (for-each2+ . 15))
-(371 (delay . 15))
-(372 (make-promise . 15))
-(373 (force . 15))
-(374 (unspecific . 15))
-(375 (reduce . 15))
-(376 (filter . 15))
-(377 (pos . 15))
-(378 (posq . 15))
-(379 (posv . 15))
-(380 (position . 15))
-(381 (any . 15))
-(382 (every . 15))
-(383 (sublist . 15))
-(384 (last . 15))
-(385 (insert . 15))
-(386 (fold . 15))
-(387 (fold->2 . 15))
-(388 (fold->3 . 15))
-(389 (inexact? . 15))
-(390 (modulo . 15))
-(391 (ceiling . 15))
-(392 (truncate . 15))
-(393 (round . 15))
-(394 (gcd . 15))
-(395 (euclid . 15))
-(396 (lcm . 15))
-(397 (expt . 15))
-(398 (raise-to-integer-power . 15))
-(399 (rationalize . 15))
-(400 (simplest-rational . 15))
-(401 (record-type . 16))
-(402 (*record-type-uid* . 16))
-(403 (*record-type* . 16))
-(404 (make-record-type . 16))
-(405 (record-type? . 16))
-(406 (record-type-resumer . 16))
-(407 (set-record-type-resumer! . 16))
-(408 (record-type-uid . 16))
-(409 (record-type-name . 16))
-(410 (record-type-field-names . 16))
-(411 (record-type-number-of-fields . 16))
-(412 (record-type-discloser . 16))
-(413 (set-record-type-discloser! . 16))
-(414 (record-type-fields . 16))
-(415 (record-field-index . 16))
-(416 (record-constructor . 16))
-(417 (record-accessor . 16))
-(418 (record-modifier . 16))
-(419 (record-predicate . 16))
-(420 (define-record-discloser . 16))
-(421 (make-default-record-discloser . 16))
-(422 (disclose-record . 16))
-(423 (define-record-resumer . 16))
-(424 (default-record-resumer . 16))
-(425 (initialize-records! . 16))
-(426 (resume-record . 16))
-(427 (:record-type . 16))
-(428 (define-record-type . 18))
-(429 (define-constructor . 18))
-(430 (define-accessors . 18))
-(431 (define-accessor . 18))
-(432 (:simple-type . 19))
-(433 (really-make-simple-type . 19))
-(434 (simple-type-id . 19))
-(435 (simple-type-priority . 19))
-(436 (simple-type-predicate . 19))
-(437 (simple-type-superiors . 19))
-(438 (simple-type? . 19))
-(439 (make-simple-type . 19))
-(440 (compute-priority . 19))
-(441 (*increment* . 19))
-(442 (%type-priority . 19))
-(443 (%type-predicate . 19))
-(444 (%same-type? . 19))
-(445 (define-simple-type . 19))
-(446 (:syntax . 19))
-(447 (:values . 19))
-(448 (value? . 19))
-(449 (:value . 19))
-(450 (:zero . 19))
-(451 (:number . 19))
-(452 (:complex . 19))
-(453 (:real . 19))
-(454 (:rational . 19))
-(455 (:integer . 19))
-(456 (:exact-integer . 19))
-(457 (:boolean . 19))
-(458 (:symbol . 19))
-(459 (:char . 19))
-(460 (:null . 19))
-(461 (:pair . 19))
-(462 (:vector . 19))
-(463 (:string . 19))
-(464 (:procedure . 19))
-(465 (:input-port . 19))
-(466 (:output-port . 19))
-(467 (:eof-object . 19))
-(468 (:record . 19))
-(469 (record-type-priority . 19))
-(470 (:method-info . 19))
-(471 (really-make-method-info . 19))
-(472 (method-info-proc . 19))
-(473 (method-info-n-ary? . 19))
-(474 (method-info-types . 19))
-(475 (method-info? . 19))
-(476 (make-method-info . 19))
-(477 (empty-method-list . 19))
-(478 (insert-method . 19))
-(479 (same-applicability? . 19))
-(480 (every2 . 19))
-(481 (more-specific? . 19))
-(482 (more-specific-type? . 19))
-(483 (:method-table . 19))
-(484 (really-make-method-table . 19))
-(485 (method-table-id . 19))
-(486 (method-table-set-perform! . 19))
-(487 (method-table-get-perform . 19))
-(488 (make-generic . 19))
-(489 (method-table-prototype . 19))
-(490 (method-table-methods . 19))
-(491 (set-method-table-methods! . 19))
-(492 (method-table? . 19))
-(493 (make-method-table . 19))
-(494 (make-cell-for-generic . 19))
-(495 (add-to-method-table! . 19))
-(496 (set-final-method! . 19))
-(497 (apply-generic . 19))
-(498 (define-generic . 19))
-(499 (methods->perform . 19))
-(500 (last-action . 19))
-(501 (one-action . 19))
-(502 (argument-sequence-predicate . 19))
-(503 (check-for-next . 19))
-(504 (check-next . 19))
-(505 (method-info . 19))
-(506 (method-internal . 19))
-(507 (with-next-method . 19))
-(508 (define-method . 19))
-(509 (&add-method! . 19))
-(510 (add-method! . 19))
-(511 (&type-predicate . 19))
-(512 (type-predicate . 19))
-(513 (&type-priority . 19))
-(514 (type-priority . 19))
-(515 (&type-superiors . 19))
-(516 (type-superiors . 19))
-(517 (&same-type? . 19))
-(518 (same-type? . 19))
-(519 (:singleton . 19))
-(520 (singleton . 19))
-(521 (singleton-value . 19))
-(522 (compare-to . 19))
-(523 (&disclose . 19))
-(524 (disclose . 19))
-(525 (proc->discloser . 19))
-(526 (&number->string . 20))
-(527 (real-number->string . 20))
-(528 (number->string . 20))
-(529 (integer->string . 20))
-(530 (string->number . 20))
-(531 (&really-string->number . 20))
-(532 (really-string->number . 20))
-(533 (:integer-string . 20))
-(534 (set-exactness . 20))
-(535 (string->integer . 20))
-(536 (:thread . 21))
-(537 (make-thread . 21))
-(538 (thread-dynamic-point . 21))
-(539 (thread-dynamic-env . 21))
-(540 (get-dynamic-env . 21))
-(541 (set-dynamic-env! . 21))
-(542 (get-dynamic-point . 21))
-(543 (set-dynamic-point! . 21))
-(544 (initialize-dynamic-state! . 21))
+(89 (channel-ready? . 14))
+(90 (binary-reduce1 . 14))
+(91 (binary-reduce2 . 14))
+(92 (char<? . 14))
+(93 (char=? . 14))
+(94 (<= . 14))
+(95 (magnitude . 14))
+(96 (>= . 14))
+(97 (with-continuation . 14))
+(98 (floor . 14))
+(99 (apply . 14))
+(100 (memory-status . 14))
+(101 (checked-record-set! . 14))
+(102 (inexact->exact . 14))
+(103 (exact->inexact . 14))
+(104 (error . 14))
+(105 (extended-number-length . 14))
+(106 (open-channels-list . 14))
+(107 (channel-id . 14))
+(108 (shared-binding-set! . 14))
+(109 (numerator . 14))
+(110 (eof-object . 14))
+(111 (byte-vector-length . 14))
+(112 (record-ref . 14))
+(113 (make-polar . 14))
+(114 (write-char . 14))
+(115 (symbol->string . 14))
+(116 (exact? . 14))
+(117 (vector-ref . 14))
+(118 (set-current-thread! . 14))
+(119 (immutable? . 14))
+(120 (set-exception-handlers! . 14))
+(121 (string-ref . 14))
+(122 (set-port-index! . 14))
+(123 (make-shared-binding . 14))
+(124 (current-thread . 14))
+(125 (channel-status . 14))
+(126 (set-port-limit! . 14))
+(127 (shared-binding-name . 14))
+(128 (port-index . 14))
+(129 (make-immutable! . 14))
+(130 (set-enabled-interrupts! . 14))
+(131 (port-limit . 14))
+(132 (ascii->char . 14))
+(133 (char->ascii . 14))
+(134 (undefine-shared-binding . 14))
+(135 (record-set! . 14))
+(136 (shared-binding? . 14))
+(137 (eof-object? . 14))
+(138 (set-interrupt-handlers! . 14))
+(139 (record . 14))
+(140 (schedule-interrupt . 14))
+(141 (channel-maybe-write . 14))
+(142 (extended-number-ref . 14))
+(143 (vector-set! . 14))
+(144 (copy-bytes! . 14))
+(145 (string-set! . 14))
+(146 (call-external-value . 14))
+(147 (values . 14))
+(148 (intern . 14))
+(149 (vector . 14))
+(150 (byte-vector-ref . 14))
+(151 (make-double . 14))
+(152 (make-record . 14))
+(153 (set-location-id! . 14))
+(154 (location-id . 14))
+(155 (bitwise-and . 14))
+(156 (eq? . 14))
+(157 (write-image . 14))
+(158 (double? . 14))
+(159 (extended-number-set! . 14))
+(160 (make-vector . 14))
+(161 (record? . 14))
+(162 (make-string . 14))
+(163 (set-port-buffer! . 14))
+(164 (primitive-catch . 14))
+(165 (string-hash . 14))
+(166 (template-length . 14))
+(167 (number? . 14))
+(168 (port-buffer . 14))
+(169 (byte-vector-set! . 14))
+(170 (bitwise-ior . 14))
+(171 (set-car! . 14))
+(172 (closure-env . 14))
+(173 (vector? . 14))
+(174 (bitwise-not . 14))
+(175 (set-cdr! . 14))
+(176 (symbol? . 14))
+(177 (string? . 14))
+(178 (car . 14))
+(179 (bitwise-xor . 14))
+(180 (cdr . 14))
+(181 (find-all-records . 14))
+(182 (continuation-length . 14))
+(183 (log . 14))
+(184 (message . 14))
+(185 (tan . 14))
+(186 (collect . 14))
+(187 (cos . 14))
+(188 (channel-os-index . 14))
+(189 (make-extended-number . 14))
+(190 (set-port-status! . 14))
+(191 (sin . 14))
+(192 (exp . 14))
+(193 (pop . 14))
+(194 (port-status . 14))
+(195 (return-from-callback . 14))
+(196 (set-port-locked?! . 14))
+(197 (make-byte-vector . 14))
+(198 (weak-pointer-ref . 14))
+(199 (call-with-values . 14))
+(200 (denominator . 14))
+(201 (reverse-list->string . 14))
+(202 (port-locked? . 14))
+(203 (extended-number? . 14))
+(204 (shared-binding-is-import? . 14))
+(205 (find-all . 14))
+(206 (cell-ref . 14))
+(207 (byte-vector? . 14))
+(208 (string=? . 14))
+(209 (open-channel . 14))
+(210 (channel? . 14))
+(211 (make-rectangular . 14))
+(212 (set-session-data! . 14))
+(213 (template-ref . 14))
+(214 (set-port-handler! . 14))
+(215 (make-closure . 14))
+(216 (session-data . 14))
+(217 (integer? . 14))
+(218 (signal-condition . 14))
+(219 (port-handler . 14))
+(220 (set-port-pending-eof?! . 14))
+(221 (define-shared-binding . 14))
+(222 (arithmetic-shift . 14))
+(223 (complex? . 14))
+(224 (port-pending-eof? . 14))
+(225 (cell-set! . 14))
+(226 (binary-comparison-reduce2 . 14))
+(227 (closure? . 14))
+(228 (continuation-ref . 14))
+(229 (closure-template . 14))
+(230 (current-cont . 14))
+(231 (char->integer . 14))
+(232 (integer->char . 14))
+(233 (ascii-limit . 14))
+(234 (ascii-whitespaces . 14))
+(235 (procedure? . 14))
+(236 (invoke-closure . 14))
+(237 (primitive-cwcc . 14))
+(238 (make-undefined-location . 14))
+(239 (location-assigned? . 14))
+(240 (vector-unassigned? . 14))
+(241 (string-copy . 14))
+(242 (string->symbol . 14))
+(243 (input-port? . 14))
+(244 (output-port? . 14))
+(245 (make-code-vector . 14))
+(246 (code-vector? . 14))
+(247 (code-vector-length . 14))
+(248 (code-vector-ref . 14))
+(249 (code-vector-set! . 14))
+(250 (channel-read . 14))
+(251 (buffer-length . 14))
+(252 (channel-write . 14))
+(253 (lookup-imported-binding . 14))
+(254 (lookup-exported-binding . 14))
+(255 (define-imported-binding . 14))
+(256 (define-exported-binding . 14))
+(257 (undefine-imported-binding . 14))
+(258 (undefine-exported-binding . 14))
+(259 (debug-message . 14))
+(260 (make-condition . 14))
+(261 (signal . 14))
+(262 (warn . 14))
+(263 (syntax-error . 14))
+(264 (call-error . 14))
+(265 (case . 15))
+(266 (quasiquote . 15))
+(267 (syntax-rules . 15))
+(268 (not . 15))
+(269 (boolean? . 15))
+(270 (eqv? . 15))
+(271 (equal? . 15))
+(272 (max . 15))
+(273 (min . 15))
+(274 (max-or-min . 15))
+(275 (abs . 15))
+(276 (zero? . 15))
+(277 (positive? . 15))
+(278 (negative? . 15))
+(279 (even? . 15))
+(280 (odd? . 15))
+(281 (caar . 15))
+(282 (cadr . 15))
+(283 (cdar . 15))
+(284 (cddr . 15))
+(285 (caaar . 15))
+(286 (caadr . 15))
+(287 (cadar . 15))
+(288 (caddr . 15))
+(289 (cdaar . 15))
+(290 (cdadr . 15))
+(291 (cddar . 15))
+(292 (cdddr . 15))
+(293 (caaaar . 15))
+(294 (caaadr . 15))
+(295 (caadar . 15))
+(296 (caaddr . 15))
+(297 (cadaar . 15))
+(298 (cadadr . 15))
+(299 (caddar . 15))
+(300 (cadddr . 15))
+(301 (cdaaar . 15))
+(302 (cdaadr . 15))
+(303 (cdadar . 15))
+(304 (cdaddr . 15))
+(305 (cddaar . 15))
+(306 (cddadr . 15))
+(307 (cdddar . 15))
+(308 (cddddr . 15))
+(309 (null? . 15))
+(310 (list . 15))
+(311 (length . 15))
+(312 (real-length . 15))
+(313 (append . 15))
+(314 (reverse . 15))
+(315 (append-reverse . 15))
+(316 (list-tail . 15))
+(317 (list-ref . 15))
+(318 (mem . 15))
+(319 (memq . 15))
+(320 (memv . 15))
+(321 (member . 15))
+(322 (ass . 15))
+(323 (assv . 15))
+(324 (assoc . 15))
+(325 (list? . 15))
+(326 (char>? . 15))
+(327 (char>=? . 15))
+(328 (char<=? . 15))
+(329 (char-whitespace? . 15))
+(330 (char-lower-case? . 15))
+(331 (char-upper-case? . 15))
+(332 (char-numeric? . 15))
+(333 (char-alphabetic? . 15))
+(334 (char-case-delta . 15))
+(335 (make-character-map . 15))
+(336 (upcase-map . 15))
+(337 (char-upcase . 15))
+(338 (downcase-map . 15))
+(339 (char-downcase . 15))
+(340 (char-ci-compare . 15))
+(341 (char-ci=? . 15))
+(342 (char-ci<? . 15))
+(343 (char-ci<=? . 15))
+(344 (char-ci>? . 15))
+(345 (char-ci>=? . 15))
+(346 (string . 15))
+(347 (substring . 15))
+(348 (string-append . 15))
+(349 (string->list . 15))
+(350 (list->string . 15))
+(351 (string-fill! . 15))
+(352 (make-string=? . 15))
+(353 (string-ci=? . 15))
+(354 (make-string<? . 15))
+(355 (string<? . 15))
+(356 (string-ci<? . 15))
+(357 (string>? . 15))
+(358 (string<=? . 15))
+(359 (string>=? . 15))
+(360 (string-ci>? . 15))
+(361 (string-ci<=? . 15))
+(362 (string-ci>=? . 15))
+(363 (vector->list . 15))
+(364 (list->vector . 15))
+(365 (vector-fill! . 15))
+(366 (map . 15))
+(367 (map1 . 15))
+(368 (map2+ . 15))
+(369 (for-each . 15))
+(370 (for-each1 . 15))
+(371 (for-each2+ . 15))
+(372 (delay . 15))
+(373 (make-promise . 15))
+(374 (force . 15))
+(375 (unspecific . 15))
+(376 (reduce . 15))
+(377 (filter . 15))
+(378 (pos . 15))
+(379 (posq . 15))
+(380 (posv . 15))
+(381 (position . 15))
+(382 (any . 15))
+(383 (every . 15))
+(384 (sublist . 15))
+(385 (last . 15))
+(386 (insert . 15))
+(387 (fold . 15))
+(388 (fold->2 . 15))
+(389 (fold->3 . 15))
+(390 (inexact? . 15))
+(391 (modulo . 15))
+(392 (ceiling . 15))
+(393 (truncate . 15))
+(394 (round . 15))
+(395 (gcd . 15))
+(396 (euclid . 15))
+(397 (lcm . 15))
+(398 (expt . 15))
+(399 (raise-to-integer-power . 15))
+(400 (rationalize . 15))
+(401 (simplest-rational . 15))
+(402 (record-type . 16))
+(403 (*record-type-uid* . 16))
+(404 (*record-type* . 16))
+(405 (make-record-type . 16))
+(406 (record-type? . 16))
+(407 (record-type-resumer . 16))
+(408 (set-record-type-resumer! . 16))
+(409 (record-type-uid . 16))
+(410 (record-type-name . 16))
+(411 (record-type-field-names . 16))
+(412 (record-type-number-of-fields . 16))
+(413 (record-type-discloser . 16))
+(414 (set-record-type-discloser! . 16))
+(415 (record-type-fields . 16))
+(416 (record-field-index . 16))
+(417 (record-constructor . 16))
+(418 (record-accessor . 16))
+(419 (record-modifier . 16))
+(420 (record-predicate . 16))
+(421 (define-record-discloser . 16))
+(422 (make-default-record-discloser . 16))
+(423 (disclose-record . 16))
+(424 (define-record-resumer . 16))
+(425 (default-record-resumer . 16))
+(426 (initialize-records! . 16))
+(427 (resume-record . 16))
+(428 (:record-type . 16))
+(429 (define-record-type . 18))
+(430 (define-constructor . 18))
+(431 (define-accessors . 18))
+(432 (define-accessor . 18))
+(433 (:simple-type . 19))
+(434 (really-make-simple-type . 19))
+(435 (simple-type-id . 19))
+(436 (simple-type-priority . 19))
+(437 (simple-type-predicate . 19))
+(438 (simple-type-superiors . 19))
+(439 (simple-type? . 19))
+(440 (make-simple-type . 19))
+(441 (compute-priority . 19))
+(442 (*increment* . 19))
+(443 (%type-priority . 19))
+(444 (%type-predicate . 19))
+(445 (%same-type? . 19))
+(446 (define-simple-type . 19))
+(447 (:syntax . 19))
+(448 (:values . 19))
+(449 (value? . 19))
+(450 (:value . 19))
+(451 (:zero . 19))
+(452 (:number . 19))
+(453 (:complex . 19))
+(454 (:real . 19))
+(455 (:rational . 19))
+(456 (:integer . 19))
+(457 (:exact-integer . 19))
+(458 (:boolean . 19))
+(459 (:symbol . 19))
+(460 (:char . 19))
+(461 (:null . 19))
+(462 (:pair . 19))
+(463 (:vector . 19))
+(464 (:string . 19))
+(465 (:procedure . 19))
+(466 (:input-port . 19))
+(467 (:output-port . 19))
+(468 (:eof-object . 19))
+(469 (:record . 19))
+(470 (record-type-priority . 19))
+(471 (:method-info . 19))
+(472 (really-make-method-info . 19))
+(473 (method-info-proc . 19))
+(474 (method-info-n-ary? . 19))
+(475 (method-info-types . 19))
+(476 (method-info? . 19))
+(477 (make-method-info . 19))
+(478 (empty-method-list . 19))
+(479 (insert-method . 19))
+(480 (same-applicability? . 19))
+(481 (every2 . 19))
+(482 (more-specific? . 19))
+(483 (more-specific-type? . 19))
+(484 (:method-table . 19))
+(485 (really-make-method-table . 19))
+(486 (method-table-id . 19))
+(487 (method-table-set-perform! . 19))
+(488 (method-table-get-perform . 19))
+(489 (make-generic . 19))
+(490 (method-table-prototype . 19))
+(491 (method-table-methods . 19))
+(492 (set-method-table-methods! . 19))
+(493 (method-table? . 19))
+(494 (make-method-table . 19))
+(495 (make-cell-for-generic . 19))
+(496 (add-to-method-table! . 19))
+(497 (set-final-method! . 19))
+(498 (apply-generic . 19))
+(499 (define-generic . 19))
+(500 (methods->perform . 19))
+(501 (last-action . 19))
+(502 (one-action . 19))
+(503 (argument-sequence-predicate . 19))
+(504 (check-for-next . 19))
+(505 (check-next . 19))
+(506 (method-info . 19))
+(507 (method-internal . 19))
+(508 (with-next-method . 19))
+(509 (define-method . 19))
+(510 (&add-method! . 19))
+(511 (add-method! . 19))
+(512 (&type-predicate . 19))
+(513 (type-predicate . 19))
+(514 (&type-priority . 19))
+(515 (type-priority . 19))
+(516 (&type-superiors . 19))
+(517 (type-superiors . 19))
+(518 (&same-type? . 19))
+(519 (same-type? . 19))
+(520 (:singleton . 19))
+(521 (singleton . 19))
+(522 (singleton-value . 19))
+(523 (compare-to . 19))
+(524 (&disclose . 19))
+(525 (disclose . 19))
+(526 (proc->discloser . 19))
+(527 (&number->string . 20))
+(528 (real-number->string . 20))
+(529 (number->string . 20))
+(530 (integer->string . 20))
+(531 (string->number . 20))
+(532 (&really-string->number . 20))
+(533 (really-string->number . 20))
+(534 (:integer-string . 20))
+(535 (set-exactness . 20))
+(536 (string->integer . 20))
+(537 (:thread . 21))
+(538 (make-thread . 21))
+(539 (thread-dynamic-point . 21))
+(540 (thread-dynamic-env . 21))
+(541 (get-dynamic-env . 21))
+(542 (set-dynamic-env! . 21))
+(543 (get-dynamic-point . 21))
+(544 (set-dynamic-point! . 21))
 (545 (with-dynamic-env . 21))
 (546 (empty-dynamic-env . 21))
 (547 (:fluid . 21))
@@ -642,1384 +644,1438 @@
 (552 (set-fluid! . 21))
 (553 (let-fluid . 21))
 (554 (let-fluids . 21))
-(555 (define-enumeration . 35))
-(556 (components . 35))
-(557 (enum . 35))
-(558 (enumerand->name . 35))
-(559 (name->enumerand . 35))
-(560 (lookup-enumerand . 35))
-(561 (architecture-version . 36))
-(562 (bits-used-per-byte . 36))
-(563 (byte-limit . 36))
-(564 (define-instruction-set . 36))
-(565 (op . 36))
-(566 (op-enumeration . 36))
-(567 (op-count . 36))
-(568 (opcode-arg-specs . 36))
-(569 (interrupt . 36))
-(570 (interrupt-enumeration . 36))
-(571 (interrupt-count . 36))
-(572 (exception . 36))
-(573 (exception-enumeration . 36))
-(574 (exception-count . 36))
-(575 (current-port-marker . 36))
-(576 (current-port-marker-enumeration . 36))
-(577 (current-port-marker-count . 36))
-(578 (maximum-stack-args . 36))
-(579 (*last-protocol* . 36))
-(580 (next-protocol . 36))
-(581 (two-byte-nargs-protocol . 36))
-(582 (two-byte-nargs+list-protocol . 36))
-(583 (big-stack-protocol . 36))
-(584 (args+nargs-protocol . 36))
-(585 (nary-dispatch-protocol . 36))
-(586 (maximum-external-call-args . 36))
-(587 (default-stack-space . 36))
-(588 (environment-stack-size . 36))
-(589 (continuation-stack-size . 36))
-(590 (available-stack-space . 36))
-(591 (time-option . 36))
-(592 (time-option-enumeration . 36))
-(593 (time-option-count . 36))
-(594 (memory-status-option . 36))
-(595 (memory-status-option-enumeration . 36))
-(596 (memory-status-option-count . 36))
-(597 (channel-status-option . 36))
-(598 (channel-status-option-enumeration . 36))
-(599 (channel-status-option-count . 36))
-(600 (port-status-options . 36))
-(601 (port-status-options-enumeration . 36))
-(602 (port-status-options-count . 36))
-(603 (stob . 36))
-(604 (stob-enumeration . 36))
-(605 (stob-count . 36))
-(606 (least-b-vector-type . 36))
-(607 (stob-data . 36))
-(608 (:queue . 43))
-(609 (really-make-queue . 43))
-(610 (queue-tail . 43))
-(611 (set-queue-tail! . 43))
-(612 (queue-head . 43))
-(613 (set-queue-head! . 43))
-(614 (queue-uid . 43))
-(615 (queue? . 43))
-(616 (*queue-uid* . 43))
-(617 (make-queue . 43))
-(618 (queue-empty? . 43))
-(619 (enqueue! . 43))
-(620 (queue-front . 43))
-(621 (dequeue! . 43))
-(622 (on-queue? . 43))
-(623 (delete-from-queue! . 43))
-(624 (delete-from-queue-if! . 43))
-(625 (queue->list . 43))
-(626 (queue-length . 43))
-(627 (*condition-types* . 27))
-(628 (condition-supertypes . 27))
-(629 (define-condition-type . 27))
-(630 (condition-predicate . 27))
-(631 (condition? . 27))
-(632 (condition-type . 27))
-(633 (condition-stuff . 27))
-(634 (error? . 27))
-(635 (call-error? . 27))
-(636 (read-error? . 27))
-(637 (exception? . 27))
-(638 (exception-opcode . 27))
-(639 (exception-reason . 27))
-(640 (exception-arguments . 27))
-(641 (make-exception . 27))
-(642 (warning? . 27))
-(643 (syntax-error? . 27))
-(644 (interrupt? . 27))
-(645 (*session-data-initializers* . 23))
-(646 (make-session-data-slot! . 23))
-(647 (session-data-ref . 23))
-(648 (session-data-set! . 23))
-(649 (initialize-session-data! . 23))
-(650 (initialize-interrupts! . 38))
-(651 (interrupt-handlers . 38))
-(652 (set-interrupt-handler! . 38))
-(653 (no-interrupts . 38))
-(654 (all-interrupts . 38))
-(655 (with-interrupts-inhibited . 38))
-(656 (with-interrupts-allowed . 38))
-(657 (disable-interrupts! . 38))
-(658 (enable-interrupts! . 38))
-(659 (with-interrupts . 38))
-(660 (enabled-interrupts . 38))
-(661 (*post-gc-procedures* . 38))
-(662 (call-after-gc! . 38))
-(663 (post-gc-handler . 38))
-(664 (required-post-gc-space . 38))
-(665 (space-shortage-handler . 38))
-(666 (call-before-heap-overflow! . 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))
+(555 (define-enumeration . 36))
+(556 (components . 36))
+(557 (enum . 36))
+(558 (enumerand->name . 36))
+(559 (name->enumerand . 36))
+(560 (lookup-enumerand . 36))
+(561 (architecture-version . 37))
+(562 (bits-used-per-byte . 37))
+(563 (byte-limit . 37))
+(564 (define-instruction-set . 37))
+(565 (op . 37))
+(566 (op-enumeration . 37))
+(567 (op-count . 37))
+(568 (opcode-arg-specs . 37))
+(569 (interrupt . 37))
+(570 (interrupt-enumeration . 37))
+(571 (interrupt-count . 37))
+(572 (exception . 37))
+(573 (exception-enumeration . 37))
+(574 (exception-count . 37))
+(575 (current-port-marker . 37))
+(576 (current-port-marker-enumeration . 37))
+(577 (current-port-marker-count . 37))
+(578 (maximum-stack-args . 37))
+(579 (*last-protocol* . 37))
+(580 (next-protocol . 37))
+(581 (two-byte-nargs-protocol . 37))
+(582 (two-byte-nargs+list-protocol . 37))
+(583 (big-stack-protocol . 37))
+(584 (args+nargs-protocol . 37))
+(585 (nary-dispatch-protocol . 37))
+(586 (maximum-external-call-args . 37))
+(587 (default-stack-space . 37))
+(588 (environment-stack-size . 37))
+(589 (continuation-stack-size . 37))
+(590 (available-stack-space . 37))
+(591 (time-option . 37))
+(592 (time-option-enumeration . 37))
+(593 (time-option-count . 37))
+(594 (memory-status-option . 37))
+(595 (memory-status-option-enumeration . 37))
+(596 (memory-status-option-count . 37))
+(597 (channel-status-option . 37))
+(598 (channel-status-option-enumeration . 37))
+(599 (channel-status-option-count . 37))
+(600 (port-status-options . 37))
+(601 (port-status-options-enumeration . 37))
+(602 (port-status-options-count . 37))
+(603 (stob . 37))
+(604 (stob-enumeration . 37))
+(605 (stob-count . 37))
+(606 (least-b-vector-type . 37))
+(607 (stob-data . 37))
+(608 (:queue . 45))
+(609 (really-make-queue . 45))
+(610 (queue-tail . 45))
+(611 (set-queue-tail! . 45))
+(612 (queue-head . 45))
+(613 (set-queue-head! . 45))
+(614 (queue-uid . 45))
+(615 (queue? . 45))
+(616 (*queue-uid* . 45))
+(617 (make-queue . 45))
+(618 (queue-empty? . 45))
+(619 (enqueue! . 45))
+(620 (queue-front . 45))
+(621 (dequeue! . 45))
+(622 (on-queue? . 45))
+(623 (delete-from-queue! . 45))
+(624 (delete-from-queue-if! . 45))
+(625 (queue->list . 45))
+(626 (queue-length . 45))
+(627 (*condition-types* . 28))
+(628 (condition-supertypes . 28))
+(629 (define-condition-type . 28))
+(630 (condition-predicate . 28))
+(631 (condition? . 28))
+(632 (condition-type . 28))
+(633 (condition-stuff . 28))
+(634 (error? . 28))
+(635 (call-error? . 28))
+(636 (read-error? . 28))
+(637 (exception? . 28))
+(638 (exception-opcode . 28))
+(639 (exception-reason . 28))
+(640 (exception-arguments . 28))
+(641 (make-exception . 28))
+(642 (warning? . 28))
+(643 (syntax-error? . 28))
+(644 (interrupt? . 28))
+(645 (*session-data-initializers* . 24))
+(646 (make-session-data-slot! . 24))
+(647 (session-data-ref . 24))
+(648 (session-data-set! . 24))
+(649 (initialize-session-data! . 24))
+(650 (initialize-interrupts! . 39))
+(651 (interrupt-handlers . 39))
+(652 (set-interrupt-handler! . 39))
+(653 (no-interrupts . 39))
+(654 (all-interrupts . 39))
+(655 (with-interrupts-inhibited . 39))
+(656 (with-interrupts-allowed . 39))
+(657 (disable-interrupts! . 39))
+(658 (enable-interrupts! . 39))
+(659 (with-interrupts . 39))
+(660 (enabled-interrupts . 39))
+(661 (*post-gc-procedures* . 39))
+(662 (call-after-gc! . 39))
+(663 (post-gc-handler . 39))
+(664 (required-post-gc-space . 39))
+(665 (space-shortage-handler . 39))
+(666 (call-before-heap-overflow! . 39))
+(667 (dynamic-wind . 23))
+(668 (call-with-current-continuation . 23))
+(669 (continuation->procedure . 23))
+(670 (:point . 23))
+(671 (make-point . 23))
+(672 (point-parent . 23))
+(673 (point-dynamic-env . 23))
+(674 (point-out . 23))
+(675 (point-in . 23))
+(676 (point-depth . 23))
+(677 (travel-to-point! . 23))
+(678 (:thread . 22))
+(679 (make-thread . 22))
+(680 (thread-own-cell-values? . 22))
+(681 (set-thread-own-values?! . 22))
+(682 (thread-cell-values . 22))
+(683 (set-thread-cell-values! . 22))
+(684 (thread-dynamic-point . 22))
+(685 (thread-dynamic-env . 22))
+(686 (empty-cell-values . 22))
+(687 (get-cell-values . 22))
+(688 (set-cell-values! . 22))
+(689 (get-own-cell-values? . 22))
+(690 (set-own-cell-values? . 22))
+(691 (:thread-cell . 22))
+(692 (make-thread-cell . 22))
+(693 (thread-cell-top-level-value . 22))
+(694 (set-thread-cell-top-level-value! . 22))
+(695 (thread-cell-ref . 22))
+(696 (thread-cell-set! . 22))
+(697 (initialize-dynamic-state! . 22))
+(698 (template-overhead . 33))
+(699 (template-code . 33))
+(700 (template-info . 33))
+(701 (set-template-code! . 33))
+(702 (set-template-info! . 33))
+(703 (:closure . 35))
+(704 (:code-vector . 35))
+(705 (:location . 35))
+(706 (:template . 35))
+(707 (:channel . 35))
+(708 (:port . 35))
+(709 (:double . 35))
+(710 (:weak-pointer . 35))
+(711 (:shared-binding . 35))
+(712 (continuation-cont . 34))
+(713 (real-continuation-pc . 34))
+(714 (real-continuation-template . 34))
+(715 (continuation-env . 34))
+(716 (exception-continuation-pc . 34))
+(717 (exception-continuation-template . 34))
+(718 (exception-continuation-exception . 34))
+(719 (exception-continuation? . 34))
+(720 (continuation-pc . 34))
+(721 (continuation-template . 34))
+(722 (normal-continuation-overhead . 34))
+(723 (exception-continuation-overhead . 34))
+(724 (continuation-arg . 34))
+(725 (continuation-arg-count . 34))
+(726 (:continuation . 34))
+(727 (continuation-parent . 34))
+(728 (define-exception-handler . 38))
+(729 (signal-exception . 38))
+(730 (exception-handlers . 38))
+(731 (extend-opcode! . 38))
+(732 (really-signal-condition . 38))
+(733 (with-handler . 38))
+(734 ($condition-handlers . 38))
+(735 (initialize-exceptions! . 38))
+(736 (last-resort-condition-handler . 38))
+(737 (report-utter-lossage . 38))
+(738 (continuation-preview . 38))
+(739 (ignore-errors . 38))
+(740 (report-errors-as-warnings . 38))
+(741 (:thread . 41))
+(742 (really-make-thread . 41))
+(743 (thread-name . 41))
+(744 (thread-uid . 41))
+(745 (thread-current-task . 41))
+(746 (set-thread-current-task! . 41))
+(747 (thread-events . 41))
+(748 (set-thread-events! . 41))
+(749 (thread-data . 41))
+(750 (set-thread-data! . 41))
+(751 (thread-scheduler . 41))
+(752 (set-thread-scheduler! . 41))
+(753 (thread-time . 41))
+(754 (set-thread-time! . 41))
+(755 (thread-arguments . 41))
+(756 (set-thread-arguments! . 41))
+(757 (thread-queue . 41))
+(758 (set-thread-queue! . 41))
+(759 (thread-continuation . 41))
+(760 (set-thread-continuation! . 41))
+(761 (thread-own-cell-values? . 41))
+(762 (set-thread-own-values?! . 41))
+(763 (thread-cell-values . 41))
+(764 (set-thread-cell-values! . 41))
+(765 (thread-dynamic-point . 41))
+(766 (set-thread-dynamic-point! . 41))
+(767 (thread-dynamic-env . 41))
+(768 (thread? . 41))
+(769 (*thread-uid* . 41))
+(770 (make-thread . 41))
+(771 (thread-top-level . 41))
+(772 (thread-uid->thread . 41))
+(773 (all-threads . 41))
+(774 (add-event! . 41))
+(775 (thunk->continuation . 41))
+(776 (compose-continuation . 41))
+(777 (make-thread-queue . 41))
+(778 (thread-queue-empty? . 41))
+(779 (enqueue-thread! . 41))
+(780 (dequeue-thread! . 41))
+(781 (remove-thread-from-queue! . 41))
+(782 (current-thread . 41))
+(783 (set-current-thread! . 41))
+(784 (event-type . 41))
+(785 (event-type-enumeration . 41))
+(786 (event-type-count . 41))
+(787 (run . 41))
+(788 (find-and-run-next-thread . 41))
+(789 (debit-thread-times-and-run! . 41))
+(790 (handle-timer-interrupt . 41))
+(791 (run-next-thread . 41))
+(792 (min . 41))
+(793 (switch-to-thread . 41))
+(794 (run-thread . 41))
+(795 (suspend . 41))
+(796 (suspend-to . 41))
+(797 (debit-down! . 41))
+(798 (exit . 41))
+(799 (wait . 41))
+(800 (waiting? . 41))
+(801 (block . 41))
+(802 (relinquish-timeslice . 41))
+(803 (upcall . 41))
+(804 (propogate-upcall . 41))
+(805 (kill-thread! . 41))
+(806 (interrupt-thread . 41))
+(807 (get-next-event! . 41))
+(808 (event-pending? . 41))
+(809 (schedule-event . 41))
+(810 (schedule-wakeup . 41))
+(811 (show-running . 41))
+(812 (running? . 41))
+(813 (spawn . 41))
+(814 (spawn-on-root . 41))
+(815 (spawn-on-scheduler . 41))
+(816 (make-ready . 41))
+(817 (schedule-interrupt! . 41))
+(818 (cancel-timer-interrupt! . 41))
+(819 (interrupt-timer-time . 41))
+(820 (real-time . 41))
+(821 (with-threads . 41))
+(822 (start-multitasking . 41))
+(823 (deadlock? . 41))
+(824 (terminate? . 41))
+(825 (terminate-current-thread . 41))
+(826 (root-scheduler-slot . 41))
+(827 (root-scheduler . 41))
+(828 (sleep . 41))
+(829 (*dozers* . 41))
+(830 (insert . 41))
+(831 (wake-some-threads . 41))
+(832 (:lock . 46))
+(833 (really-make-lock . 46))
+(834 (lock-uid . 46))
+(835 (lock-queue . 46))
+(836 (lock-owner-uid . 46))
+(837 (set-lock-owner-uid! . 46))
+(838 (lock? . 46))
+(839 (*lock-uid* . 46))
+(840 (make-lock . 46))
+(841 (obtain-lock . 46))
+(842 (maybe-obtain-lock . 46))
+(843 (release-lock . 46))
+(844 (:port-handler . 25))
+(845 (really-make-port-handler . 25))
+(846 (port-handler-steal . 25))
+(847 (port-handler-ready? . 25))
+(848 (port-handler-buffer-proc . 25))
+(849 (port-handler-close . 25))
+(850 (port-handler-discloser . 25))
+(851 (port-handler? . 25))
+(852 (make-port-handler . 25))
+(853 (disclose-port . 25))
+(854 (obtain-port-lock . 25))
+(855 (maybe-obtain-port-lock . 25))
+(856 (release-port-lock . 25))
+(857 (initialize-i/o-handlers! . 25))
+(858 (one-arg-proc->handler . 25))
+(859 (two-arg-proc->handler . 25))
+(860 (read-char-handler . 25))
+(861 (fill-port-buffer! . 25))
+(862 (write-char-handler . 25))
+(863 (empty-port-buffer! . 25))
+(864 (port-flushed? . 25))
+(865 (set-port-flushed?! . 25))
+(866 (close-input-port . 25))
+(867 (close-output-port . 25))
+(868 (define-port-op . 25))
+(869 (real-char-ready? . 25))
+(870 (read-block . 25))
+(871 (really-read-block . 25))
+(872 (buffer-length . 25))
+(873 (read-more . 25))
+(874 (okay-limits? . 25))
+(875 (write-block . 25))
+(876 (write-string . 25))
+(877 (output-port-ready? . 25))
+(878 (write-buffered-block . 25))
+(879 (write-unbuffered-block . 25))
+(880 (force-output . 25))
+(881 (really-force-output . 25))
+(882 (force-output-if-open . 25))
+(883 (default-buffer-size . 25))
+(884 (open-port? . 25))
+(885 (open-port-mask . 25))
+(886 (input-port-mask . 25))
+(887 (open-input-port-mask . 25))
+(888 (open-input-port-status . 25))
+(889 (open-input-port? . 25))
+(890 (make-input-port-closed! . 25))
+(891 (make-input-port . 25))
+(892 (okay-buffer? . 25))
+(893 (output-port-mask . 25))
+(894 (open-output-port-mask . 25))
+(895 (open-output-port-status . 25))
+(896 (open-output-port? . 25))
+(897 (make-output-port-closed! . 25))
+(898 (make-output-port . 25))
+(899 (make-unbuffered-output-port . 25))
+(900 (null-output-port-handler . 25))
+(901 (make-null-output-port . 25))
+(902 (*flush-these-ports* . 25))
+(903 (initialize-output-port-list! . 25))
+(904 (periodically-force-output! . 25))
+(905 (output-port-forcers . 25))
+(906 (periodically-flushed-ports . 25))
+(907 (make-forcing-thunk . 25))
+(908 (steal-port! . 25))
+(909 (really-steal-port! . 25))
+(910 (make-buffered-input-port . 25))
+(911 (make-buffered-output-port . 25))
+(912 (make-buffered-input-port-handler . 25))
+(913 (make-char-ready? . 25))
+(914 (make-buffered-output-port-handler . 25))
+(915 ($current-input-port . 25))
+(916 ($current-output-port . 25))
+(917 ($current-error-port . 25))
+(918 ($current-noise-port . 25))
+(919 (current-input-port . 25))
+(920 (current-output-port . 25))
+(921 (current-error-port . 25))
+(922 (current-noise-port . 25))
+(923 (initialize-i/o . 25))
+(924 (with-current-ports . 25))
+(925 (call-with-current-input-port . 25))
+(926 (call-with-current-output-port . 25))
+(927 (call-with-current-noise-port . 25))
+(928 (silently . 25))
+(929 (newline . 25))
+(930 (char-ready? . 25))
+(931 (output-port-option . 25))
+(932 (input-port-option . 25))
+(933 (write . 29))
+(934 (recurring-write . 29))
+(935 (write-boolean . 29))
+(936 (write-number . 29))
+(937 (write-char-literal . 29))
+(938 (character-name . 29))
+(939 (write-string-literal . 29))
+(940 (write-list . 29))
+(941 (quotation? . 29))
+(942 (write-vector . 29))
+(943 (write-other . 29))
+(944 (display-type-name . 29))
+(945 (display . 29))
+(946 (preferred-case . 30))
+(947 (script-skip . 30))
+(948 (multi-line-comment-skip . 30))
+(949 (read . 30))
+(950 (sub-read-carefully . 30))
+(951 (reader-token-marker . 30))
+(952 (make-reader-token . 30))
+(953 (reader-token? . 30))
+(954 (close-paren . 30))
+(955 (dot . 30))
+(956 (sub-read . 30))
+(957 (read-dispatch-vector . 30))
+(958 (read-terminating?-vector . 30))
+(959 (set-standard-syntax! . 30))
+(960 (set-standard-read-macro! . 30))
+(961 (sub-read-list . 30))
+(962 (gobble-line . 30))
+(963 (*sharp-macros* . 30))
+(964 (define-sharp-macro . 30))
+(965 (sub-read-token . 30))
+(966 (parse-token . 30))
+(967 (bel . 30))
+(968 (bs . 30))
+(969 (ff . 30))
+(970 (cr . 30))
+(971 (ht . 30))
+(972 (vt . 30))
+(973 (strange-symbol-names . 30))
+(974 (p-c-v . 30))
+(975 (reading-error . 30))
+(976 (input-channel? . 26))
+(977 (output-channel? . 26))
+(978 (open-input-channel . 26))
+(979 (open-output-channel . 26))
+(980 (close-input-channel . 26))
+(981 (close-output-channel . 26))
+(982 (channel-port-ready? . 27))
+(983 (input-channel-handler . 27))
+(984 (input-channel->port . 27))
+(985 (input-channel+closer->port . 27))
+(986 (real-input-channel->port . 27))
+(987 (output-channel-handler . 27))
+(988 (make-unbuffered-output-channel-handler . 27))
+(989 (output-channel->port . 27))
+(990 (output-channel+closer->port . 27))
+(991 (real-output-channel->port . 27))
+(992 (maybe-force-output . 27))
+(993 (:channel-cell . 27))
+(994 (make-channel-cell . 27))
+(995 (channel-cell-closer . 27))
+(996 (channel-cell-ref . 27))
+(997 (channel-cell? . 27))
+(998 (port->channel . 27))
+(999 (open-input-file . 27))
+(1000 (open-output-file . 27))
+(1001 (call-with-input-file . 27))
+(1002 (call-with-output-file . 27))
+(1003 (with-input-from-file . 27))
+(1004 (with-output-to-file . 27))
+(1005 (force-channel-output-ports! . 27))
+(1006 (steal-channel-port! . 27))
+(1007 (really-steal-channel-port! . 27))
+(1008 (initialize-channel-i/o! . 27))
+(1009 (i/o-completion-handler . 27))
+(1010 (waiting-for-i/o? . 27))
+(1011 (wait-for-channel . 27))
+(1012 (nothing . 27))
+(1013 (steal-channel! . 27))
+(1014 (channel-wait-count-slot . 27))
+(1015 (channel-wait-count . 27))
+(1016 (increment-channel-wait-count! . 27))
+(1017 (decrement-channel-wait-count! . 27))
+(1018 (channel-wait-queues-slot . 27))
+(1019 (add-channel-wait-queue! . 27))
+(1020 (fetch-channel-wait-queue! . 27))
+(1021 (:table . 79))
+(1022 (really-make-table . 79))
+(1023 (table-set!-procedure . 79))
+(1024 (set-table-set!-procedure! . 79))
+(1025 (table-ref-procedure . 79))
+(1026 (set-table-ref-procedure! . 79))
+(1027 (table-data . 79))
+(1028 (set-table-data! . 79))
+(1029 (table-size . 79))
+(1030 (set-table-size! . 79))
+(1031 (table? . 79))
+(1032 (table-ref . 79))
+(1033 (table-set! . 79))
+(1034 (linear-table-size-limit . 79))
+(1035 (next-table-size . 79))
+(1036 (make-table-maker . 79))
+(1037 (assoc->table-maker . 79))
+(1038 (null-entry . 79))
+(1039 (new-entry . 79))
+(1040 (entry-value . 79))
+(1041 (entry-key . 79))
+(1042 (set-entry-value! . 79))
+(1043 (delete-entry! . 79))
+(1044 (make-assoc . 79))
+(1045 (make-linear-table-ref . 79))
+(1046 (make-linear-table-set! . 79))
+(1047 (make->hash-table . 79))
+(1048 (make-hash-table-ref . 79))
+(1049 (make-hash-table-set! . 79))
+(1050 (expand-hash-table! . 79))
+(1051 (table-enter-alist! . 79))
+(1052 (table-expand-table! . 79))
+(1053 (table-walk . 79))
+(1054 (really-table-walk . 79))
+(1055 (alist-walk . 79))
+(1056 (make-table-immutable! . 79))
+(1057 (table->entry-list . 79))
+(1058 (default-table-hash-function . 79))
+(1059 (eqv?-assoc . 79))
+(1060 (default-table-assoc . 79))
+(1061 (symbol-hash . 79))
+(1062 (make-table . 79))
+(1063 (make-string-table . 79))
+(1064 (make-symbol-table . 79))
+(1065 (make-integer-table . 79))
+(1066 (make-population . 48))
+(1067 (add-to-population! . 48))
+(1068 (weak-memq . 48))
+(1069 (population-reduce . 48))
+(1070 (population->list . 48))
+(1071 (walk-population . 48))
+(1072 (:meta-type . 50))
+(1073 (really-make-type . 50))
+(1074 (type-info . 50))
+(1075 (type-more . 50))
+(1076 (type-mask . 50))
+(1077 (meta-type? . 50))
+(1078 (make-type . 50))
+(1079 (name->type-table . 50))
+(1080 (mask->name-table . 50))
+(1081 (name->type . 50))
+(1082 (set-type-name! . 50))
+(1083 (*mask* . 50))
+(1084 (new-type-bit . 50))
+(1085 (mask->type . 50))
+(1086 (bottom-type . 50))
+(1087 (error-type . 50))
+(1088 (bottom-type? . 50))
+(1089 (new-atomic-type . 50))
+(1090 (named-atomic-type . 50))
+(1091 (syntax-type . 50))
+(1092 (other-static-type . 50))
+(1093 (empty-rail-type . 50))
+(1094 (rail-type . 50))
+(1095 (make-optional-type . 50))
+(1096 (make-rest-type . 50))
+(1097 (head-type . 50))
+(1098 (head-type-really . 50))
+(1099 (tail-type . 50))
+(1100 (empty-rail-type? . 50))
+(1101 (rest-type? . 50))
+(1102 (optional-type? . 50))
+(1103 (mask/no-values . 50))
+(1104 (mask/two-or-more . 50))
+(1105 (mask/&rest . 50))
+(1106 (value-type . 50))
+(1107 (mask/value . 50))
+(1108 (value-type? . 50))
+(1109 (any-values-type . 50))
+(1110 (any-arguments-type . 50))
+(1111 (mask/one-or-more . 50))
+(1112 (same-type? . 50))
+(1113 (subtype? . 50))
+(1114 (meet-type . 50))
+(1115 (other-type-info . 50))
+(1116 (meet-rail . 50))
+(1117 (meet-procedure . 50))
+(1118 (meet? . 50))
+(1119 (meet-procedure? . 50))
+(1120 (join-type . 50))
+(1121 (join-rail . 50))
+(1122 (join-procedure . 50))
+(1123 (number-hierarchy . 50))
+(1124 (integer-type . 50))
+(1125 (rational-type . 50))
+(1126 (real-type . 50))
+(1127 (complex-type . 50))
+(1128 (number-type . 50))
+(1129 (exact-type . 50))
+(1130 (inexact-type . 50))
+(1131 (exact-integer-type . 50))
+(1132 (inexact-real-type . 50))
+(1133 (boolean-type . 50))
+(1134 (pair-type . 50))
+(1135 (null-type . 50))
+(1136 (record-type . 50))
+(1137 (any-procedure-type . 50))
+(1138 (other-value-type . 50))
+(1139 (mask/other . 50))
+(1140 (make-other-type . 50))
+(1141 (char-type . 50))
+(1142 (unspecific-type . 50))
+(1143 (string-type . 50))
+(1144 (symbol-type . 50))
+(1145 (vector-type . 50))
+(1146 (escape-type . 50))
+(1147 (structure-type . 50))
+(1148 (mask/procedure . 50))
+(1149 (procedure-type . 50))
+(1150 (make-procedure-type . 50))
+(1151 (procedure-type-domain . 50))
+(1152 (procedure-type-codomain . 50))
+(1153 (restrictive? . 50))
+(1154 (sexp->type . 50))
+(1155 (sexp->values-type . 50))
+(1156 (type->sexp . 50))
+(1157 (atomic-type->sexp . 50))
+(1158 (rail-type->sexp . 50))
+(1159 (disjoin-type . 50))
+(1160 (disjoin-rest . 50))
+(1161 (mask/number . 50))
+(1162 (make-some-values-type . 50))
+(1163 (proc . 50))
+(1164 (some-values . 50))
+(1165 (procedure-type? . 50))
+(1166 (fixed-arity-procedure-type? . 50))
+(1167 (procedure-type-arity . 50))
+(1168 (procedure-type-argument-types . 50))
+(1169 (variable-type . 50))
+(1170 (variable-type? . 50))
+(1171 (variable-value-type . 50))
+(1172 (usual-variable-type . 50))
+(1173 (undeclared-type . 50))
+(1174 (compatible-types? . 50))
+(1175 (:interface . 67))
+(1176 (really-make-interface . 67))
+(1177 (interface-name . 67))
+(1178 (set-interface-name! . 67))
+(1179 (interface-clients . 67))
+(1180 (walk-method . 67))
+(1181 (ref-method . 67))
+(1182 (interface? . 67))
+(1183 (interface-ref . 67))
+(1184 (for-each-declaration . 67))
+(1185 (note-reference-to-interface! . 67))
+(1186 (make-interface . 67))
+(1187 (make-simple-interface . 67))
+(1188 (really-make-simple-interface . 67))
+(1189 (make-compound-interface . 67))
+(1190 (note-interface-name! . 67))
+(1191 (binding? . 51))
+(1192 (binding-type . 51))
+(1193 (binding-place . 51))
+(1194 (binding-static . 51))
+(1195 (binding-path . 51))
+(1196 (set-binding-place! . 51))
+(1197 (make-binding . 51))
+(1198 (add-path . 51))
+(1199 (clobber-binding! . 51))
+(1200 (impose-type . 51))
+(1201 (forget-integration . 51))
+(1202 (same-denotation? . 51))
+(1203 (maybe-fix-place! . 51))
+(1204 (follow-forwarding-pointers . 51))
+(1205 (name? . 52))
+(1206 (:generated . 52))
+(1207 (make-generated . 52))
+(1208 (generated-parent-name . 52))
+(1209 (generated-env . 52))
+(1210 (generated-token . 52))
+(1211 (generated-symbol . 52))
+(1212 (generated? . 52))
+(1213 (generate-name . 52))
+(1214 (generated-uid . 52))
+(1215 (*generated-uid* . 52))
+(1216 (name->symbol . 52))
+(1217 (name-hash . 52))
+(1218 (make-name-table . 52))
+(1219 (desyntaxify . 52))
+(1220 (make-qualified . 52))
+(1221 (qualified? . 52))
+(1222 (qualified-parent-name . 52))
+(1223 (qualified-symbol . 52))
+(1224 (name->qualified . 52))
+(1225 (qualify-parent . 52))
+(1226 (:transform . 52))
+(1227 (really-make-transform . 52))
+(1228 (transform-id . 52))
+(1229 (transform-source . 52))
+(1230 (transform-aux-names . 52))
+(1231 (transform-type . 52))
+(1232 (transform-env . 52))
+(1233 (transform-procedure . 52))
+(1234 (transform? . 52))
+(1235 (make-transform . 52))
+(1236 (maybe-apply-macro-transform . 52))
+(1237 (apply-inline-transform . 52))
+(1238 (make-keyword-comparator . 52))
+(1239 (name->source-name . 52))
+(1240 (bind-aliases . 52))
+(1241 (make-name-generator . 52))
+(1242 (lookup . 52))
+(1243 (lookup . 55))
+(1244 (bind1 . 55))
+(1245 (bind . 55))
+(1246 (bindrec . 55))
+(1247 (make-compiler-env . 55))
+(1248 (funny-name/macro-eval . 55))
+(1249 (environment-macro-eval . 55))
+(1250 (funny-name/define! . 55))
+(1251 (environment-define! . 55))
+(1252 (funny-name/package . 55))
+(1253 (extract-package-from-environment . 55))
+(1254 (funny-name/source-file-name . 55))
+(1255 (bind-source-file-name . 55))
+(1256 (source-file-name . 55))
+(1257 (:thingie . 53))
+(1258 (make-thingie . 53))
+(1259 (thingie-want-type . 53))
+(1260 (thingie-name . 53))
+(1261 (thingie-binding . 53))
+(1262 (thingie? . 53))
+(1263 (:structure . 68))
+(1264 (really-make-structure . 68))
+(1265 (structure-name . 68))
+(1266 (set-structure-name! . 68))
+(1267 (structure-clients . 68))
+(1268 (structure-package . 68))
+(1269 (structure-interface-really . 68))
+(1270 (set-structure-interface! . 68))
+(1271 (structure-interface-thunk . 68))
+(1272 (structure? . 68))
+(1273 (structure-interface . 68))
+(1274 (initialize-structure! . 68))
+(1275 (make-structure . 68))
+(1276 (note-structure-name! . 68))
+(1277 (structure-unstable? . 68))
+(1278 (for-each-export . 68))
+(1279 (:package . 68))
+(1280 (really-make-package . 68))
+(1281 (package-cached . 68))
+(1282 (package-clients . 68))
+(1283 (package-real-undefined-but-assigneds . 68))
+(1284 (set-package-undefined-but-assigneds! . 68))
+(1285 (package-real-undefineds . 68))
+(1286 (set-package-undefineds! . 68))
+(1287 (package-accesses-thunk . 68))
+(1288 (package-opens-thunk . 68))
+(1289 (set-package-opens-thunk! . 68))
+(1290 (package->environment . 68))
+(1291 (set-package->environment! . 68))
+(1292 (package-loaded? . 68))
+(1293 (set-package-loaded?! . 68))
+(1294 (package-clauses . 68))
+(1295 (package-file-name . 68))
+(1296 (package-get-location . 68))
+(1297 (set-package-get-location! . 68))
+(1298 (package-integrate? . 68))
+(1299 (set-package-integrate?! . 68))
+(1300 (package-unstable? . 68))
+(1301 (package-definitions . 68))
+(1302 (package-opens-really . 68))
+(1303 (set-package-opens! . 68))
+(1304 (package-uid . 68))
+(1305 (package? . 68))
+(1306 (make-package . 68))
+(1307 (really-package->environment . 68))
+(1308 (lazy-table-accessor . 68))
+(1309 (package-undefineds . 68))
+(1310 (package-undefined-but-assigneds . 68))
+(1311 (new-package-uid . 68))
+(1312 (*package-uid* . 68))
+(1313 (package-name-table . 68))
+(1314 (package-name . 68))
+(1315 (note-package-name! . 68))
+(1316 (package-opens . 68))
+(1317 (initialize-package-if-necessary! . 68))
+(1318 (package-accesses . 68))
+(1319 (make-simple-package . 68))
+(1320 (package-definition . 68))
+(1321 (package-define! . 68))
+(1322 (package-add-static! . 68))
+(1323 (package-refine-type! . 68))
+(1324 (package-lookup . 68))
+(1325 (really-package-lookup . 68))
+(1326 (search-opens . 68))
+(1327 (structure-lookup . 68))
+(1328 (real-structure-lookup . 68))
+(1329 (generic-lookup . 68))
+(1330 (initialize-package! . 68))
+(1331 (for-each-definition . 68))
+(1332 (get-new-location . 68))
+(1333 (make-new-location . 68))
+(1334 ($get-location . 68))
+(1335 (*location-uid* . 68))
+(1336 (location-info-table . 68))
+(1337 (flush-location-names . 68))
+(1338 (link! . 68))
+(1339 (really-link! . 68))
+(1340 (get-location . 68))
+(1341 (location-on-demand . 68))
+(1342 (get-undefined . 68))
+(1343 (location-for-assignment . 68))
+(1344 (package-note-caching! . 68))
+(1345 (note-caching! . 68))
+(1346 (get-location-for-unassignable . 68))
+(1347 (get-location-for-undefined . 68))
+(1348 ($note-undefined . 68))
+(1349 (cenv->package . 68))
+(1350 (location-for-reference . 68))
+(1351 (noting-undefined-variables . 68))
+(1352 (print-undefined-names . 68))
+(1353 (environment-ref . 81))
+(1354 (environment-set! . 81))
+(1355 (environment-define! . 81))
+(1356 (*structure-ref . 81))
+(1357 (carefully . 81))
+(1358 ($interaction-environment . 81))
+(1359 (interaction-environment . 81))
+(1360 (set-interaction-environment! . 81))
+(1361 (with-interaction-environment . 81))
+(1362 (scheme-report-environment . 81))
+(1363 (*scheme-report-environment* . 81))
+(1364 (*null-environment* . 81))
+(1365 (*scheme-report-number* . 81))
+(1366 (set-scheme-report-environment! . 81))
+(1367 (null-environment . 81))
+(1368 (make-reflective-tower . 81))
+(1369 (set-reflective-tower-maker! . 81))
+(1370 (namestring . 80))
+(1371 (directory-component-separator . 80))
+(1372 (type-component-separator . 80))
+(1373 (namestring-component . 80))
+(1374 (file-name-preferred-case . 80))
+(1375 (*scheme-file-type* . 80))
+(1376 (*load-file-type* . 80))
+(1377 (file-name-directory . 80))
+(1378 (file-name-nondirectory . 80))
+(1379 (file-nondirectory-position . 80))
+(1380 (string-posq . 80))
+(1381 (*translations* . 80))
+(1382 (translations . 80))
+(1383 (set-translation! . 80))
+(1384 (translate . 80))
+(1385 ($note-file-package . 65))
+(1386 (read-forms . 65))
+(1387 (really-read-forms . 65))
+(1388 (:operator . 54))
+(1389 (make-operator . 54))
+(1390 (operator-name . 54))
+(1391 (operator-uid . 54))
+(1392 (operator-nargs . 54))
+(1393 (operator-type . 54))
+(1394 (set-operator-type! . 54))
+(1395 (operator? . 54))
+(1396 (usual-operator-type . 54))
+(1397 (get-operator . 54))
+(1398 (*operator-uid* . 54))
+(1399 (operators-table . 54))
+(1400 (number-of-operators . 54))
+(1401 (the-operators . 54))
+(1402 (make-operator-table . 54))
+(1403 (operator-table-ref . 54))
+(1404 (operator-lookup . 54))
+(1405 (operator-define! . 54))
+(1406 (:node . 54))
+(1407 (really-make-node . 54))
+(1408 (node-plist . 54))
+(1409 (set-node-plist! . 54))
+(1410 (node-form . 54))
+(1411 (node-operator-id . 54))
+(1412 (node? . 54))
+(1413 (make-node . 54))
+(1414 (node-ref . 54))
+(1415 (node-set! . 54))
+(1416 (node-operator . 54))
+(1417 (node-predicate . 54))
+(1418 (make-similar-node . 54))
+(1419 (force-node . 54))
+(1420 (schemify . 54))
+(1421 (schemifiers . 54))
+(1422 (schemify-node . 54))
+(1423 (schemify-nodes . 54))
+(1424 (define-schemifier . 54))
+(1425 (schemify-lambda . 54))
+(1426 (schemify-formals . 54))
+(1427 (schemify-sexp . 54))
+(1428 (number-of-required-args . 58))
+(1429 (n-ary? . 58))
+(1430 (normalize-formals . 58))
+(1431 (scan-forms . 56))
+(1432 (expand-scanned-form . 56))
+(1433 (scan-define . 56))
+(1434 (expand-define . 56))
+(1435 (scan-define-syntax . 56))
+(1436 (expand-form . 56))
+(1437 (expand-head . 56))
+(1438 (destructure-define . 56))
+(1439 (make-operator-predicate . 56))
+(1440 (define? . 56))
+(1441 (begin? . 56))
+(1442 (define-syntax? . 56))
+(1443 (static-value . 56))
+(1444 (expand-body . 56))
+(1445 (scan-body-forms . 56))
+(1446 (body-lossage . 56))
+(1447 (expand . 56))
+(1448 (expand-list . 56))
+(1449 (expand-literal . 56))
+(1450 (expand-call . 56))
+(1451 (expand-name . 56))
+(1452 (expand-macro-application . 56))
+(1453 (expand-operator-form . 56))
+(1454 (expanders . 56))
+(1455 (define-expander . 56))
+(1456 (unspecific-node . 56))
+(1457 (expand-structure-ref . 56))
+(1458 (expand-lambda . 56))
+(1459 (bind-names . 56))
+(1460 (names? . 56))
+(1461 (expand-letrec . 56))
+(1462 (process-syntax . 56))
+(1463 (this-long? . 56))
+(1464 (at-least-this-long? . 56))
+(1465 (specs? . 56))
+(1466 (literal? . 56))
+(1467 (syntax? . 56))
+(1468 (begin-node? . 56))
+(1469 (call-node? . 56))
+(1470 (name-node? . 56))
+(1471 (operator/literal . 56))
+(1472 (operator/quote . 56))
+(1473 (operator/call . 56))
+(1474 (operator/name . 56))
+(1475 (operator/unspecific . 56))
+(1476 (operator/unassigned . 56))
+(1477 (operator/lambda . 56))
+(1478 (operator/begin . 56))
+(1479 (operator/letrec . 56))
+(1480 (operator/define . 56))
+(1481 (operator/define-syntax . 56))
+(1482 (operator/primitive-procedure . 56))
+(1483 (operator/structure-ref . 56))
+(1484 (:primop . 62))
+(1485 (make-primop . 62))
+(1486 (primop-compilator . 62))
+(1487 (primop-closed . 62))
+(1488 (primop-type . 62))
+(1489 (primop-name . 62))
+(1490 (primop? . 62))
+(1491 (primop-table . 62))
+(1492 (walk-primops . 62))
+(1493 (define-compiler-primitive . 62))
+(1494 (get-primop . 62))
+(1495 (:debug-data . 59))
+(1496 (make-debug-data . 59))
+(1497 (debug-data-source . 59))
+(1498 (set-debug-data-source! . 59))
+(1499 (debug-data-env-maps . 59))
+(1500 (set-debug-data-env-maps! . 59))
+(1501 (debug-data-pc-in-parent . 59))
+(1502 (debug-data-parent . 59))
+(1503 (debug-data-name . 59))
+(1504 (debug-data-uid . 59))
+(1505 (debug-data? . 59))
+(1506 (maximum-stack-use . 60))
+(1507 (protocol-skip . 60))
+(1508 (stack-delta . 60))
+(1509 (define-delta . 60))
+(1510 (stack-max . 60))
+(1511 (nothing . 60))
+(1512 (popper . 60))
+(1513 (pusher . 60))
+(1514 (continue . 60))
+(1515 (continuer . 60))
+(1516 (do-make-cont . 60))
+(1517 (stack-function . 60))
+(1518 (arg-spec-size . 60))
+(1519 (imax . 60))
+(1520 (get-offset . 60))
+(1521 (new-template-uid . 61))
+(1522 (*template-uid* . 61))
+(1523 (template-uid . 61))
+(1524 (set-template-uid! . 61))
+(1525 (debug-flag-names . 61))
+(1526 (type/debug-flags . 61))
+(1527 (make-debug-flags . 61))
+(1528 ($debug-flags . 61))
+(1529 (debug-flag-accessor . 61))
+(1530 (debug-flag-modifier . 61))
+(1531 (keep-source-code? . 61))
+(1532 (keep-environment-maps? . 61))
+(1533 (keep-procedure-names? . 61))
+(1534 (keep-file-names? . 61))
+(1535 (tabulate-debug-data? . 61))
+(1536 (debug-data-table . 61))
+(1537 (with-fresh-compiler-state . 61))
+(1538 (saving-and-restoring . 61))
+(1539 (debug-data->info . 61))
+(1540 (get-debug-data . 61))
+(1541 (note-debug-data! . 61))
+(1542 (new-debug-data . 61))
+(1543 (make-segment . 61))
+(1544 (segment-size . 61))
+(1545 (segment-emitter . 61))
+(1546 (segment->template . 61))
+(1547 (segment-data->template . 61))
+(1548 (check-stack-use . 61))
+(1549 (:assembly-state . 61))
+(1550 (make-assembly-state . 61))
+(1551 (astate-literals . 61))
+(1552 (set-astate-literals! . 61))
+(1553 (astate-count . 61))
+(1554 (set-astate-count! . 61))
+(1555 (astate-pc . 61))
+(1556 (set-astate-pc! . 61))
+(1557 (astate-code-vector . 61))
+(1558 (make-astate . 61))
+(1559 (emit-byte! . 61))
+(1560 (literal->index . 61))
+(1561 (literal-position . 61))
+(1562 (position . 61))
+(1563 (emit-literal! . 61))
+(1564 (emit-segment! . 61))
+(1565 (empty-segment . 61))
+(1566 (instruction . 61))
+(1567 (sequentially . 61))
+(1568 (sequentially-2 . 61))
+(1569 (instruction-with-literal . 61))
+(1570 (instruction-with-location . 61))
+(1571 (template . 61))
+(1572 (make-label . 61))
+(1573 (instruction-using-label . 61))
+(1574 (computed-goto-label-size . 61))
+(1575 (computed-goto-instruction . 61))
+(1576 (attach-label . 61))
+(1577 (insert-label! . 61))
+(1578 (code-vector-set2! . 61))
+(1579 (two-byte-limit . 61))
+(1580 (high-byte . 61))
+(1581 (low-byte . 61))
+(1582 ($debug-data . 61))
+(1583 (note-source-code . 61))
+(1584 (note-environment . 61))
+(1585 (emit-with-environment-maps! . 61))
+(1586 ($environment-maps . 61))
+(1587 (node-type . 63))
+(1588 (reconstruct-type . 63))
+(1589 (reconstruct . 63))
+(1590 (examine . 63))
+(1591 (reconstructors . 63))
+(1592 (define-reconstructor . 63))
+(1593 (reconstruct-lambda . 63))
+(1594 (careful-codomain . 63))
+(1595 (reconstruct-name . 63))
+(1596 (proc->reconstructor . 63))
+(1597 (reconstruct-call . 63))
+(1598 (fork-constraints . 63))
+(1599 (node->type . 63))
+(1600 (name-node? . 63))
+(1601 (lambda-node? . 63))
+(1602 (literal-node? . 63))
+(1603 (primop-reconstructors . 63))
+(1604 (define-primop-reconstructor . 63))
+(1605 (reconstruct-apply . 63))
+(1606 (constant-type . 63))
+(1607 (compile-expression . 64))
+(1608 (compile . 64))
+(1609 (compilators . 64))
+(1610 (define-compilator . 64))
+(1611 (compile-constant . 64))
+(1612 (compile-call . 64))
+(1613 (compile-name-call . 64))
+(1614 (compile-redex . 64))
+(1615 (compile-unknown-call . 64))
+(1616 (maybe-push-continuation . 64))
+(1617 (fixup-source . 64))
+(1618 (push-arguments . 64))
+(1619 (push-all-with-names . 64))
+(1620 (compile-lambda . 64))
+(1621 (compile-lambda-code . 64))
+(1622 (name-node->symbol . 64))
+(1623 (set-lexical-offsets! . 64))
+(1624 (compile-flat-lambda . 64))
+(1625 (get-variables-offsets . 64))
+(1626 (variable-env-data . 64))
+(1627 (sort-list . 64))
+(1628 (make-cont . 64))
+(1629 (cont-segment . 64))
+(1630 (cont-source-info . 64))
+(1631 (return-cont-segment . 64))
+(1632 (return-cont . 64))
+(1633 (return-cont? . 64))
+(1634 (fall-through-cont . 64))
+(1635 (fall-through-cont? . 64))
+(1636 (ignore-values-segment . 64))
+(1637 (ignore-values-cont . 64))
+(1638 (ignore-values-cont? . 64))
+(1639 (deliver-value . 64))
+(1640 (named-cont . 64))
+(1641 (cont-name . 64))
+(1642 (name-node-binding . 64))
+(1643 (generate-trap . 64))
+(1644 (type-check . 64))
+(1645 (set-type-check?! . 64))
+(1646 (*type-check?* . 64))
+(1647 (diagnose-call-error . 64))
+(1648 (lambda-node? . 64))
+(1649 (name-node? . 64))
+(1650 (literal-node? . 64))
+(1651 (operator/lambda . 64))
+(1652 (operator/set! . 64))
+(1653 (operator/call . 64))
+(1654 (operator/begin . 64))
+(1655 (direct-compilator . 64))
+(1656 (direct-closed-compilator . 64))
+(1657 (nargs->domain . 64))
+(1658 (get-primop-type . 64))
+(1659 (primop-types . 64))
+(1660 (define-simple-primitive . 64))
+(1661 (simple-compilator . 64))
+(1662 (simple-closed-compilator . 64))
+(1663 (symbol-append . 64))
+(1664 (define-stob-predicate . 64))
+(1665 (define-data-struct-primitives . 64))
+(1666 (define-vector-primitives . 64))
+(1667 (define-n-ary-compiler-primitive . 64))
+(1668 (n-ary-primitive-compilator . 64))
+(1669 (call-on-arg-and-id . 64))
+(1670 (call-on-args . 64))
+(1671 (op/unspecific . 64))
+(1672 (op/literal . 64))
+(1673 (push-all-but-last . 64))
+(1674 (dispatch-protocol-size . 64))
+(1675 (make-dispatch-protocol . 64))
+(1676 (compile-forms . 64))
+(1677 (compile-forms-loop . 64))
+(1678 (compile-form . 64))
+(1679 (define-node? . 64))
+(1680 (compile-definition . 64))
+(1681 (location-contents-offset . 64))
+(1682 (make-startup-procedure . 64))
+(1683 (append-templates . 64))
+(1684 (an-ignore-values-cont . 64))
+(1685 (eval . 82))
+(1686 (load-into . 82))
+(1687 (eval-from-file . 82))
+(1688 (load . 82))
+(1689 (load-into-port . 82))
+(1690 (load-port . 82))
+(1691 (really-load-into . 82))
+(1692 (compile-and-run . 82))
+(1693 (display-condition . 49))
+(1694 (really-display-condition . 49))
+(1695 (*depth* . 49))
+(1696 (*length* . 49))
+(1697 (&disclose-condition . 49))
+(1698 (disclose-condition . 49))
+(1699 (limited-write . 49))
+(1700 (command-processor . 86))
+(1701 (mini-load . 86))
+(1702 (read-string . 86))
+(1703 (:sigevent . 40))
+(1704 (really-make-sigevent . 40))
+(1705 (sigevent-next . 40))
+(1706 (set-sigevent-next! . 40))
+(1707 (sigevent-type . 40))
+(1708 (set-sigevent-type! . 40))
+(1709 (sigevent? . 40))
+(1710 (make-sigevent . 40))
+(1711 (empty-sigevent . 40))
+(1712 (*most-recent-sigevent* . 40))
+(1713 (most-recent-sigevent . 40))
+(1714 (sigevent-thread-queue . 40))
+(1715 (rts-next-sigevent . 40))
+(1716 (rts-next-sigevent/no-wait . 40))
+(1717 (register-interrupt . 40))
+(1718 (waiting-for-sigevent? . 40))
+(1719 (initialize-sigevents! . 40))
+(1720 (schedule-timer-interrupt! . 40))
+(1721 (enum-case . 44))
+(1722 (run-threads . 42))
+(1723 (run-threads-with-housekeeper . 42))
+(1724 (round-robin-event-handler . 42))
+(1725 (make-counter . 42))
+(1726 (counter-value . 42))
+(1727 (increment-counter! . 42))
+(1728 (decrement-counter! . 42))
+(1729 (root-scheduler . 43))
+(1730 (make-root-event-handler . 43))
+(1731 (root-handler . 43))
+(1732 (cheap-display-condition . 43))
+(1733 (abort-token . 43))
+(1734 (scheme-exit-now . 43))
+(1735 (root-wait . 43))
+(1736 (one-day-of-milliseconds . 43))
+(1737 (do-some-waiting . 43))
+(1738 (deadlock-handler . 43))
+(1739 (call-when-deadlocked! . 43))
+(1740 (spawn-output-forcers . 43))
+(1741 (unspecific . 43))
+(1742 (usual-resumer . 47))
+(1743 (initialize-rts . 47))
+(1744 (start . 87))
+(1745 (make-built-in-structures . 87))
+(1746 (initialize-interaction-environment! . 87))
+(1747 (make-initial-package . 87))
+(1748 (make-tower . 87))
+(1749 (the-usual-transforms . 57))
+(1750 (define-usual-macro . 57))
+(1751 (usual-transform . 57))
+(1752 (do-spec? . 57))
+(1753 (specs? . 57))
+(1754 (case-clause? . 57))
+(1755 (process-rules . 57))
+(1756 (segment-pattern? . 57))
+(1757 (segment-template? . 57))
+(1758 (segment-depth . 57))
+(1759 (segment-tail . 57))
+(1760 (indicators-for-zero-or-more . 57))
+(1761 (find-free-names-in-syntax-rules . 57))
+(1762 (strongly-connected-components . 78))
+(1763 (find-next-vertex . 78))
+(1764 (:vertex . 78))
+(1765 (really-make-vertex . 78))
+(1766 (vertex-lowpoint . 78))
+(1767 (set-vertex-lowpoint! . 78))
+(1768 (vertex-parent . 78))
+(1769 (set-vertex-parent! . 78))
+(1770 (vertex-index . 78))
+(1771 (set-vertex-index! . 78))
+(1772 (vertex-stack . 78))
+(1773 (set-vertex-stack! . 78))
+(1774 (vertex-edges . 78))
+(1775 (set-vertex-edges! . 78))
+(1776 (vertex-data . 78))
+(1777 (vertex? . 78))
+(1778 (make-vertex . 78))
+(1779 (make-vertices . 78))
+(1780 (do-vertex . 78))
+(1781 (get-strong . 78))
+(1782 (end-vertex . 78))
+(1783 (unwind-stack . 78))
+(1784 (follow-edge . 78))
+(1785 (pop-vertex-edge! . 78))
+(1786 (find-usages . 75))
+(1787 (maybe-update-known-type . 75))
+(1788 (find-node-usages . 75))
+(1789 (analyze . 75))
+(1790 (analyze-nodes . 75))
+(1791 (usage-analyzers . 75))
+(1792 (define-usage-analyzer . 75))
+(1793 (nothing . 75))
+(1794 (add-if-free . 75))
+(1795 (analyze-letrec . 75))
+(1796 (:usage . 75))
+(1797 (really-make-usage . 75))
+(1798 (usage-assignment-count . 75))
+(1799 (set-assignment! . 75))
+(1800 (usage-operator-count . 75))
+(1801 (set-operator! . 75))
+(1802 (usage-reference-count . 75))
+(1803 (set-reference! . 75))
+(1804 (usage-name-node . 75))
+(1805 (usage? . 75))
+(1806 (make-usage . 75))
+(1807 (make-package-usage . 75))
+(1808 (package-usage? . 75))
+(1809 (usage-incrementator . 75))
+(1810 (note-reference! . 75))
+(1811 (note-operator! . 75))
+(1812 (note-assignment! . 75))
+(1813 (lambda-node? . 75))
+(1814 (quote-node? . 75))
+(1815 (literal-node? . 75))
+(1816 (call-node? . 75))
+(1817 (name-node? . 75))
+(1818 (define-node? . 75))
+(1819 (sort-forms . 75))
+(1820 (stuff-count . 75))
+(1821 (maybe-make-aliased . 75))
+(1822 (topologically-sort . 75))
+(1823 (:form . 75))
+(1824 (really-make-form . 75))
+(1825 (form-temp . 75))
+(1826 (set-form-temp! . 75))
+(1827 (form-free . 75))
+(1828 (set-form-free! . 75))
+(1829 (form-unaliased? . 75))
+(1830 (set-form-unaliased?! . 75))
+(1831 (form-aliases . 75))
+(1832 (set-form-aliases! . 75))
+(1833 (form-node . 75))
+(1834 (form? . 75))
+(1835 (make-form . 75))
+(1836 (insert-aliases . 75))
+(1837 (make-inline-transform . 77))
+(1838 (clean-node . 77))
+(1839 (clean-lambda . 77))
+(1840 (clean-lookup . 77))
+(1841 (unused-name . 77))
+(1842 (remove-bindings . 77))
+(1843 (inline-transform . 77))
+(1844 (make-substitution . 77))
+(1845 (reconstitute . 77))
+(1846 (reconstitute-name . 77))
+(1847 (operator/name . 77))
+(1848 (operator/literal . 77))
+(1849 (qualified->name . 77))
+(1850 (get-qualified-env . 77))
+(1851 (quote-node? . 77))
+(1852 (call-node? . 77))
+(1853 (lambda-node? . 77))
+(1854 (name-node? . 77))
+(1855 (loophole-node? . 77))
+(1856 (operator . 84))
+(1857 (primop . 84))
+(1858 (simple-interface . 84))
+(1859 (package . 84))
+(1860 (transform . 84))
+(1861 (package-define-static! . 84))
+(1862 (:syntax . 73))
+(1863 (:values . 73))
+(1864 (:arguments . 73))
+(1865 (:value . 73))
+(1866 (procedure . 73))
+(1867 (:boolean . 73))
+(1868 (:char . 73))
+(1869 (:null . 73))
+(1870 (:unspecific . 73))
+(1871 (:number . 73))
+(1872 (:complex . 73))
+(1873 (:real . 73))
+(1874 (:rational . 73))
+(1875 (:integer . 73))
+(1876 (:exact-integer . 73))
+(1877 (:pair . 73))
+(1878 (:string . 73))
+(1879 (:symbol . 73))
+(1880 (:vector . 73))
+(1881 (:procedure . 73))
+(1882 (:input-port . 73))
+(1883 (:output-port . 73))
+(1884 (:error . 73))
+(1885 (:escape . 73))
+(1886 (:structure . 73))
+(1887 (:type . 73))
+(1888 (def . 72))
+(1889 (really-def . 72))
+(1890 (define-multiple . 72))
+(1891 (define-interface . 72))
+(1892 (compound-interface . 72))
+(1893 (export . 72))
+(1894 (define-structure . 72))
+(1895 (define-structures . 72))
+(1896 (structure . 72))
+(1897 (structures . 72))
+(1898 (a-package . 72))
+(1899 (receive . 72))
+(1900 (define-reflective-tower-maker . 72))
+(1901 (export-reflective-tower-maker . 72))
+(1902 (define-module . 72))
+(1903 (make-a-package . 72))
+(1904 (loser . 72))
+(1905 (interface-of . 72))
+(1906 (*verify-later!* . 72))
+(1907 (verify-later! . 72))
+(1908 (set-verify-later! . 72))
+(1909 (note-name! . 72))
+(1910 (optimizers-table . 70))
+(1911 (set-optimizer! . 70))
+(1912 (get-optimizer . 70))
+(1913 (apply-optimizers . 70))
+(1914 (collect-packages . 69))
+(1915 (package-source . 69))
+(1916 (read-files . 69))
+(1917 (package-optimizer-names . 69))
+(1918 (check-structure . 69))
+(1919 (compile-package . 71))
+(1920 (expand-package . 71))
+(1921 (define-usual-transform . 71))
+(1922 (define-primitives . 71))
+(1923 (make-define-primitive-node . 71))
+(1924 (operator/define . 71))
+(1925 (operator/primitive-procedure . 71))
+(1926 (analyze-forms . 76))
+(1927 (analyze-form . 76))
+(1928 (inlinable-rhs? . 76))
+(1929 (simple-lambda? . 76))
+(1930 (operator/name . 76))
+(1931 (simple? . 76))
+(1932 (simple-list? . 76))
+(1933 (analyzers . 76))
+(1934 (define-analyzer . 76))
+(1935 (static-value . 76))
+(1936 (really-simple-call? . 76))
+(1937 (primitive-proc? . 76))
+(1938 (no-ret . 76))
+(1939 (ret . 76))
+(1940 (simple-literal? . 76))
+(1941 (require . 76))
+(1942 (*debug?* . 76))
+(1943 (package-lookup-type . 76))
+(1944 (lambda-node? . 76))
+(1945 (name-node? . 76))
+(1946 (loophole-node? . 76))
+(1947 (define-node? . 76))
+(1948 (literal-node? . 76))
+(1949 (flatten-form . 66))
+(1950 (flatten-node . 66))
+(1951 (flatteners . 66))
+(1952 (define-flattener . 66))
+(1953 (flatten-list . 66))
+(1954 (no-free-vars . 66))
+(1955 (flatten-lambda . 66))
+(1956 (convert-lambda-body . 66))
+(1957 (add-cells . 66))
+(1958 (assigned? . 66))
+(1959 (mark-set-variables! . 66))
+(1960 (mark-sets . 66))
+(1961 (define-set-marker . 66))
+(1962 (no-sets . 66))
+(1963 (make-cell . 66))
+(1964 (make-unassigned-cell . 66))
+(1965 (make-cell-ref . 66))
+(1966 (make-cell-set! . 66))
+(1967 (make-primop-call . 66))
+(1968 (operator/flat-lambda . 66))
+(1969 (operator/lambda . 66))
+(1970 (operator/begin . 66))
+(1971 (operator/literal . 66))
+(1972 (operator/call . 66))
+(1973 (operator/unassigned . 66))
+(1974 (operator/set! . 66))
+(1975 (define-node? . 66))
+(1976 (lambda-node? . 66))
+(1977 (define-primop . 66))
+(1978 (temp0 . 66))
+(1979 (make-cell-primop . 66))
+(1980 (temp1 . 66))
+(1981 (cell-ref-primop . 66))
+(1982 (temp2 . 66))
+(1983 (cell-set!-primop . 66))
+(1984 (union . 66))
+(1985 (set-difference . 66))
+(1986 (ensure-loaded . 83))
 -
 ; Template uid -> name, parent, pc in parent, env maps
 (0 scheme-level-0 #f #f ())
@@ -2150,360 +2206,360 @@
 (125 scheme-level-0 #f #f ())
 (126 continuation? 125 7 ())
 (127 scheme-level-0 #f #f ())
-(128 binary-reduce1 127 7 ())
+(128 channel-ready? 127 7 ())
 (129 scheme-level-0 #f #f ())
-(130 binary-reduce2 129 7 ())
+(130 binary-reduce1 129 7 ())
 (131 scheme-level-0 #f #f ())
-(132 char<? 131 7 ())
+(132 binary-reduce2 131 7 ())
 (133 scheme-level-0 #f #f ())
-(134 char=? 133 7 ())
+(134 char<? 133 7 ())
 (135 scheme-level-0 #f #f ())
-(136 <= 135 7 ())
+(136 char=? 135 7 ())
 (137 scheme-level-0 #f #f ())
-(138 magnitude 137 7 ())
+(138 <= 137 7 ())
 (139 scheme-level-0 #f #f ())
-(140 >= 139 7 ())
+(140 magnitude 139 7 ())
 (141 scheme-level-0 #f #f ())
-(142 with-continuation 141 7 ())
+(142 >= 141 7 ())
 (143 scheme-level-0 #f #f ())
-(144 floor 143 7 ())
+(144 with-continuation 143 7 ())
 (145 scheme-level-0 #f #f ())
-(146 apply 145 7 ())
+(146 floor 145 7 ())
 (147 scheme-level-0 #f #f ())
-(148 memory-status 147 7 ())
+(148 apply 147 7 ())
 (149 scheme-level-0 #f #f ())
-(150 checked-record-set! 149 7 ())
+(150 memory-status 149 7 ())
 (151 scheme-level-0 #f #f ())
-(152 inexact->exact 151 7 ())
+(152 checked-record-set! 151 7 ())
 (153 scheme-level-0 #f #f ())
-(154 exact->inexact 153 7 ())
+(154 inexact->exact 153 7 ())
 (155 scheme-level-0 #f #f ())
-(156 error 155 7 ())
+(156 exact->inexact 155 7 ())
 (157 scheme-level-0 #f #f ())
-(158 extended-number-length 157 7 ())
+(158 error 157 7 ())
 (159 scheme-level-0 #f #f ())
-(160 open-channels-list 159 7 ())
+(160 extended-number-length 159 7 ())
 (161 scheme-level-0 #f #f ())
-(162 channel-id 161 7 ())
+(162 open-channels-list 161 7 ())
 (163 scheme-level-0 #f #f ())
-(164 shared-binding-set! 163 7 ())
+(164 channel-id 163 7 ())
 (165 scheme-level-0 #f #f ())
-(166 numerator 165 7 ())
+(166 shared-binding-set! 165 7 ())
 (167 scheme-level-0 #f #f ())
-(168 eof-object 167 7 ())
+(168 numerator 167 7 ())
 (169 scheme-level-0 #f #f ())
-(170 byte-vector-length 169 7 ())
+(170 eof-object 169 7 ())
 (171 scheme-level-0 #f #f ())
-(172 record-ref 171 7 ())
+(172 byte-vector-length 171 7 ())
 (173 scheme-level-0 #f #f ())
-(174 make-polar 173 7 ())
+(174 record-ref 173 7 ())
 (175 scheme-level-0 #f #f ())
-(176 write-char 175 7 ())
+(176 make-polar 175 7 ())
 (177 scheme-level-0 #f #f ())
-(178 symbol->string 177 7 ())
+(178 write-char 177 7 ())
 (179 scheme-level-0 #f #f ())
-(180 exact? 179 7 ())
+(180 symbol->string 179 7 ())
 (181 scheme-level-0 #f #f ())
-(182 vector-ref 181 7 ())
+(182 exact? 181 7 ())
 (183 scheme-level-0 #f #f ())
-(184 set-current-thread! 183 7 ())
+(184 vector-ref 183 7 ())
 (185 scheme-level-0 #f #f ())
-(186 immutable? 185 7 ())
+(186 set-current-thread! 185 7 ())
 (187 scheme-level-0 #f #f ())
-(188 set-exception-handlers! 187 7 ())
+(188 immutable? 187 7 ())
 (189 scheme-level-0 #f #f ())
-(190 string-ref 189 7 ())
+(190 set-exception-handlers! 189 7 ())
 (191 scheme-level-0 #f #f ())
-(192 set-port-index! 191 7 ())
+(192 string-ref 191 7 ())
 (193 scheme-level-0 #f #f ())
-(194 make-shared-binding 193 7 ())
+(194 set-port-index! 193 7 ())
 (195 scheme-level-0 #f #f ())
-(196 current-thread 195 7 ())
+(196 make-shared-binding 195 7 ())
 (197 scheme-level-0 #f #f ())
-(198 channel-status 197 7 ())
+(198 current-thread 197 7 ())
 (199 scheme-level-0 #f #f ())
-(200 set-port-limit! 199 7 ())
+(200 channel-status 199 7 ())
 (201 scheme-level-0 #f #f ())
-(202 shared-binding-name 201 7 ())
+(202 set-port-limit! 201 7 ())
 (203 scheme-level-0 #f #f ())
-(204 port-index 203 7 ())
+(204 shared-binding-name 203 7 ())
 (205 scheme-level-0 #f #f ())
-(206 make-immutable! 205 7 ())
+(206 port-index 205 7 ())
 (207 scheme-level-0 #f #f ())
-(208 set-enabled-interrupts! 207 7 ())
+(208 make-immutable! 207 7 ())
 (209 scheme-level-0 #f #f ())
-(210 port-limit 209 7 ())
+(210 set-enabled-interrupts! 209 7 ())
 (211 scheme-level-0 #f #f ())
-(212 ascii->char 211 7 ())
+(212 port-limit 211 7 ())
 (213 scheme-level-0 #f #f ())
-(214 char->ascii 213 7 ())
+(214 ascii->char 213 7 ())
 (215 scheme-level-0 #f #f ())
-(216 undefine-shared-binding 215 7 ())
+(216 char->ascii 215 7 ())
 (217 scheme-level-0 #f #f ())
-(218 record-set! 217 7 ())
+(218 undefine-shared-binding 217 7 ())
 (219 scheme-level-0 #f #f ())
-(220 shared-binding? 219 7 ())
+(220 record-set! 219 7 ())
 (221 scheme-level-0 #f #f ())
-(222 eof-object? 221 7 ())
+(222 shared-binding? 221 7 ())
 (223 scheme-level-0 #f #f ())
-(224 set-interrupt-handlers! 223 7 ())
+(224 eof-object? 223 7 ())
 (225 scheme-level-0 #f #f ())
-(226 record 225 7 ())
+(226 set-interrupt-handlers! 225 7 ())
 (227 scheme-level-0 #f #f ())
-(228 schedule-interrupt 227 7 ())
+(228 record 227 7 ())
 (229 scheme-level-0 #f #f ())
-(230 channel-maybe-write 229 7 ())
+(230 schedule-interrupt 229 7 ())
 (231 scheme-level-0 #f #f ())
-(232 unspecific 231 7 ())
+(232 channel-maybe-write 231 7 ())
 (233 scheme-level-0 #f #f ())
-(234 extended-number-ref 233 7 ())
+(234 unspecific 233 7 ())
 (235 scheme-level-0 #f #f ())
-(236 vector-set! 235 7 ())
+(236 extended-number-ref 235 7 ())
 (237 scheme-level-0 #f #f ())
-(238 copy-bytes! 237 7 ())
+(238 vector-set! 237 7 ())
 (239 scheme-level-0 #f #f ())
-(240 string-set! 239 7 ())
+(240 copy-bytes! 239 7 ())
 (241 scheme-level-0 #f #f ())
-(242 unassigned 241 7 ())
+(242 string-set! 241 7 ())
 (243 scheme-level-0 #f #f ())
-(244 call-external-value 243 7 ())
+(244 unassigned 243 7 ())
 (245 scheme-level-0 #f #f ())
-(246 values 245 7 ())
+(246 call-external-value 245 7 ())
 (247 scheme-level-0 #f #f ())
-(248 intern 247 7 ())
+(248 values 247 7 ())
 (249 scheme-level-0 #f #f ())
-(250 vector 249 7 ())
+(250 intern 249 7 ())
 (251 scheme-level-0 #f #f ())
-(252 byte-vector-ref 251 7 ())
+(252 vector 251 7 ())
 (253 scheme-level-0 #f #f ())
-(254 make-double 253 7 ())
+(254 byte-vector-ref 253 7 ())
 (255 scheme-level-0 #f #f ())
-(256 make-record 255 7 ())
+(256 make-double 255 7 ())
 (257 scheme-level-0 #f #f ())
-(258 set-location-id! 257 7 ())
+(258 make-record 257 7 ())
 (259 scheme-level-0 #f #f ())
-(260 location-id 259 7 ())
+(260 set-location-id! 259 7 ())
 (261 scheme-level-0 #f #f ())
-(262 bitwise-and 261 7 ())
+(262 location-id 261 7 ())
 (263 scheme-level-0 #f #f ())
-(264 eq? 263 7 ())
+(264 bitwise-and 263 7 ())
 (265 scheme-level-0 #f #f ())
-(266 write-image 265 7 ())
+(266 eq? 265 7 ())
 (267 scheme-level-0 #f #f ())
-(268 double? 267 7 ())
+(268 write-image 267 7 ())
 (269 scheme-level-0 #f #f ())
-(270 extended-number-set! 269 7 ())
+(270 double? 269 7 ())
 (271 scheme-level-0 #f #f ())
-(272 make-vector 271 7 ())
+(272 extended-number-set! 271 7 ())
 (273 scheme-level-0 #f #f ())
-(274 record? 273 7 ())
+(274 make-vector 273 7 ())
 (275 scheme-level-0 #f #f ())
-(276 make-string 275 7 ())
+(276 record? 275 7 ())
 (277 scheme-level-0 #f #f ())
-(278 set-port-buffer! 277 7 ())
+(278 make-string 277 7 ())
 (279 scheme-level-0 #f #f ())
-(280 primitive-catch 279 7 ())
+(280 set-port-buffer! 279 7 ())
 (281 scheme-level-0 #f #f ())
-(282 string-hash 281 7 ())
+(282 primitive-catch 281 7 ())
 (283 scheme-level-0 #f #f ())
-(284 template-length 283 7 ())
+(284 string-hash 283 7 ())
 (285 scheme-level-0 #f #f ())
-(286 number? 285 7 ())
+(286 template-length 285 7 ())
 (287 scheme-level-0 #f #f ())
-(288 port-buffer 287 7 ())
+(288 number? 287 7 ())
 (289 scheme-level-0 #f #f ())
-(290 byte-vector-set! 289 7 ())
+(290 port-buffer 289 7 ())
 (291 scheme-level-0 #f #f ())
-(292 bitwise-ior 291 7 ())
+(292 byte-vector-set! 291 7 ())
 (293 scheme-level-0 #f #f ())
-(294 set-car! 293 7 ())
+(294 bitwise-ior 293 7 ())
 (295 scheme-level-0 #f #f ())
-(296 closure-env 295 7 ())
+(296 set-car! 295 7 ())
 (297 scheme-level-0 #f #f ())
-(298 vector? 297 7 ())
+(298 closure-env 297 7 ())
 (299 scheme-level-0 #f #f ())
-(300 bitwise-not 299 7 ())
+(300 vector? 299 7 ())
 (301 scheme-level-0 #f #f ())
-(302 set-cdr! 301 7 ())
+(302 bitwise-not 301 7 ())
 (303 scheme-level-0 #f #f ())
-(304 symbol? 303 7 ())
+(304 set-cdr! 303 7 ())
 (305 scheme-level-0 #f #f ())
-(306 string? 305 7 ())
+(306 symbol? 305 7 ())
 (307 scheme-level-0 #f #f ())
-(308 car 307 7 ())
+(308 string? 307 7 ())
 (309 scheme-level-0 #f #f ())
-(310 bitwise-xor 309 7 ())
+(310 car 309 7 ())
 (311 scheme-level-0 #f #f ())
-(312 cdr 311 7 ())
+(312 bitwise-xor 311 7 ())
 (313 scheme-level-0 #f #f ())
-(314 find-all-records 313 7 ())
+(314 cdr 313 7 ())
 (315 scheme-level-0 #f #f ())
-(316 continuation-length 315 7 ())
+(316 find-all-records 315 7 ())
 (317 scheme-level-0 #f #f ())
-(318 log 317 7 ())
+(318 continuation-length 317 7 ())
 (319 scheme-level-0 #f #f ())
-(320 message 319 7 ())
+(320 log 319 7 ())
 (321 scheme-level-0 #f #f ())
-(322 tan 321 7 ())
+(322 message 321 7 ())
 (323 scheme-level-0 #f #f ())
-(324 collect 323 7 ())
+(324 tan 323 7 ())
 (325 scheme-level-0 #f #f ())
-(326 cos 325 7 ())
+(326 collect 325 7 ())
 (327 scheme-level-0 #f #f ())
-(328 channel-os-index 327 7 ())
+(328 cos 327 7 ())
 (329 scheme-level-0 #f #f ())
-(330 make-extended-number 329 7 ())
+(330 channel-os-index 329 7 ())
 (331 scheme-level-0 #f #f ())
-(332 set-port-status! 331 7 ())
+(332 make-extended-number 331 7 ())
 (333 scheme-level-0 #f #f ())
-(334 sin 333 7 ())
+(334 set-port-status! 333 7 ())
 (335 scheme-level-0 #f #f ())
-(336 exp 335 7 ())
+(336 sin 335 7 ())
 (337 scheme-level-0 #f #f ())
-(338 pop 337 7 ())
+(338 exp 337 7 ())
 (339 scheme-level-0 #f #f ())
-(340 port-status 339 7 ())
+(340 pop 339 7 ())
 (341 scheme-level-0 #f #f ())
-(342 return-from-callback 341 7 ())
+(342 port-status 341 7 ())
 (343 scheme-level-0 #f #f ())
-(344 set-port-locked?! 343 7 ())
+(344 return-from-callback 343 7 ())
 (345 scheme-level-0 #f #f ())
-(346 make-byte-vector 345 7 ())
+(346 set-port-locked?! 345 7 ())
 (347 scheme-level-0 #f #f ())
-(348 weak-pointer-ref 347 7 ())
+(348 make-byte-vector 347 7 ())
 (349 scheme-level-0 #f #f ())
-(350 call-with-values 349 7 ())
+(350 weak-pointer-ref 349 7 ())
 (351 scheme-level-0 #f #f ())
-(352 denominator 351 7 ())
+(352 call-with-values 351 7 ())
 (353 scheme-level-0 #f #f ())
-(354 reverse-list->string 353 7 ())
+(354 denominator 353 7 ())
 (355 scheme-level-0 #f #f ())
-(356 port-locked? 355 7 ())
+(356 reverse-list->string 355 7 ())
 (357 scheme-level-0 #f #f ())
-(358 extended-number? 357 7 ())
+(358 port-locked? 357 7 ())
 (359 scheme-level-0 #f #f ())
-(360 shared-binding-is-import? 359 7 ())
+(360 extended-number? 359 7 ())
 (361 scheme-level-0 #f #f ())
-(362 find-all 361 7 ())
+(362 shared-binding-is-import? 361 7 ())
 (363 scheme-level-0 #f #f ())
-(364 cell-ref 363 7 ())
+(364 find-all 363 7 ())
 (365 scheme-level-0 #f #f ())
-(366 byte-vector? 365 7 ())
+(366 cell-ref 365 7 ())
 (367 scheme-level-0 #f #f ())
-(368 string=? 367 7 ())
+(368 byte-vector? 367 7 ())
 (369 scheme-level-0 #f #f ())
-(370 open-channel 369 7 ())
+(370 string=? 369 7 ())
 (371 scheme-level-0 #f #f ())
-(372 channel? 371 7 ())
+(372 open-channel 371 7 ())
 (373 scheme-level-0 #f #f ())
-(374 make-rectangular 373 7 ())
+(374 channel? 373 7 ())
 (375 scheme-level-0 #f #f ())
-(376 set-session-data! 375 7 ())
+(376 make-rectangular 375 7 ())
 (377 scheme-level-0 #f #f ())
-(378 template-ref 377 7 ())
+(378 set-session-data! 377 7 ())
 (379 scheme-level-0 #f #f ())
-(380 set-port-handler! 379 7 ())
+(380 template-ref 379 7 ())
 (381 scheme-level-0 #f #f ())
-(382 make-closure 381 7 ())
+(382 set-port-handler! 381 7 ())
 (383 scheme-level-0 #f #f ())
-(384 session-data 383 7 ())
+(384 make-closure 383 7 ())
 (385 scheme-level-0 #f #f ())
-(386 integer? 385 7 ())
+(386 session-data 385 7 ())
 (387 scheme-level-0 #f #f ())
-(388 signal-condition 387 7 ())
+(388 integer? 387 7 ())
 (389 scheme-level-0 #f #f ())
-(390 port-handler 389 7 ())
+(390 signal-condition 389 7 ())
 (391 scheme-level-0 #f #f ())
-(392 set-port-pending-eof?! 391 7 ())
+(392 port-handler 391 7 ())
 (393 scheme-level-0 #f #f ())
-(394 define-shared-binding 393 7 ())
+(394 set-port-pending-eof?! 393 7 ())
 (395 scheme-level-0 #f #f ())
-(396 arithmetic-shift 395 7 ())
+(396 define-shared-binding 395 7 ())
 (397 scheme-level-0 #f #f ())
-(398 complex? 397 7 ())
+(398 arithmetic-shift 397 7 ())
 (399 scheme-level-0 #f #f ())
-(400 port-pending-eof? 399 7 ())
+(400 complex? 399 7 ())
 (401 scheme-level-0 #f #f ())
-(402 cell-set! 401 7 ())
+(402 port-pending-eof? 401 7 ())
 (403 scheme-level-0 #f #f ())
-(404 binary-comparison-reduce2 403 7 ())
+(404 cell-set! 403 7 ())
 (405 scheme-level-0 #f #f ())
-(406 scheme-level-0 #f #f ())
-(407 closure? 406 7 ())
+(406 binary-comparison-reduce2 405 7 ())
+(407 scheme-level-0 #f #f ())
 (408 scheme-level-0 #f #f ())
-(409 continuation-ref 408 7 ())
+(409 closure? 408 7 ())
 (410 scheme-level-0 #f #f ())
-(411 closure-template 410 7 ())
+(411 continuation-ref 410 7 ())
 (412 scheme-level-0 #f #f ())
-(413 current-cont 412 7 ())
+(413 closure-template 412 7 ())
 (414 scheme-level-0 #f #f ())
-(415 char->integer 414 7 ())
+(415 current-cont 414 7 ())
 (416 scheme-level-0 #f #f ())
-(417 integer->char 416 7 ())
+(417 char->integer 416 7 ())
 (418 scheme-level-0 #f #f ())
-(419 invoke-closure 418 7 ())
+(419 integer->char 418 7 ())
 (420 scheme-level-0 #f #f ())
-(421 primitive-cwcc 420 7 ())
-(422 #f 421 8 ())
-(423 scheme-level-0 #f #f ())
-(424 make-undefined-location 423 7 ())
+(421 invoke-closure 420 7 ())
+(422 scheme-level-0 #f #f ())
+(423 primitive-cwcc 422 7 ())
+(424 #f 423 8 ())
 (425 scheme-level-0 #f #f ())
-(426 location-assigned? 425 7 ())
+(426 make-undefined-location 425 7 ())
 (427 scheme-level-0 #f #f ())
-(428 vector-unassigned? 427 7 ())
+(428 location-assigned? 427 7 ())
 (429 scheme-level-0 #f #f ())
-(430 string-copy 429 7 ())
+(430 vector-unassigned? 429 7 ())
 (431 scheme-level-0 #f #f ())
-(432 string->symbol 431 7 ())
+(432 string-copy 431 7 ())
 (433 scheme-level-0 #f #f ())
-(434 input-port? 433 7 ())
+(434 string->symbol 433 7 ())
 (435 scheme-level-0 #f #f ())
-(436 output-port? 435 7 ())
+(436 input-port? 435 7 ())
 (437 scheme-level-0 #f #f ())
-(438 make-code-vector 437 7 ())
+(438 output-port? 437 7 ())
 (439 scheme-level-0 #f #f ())
-(440 code-vector? 439 7 ())
+(440 make-code-vector 439 7 ())
 (441 scheme-level-0 #f #f ())
-(442 code-vector-length 441 7 ())
+(442 code-vector? 441 7 ())
 (443 scheme-level-0 #f #f ())
-(444 code-vector-ref 443 7 ())
+(444 code-vector-length 443 7 ())
 (445 scheme-level-0 #f #f ())
-(446 code-vector-set! 445 7 ())
+(446 code-vector-ref 445 7 ())
 (447 scheme-level-0 #f #f ())
-(448 buffer-length 447 7 ())
+(448 code-vector-set! 447 7 ())
 (449 scheme-level-0 #f #f ())
-(450 channel-read 449 7 ())
-(451 #f 450 6 ())
-(452 loop 451 19 ())
-(453 scheme-level-0 #f #f ())
-(454 channel-write 453 7 ())
-(455 loop 454 19 ())
-(456 scheme-level-0 #f #f ())
-(457 lookup-imported-binding 456 7 ())
+(450 buffer-length 449 7 ())
+(451 scheme-level-0 #f #f ())
+(452 channel-read 451 7 ())
+(453 #f 452 6 ())
+(454 loop 453 19 ())
+(455 scheme-level-0 #f #f ())
+(456 channel-write 455 7 ())
+(457 loop 456 19 ())
 (458 scheme-level-0 #f #f ())
-(459 lookup-exported-binding 458 7 ())
+(459 lookup-imported-binding 458 7 ())
 (460 scheme-level-0 #f #f ())
-(461 define-imported-binding 460 7 ())
+(461 lookup-exported-binding 460 7 ())
 (462 scheme-level-0 #f #f ())
-(463 define-exported-binding 462 7 ())
+(463 define-imported-binding 462 7 ())
 (464 scheme-level-0 #f #f ())
-(465 undefine-imported-binding 464 7 ())
+(465 define-exported-binding 464 7 ())
 (466 scheme-level-0 #f #f ())
-(467 undefine-exported-binding 466 7 ())
+(467 undefine-imported-binding 466 7 ())
 (468 scheme-level-0 #f #f ())
-(469 debug-message 468 7 ())
+(469 undefine-exported-binding 468 7 ())
 (470 scheme-level-0 #f #f ())
-(471 signal 470 7 ())
+(471 debug-message 470 7 ())
 (472 scheme-level-0 #f #f ())
-(473 warn 472 7 ())
+(473 signal 472 7 ())
 (474 scheme-level-0 #f #f ())
-(475 syntax-error 474 7 ())
+(475 warn 474 7 ())
 (476 scheme-level-0 #f #f ())
-(477 call-error 476 7 ())
+(477 syntax-error 476 7 ())
 (478 scheme-level-0 #f #f ())
-(479 scheme-level-0 #f #f ())
-(480 scheme-level-1 #f #f ())
-(481 scheme-level-1 #f #f ())
+(479 call-error 478 7 ())
+(480 scheme-level-0 #f #f ())
+(481 scheme-level-0 #f #f ())
 (482 scheme-level-1 #f #f ())
 (483 scheme-level-1 #f #f ())
 (484 scheme-level-1 #f #f ())
@@ -2514,435 +2570,435 @@
 (489 scheme-level-1 #f #f ())
 (490 scheme-level-1 #f #f ())
 (491 scheme-level-1 #f #f ())
-(492 #f 491 11 ())
+(492 scheme-level-1 #f #f ())
 (493 scheme-level-1 #f #f ())
 (494 #f 493 11 ())
 (495 scheme-level-1 #f #f ())
-(496 scheme-level-1 #f #f ())
+(496 #f 495 11 ())
 (497 scheme-level-1 #f #f ())
 (498 scheme-level-1 #f #f ())
 (499 scheme-level-1 #f #f ())
 (500 scheme-level-1 #f #f ())
 (501 scheme-level-1 #f #f ())
-(502 not 501 7 ())
+(502 scheme-level-1 #f #f ())
 (503 scheme-level-1 #f #f ())
-(504 boolean? 503 7 ())
+(504 not 503 7 ())
 (505 scheme-level-1 #f #f ())
-(506 eqv? 505 7 ())
+(506 boolean? 505 7 ())
 (507 scheme-level-1 #f #f ())
-(508 equal? 507 7 ())
-(509 loop 508 156 ())
-(510 scheme-level-1 #f #f ())
-(511 null? 510 7 ())
+(508 eqv? 507 7 ())
+(509 scheme-level-1 #f #f ())
+(510 equal? 509 7 ())
+(511 loop 510 156 ())
 (512 scheme-level-1 #f #f ())
-(513 inexact? 512 7 ())
+(513 null? 512 7 ())
 (514 scheme-level-1 #f #f ())
-(515 max-or-min 514 7 ())
-(516 loop 515 34 ())
-(517 scheme-level-1 #f #f ())
-(518 max 517 7 ())
+(515 inexact? 514 7 ())
+(516 scheme-level-1 #f #f ())
+(517 max-or-min 516 7 ())
+(518 loop 517 35 ())
 (519 scheme-level-1 #f #f ())
-(520 min 519 7 ())
+(520 max 519 7 ())
 (521 scheme-level-1 #f #f ())
-(522 abs 521 7 ())
+(522 min 521 7 ())
 (523 scheme-level-1 #f #f ())
-(524 zero? 523 7 ())
+(524 abs 523 7 ())
 (525 scheme-level-1 #f #f ())
-(526 positive? 525 7 ())
+(526 zero? 525 7 ())
 (527 scheme-level-1 #f #f ())
-(528 negative? 527 7 ())
+(528 positive? 527 7 ())
 (529 scheme-level-1 #f #f ())
-(530 even? 529 7 ())
+(530 negative? 529 7 ())
 (531 scheme-level-1 #f #f ())
-(532 odd? 531 7 ())
+(532 even? 531 7 ())
 (533 scheme-level-1 #f #f ())
-(534 caar 533 7 ())
+(534 odd? 533 7 ())
 (535 scheme-level-1 #f #f ())
-(536 cadr 535 7 ())
+(536 caar 535 7 ())
 (537 scheme-level-1 #f #f ())
-(538 cdar 537 7 ())
+(538 cadr 537 7 ())
 (539 scheme-level-1 #f #f ())
-(540 cddr 539 7 ())
+(540 cdar 539 7 ())
 (541 scheme-level-1 #f #f ())
-(542 caaar 541 7 ())
+(542 cddr 541 7 ())
 (543 scheme-level-1 #f #f ())
-(544 caadr 543 7 ())
+(544 caaar 543 7 ())
 (545 scheme-level-1 #f #f ())
-(546 cadar 545 7 ())
+(546 caadr 545 7 ())
 (547 scheme-level-1 #f #f ())
-(548 caddr 547 7 ())
+(548 cadar 547 7 ())
 (549 scheme-level-1 #f #f ())
-(550 cdaar 549 7 ())
+(550 caddr 549 7 ())
 (551 scheme-level-1 #f #f ())
-(552 cdadr 551 7 ())
+(552 cdaar 551 7 ())
 (553 scheme-level-1 #f #f ())
-(554 cddar 553 7 ())
+(554 cdadr 553 7 ())
 (555 scheme-level-1 #f #f ())
-(556 cdddr 555 7 ())
+(556 cddar 555 7 ())
 (557 scheme-level-1 #f #f ())
-(558 caaaar 557 7 ())
+(558 cdddr 557 7 ())
 (559 scheme-level-1 #f #f ())
-(560 caaadr 559 7 ())
+(560 caaaar 559 7 ())
 (561 scheme-level-1 #f #f ())
-(562 caadar 561 7 ())
+(562 caaadr 561 7 ())
 (563 scheme-level-1 #f #f ())
-(564 caaddr 563 7 ())
+(564 caadar 563 7 ())
 (565 scheme-level-1 #f #f ())
-(566 cadaar 565 7 ())
+(566 caaddr 565 7 ())
 (567 scheme-level-1 #f #f ())
-(568 cadadr 567 7 ())
+(568 cadaar 567 7 ())
 (569 scheme-level-1 #f #f ())
-(570 caddar 569 7 ())
+(570 cadadr 569 7 ())
 (571 scheme-level-1 #f #f ())
-(572 cadddr 571 7 ())
+(572 caddar 571 7 ())
 (573 scheme-level-1 #f #f ())
-(574 cdaaar 573 7 ())
+(574 cadddr 573 7 ())
 (575 scheme-level-1 #f #f ())
-(576 cdaadr 575 7 ())
+(576 cdaaar 575 7 ())
 (577 scheme-level-1 #f #f ())
-(578 cdadar 577 7 ())
+(578 cdaadr 577 7 ())
 (579 scheme-level-1 #f #f ())
-(580 cdaddr 579 7 ())
+(580 cdadar 579 7 ())
 (581 scheme-level-1 #f #f ())
-(582 cddaar 581 7 ())
+(582 cdaddr 581 7 ())
 (583 scheme-level-1 #f #f ())
-(584 cddadr 583 7 ())
+(584 cddaar 583 7 ())
 (585 scheme-level-1 #f #f ())
-(586 cdddar 585 7 ())
+(586 cddadr 585 7 ())
 (587 scheme-level-1 #f #f ())
-(588 cddddr 587 7 ())
+(588 cdddar 587 7 ())
 (589 scheme-level-1 #f #f ())
-(590 list 589 7 ())
+(590 cddddr 589 7 ())
 (591 scheme-level-1 #f #f ())
-(592 real-length 591 7 ())
+(592 list 591 7 ())
 (593 scheme-level-1 #f #f ())
-(594 length 593 7 ())
+(594 real-length 593 7 ())
 (595 scheme-level-1 #f #f ())
-(596 reduce 595 7 ())
+(596 length 595 7 ())
 (597 scheme-level-1 #f #f ())
-(598 append 597 7 ())
-(599 recur 598 34 ())
-(600 scheme-level-1 #f #f ())
-(601 append-reverse 600 7 ())
+(598 reduce 597 7 ())
+(599 scheme-level-1 #f #f ())
+(600 append 599 7 ())
+(601 recur 600 34 ())
 (602 scheme-level-1 #f #f ())
-(603 reverse 602 7 ())
+(603 append-reverse 602 7 ())
 (604 scheme-level-1 #f #f ())
-(605 list-tail 604 7 ())
+(605 reverse 604 7 ())
 (606 scheme-level-1 #f #f ())
-(607 list-ref 606 7 ())
+(607 list-tail 606 7 ())
 (608 scheme-level-1 #f #f ())
-(609 mem 608 7 ())
-(610 #f 609 6 ())
-(611 loop 610 18 ())
-(612 scheme-level-1 #f #f ())
-(613 ass 612 7 ())
-(614 #f 613 6 ())
-(615 loop 614 18 ())
-(616 scheme-level-1 #f #f ())
-(617 list? 616 7 ())
-(618 recur 617 21 ())
-(619 scheme-level-1 #f #f ())
-(620 char>? 619 7 ())
+(609 list-ref 608 7 ())
+(610 scheme-level-1 #f #f ())
+(611 mem 610 7 ())
+(612 #f 611 6 ())
+(613 loop 612 18 ())
+(614 scheme-level-1 #f #f ())
+(615 ass 614 7 ())
+(616 #f 615 6 ())
+(617 loop 616 18 ())
+(618 scheme-level-1 #f #f ())
+(619 list? 618 7 ())
+(620 recur 619 21 ())
 (621 scheme-level-1 #f #f ())
-(622 char>=? 621 7 ())
+(622 char>? 621 7 ())
 (623 scheme-level-1 #f #f ())
-(624 char<=? 623 7 ())
+(624 char>=? 623 7 ())
 (625 scheme-level-1 #f #f ())
-(626 char-whitespace? 625 7 ())
+(626 char<=? 625 7 ())
 (627 scheme-level-1 #f #f ())
-(628 char-lower-case? 627 7 ())
+(628 char-whitespace? 627 7 ())
 (629 scheme-level-1 #f #f ())
-(630 char-upper-case? 629 7 ())
+(630 char-lower-case? 629 7 ())
 (631 scheme-level-1 #f #f ())
-(632 char-numeric? 631 7 ())
+(632 char-upper-case? 631 7 ())
 (633 scheme-level-1 #f #f ())
-(634 char-alphabetic? 633 7 ())
+(634 char-numeric? 633 7 ())
 (635 scheme-level-1 #f #f ())
-(636 make-character-map 635 7 ())
-(637 loop##6 636 27 ())
-(638 scheme-level-1 #f #f ())
-(639 char-upcase 638 7 ())
+(636 char-alphabetic? 635 7 ())
+(637 scheme-level-1 #f #f ())
+(638 make-character-map 637 7 ())
+(639 loop##6 638 27 ())
 (640 scheme-level-1 #f #f ())
-(641 char-downcase 640 7 ())
+(641 char-upcase 640 7 ())
 (642 scheme-level-1 #f #f ())
-(643 char-ci-compare 642 7 ())
-(644 #f 643 6 ())
-(645 scheme-level-1 #f #f ())
-(646 list->string 645 7 ())
-(647 loop##8 646 36 ())
-(648 scheme-level-1 #f #f ())
-(649 string 648 7 ())
+(643 char-downcase 642 7 ())
+(644 scheme-level-1 #f #f ())
+(645 char-ci-compare 644 7 ())
+(646 #f 645 6 ())
+(647 scheme-level-1 #f #f ())
+(648 list->string 647 7 ())
+(649 loop##8 648 36 ())
 (650 scheme-level-1 #f #f ())
-(651 substring 650 7 ())
-(652 loop##9 651 26 ())
-(653 scheme-level-1 #f #f ())
-(654 string-append 653 7 ())
-(655 #f 654 12 ())
-(656 loop 654 60 ())
-(657 loop##10 656 40 ())
-(658 scheme-level-1 #f #f ())
-(659 string->list 658 7 ())
-(660 loop##11 659 18 ())
-(661 scheme-level-1 #f #f ())
-(662 unspecific 661 7 ())
+(651 string 650 7 ())
+(652 scheme-level-1 #f #f ())
+(653 substring 652 7 ())
+(654 loop##9 653 26 ())
+(655 scheme-level-1 #f #f ())
+(656 string-append 655 7 ())
+(657 #f 656 12 ())
+(658 loop 656 60 ())
+(659 loop##10 658 40 ())
+(660 scheme-level-1 #f #f ())
+(661 string->list 660 7 ())
+(662 loop##11 661 18 ())
 (663 scheme-level-1 #f #f ())
-(664 string-fill! 663 7 ())
-(665 loop##12 664 18 ())
-(666 scheme-level-1 #f #f ())
-(667 make-string=? 666 7 ())
-(668 #f 667 6 ())
-(669 loop 668 36 ())
-(670 scheme-level-1 #f #f ())
-(671 make-string<? 670 7 ())
-(672 #f 671 6 ())
-(673 loop 672 49 ())
-(674 scheme-level-1 #f #f ())
-(675 string>? 674 7 ())
+(664 unspecific 663 7 ())
+(665 scheme-level-1 #f #f ())
+(666 string-fill! 665 7 ())
+(667 loop##12 666 18 ())
+(668 scheme-level-1 #f #f ())
+(669 make-string=? 668 7 ())
+(670 #f 669 6 ())
+(671 loop 670 36 ())
+(672 scheme-level-1 #f #f ())
+(673 make-string<? 672 7 ())
+(674 #f 673 6 ())
+(675 loop 674 49 ())
 (676 scheme-level-1 #f #f ())
-(677 string<=? 676 7 ())
+(677 string>? 676 7 ())
 (678 scheme-level-1 #f #f ())
-(679 string>=? 678 7 ())
+(679 string<=? 678 7 ())
 (680 scheme-level-1 #f #f ())
-(681 string-ci>? 680 7 ())
+(681 string>=? 680 7 ())
 (682 scheme-level-1 #f #f ())
-(683 string-ci<=? 682 7 ())
+(683 string-ci>? 682 7 ())
 (684 scheme-level-1 #f #f ())
-(685 string-ci>=? 684 7 ())
+(685 string-ci<=? 684 7 ())
 (686 scheme-level-1 #f #f ())
-(687 vector->list 686 7 ())
-(688 loop##14 687 11 ())
-(689 scheme-level-1 #f #f ())
-(690 list->vector 689 7 ())
-(691 loop##15 690 35 ())
-(692 scheme-level-1 #f #f ())
-(693 vector-fill! 692 7 ())
-(694 loop##16 693 19 ())
-(695 scheme-level-1 #f #f ())
-(696 map1 695 7 ())
+(687 string-ci>=? 686 7 ())
+(688 scheme-level-1 #f #f ())
+(689 vector->list 688 7 ())
+(690 loop##14 689 11 ())
+(691 scheme-level-1 #f #f ())
+(692 list->vector 691 7 ())
+(693 loop##15 692 35 ())
+(694 scheme-level-1 #f #f ())
+(695 vector-fill! 694 7 ())
+(696 loop##16 695 19 ())
 (697 scheme-level-1 #f #f ())
-(698 any 697 7 ())
+(698 map1 697 7 ())
 (699 scheme-level-1 #f #f ())
-(700 map2+ 699 7 ())
+(700 any 699 7 ())
 (701 scheme-level-1 #f #f ())
-(702 map 701 7 ())
+(702 map2+ 701 7 ())
 (703 scheme-level-1 #f #f ())
-(704 for-each1 703 7 ())
-(705 loop 704 18 ())
-(706 scheme-level-1 #f #f ())
-(707 for-each2+ 706 7 ())
-(708 loop 707 21 ())
-(709 scheme-level-1 #f #f ())
-(710 for-each 709 7 ())
+(704 map 703 7 ())
+(705 scheme-level-1 #f #f ())
+(706 for-each1 705 7 ())
+(707 loop 706 18 ())
+(708 scheme-level-1 #f #f ())
+(709 for-each2+ 708 7 ())
+(710 loop 709 21 ())
 (711 scheme-level-1 #f #f ())
-(712 make-promise 711 7 ())
-(713 #f 712 11 ())
-(714 scheme-level-1 #f #f ())
-(715 force 714 7 ())
+(712 for-each 711 7 ())
+(713 scheme-level-1 #f #f ())
+(714 make-promise 713 7 ())
+(715 #f 714 11 ())
 (716 scheme-level-1 #f #f ())
-(717 filter 716 7 ())
-(718 #f 717 6 ())
-(719 scheme-level-1 #f #f ())
-(720 pos 719 7 ())
-(721 #f 720 6 ())
-(722 loop 721 22 ())
-(723 scheme-level-1 #f #f ())
-(724 every 723 7 ())
+(717 force 716 7 ())
+(718 scheme-level-1 #f #f ())
+(719 filter 718 7 ())
+(720 #f 719 6 ())
+(721 scheme-level-1 #f #f ())
+(722 pos 721 7 ())
+(723 #f 722 6 ())
+(724 loop 723 22 ())
 (725 scheme-level-1 #f #f ())
-(726 sublist 725 7 ())
-(727 recur 726 58 ())
-(728 scheme-level-1 #f #f ())
-(729 last 728 7 ())
+(726 every 725 7 ())
+(727 scheme-level-1 #f #f ())
+(728 sublist 727 7 ())
+(729 recur 728 58 ())
 (730 scheme-level-1 #f #f ())
-(731 insert 730 7 ())
+(731 last 730 7 ())
 (732 scheme-level-1 #f #f ())
-(733 fold 732 7 ())
-(734 loop##20 733 11 ())
-(735 scheme-level-1 #f #f ())
-(736 fold->2 735 7 ())
-(737 loop 736 24 ())
-(738 #f 737 25 ())
-(739 scheme-level-1 #f #f ())
-(740 fold->3 739 7 ())
-(741 loop 740 27 ())
-(742 #f 741 28 ())
-(743 scheme-level-1 #f #f ())
-(744 modulo 743 7 ())
+(733 insert 732 7 ())
+(734 scheme-level-1 #f #f ())
+(735 fold 734 7 ())
+(736 loop##20 735 11 ())
+(737 scheme-level-1 #f #f ())
+(738 fold->2 737 7 ())
+(739 loop 738 24 ())
+(740 #f 739 25 ())
+(741 scheme-level-1 #f #f ())
+(742 fold->3 741 7 ())
+(743 loop 742 27 ())
+(744 #f 743 28 ())
 (745 scheme-level-1 #f #f ())
-(746 ceiling 745 7 ())
+(746 modulo 745 7 ())
 (747 scheme-level-1 #f #f ())
-(748 truncate 747 7 ())
+(748 ceiling 747 7 ())
 (749 scheme-level-1 #f #f ())
-(750 round 749 7 ())
+(750 truncate 749 7 ())
 (751 scheme-level-1 #f #f ())
-(752 euclid 751 7 ())
+(752 round 751 7 ())
 (753 scheme-level-1 #f #f ())
-(754 gcd 753 7 ())
-(755 #f 754 8 ())
-(756 scheme-level-1 #f #f ())
-(757 lcm 756 7 ())
-(758 #f 757 8 ())
-(759 scheme-level-1 #f #f ())
-(760 raise-to-integer-power 759 7 ())
-(761 loop 760 39 ())
-(762 scheme-level-1 #f #f ())
-(763 expt 762 7 ())
+(754 euclid 753 7 ())
+(755 scheme-level-1 #f #f ())
+(756 gcd 755 7 ())
+(757 #f 756 8 ())
+(758 scheme-level-1 #f #f ())
+(759 lcm 758 7 ())
+(760 #f 759 8 ())
+(761 scheme-level-1 #f #f ())
+(762 raise-to-integer-power 761 7 ())
+(763 loop 762 39 ())
 (764 scheme-level-1 #f #f ())
-(765 simplest-rational 764 7 ())
-(766 simplest-rational-internal 765 11 ())
-(767 scheme-level-1 #f #f ())
-(768 rationalize 767 7 ())
-(769 records #f #f ())
-(770 #f 769 7 ())
+(765 expt 764 7 ())
+(766 scheme-level-1 #f #f ())
+(767 simplest-rational 766 7 ())
+(768 simplest-rational-internal 767 11 ())
+(769 scheme-level-1 #f #f ())
+(770 rationalize 769 7 ())
 (771 records #f #f ())
-(772 records #f #f ())
+(772 #f 771 7 ())
 (773 records #f #f ())
 (774 records #f #f ())
-(775 record-type 774 7 ())
+(775 records #f #f ())
 (776 records #f #f ())
-(777 record-type-name 776 7 ())
+(777 record-type 776 7 ())
 (778 records #f #f ())
-(779 make-default-record-discloser 778 7 ())
-(780 #f 779 6 ())
-(781 records #f #f ())
-(782 make-record-type 781 7 ())
+(779 record-type-name 778 7 ())
+(780 records #f #f ())
+(781 make-default-record-discloser 780 7 ())
+(782 #f 781 6 ())
 (783 records #f #f ())
-(784 record-type? 783 7 ())
+(784 make-record-type 783 7 ())
 (785 records #f #f ())
-(786 record-type-resumer 785 7 ())
+(786 record-type? 785 7 ())
 (787 records #f #f ())
-(788 set-record-type-resumer! 787 7 ())
+(788 record-type-resumer 787 7 ())
 (789 records #f #f ())
-(790 record-type-uid 789 7 ())
+(790 set-record-type-resumer! 789 7 ())
 (791 records #f #f ())
-(792 record-type-field-names 791 7 ())
+(792 record-type-uid 791 7 ())
 (793 records #f #f ())
-(794 record-type-number-of-fields 793 7 ())
+(794 record-type-field-names 793 7 ())
 (795 records #f #f ())
-(796 record-type-discloser 795 7 ())
+(796 record-type-number-of-fields 795 7 ())
 (797 records #f #f ())
-(798 set-record-type-discloser! 797 7 ())
+(798 record-type-discloser 797 7 ())
 (799 records #f #f ())
-(800 record-field-index 799 7 ())
-(801 loop 800 28 ())
-(802 records #f #f ())
-(803 record-constructor 802 7 ())
-(804 #f 803 10 ())
-(805 #f 803 41 ())
-(806 loop 805 45 ())
-(807 records #f #f ())
-(808 record-accessor 807 7 ())
-(809 #f 808 62 ())
-(810 records #f #f ())
-(811 record-modifier 810 7 ())
-(812 #f 811 62 ())
-(813 records #f #f ())
-(814 record-predicate 813 7 ())
-(815 #f 814 6 ())
-(816 records #f #f ())
-(817 define-record-discloser 816 7 ())
+(800 set-record-type-discloser! 799 7 ())
+(801 records #f #f ())
+(802 record-field-index 801 7 ())
+(803 loop 802 28 ())
+(804 records #f #f ())
+(805 record-constructor 804 7 ())
+(806 #f 805 10 ())
+(807 #f 805 41 ())
+(808 loop 807 45 ())
+(809 records #f #f ())
+(810 record-accessor 809 7 ())
+(811 #f 810 62 ())
+(812 records #f #f ())
+(813 record-modifier 812 7 ())
+(814 #f 813 62 ())
+(815 records #f #f ())
+(816 record-predicate 815 7 ())
+(817 #f 816 6 ())
 (818 records #f #f ())
-(819 disclose-record 818 7 ())
+(819 define-record-discloser 818 7 ())
 (820 records #f #f ())
-(821 define-record-resumer 820 7 ())
+(821 disclose-record 820 7 ())
 (822 records #f #f ())
-(823 resume-record 822 7 ())
+(823 define-record-resumer 822 7 ())
 (824 records #f #f ())
-(825 initialize-records! 824 7 ())
-(826 loop##23 825 18 ())
-(827 records #f #f ())
-(828 records #f #f ())
+(825 resume-record 824 7 ())
+(826 records #f #f ())
+(827 initialize-records! 826 7 ())
+(828 loop##23 827 18 ())
 (829 records #f #f ())
 (830 records #f #f ())
-(831 define-record-types #f #f ())
-(832 methods #f #f ())
-(833 &add-method! 832 59 ())
+(831 records #f #f ())
+(832 records #f #f ())
+(833 define-record-types #f #f ())
 (834 methods #f #f ())
-(835 &disclose 834 52 ())
+(835 &add-method! 834 59 ())
 (836 methods #f #f ())
 (837 &disclose 836 52 ())
 (838 methods #f #f ())
-(839 methods #f #f ())
-(840 disclose 839 56 ())
+(839 &disclose 838 52 ())
+(840 methods #f #f ())
 (841 methods #f #f ())
-(842 &same-type? 841 56 ())
+(842 disclose 841 56 ())
 (843 methods #f #f ())
-(844 &type-priority 843 52 ())
+(844 &same-type? 843 56 ())
 (845 methods #f #f ())
-(846 &type-predicate 845 52 ())
+(846 &type-priority 845 52 ())
 (847 methods #f #f ())
-(848 #f 847 11 ())
+(848 &type-predicate 847 52 ())
 (849 methods #f #f ())
-(850 singleton-value 849 7 ())
+(850 #f 849 11 ())
 (851 methods #f #f ())
-(852 singleton 851 7 ())
+(852 singleton-value 851 7 ())
 (853 methods #f #f ())
-(854 methods #f #f ())
-(855 &same-type? 854 56 ())
+(854 singleton 853 7 ())
+(855 methods #f #f ())
 (856 methods #f #f ())
 (857 &same-type? 856 56 ())
 (858 methods #f #f ())
-(859 methods #f #f ())
-(860 same-type? 859 60 ())
+(859 &same-type? 858 56 ())
+(860 methods #f #f ())
 (861 methods #f #f ())
-(862 &type-superiors 861 52 ())
+(862 same-type? 861 60 ())
 (863 methods #f #f ())
 (864 &type-superiors 863 52 ())
 (865 methods #f #f ())
-(866 methods #f #f ())
-(867 type-superiors 866 56 ())
+(866 &type-superiors 865 52 ())
+(867 methods #f #f ())
 (868 methods #f #f ())
-(869 &type-priority 868 52 ())
+(869 type-superiors 868 56 ())
 (870 methods #f #f ())
 (871 &type-priority 870 52 ())
 (872 methods #f #f ())
-(873 methods #f #f ())
-(874 type-priority 873 56 ())
+(873 &type-priority 872 52 ())
+(874 methods #f #f ())
 (875 methods #f #f ())
-(876 &type-predicate 875 52 ())
+(876 type-priority 875 56 ())
 (877 methods #f #f ())
 (878 &type-predicate 877 52 ())
 (879 methods #f #f ())
-(880 methods #f #f ())
-(881 type-predicate 880 56 ())
+(880 &type-predicate 879 52 ())
+(881 methods #f #f ())
 (882 methods #f #f ())
-(883 add-method! 882 52 ())
+(883 type-predicate 882 56 ())
 (884 methods #f #f ())
-(885 methods #f #f ())
-(886 add-method! 885 60 ())
+(885 add-method! 884 52 ())
+(886 methods #f #f ())
 (887 methods #f #f ())
-(888 #f 887 11 ())
+(888 add-method! 887 60 ())
 (889 methods #f #f ())
-(890 set-method-table-methods! 889 7 ())
+(890 #f 889 11 ())
 (891 methods #f #f ())
-(892 method-table-methods 891 7 ())
+(892 set-method-table-methods! 891 7 ())
 (893 methods #f #f ())
-(894 method-table-prototype 893 7 ())
+(894 method-table-methods 893 7 ())
 (895 methods #f #f ())
-(896 make-generic 895 7 ())
+(896 method-table-prototype 895 7 ())
 (897 methods #f #f ())
-(898 method-table-get-perform 897 7 ())
+(898 make-generic 897 7 ())
 (899 methods #f #f ())
-(900 method-table-set-perform! 899 7 ())
+(900 method-table-get-perform 899 7 ())
 (901 methods #f #f ())
-(902 method-table-id 901 7 ())
+(902 method-table-set-perform! 901 7 ())
 (903 methods #f #f ())
-(904 really-make-method-table 903 7 ())
+(904 method-table-id 903 7 ())
 (905 methods #f #f ())
-(906 methods #f #f ())
-(907 #f 906 11 ())
+(906 really-make-method-table 905 7 ())
+(907 methods #f #f ())
 (908 methods #f #f ())
-(909 method-info-types 908 7 ())
+(909 #f 908 11 ())
 (910 methods #f #f ())
-(911 method-info-n-ary? 910 7 ())
+(911 method-info-types 910 7 ())
 (912 methods #f #f ())
-(913 method-info-proc 912 7 ())
+(913 method-info-n-ary? 912 7 ())
 (914 methods #f #f ())
-(915 really-make-method-info 914 7 ())
+(915 method-info-proc 914 7 ())
 (916 methods #f #f ())
-(917 methods #f #f ())
-(918 record-type-priority 917 51 ())
+(917 really-make-method-info 916 7 ())
+(918 methods #f #f ())
 (919 methods #f #f ())
-(920 methods #f #f ())
+(920 record-type-priority 919 51 ())
 (921 methods #f #f ())
 (922 methods #f #f ())
 (923 methods #f #f ())
@@ -2954,182 +3010,182 @@
 (929 methods #f #f ())
 (930 methods #f #f ())
 (931 methods #f #f ())
-(932 #f 931 25 ())
+(932 methods #f #f ())
 (933 methods #f #f ())
-(934 methods #f #f ())
+(934 #f 933 25 ())
 (935 methods #f #f ())
 (936 methods #f #f ())
 (937 methods #f #f ())
 (938 methods #f #f ())
-(939 #f 938 25 ())
+(939 methods #f #f ())
 (940 methods #f #f ())
-(941 methods #f #f ())
+(941 #f 940 25 ())
 (942 methods #f #f ())
 (943 methods #f #f ())
-(944 #f 943 11 ())
+(944 methods #f #f ())
 (945 methods #f #f ())
-(946 simple-type-superiors 945 7 ())
+(946 #f 945 11 ())
 (947 methods #f #f ())
-(948 simple-type-predicate 947 7 ())
+(948 simple-type-superiors 947 7 ())
 (949 methods #f #f ())
-(950 simple-type-priority 949 7 ())
+(950 simple-type-predicate 949 7 ())
 (951 methods #f #f ())
-(952 simple-type-id 951 7 ())
+(952 simple-type-priority 951 7 ())
 (953 methods #f #f ())
-(954 really-make-simple-type 953 7 ())
+(954 simple-type-id 953 7 ())
 (955 methods #f #f ())
-(956 methods #f #f ())
-(957 simple-type? 956 7 ())
+(956 really-make-simple-type 955 7 ())
+(957 methods #f #f ())
 (958 methods #f #f ())
-(959 %type-priority 958 7 ())
+(959 simple-type? 958 7 ())
 (960 methods #f #f ())
-(961 compute-priority 960 7 ())
+(961 %type-priority 960 7 ())
 (962 methods #f #f ())
-(963 make-simple-type 962 7 ())
+(963 compute-priority 962 7 ())
 (964 methods #f #f ())
-(965 %type-predicate 964 7 ())
+(965 make-simple-type 964 7 ())
 (966 methods #f #f ())
-(967 %same-type? 966 7 ())
+(967 %type-predicate 966 7 ())
 (968 methods #f #f ())
-(969 value? 968 7 ())
+(969 %same-type? 968 7 ())
 (970 methods #f #f ())
-(971 method-info? 970 7 ())
+(971 value? 970 7 ())
 (972 methods #f #f ())
-(973 make-method-info 972 7 ())
+(973 method-info? 972 7 ())
 (974 methods #f #f ())
-(975 empty-method-list 974 7 ())
+(975 make-method-info 974 7 ())
 (976 methods #f #f ())
-(977 more-specific-type? 976 7 ())
+(977 empty-method-list 976 7 ())
 (978 methods #f #f ())
-(979 more-specific? 978 7 ())
-(980 loop 979 148 ())
-(981 methods #f #f ())
-(982 every2 981 7 ())
+(979 more-specific-type? 978 7 ())
+(980 methods #f #f ())
+(981 more-specific? 980 7 ())
+(982 loop 981 148 ())
 (983 methods #f #f ())
-(984 same-applicability? 983 7 ())
+(984 every2 983 7 ())
 (985 methods #f #f ())
-(986 insert-method 985 7 ())
-(987 recur 986 18 ())
-(988 methods #f #f ())
-(989 method-table? 988 7 ())
+(986 same-applicability? 985 7 ())
+(987 methods #f #f ())
+(988 insert-method 987 7 ())
+(989 recur 988 18 ())
 (990 methods #f #f ())
-(991 last-action 990 7 ())
-(992 #f 991 6 ())
-(993 methods #f #f ())
-(994 one-action 993 7 ())
-(995 #f 994 6 ())
-(996 #f 995 20 ())
-(997 methods #f #f ())
-(998 check-for-next 997 7 ())
-(999 #f 998 6 ())
-(1000 methods #f #f ())
-(1001 check-next 1000 7 ())
-(1002 #f 1001 6 ())
-(1003 methods #f #f ())
-(1004 argument-sequence-predicate 1003 7 ())
-(1005 recur 1004 27 ())
-(1006 methods #f #f ())
-(1007 methods->perform 1006 7 ())
-(1008 recur 1007 18 ())
-(1009 methods #f #f ())
-(1010 add-to-method-table! 1009 7 ())
+(991 method-table? 990 7 ())
+(992 methods #f #f ())
+(993 last-action 992 7 ())
+(994 #f 993 6 ())
+(995 methods #f #f ())
+(996 one-action 995 7 ())
+(997 #f 996 6 ())
+(998 #f 997 20 ())
+(999 methods #f #f ())
+(1000 check-for-next 999 7 ())
+(1001 #f 1000 6 ())
+(1002 methods #f #f ())
+(1003 check-next 1002 7 ())
+(1004 #f 1003 6 ())
+(1005 methods #f #f ())
+(1006 argument-sequence-predicate 1005 7 ())
+(1007 recur 1006 27 ())
+(1008 methods #f #f ())
+(1009 methods->perform 1008 7 ())
+(1010 recur 1009 18 ())
 (1011 methods #f #f ())
-(1012 set-final-method! 1011 7 ())
+(1012 add-to-method-table! 1011 7 ())
 (1013 methods #f #f ())
-(1014 make-cell-for-generic 1013 7 ())
-(1015 #f 1014 8 ())
-(1016 #f 1014 13 ())
-(1017 #f 1014 18 ())
-(1018 methods #f #f ())
-(1019 make-method-table 1018 7 ())
-(1020 #f 1019 53 ())
-(1021 #f 1019 79 ())
-(1022 methods #f #f ())
-(1023 apply-generic 1022 7 ())
+(1014 set-final-method! 1013 7 ())
+(1015 methods #f #f ())
+(1016 make-cell-for-generic 1015 7 ())
+(1017 #f 1016 8 ())
+(1018 #f 1016 13 ())
+(1019 #f 1016 18 ())
+(1020 methods #f #f ())
+(1021 make-method-table 1020 7 ())
+(1022 #f 1021 53 ())
+(1023 #f 1021 79 ())
 (1024 methods #f #f ())
-(1025 compare-to 1024 7 ())
-(1026 #f 1025 6 ())
-(1027 methods #f #f ())
-(1028 proc->discloser 1027 7 ())
-(1029 #f 1028 6 ())
-(1030 #f 1029 6 ())
-(1031 methods #f #f ())
-(1032 number-i/o #f #f ())
-(1033 string->integer 1032 24 ())
-(1034 do-it 1032 33 ())
-(1035 loop 1034 40 ())
-(1036 digit->integer 1032 42 ())
-(1037 number-i/o #f #f ())
-(1038 set-exactness 1037 7 ())
+(1025 apply-generic 1024 7 ())
+(1026 methods #f #f ())
+(1027 compare-to 1026 7 ())
+(1028 #f 1027 6 ())
+(1029 methods #f #f ())
+(1030 proc->discloser 1029 7 ())
+(1031 #f 1030 6 ())
+(1032 #f 1031 6 ())
+(1033 methods #f #f ())
+(1034 number-i/o #f #f ())
+(1035 string->integer 1034 24 ())
+(1036 do-it 1034 33 ())
+(1037 loop 1036 40 ())
+(1038 digit->integer 1034 42 ())
 (1039 number-i/o #f #f ())
-(1040 &really-string->number 1039 60 ())
+(1040 set-exactness 1039 7 ())
 (1041 number-i/o #f #f ())
-(1042 #f 1041 25 ())
-(1043 loop 1042 31 ())
-(1044 number-i/o #f #f ())
-(1045 &really-string->number 1044 60 ())
+(1042 &really-string->number 1041 60 ())
+(1043 number-i/o #f #f ())
+(1044 #f 1043 25 ())
+(1045 loop 1044 31 ())
 (1046 number-i/o #f #f ())
-(1047 number-i/o #f #f ())
+(1047 &really-string->number 1046 60 ())
 (1048 number-i/o #f #f ())
-(1049 string->number 1048 7 ())
-(1050 loop 1049 285 ())
-(1051 radix-is 1050 55 ())
-(1052 exactness-is 1050 60 ())
-(1053 loop 1050 300 ())
-(1054 number-i/o #f #f ())
-(1055 integer->string 1054 22 ())
-(1056 recur 1055 52 ())
-(1057 integer->digit 1054 31 ())
-(1058 number-i/o #f #f ())
-(1059 &number->string 1058 56 ())
+(1049 number-i/o #f #f ())
+(1050 number-i/o #f #f ())
+(1051 string->number 1050 7 ())
+(1052 loop 1051 281 ())
+(1053 radix-is 1052 55 ())
+(1054 exactness-is 1052 60 ())
+(1055 loop 1052 296 ())
+(1056 number-i/o #f #f ())
+(1057 integer->string 1056 22 ())
+(1058 recur 1057 52 ())
+(1059 integer->digit 1056 31 ())
 (1060 number-i/o #f #f ())
 (1061 &number->string 1060 56 ())
 (1062 number-i/o #f #f ())
-(1063 number->string 1062 7 ())
+(1063 &number->string 1062 56 ())
 (1064 number-i/o #f #f ())
-(1065 number-i/o #f #f ())
-(1066 fluids #f #f ())
-(1067 fluids #f #f ())
-(1068 set-fluid-top-level-value! 1067 7 ())
-(1069 fluids #f #f ())
-(1070 fluid-top-level-value 1069 7 ())
-(1071 fluids #f #f ())
-(1072 make-fluid 1071 7 ())
-(1073 fluids #f #f ())
+(1065 number->string 1064 7 ())
+(1066 number-i/o #f #f ())
+(1067 number-i/o #f #f ())
+(1068 fluids #f #f ())
+(1069 set-fluid-top-level-value! 1068 7 ())
+(1070 fluids #f #f ())
+(1071 fluid-top-level-value 1070 7 ())
+(1072 fluids #f #f ())
+(1073 make-fluid 1072 7 ())
 (1074 fluids #f #f ())
-(1075 thread-dynamic-env 1074 7 ())
-(1076 fluids #f #f ())
-(1077 thread-dynamic-point 1076 7 ())
-(1078 fluids #f #f ())
-(1079 make-thread 1078 7 ())
-(1080 fluids #f #f ())
+(1075 fluids #f #f ())
+(1076 thread-dynamic-env 1075 7 ())
+(1077 fluids #f #f ())
+(1078 thread-dynamic-point 1077 7 ())
+(1079 fluids #f #f ())
+(1080 make-thread 1079 7 ())
 (1081 fluids #f #f ())
-(1082 get-dynamic-env 1081 7 ())
-(1083 fluids #f #f ())
-(1084 set-dynamic-env! 1083 7 ())
-(1085 fluids #f #f ())
-(1086 get-dynamic-point 1085 7 ())
-(1087 fluids #f #f ())
-(1088 set-dynamic-point! 1087 7 ())
-(1089 fluids #f #f ())
-(1090 empty-dynamic-env 1089 7 ())
-(1091 fluids #f #f ())
-(1092 initialize-dynamic-state! 1091 7 ())
+(1082 fluids #f #f ())
+(1083 get-dynamic-env 1082 7 ())
+(1084 fluids #f #f ())
+(1085 set-dynamic-env! 1084 7 ())
+(1086 fluids #f #f ())
+(1087 get-dynamic-point 1086 7 ())
+(1088 fluids #f #f ())
+(1089 set-dynamic-point! 1088 7 ())
+(1090 fluids #f #f ())
+(1091 with-dynamic-env 1090 7 ())
+(1092 #f 1091 33 ())
 (1093 fluids #f #f ())
-(1094 with-dynamic-env 1093 7 ())
-(1095 #f 1094 38 ())
-(1096 fluids #f #f ())
-(1097 fluid 1096 7 ())
-(1098 fluids #f #f ())
-(1099 set-fluid! 1098 7 ())
-(1100 fluids #f #f ())
-(1101 let-fluid 1100 7 ())
-(1102 fluids #f #f ())
-(1103 let-fluids 1102 7 ())
-(1104 loop 1103 30 ())
-(1105 enumerated #f #f ())
-(1106 lookup-enumerand 1105 7 ())
-(1107 loop 1106 27 ())
+(1094 empty-dynamic-env 1093 7 ())
+(1095 fluids #f #f ())
+(1096 fluid 1095 7 ())
+(1097 fluids #f #f ())
+(1098 set-fluid! 1097 7 ())
+(1099 fluids #f #f ())
+(1100 let-fluid 1099 7 ())
+(1101 fluids #f #f ())
+(1102 let-fluids 1101 7 ())
+(1103 loop 1102 28 ())
+(1104 enumerated #f #f ())
+(1105 lookup-enumerand 1104 7 ())
+(1106 loop 1105 27 ())
+(1107 architecture #f #f ())
 (1108 architecture #f #f ())
 (1109 architecture #f #f ())
 (1110 architecture #f #f ())
@@ -3152,8 +3208,8 @@
 (1127 architecture #f #f ())
 (1128 architecture #f #f ())
 (1129 architecture #f #f ())
-(1130 architecture #f #f ())
-(1131 next-protocol 1130 7 ())
+(1130 next-protocol 1129 7 ())
+(1131 architecture #f #f ())
 (1132 architecture #f #f ())
 (1133 architecture #f #f ())
 (1134 architecture #f #f ())
@@ -3167,54 +3223,54 @@
 (1142 architecture #f #f ())
 (1143 architecture #f #f ())
 (1144 architecture #f #f ())
-(1145 architecture #f #f ())
-(1146 queues #f #f ())
-(1147 queue-uid 1146 7 ())
-(1148 queues #f #f ())
-(1149 set-queue-head! 1148 7 ())
-(1150 queues #f #f ())
-(1151 queue-head 1150 7 ())
-(1152 queues #f #f ())
-(1153 set-queue-tail! 1152 7 ())
-(1154 queues #f #f ())
-(1155 queue-tail 1154 7 ())
-(1156 queues #f #f ())
-(1157 really-make-queue 1156 7 ())
+(1145 queues #f #f ())
+(1146 queue-uid 1145 7 ())
+(1147 queues #f #f ())
+(1148 set-queue-head! 1147 7 ())
+(1149 queues #f #f ())
+(1150 queue-head 1149 7 ())
+(1151 queues #f #f ())
+(1152 set-queue-tail! 1151 7 ())
+(1153 queues #f #f ())
+(1154 queue-tail 1153 7 ())
+(1155 queues #f #f ())
+(1156 really-make-queue 1155 7 ())
+(1157 queues #f #f ())
 (1158 queues #f #f ())
-(1159 queues #f #f ())
-(1160 queue? 1159 7 ())
-(1161 queues #f #f ())
-(1162 make-queue 1161 7 ())
-(1163 queues #f #f ())
-(1164 queue-empty? 1163 7 ())
-(1165 queues #f #f ())
-(1166 enqueue! 1165 7 ())
-(1167 queues #f #f ())
-(1168 queue-front 1167 7 ())
-(1169 queues #f #f ())
-(1170 dequeue! 1169 7 ())
-(1171 queues #f #f ())
-(1172 on-queue? 1171 7 ())
-(1173 queues #f #f ())
-(1174 delete-from-queue-if! 1173 7 ())
-(1175 loop 1174 130 ())
-(1176 queues #f #f ())
-(1177 delete-from-queue! 1176 7 ())
-(1178 #f 1177 9 ())
-(1179 queues #f #f ())
-(1180 queue->list 1179 7 ())
-(1181 #f 1180 6 ())
-(1182 queues #f #f ())
-(1183 queue-length 1182 7 ())
-(1184 queues #f #f ())
+(1159 queue? 1158 7 ())
+(1160 queues #f #f ())
+(1161 make-queue 1160 7 ())
+(1162 queues #f #f ())
+(1163 queue-empty? 1162 7 ())
+(1164 queues #f #f ())
+(1165 enqueue! 1164 7 ())
+(1166 queues #f #f ())
+(1167 queue-front 1166 7 ())
+(1168 queues #f #f ())
+(1169 dequeue! 1168 7 ())
+(1170 queues #f #f ())
+(1171 on-queue? 1170 7 ())
+(1172 queues #f #f ())
+(1173 delete-from-queue-if! 1172 7 ())
+(1174 loop 1173 130 ())
+(1175 queues #f #f ())
+(1176 delete-from-queue! 1175 7 ())
+(1177 #f 1176 9 ())
+(1178 queues #f #f ())
+(1179 queue->list 1178 7 ())
+(1180 #f 1179 6 ())
+(1181 queues #f #f ())
+(1182 queue-length 1181 7 ())
+(1183 queues #f #f ())
+(1184 conditions #f #f ())
 (1185 conditions #f #f ())
 (1186 conditions #f #f ())
 (1187 conditions #f #f ())
 (1188 conditions #f #f ())
 (1189 conditions #f #f ())
 (1190 conditions #f #f ())
-(1191 conditions #f #f ())
-(1192 make-exception 1191 7 ())
+(1191 make-exception 1190 7 ())
+(1192 conditions #f #f ())
 (1193 conditions #f #f ())
 (1194 conditions #f #f ())
 (1195 conditions #f #f ())
@@ -3228,3173 +3284,3292 @@
 (1203 conditions #f #f ())
 (1204 conditions #f #f ())
 (1205 conditions #f #f ())
-(1206 conditions #f #f ())
-(1207 condition? 1206 7 ())
-(1208 conditions #f #f ())
-(1209 condition-predicate 1208 7 ())
-(1210 #f 1209 6 ())
-(1211 conditions #f #f ())
-(1212 define-condition-type 1211 7 ())
-(1213 #f 1212 17 ())
-(1214 conditions #f #f ())
-(1215 condition-supertypes 1214 7 ())
-(1216 conditions #f #f ())
-(1217 session-data #f #f ())
-(1218 make-session-data-slot! 1217 7 ())
-(1219 session-data #f #f ())
-(1220 session-data-ref 1219 7 ())
-(1221 session-data #f #f ())
-(1222 session-data-set! 1221 7 ())
-(1223 session-data #f #f ())
-(1224 initialize-session-data! 1223 7 ())
-(1225 session-data #f #f ())
-(1226 interrupts #f #f ())
-(1227 #f 1226 11 ())
+(1206 condition? 1205 7 ())
+(1207 conditions #f #f ())
+(1208 condition-predicate 1207 7 ())
+(1209 #f 1208 6 ())
+(1210 conditions #f #f ())
+(1211 define-condition-type 1210 7 ())
+(1212 #f 1211 17 ())
+(1213 conditions #f #f ())
+(1214 condition-supertypes 1213 7 ())
+(1215 conditions #f #f ())
+(1216 session-data #f #f ())
+(1217 make-session-data-slot! 1216 7 ())
+(1218 session-data #f #f ())
+(1219 session-data-ref 1218 7 ())
+(1220 session-data #f #f ())
+(1221 session-data-set! 1220 7 ())
+(1222 session-data #f #f ())
+(1223 initialize-session-data! 1222 7 ())
+(1224 session-data #f #f ())
+(1225 interrupts #f #f ())
+(1226 #f 1225 11 ())
+(1227 interrupts #f #f ())
 (1228 interrupts #f #f ())
 (1229 interrupts #f #f ())
 (1230 interrupts #f #f ())
-(1231 interrupts #f #f ())
-(1232 enabled-interrupts 1231 7 ())
-(1233 interrupts #f #f ())
-(1234 post-gc-handler 1233 7 ())
-(1235 #f 1234 6 ())
-(1236 #f 1235 42 ())
-(1237 #f 1235 58 ())
-(1238 #f 1237 7 ())
-(1239 #f 1237 21 ())
-(1240 interrupts #f #f ())
-(1241 initialize-interrupts! 1240 7 ())
-(1242 #f 1241 6 ())
-(1243 loop##72 1242 32 ())
-(1244 #f 1243 32 ())
-(1245 #f 1242 78 ())
-(1246 #f 1245 11 ())
-(1247 interrupts #f #f ())
-(1248 set-interrupt-handler! 1247 7 ())
-(1249 interrupts #f #f ())
-(1250 with-interrupts 1249 7 ())
-(1251 #f 1250 13 ())
-(1252 interrupts #f #f ())
-(1253 with-interrupts-inhibited 1252 7 ())
-(1254 interrupts #f #f ())
-(1255 with-interrupts-allowed 1254 7 ())
-(1256 interrupts #f #f ())
-(1257 disable-interrupts! 1256 7 ())
-(1258 interrupts #f #f ())
-(1259 enable-interrupts! 1258 7 ())
-(1260 interrupts #f #f ())
-(1261 call-after-gc! 1260 7 ())
-(1262 interrupts #f #f ())
-(1263 call-before-heap-overflow! 1262 7 ())
+(1231 enabled-interrupts 1230 7 ())
+(1232 interrupts #f #f ())
+(1233 post-gc-handler 1232 7 ())
+(1234 #f 1233 6 ())
+(1235 #f 1234 36 ())
+(1236 #f 1234 52 ())
+(1237 #f 1236 7 ())
+(1238 #f 1236 21 ())
+(1239 interrupts #f #f ())
+(1240 initialize-interrupts! 1239 7 ())
+(1241 #f 1240 6 ())
+(1242 loop##73 1241 32 ())
+(1243 #f 1242 32 ())
+(1244 #f 1241 78 ())
+(1245 #f 1244 11 ())
+(1246 interrupts #f #f ())
+(1247 set-interrupt-handler! 1246 7 ())
+(1248 interrupts #f #f ())
+(1249 with-interrupts 1248 7 ())
+(1250 #f 1249 13 ())
+(1251 interrupts #f #f ())
+(1252 with-interrupts-inhibited 1251 7 ())
+(1253 interrupts #f #f ())
+(1254 with-interrupts-allowed 1253 7 ())
+(1255 interrupts #f #f ())
+(1256 disable-interrupts! 1255 7 ())
+(1257 interrupts #f #f ())
+(1258 enable-interrupts! 1257 7 ())
+(1259 interrupts #f #f ())
+(1260 call-after-gc! 1259 7 ())
+(1261 interrupts #f #f ())
+(1262 call-before-heap-overflow! 1261 7 ())
+(1263 interrupts #f #f ())
 (1264 interrupts #f #f ())
-(1265 interrupts #f #f ())
-(1266 wind #f #f ())
-(1267 point-depth 1266 7 ())
-(1268 wind #f #f ())
-(1269 point-in 1268 7 ())
-(1270 wind #f #f ())
-(1271 point-out 1270 7 ())
-(1272 wind #f #f ())
-(1273 point-dynamic-env 1272 7 ())
-(1274 wind #f #f ())
-(1275 point-parent 1274 7 ())
-(1276 wind #f #f ())
-(1277 make-point 1276 7 ())
+(1265 wind #f #f ())
+(1266 point-depth 1265 7 ())
+(1267 wind #f #f ())
+(1268 point-in 1267 7 ())
+(1269 wind #f #f ())
+(1270 point-out 1269 7 ())
+(1271 wind #f #f ())
+(1272 point-dynamic-env 1271 7 ())
+(1273 wind #f #f ())
+(1274 point-parent 1273 7 ())
+(1275 wind #f #f ())
+(1276 make-point 1275 7 ())
+(1277 wind #f #f ())
 (1278 wind #f #f ())
-(1279 wind #f #f ())
-(1280 dynamic-wind 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 ())
-(1290 templates #f #f ())
-(1291 template-code 1290 7 ())
-(1292 templates #f #f ())
-(1293 template-info 1292 7 ())
-(1294 templates #f #f ())
-(1295 set-template-code! 1294 7 ())
-(1296 templates #f #f ())
-(1297 set-template-info! 1296 7 ())
-(1298 templates #f #f ())
-(1299 more-types #f #f ())
-(1300 &disclose 1299 48 ())
-(1301 more-types #f #f ())
-(1302 more-types #f #f ())
-(1303 &disclose 1302 52 ())
-(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 ())
-(1312 continuations #f #f ())
-(1313 &disclose 1312 48 ())
-(1314 continuations #f #f ())
-(1315 continuations #f #f ())
-(1316 continuations #f #f ())
-(1317 continuation-cont 1316 7 ())
-(1318 continuations #f #f ())
-(1319 real-continuation-pc 1318 7 ())
-(1320 continuations #f #f ())
-(1321 real-continuation-template 1320 7 ())
-(1322 continuations #f #f ())
-(1323 continuation-env 1322 7 ())
-(1324 continuations #f #f ())
-(1325 exception-continuation-pc 1324 7 ())
-(1326 continuations #f #f ())
-(1327 exception-continuation-template 1326 7 ())
-(1328 continuations #f #f ())
-(1329 exception-continuation-exception 1328 7 ())
-(1330 continuations #f #f ())
-(1331 exception-continuation? 1330 7 ())
-(1332 continuations #f #f ())
-(1333 continuation-pc 1332 7 ())
-(1334 continuations #f #f ())
-(1335 continuation-template 1334 7 ())
-(1336 continuations #f #f ())
-(1337 continuation-arg 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 ())
-(1344 exceptions #f #f ())
-(1345 &disclose 1344 48 ())
-(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 ())
-(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 ())
-(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 ())
-(1378 exceptions #f #f ())
-(1379 #f 1378 11 ())
-(1380 exceptions #f #f ())
-(1381 exceptions #f #f ())
-(1382 signal-exception 1381 7 ())
+(1279 dynamic-wind 1278 7 ())
+(1280 wind #f #f ())
+(1281 travel-to-point! 1280 7 ())
+(1282 wind #f #f ())
+(1283 continuation->procedure 1282 7 ())
+(1284 #f 1283 6 ())
+(1285 #f 1284 52 ())
+(1286 wind #f #f ())
+(1287 call-with-current-continuation 1286 7 ())
+(1288 #f 1287 6 ())
+(1289 thread-cells #f #f ())
+(1290 thread-cells #f #f ())
+(1291 set-thread-cell-top-level-value! 1290 7 ())
+(1292 thread-cells #f #f ())
+(1293 thread-cell-top-level-value 1292 7 ())
+(1294 thread-cells #f #f ())
+(1295 make-thread-cell 1294 7 ())
+(1296 thread-cells #f #f ())
+(1297 thread-cells #f #f ())
+(1298 thread-dynamic-env 1297 7 ())
+(1299 thread-cells #f #f ())
+(1300 thread-dynamic-point 1299 7 ())
+(1301 thread-cells #f #f ())
+(1302 set-thread-cell-values! 1301 7 ())
+(1303 thread-cells #f #f ())
+(1304 thread-cell-values 1303 7 ())
+(1305 thread-cells #f #f ())
+(1306 set-thread-own-values?! 1305 7 ())
+(1307 thread-cells #f #f ())
+(1308 thread-own-cell-values? 1307 7 ())
+(1309 thread-cells #f #f ())
+(1310 make-thread 1309 7 ())
+(1311 thread-cells #f #f ())
+(1312 thread-cells #f #f ())
+(1313 empty-cell-values 1312 7 ())
+(1314 thread-cells #f #f ())
+(1315 get-cell-values 1314 7 ())
+(1316 thread-cells #f #f ())
+(1317 set-cell-values! 1316 7 ())
+(1318 thread-cells #f #f ())
+(1319 get-own-cell-values? 1318 7 ())
+(1320 thread-cells #f #f ())
+(1321 set-own-cell-values? 1320 7 ())
+(1322 thread-cells #f #f ())
+(1323 thread-cell-ref 1322 7 ())
+(1324 thread-cells #f #f ())
+(1325 thread-cell-set! 1324 7 ())
+(1326 loop 1325 49 ())
+(1327 thread-cells #f #f ())
+(1328 initialize-dynamic-state! 1327 7 ())
+(1329 templates #f #f ())
+(1330 template-code 1329 7 ())
+(1331 templates #f #f ())
+(1332 template-info 1331 7 ())
+(1333 templates #f #f ())
+(1334 set-template-code! 1333 7 ())
+(1335 templates #f #f ())
+(1336 set-template-info! 1335 7 ())
+(1337 templates #f #f ())
+(1338 more-types #f #f ())
+(1339 &disclose 1338 48 ())
+(1340 more-types #f #f ())
+(1341 more-types #f #f ())
+(1342 &disclose 1341 52 ())
+(1343 more-types #f #f ())
+(1344 more-types #f #f ())
+(1345 more-types #f #f ())
+(1346 more-types #f #f ())
+(1347 more-types #f #f ())
+(1348 more-types #f #f ())
+(1349 more-types #f #f ())
+(1350 more-types #f #f ())
+(1351 continuations #f #f ())
+(1352 &disclose 1351 48 ())
+(1353 continuations #f #f ())
+(1354 continuations #f #f ())
+(1355 continuations #f #f ())
+(1356 continuation-cont 1355 7 ())
+(1357 continuations #f #f ())
+(1358 real-continuation-pc 1357 7 ())
+(1359 continuations #f #f ())
+(1360 real-continuation-template 1359 7 ())
+(1361 continuations #f #f ())
+(1362 continuation-env 1361 7 ())
+(1363 continuations #f #f ())
+(1364 exception-continuation-pc 1363 7 ())
+(1365 continuations #f #f ())
+(1366 exception-continuation-template 1365 7 ())
+(1367 continuations #f #f ())
+(1368 exception-continuation-exception 1367 7 ())
+(1369 continuations #f #f ())
+(1370 exception-continuation? 1369 7 ())
+(1371 continuations #f #f ())
+(1372 continuation-pc 1371 7 ())
+(1373 continuations #f #f ())
+(1374 continuation-template 1373 7 ())
+(1375 continuations #f #f ())
+(1376 continuation-arg 1375 7 ())
+(1377 continuations #f #f ())
+(1378 continuation-arg-count 1377 7 ())
+(1379 continuations #f #f ())
+(1380 continuation-parent 1379 7 ())
+(1381 loop 1380 105 ())
+(1382 continuations #f #f ())
 (1383 exceptions #f #f ())
-(1384 define-exception-handler 1383 7 ())
-(1385 threads #f #f ())
-(1386 threads #f #f ())
-(1387 threads #f #f ())
-(1388 threads #f #f ())
-(1389 threads #f #f ())
-(1390 threads #f #f ())
-(1391 threads #f #f ())
-(1392 threads #f #f ())
-(1393 threads #f #f ())
-(1394 threads #f #f ())
-(1395 #f 1394 11 ())
-(1396 threads #f #f ())
-(1397 thread-dynamic-env 1396 7 ())
-(1398 threads #f #f ())
-(1399 set-thread-dynamic-point! 1398 7 ())
-(1400 threads #f #f ())
-(1401 thread-dynamic-point 1400 7 ())
-(1402 threads #f #f ())
-(1403 set-thread-continuation! 1402 7 ())
-(1404 threads #f #f ())
-(1405 thread-continuation 1404 7 ())
-(1406 threads #f #f ())
-(1407 set-thread-queue! 1406 7 ())
-(1408 threads #f #f ())
-(1409 thread-queue 1408 7 ())
-(1410 threads #f #f ())
-(1411 set-thread-arguments! 1410 7 ())
-(1412 threads #f #f ())
-(1413 thread-arguments 1412 7 ())
-(1414 threads #f #f ())
-(1415 set-thread-time! 1414 7 ())
-(1416 threads #f #f ())
-(1417 thread-time 1416 7 ())
-(1418 threads #f #f ())
-(1419 set-thread-scheduler! 1418 7 ())
-(1420 threads #f #f ())
-(1421 thread-scheduler 1420 7 ())
-(1422 threads #f #f ())
-(1423 set-thread-data! 1422 7 ())
+(1384 &disclose 1383 48 ())
+(1385 exceptions #f #f ())
+(1386 &disclose 1385 52 ())
+(1387 exceptions #f #f ())
+(1388 report-errors-as-warnings 1387 7 ())
+(1389 #f 1388 12 ())
+(1390 exceptions #f #f ())
+(1391 ignore-errors 1390 7 ())
+(1392 #f 1391 6 ())
+(1393 #f 1392 6 ())
+(1394 exceptions #f #f ())
+(1395 continuation-preview 1394 7 ())
+(1396 exceptions #f #f ())
+(1397 report-utter-lossage 1396 7 ())
+(1398 #f 1397 183 ())
+(1399 exceptions #f #f ())
+(1400 last-resort-condition-handler 1399 7 ())
+(1401 #f 1400 15 ())
+(1402 #f 1401 23 ())
+(1403 exceptions #f #f ())
+(1404 initialize-exceptions! 1403 7 ())
+(1405 #f 1404 6 ())
+(1406 exceptions #f #f ())
+(1407 exceptions #f #f ())
+(1408 with-handler 1407 7 ())
+(1409 exceptions #f #f ())
+(1410 really-signal-condition 1409 7 ())
+(1411 loop 1410 29 ())
+(1412 #f 1411 9 ())
+(1413 exceptions #f #f ())
+(1414 extend-opcode! 1413 7 ())
+(1415 except 1414 6 ())
+(1416 #f 1414 32 ())
+(1417 exceptions #f #f ())
+(1418 #f 1417 11 ())
+(1419 exceptions #f #f ())
+(1420 exceptions #f #f ())
+(1421 signal-exception 1420 7 ())
+(1422 exceptions #f #f ())
+(1423 define-exception-handler 1422 7 ())
 (1424 threads #f #f ())
-(1425 thread-data 1424 7 ())
+(1425 threads #f #f ())
 (1426 threads #f #f ())
-(1427 set-thread-events! 1426 7 ())
+(1427 threads #f #f ())
 (1428 threads #f #f ())
-(1429 thread-events 1428 7 ())
+(1429 threads #f #f ())
 (1430 threads #f #f ())
-(1431 set-thread-current-task! 1430 7 ())
+(1431 threads #f #f ())
 (1432 threads #f #f ())
-(1433 thread-current-task 1432 7 ())
-(1434 threads #f #f ())
-(1435 thread-uid 1434 7 ())
-(1436 threads #f #f ())
-(1437 thread-name 1436 7 ())
-(1438 threads #f #f ())
-(1439 really-make-thread 1438 7 ())
-(1440 threads #f #f ())
+(1433 threads #f #f ())
+(1434 #f 1433 11 ())
+(1435 threads #f #f ())
+(1436 thread-dynamic-env 1435 7 ())
+(1437 threads #f #f ())
+(1438 set-thread-dynamic-point! 1437 7 ())
+(1439 threads #f #f ())
+(1440 thread-dynamic-point 1439 7 ())
 (1441 threads #f #f ())
-(1442 thread? 1441 7 ())
+(1442 set-thread-cell-values! 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 ())
+(1444 thread-cell-values 1443 7 ())
+(1445 threads #f #f ())
+(1446 set-thread-own-values?! 1445 7 ())
+(1447 threads #f #f ())
+(1448 thread-own-cell-values? 1447 7 ())
 (1449 threads #f #f ())
-(1450 thunk->continuation 1449 7 ())
+(1450 set-thread-continuation! 1449 7 ())
 (1451 threads #f #f ())
-(1452 interrupt-timer-time 1451 7 ())
+(1452 thread-continuation 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 ())
+(1454 set-thread-queue! 1453 7 ())
+(1455 threads #f #f ())
+(1456 thread-queue 1455 7 ())
+(1457 threads #f #f ())
+(1458 set-thread-arguments! 1457 7 ())
 (1459 threads #f #f ())
-(1460 switch-to-thread 1459 7 ())
-(1461 #f 1460 6 ())
-(1462 threads #f #f ())
-(1463 suspend-to 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 ())
-(1470 threads #f #f ())
-(1471 make-thread 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 ())
+(1460 thread-arguments 1459 7 ())
+(1461 threads #f #f ())
+(1462 set-thread-time! 1461 7 ())
+(1463 threads #f #f ())
+(1464 thread-time 1463 7 ())
+(1465 threads #f #f ())
+(1466 set-thread-scheduler! 1465 7 ())
+(1467 threads #f #f ())
+(1468 thread-scheduler 1467 7 ())
+(1469 threads #f #f ())
+(1470 set-thread-data! 1469 7 ())
+(1471 threads #f #f ())
+(1472 thread-data 1471 7 ())
+(1473 threads #f #f ())
+(1474 set-thread-events! 1473 7 ())
+(1475 threads #f #f ())
+(1476 thread-events 1475 7 ())
 (1477 threads #f #f ())
-(1478 add-event! 1477 7 ())
+(1478 set-thread-current-task! 1477 7 ())
 (1479 threads #f #f ())
-(1480 enqueue-thread! 1479 7 ())
+(1480 thread-current-task 1479 7 ())
 (1481 threads #f #f ())
-(1482 dequeue-thread! 1481 7 ())
+(1482 thread-uid 1481 7 ())
 (1483 threads #f #f ())
-(1484 remove-thread-from-queue! 1483 7 ())
+(1484 thread-name 1483 7 ())
 (1485 threads #f #f ())
-(1486 event-pending? 1485 7 ())
+(1486 really-make-thread 1485 7 ())
 (1487 threads #f #f ())
-(1488 min 1487 7 ())
-(1489 threads #f #f ())
-(1490 schedule-interrupt! 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 ())
+(1488 threads #f #f ())
+(1489 thread? 1488 7 ())
+(1490 threads #f #f ())
+(1491 compose-continuation 1490 7 ())
+(1492 #f 1491 6 ())
+(1493 #f 1492 27 ())
+(1494 #f 1493 10 ())
+(1495 #f 1494 9 ())
 (1496 threads #f #f ())
-(1497 find-and-run-next-thread 1496 7 ())
-(1498 loop 1497 35 ())
-(1499 threads #f #f ())
-(1500 run 1499 7 ())
-(1501 threads #f #f ())
-(1502 handle-timer-interrupt 1501 7 ())
+(1497 thunk->continuation 1496 7 ())
+(1498 threads #f #f ())
+(1499 interrupt-timer-time 1498 7 ())
+(1500 threads #f #f ())
+(1501 debit-down! 1500 7 ())
+(1502 loop 1501 28 ())
 (1503 threads #f #f ())
-(1504 exit 1503 7 ())
-(1505 threads #f #f ())
-(1506 wait 1505 7 ())
-(1507 threads #f #f ())
-(1508 waiting? 1507 7 ())
+(1504 run-thread 1503 7 ())
+(1505 #f 1504 44 ())
+(1506 threads #f #f ())
+(1507 switch-to-thread 1506 7 ())
+(1508 #f 1507 6 ())
 (1509 threads #f #f ())
-(1510 block 1509 7 ())
+(1510 suspend-to 1509 7 ())
 (1511 threads #f #f ())
-(1512 relinquish-timeslice 1511 7 ())
+(1512 suspend 1511 7 ())
 (1513 threads #f #f ())
-(1514 running? 1513 7 ())
-(1515 loop 1514 25 ())
-(1516 threads #f #f ())
-(1517 interrupt-thread 1516 7 ())
-(1518 threads #f #f ())
-(1519 propogate-upcall 1518 7 ())
-(1520 #f 1519 62 ())
+(1514 thread-top-level 1513 7 ())
+(1515 thread-start 1514 6 ())
+(1516 #f 1515 3 ())
+(1517 threads #f #f ())
+(1518 make-thread 1517 7 ())
+(1519 threads #f #f ())
+(1520 all-threads 1519 7 ())
 (1521 threads #f #f ())
-(1522 upcall 1521 7 ())
-(1523 threads #f #f ())
-(1524 kill-thread! 1523 7 ())
-(1525 #f 1524 9 ())
+(1522 thread-uid->thread 1521 7 ())
+(1523 loop 1522 27 ())
+(1524 threads #f #f ())
+(1525 add-event! 1524 7 ())
 (1526 threads #f #f ())
-(1527 get-next-event! 1526 7 ())
+(1527 enqueue-thread! 1526 7 ())
 (1528 threads #f #f ())
-(1529 schedule-wakeup 1528 7 ())
+(1529 dequeue-thread! 1528 7 ())
 (1530 threads #f #f ())
-(1531 schedule-event 1530 7 ())
+(1531 remove-thread-from-queue! 1530 7 ())
 (1532 threads #f #f ())
-(1533 show-running 1532 7 ())
-(1534 loop##111 1533 16 ())
-(1535 threads #f #f ())
-(1536 spawn-on-scheduler 1535 7 ())
-(1537 threads #f #f ())
-(1538 spawn 1537 7 ())
-(1539 threads #f #f ())
-(1540 root-scheduler 1539 7 ())
-(1541 threads #f #f ())
-(1542 spawn-on-root 1541 7 ())
+(1533 event-pending? 1532 7 ())
+(1534 threads #f #f ())
+(1535 min 1534 7 ())
+(1536 threads #f #f ())
+(1537 schedule-interrupt! 1536 7 ())
+(1538 threads #f #f ())
+(1539 run-next-thread 1538 7 ())
+(1540 threads #f #f ())
+(1541 debit-thread-times-and-run! 1540 7 ())
+(1542 loop 1541 41 ())
 (1543 threads #f #f ())
-(1544 make-ready 1543 7 ())
-(1545 threads #f #f ())
-(1546 cancel-timer-interrupt! 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 ())
+(1544 find-and-run-next-thread 1543 7 ())
+(1545 loop 1544 35 ())
+(1546 threads #f #f ())
+(1547 run 1546 7 ())
+(1548 threads #f #f ())
+(1549 handle-timer-interrupt 1548 7 ())
+(1550 threads #f #f ())
+(1551 exit 1550 7 ())
+(1552 threads #f #f ())
+(1553 wait 1552 7 ())
+(1554 threads #f #f ())
+(1555 waiting? 1554 7 ())
+(1556 threads #f #f ())
+(1557 block 1556 7 ())
+(1558 threads #f #f ())
+(1559 relinquish-timeslice 1558 7 ())
+(1560 threads #f #f ())
+(1561 running? 1560 7 ())
+(1562 loop 1561 25 ())
 (1563 threads #f #f ())
-(1564 terminate-current-thread 1563 7 ())
+(1564 interrupt-thread 1563 7 ())
 (1565 threads #f #f ())
-(1566 insert 1565 7 ())
-(1567 threads #f #f ())
-(1568 sleep 1567 7 ())
-(1569 #f 1568 71 ())
+(1566 propogate-upcall 1565 7 ())
+(1567 #f 1566 62 ())
+(1568 threads #f #f ())
+(1569 upcall 1568 7 ())
 (1570 threads #f #f ())
-(1571 wake-some-threads 1570 7 ())
-(1572 loop 1571 46 ())
+(1571 kill-thread! 1570 7 ())
+(1572 #f 1571 9 ())
 (1573 threads #f #f ())
-(1574 threads #f #f ())
+(1574 get-next-event! 1573 7 ())
 (1575 threads #f #f ())
-(1576 threads #f #f ())
-(1577 locks #f #f ())
-(1578 set-lock-owner-uid! 1577 7 ())
-(1579 locks #f #f ())
-(1580 lock-owner-uid 1579 7 ())
-(1581 locks #f #f ())
-(1582 lock-queue 1581 7 ())
-(1583 locks #f #f ())
-(1584 lock-uid 1583 7 ())
-(1585 locks #f #f ())
-(1586 really-make-lock 1585 7 ())
-(1587 locks #f #f ())
-(1588 locks #f #f ())
-(1589 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 ())
-(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 ())
-(1610 i/o #f #f ())
-(1611 i/o #f #f ())
-(1612 i/o #f #f ())
-(1613 i/o #f #f ())
-(1614 i/o #f #f ())
-(1615 i/o #f #f ())
-(1616 i/o #f #f ())
-(1617 i/o #f #f ())
-(1618 i/o #f #f ())
-(1619 i/o #f #f ())
-(1620 &disclose 1619 52 ())
-(1621 i/o #f #f ())
-(1622 &disclose 1621 52 ())
-(1623 i/o #f #f ())
-(1624 port-handler-discloser 1623 7 ())
-(1625 i/o #f #f ())
-(1626 port-handler-close 1625 7 ())
-(1627 i/o #f #f ())
-(1628 port-handler-buffer-proc 1627 7 ())
-(1629 i/o #f #f ())
-(1630 port-handler-steal 1629 7 ())
-(1631 i/o #f #f ())
-(1632 really-make-port-handler 1631 7 ())
-(1633 i/o #f #f ())
-(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 ())
-(1639 i/o #f #f ())
-(1640 disclose-port 1639 7 ())
-(1641 i/o #f #f ())
-(1642 obtain-port-lock 1641 7 ())
-(1643 i/o #f #f ())
-(1644 maybe-obtain-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 ())
+(1576 schedule-wakeup 1575 7 ())
+(1577 threads #f #f ())
+(1578 schedule-event 1577 7 ())
+(1579 threads #f #f ())
+(1580 show-running 1579 7 ())
+(1581 loop##127 1580 16 ())
+(1582 threads #f #f ())
+(1583 spawn-on-scheduler 1582 7 ())
+(1584 threads #f #f ())
+(1585 spawn 1584 7 ())
+(1586 threads #f #f ())
+(1587 root-scheduler 1586 7 ())
+(1588 threads #f #f ())
+(1589 spawn-on-root 1588 7 ())
+(1590 threads #f #f ())
+(1591 make-ready 1590 7 ())
+(1592 threads #f #f ())
+(1593 cancel-timer-interrupt! 1592 7 ())
+(1594 threads #f #f ())
+(1595 real-time 1594 7 ())
+(1596 threads #f #f ())
+(1597 start-multitasking 1596 7 ())
+(1598 #f 1597 6 ())
+(1599 #f 1598 6 ())
+(1600 #f 1598 11 ())
+(1601 #f 1600 7 ())
+(1602 #f 1601 6 ())
+(1603 #f 1601 11 ())
+(1604 threads #f #f ())
+(1605 with-threads 1604 7 ())
+(1606 #f 1605 10 ())
+(1607 #f 1606 3 ())
+(1608 #f 1606 8 ())
+(1609 #f 1606 13 ())
+(1610 threads #f #f ())
+(1611 terminate-current-thread 1610 7 ())
+(1612 threads #f #f ())
+(1613 insert 1612 7 ())
+(1614 threads #f #f ())
+(1615 sleep 1614 7 ())
+(1616 #f 1615 71 ())
+(1617 threads #f #f ())
+(1618 wake-some-threads 1617 7 ())
+(1619 loop 1618 46 ())
+(1620 threads #f #f ())
+(1621 threads #f #f ())
+(1622 threads #f #f ())
+(1623 threads #f #f ())
+(1624 locks #f #f ())
+(1625 set-lock-owner-uid! 1624 7 ())
+(1626 locks #f #f ())
+(1627 lock-owner-uid 1626 7 ())
+(1628 locks #f #f ())
+(1629 lock-queue 1628 7 ())
+(1630 locks #f #f ())
+(1631 lock-uid 1630 7 ())
+(1632 locks #f #f ())
+(1633 really-make-lock 1632 7 ())
+(1634 locks #f #f ())
+(1635 locks #f #f ())
+(1636 lock? 1635 7 ())
+(1637 locks #f #f ())
+(1638 make-lock 1637 7 ())
+(1639 locks #f #f ())
+(1640 obtain-lock 1639 7 ())
+(1641 #f 1640 10 ())
+(1642 locks #f #f ())
+(1643 maybe-obtain-lock 1642 7 ())
+(1644 #f 1643 10 ())
+(1645 locks #f #f ())
+(1646 release-lock 1645 7 ())
+(1647 #f 1646 10 ())
+(1648 locks #f #f ())
+(1649 i/o #f #f ())
 (1650 i/o #f #f ())
-(1651 fill-port-buffer! 1650 7 ())
+(1651 i/o #f #f ())
 (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 ())
+(1653 #f 1652 11 ())
+(1654 #f 1652 16 ())
+(1655 #f 1652 21 ())
+(1656 #f 1652 26 ())
+(1657 #f 1652 31 ())
 (1658 i/o #f #f ())
-(1659 empty-port-buffer! 1658 7 ())
+(1659 i/o #f #f ())
 (1660 i/o #f #f ())
-(1661 write-char-handler 1660 7 ())
+(1661 i/o #f #f ())
 (1662 i/o #f #f ())
-(1663 initialize-i/o-handlers! 1662 7 ())
+(1663 i/o #f #f ())
 (1664 i/o #f #f ())
-(1665 open-input-port? 1664 7 ())
+(1665 i/o #f #f ())
 (1666 i/o #f #f ())
-(1667 make-input-port-closed! 1666 7 ())
-(1668 i/o #f #f ())
-(1669 close-input-port 1668 7 ())
-(1670 i/o #f #f ())
-(1671 open-output-port? 1670 7 ())
-(1672 i/o #f #f ())
-(1673 really-force-output 1672 7 ())
-(1674 i/o #f #f ())
-(1675 make-output-port-closed! 1674 7 ())
-(1676 i/o #f #f ())
-(1677 close-output-port 1676 7 ())
-(1678 i/o #f #f ())
-(1679 open-port? 1678 7 ())
-(1680 i/o #f #f ())
-(1681 current-input-port 1680 7 ())
-(1682 i/o #f #f ())
-(1683 input-port-option 1682 7 ())
+(1667 i/o #f #f ())
+(1668 &disclose 1667 52 ())
+(1669 i/o #f #f ())
+(1670 &disclose 1669 52 ())
+(1671 i/o #f #f ())
+(1672 port-handler-discloser 1671 7 ())
+(1673 i/o #f #f ())
+(1674 port-handler-close 1673 7 ())
+(1675 i/o #f #f ())
+(1676 port-handler-buffer-proc 1675 7 ())
+(1677 i/o #f #f ())
+(1678 port-handler-ready? 1677 7 ())
+(1679 i/o #f #f ())
+(1680 port-handler-steal 1679 7 ())
+(1681 i/o #f #f ())
+(1682 really-make-port-handler 1681 7 ())
+(1683 i/o #f #f ())
 (1684 i/o #f #f ())
-(1685 char-ready? 1684 7 ())
+(1685 port-handler? 1684 7 ())
 (1686 i/o #f #f ())
-(1687 real-char-ready? 1686 7 ())
-(1688 i/o #f #f ())
-(1689 okay-limits? 1688 7 ())
-(1690 i/o #f #f ())
-(1691 read-more 1690 7 ())
-(1692 i/o #f #f ())
-(1693 buffer-length 1692 7 ())
-(1694 i/o #f #f ())
-(1695 really-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 ())
-(1701 i/o #f #f ())
-(1702 write-buffered-block 1701 7 ())
-(1703 i/o #f #f ())
-(1704 write-block 1703 7 ())
+(1687 make-port-handler 1686 7 ())
+(1688 #f 1687 56 ())
+(1689 i/o #f #f ())
+(1690 disclose-port 1689 7 ())
+(1691 i/o #f #f ())
+(1692 obtain-port-lock 1691 7 ())
+(1693 i/o #f #f ())
+(1694 maybe-obtain-port-lock 1693 7 ())
+(1695 i/o #f #f ())
+(1696 release-port-lock 1695 7 ())
+(1697 i/o #f #f ())
+(1698 one-arg-proc->handler 1697 7 ())
+(1699 #f 1698 6 ())
+(1700 i/o #f #f ())
+(1701 fill-port-buffer! 1700 7 ())
+(1702 i/o #f #f ())
+(1703 read-char-handler 1702 7 ())
+(1704 #f 1703 6 ())
 (1705 i/o #f #f ())
-(1706 write-string 1705 7 ())
-(1707 i/o #f #f ())
-(1708 force-output 1707 7 ())
-(1709 i/o #f #f ())
-(1710 force-output-if-open 1709 7 ())
-(1711 i/o #f #f ())
-(1712 okay-buffer? 1711 7 ())
-(1713 i/o #f #f ())
-(1714 make-input-port 1713 7 ())
-(1715 i/o #f #f ())
-(1716 make-output-port 1715 7 ())
-(1717 i/o #f #f ())
-(1718 make-unbuffered-output-port 1717 7 ())
-(1719 i/o #f #f ())
-(1720 make-null-output-port 1719 7 ())
-(1721 i/o #f #f ())
-(1722 initialize-output-port-list! 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 ())
+(1706 two-arg-proc->handler 1705 7 ())
+(1707 #f 1706 6 ())
+(1708 i/o #f #f ())
+(1709 empty-port-buffer! 1708 7 ())
+(1710 i/o #f #f ())
+(1711 write-char-handler 1710 7 ())
+(1712 i/o #f #f ())
+(1713 initialize-i/o-handlers! 1712 7 ())
+(1714 i/o #f #f ())
+(1715 open-input-port? 1714 7 ())
+(1716 i/o #f #f ())
+(1717 make-input-port-closed! 1716 7 ())
+(1718 i/o #f #f ())
+(1719 close-input-port 1718 7 ())
+(1720 i/o #f #f ())
+(1721 open-output-port? 1720 7 ())
+(1722 i/o #f #f ())
+(1723 really-force-output 1722 7 ())
+(1724 i/o #f #f ())
+(1725 make-output-port-closed! 1724 7 ())
+(1726 i/o #f #f ())
+(1727 close-output-port 1726 7 ())
+(1728 i/o #f #f ())
+(1729 current-input-port 1728 7 ())
 (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 ())
+(1731 input-port-option 1730 7 ())
+(1732 i/o #f #f ())
+(1733 char-ready? 1732 7 ())
+(1734 i/o #f #f ())
+(1735 real-char-ready? 1734 7 ())
 (1736 i/o #f #f ())
-(1737 really-steal-port! 1736 7 ())
-(1738 #f 1737 158 ())
-(1739 i/o #f #f ())
-(1740 steal-port! 1739 7 ())
-(1741 i/o #f #f ())
-(1742 current-output-port 1741 7 ())
-(1743 i/o #f #f ())
-(1744 current-error-port 1743 7 ())
-(1745 i/o #f #f ())
-(1746 current-noise-port 1745 7 ())
-(1747 i/o #f #f ())
-(1748 with-current-ports 1747 7 ())
+(1737 okay-limits? 1736 7 ())
+(1738 i/o #f #f ())
+(1739 read-more 1738 7 ())
+(1740 i/o #f #f ())
+(1741 buffer-length 1740 7 ())
+(1742 i/o #f #f ())
+(1743 really-read-block 1742 7 ())
+(1744 i/o #f #f ())
+(1745 read-block 1744 7 ())
+(1746 i/o #f #f ())
+(1747 write-unbuffered-block 1746 7 ())
+(1748 loop##144 1747 40 ())
 (1749 i/o #f #f ())
-(1750 initialize-i/o 1749 7 ())
+(1750 write-buffered-block 1749 7 ())
 (1751 i/o #f #f ())
-(1752 call-with-current-input-port 1751 7 ())
+(1752 write-block 1751 7 ())
 (1753 i/o #f #f ())
-(1754 call-with-current-output-port 1753 7 ())
+(1754 write-string 1753 7 ())
 (1755 i/o #f #f ())
-(1756 call-with-current-noise-port 1755 7 ())
+(1756 open-port? 1755 7 ())
 (1757 i/o #f #f ())
-(1758 silently 1757 7 ())
+(1758 output-port-ready? 1757 7 ())
 (1759 i/o #f #f ())
-(1760 output-port-option 1759 7 ())
+(1760 force-output 1759 7 ())
 (1761 i/o #f #f ())
-(1762 newline 1761 7 ())
+(1762 force-output-if-open 1761 7 ())
 (1763 i/o #f #f ())
-(1764 i/o #f #f ())
+(1764 okay-buffer? 1763 7 ())
 (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 ())
-(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 ())
-(1786 writing #f #f ())
-(1787 character-name 1786 7 ())
-(1788 writing #f #f ())
-(1789 write-char-literal 1788 7 ())
-(1790 writing #f #f ())
-(1791 write-number 1790 7 ())
-(1792 writing #f #f ())
-(1793 write-boolean 1792 7 ())
-(1794 writing #f #f ())
-(1795 recurring-write 1794 7 ())
-(1796 writing #f #f ())
-(1797 write 1796 7 ())
-(1798 recur 1797 36 ())
-(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 ())
-(1807 reading #f #f ())
-(1808 reading #f #f ())
-(1809 reading #f #f ())
-(1810 reading #f #f ())
-(1811 reading #f #f ())
-(1812 reading #f #f ())
-(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 ())
-(1819 reading #f #f ())
-(1820 #f 1819 11 ())
-(1821 reading #f #f ())
-(1822 #f 1821 11 ())
-(1823 reading #f #f ())
-(1824 #f 1823 11 ())
-(1825 reading #f #f ())
-(1826 #f 1825 11 ())
-(1827 reading #f #f ())
-(1828 #f 1827 13 ())
-(1829 reading #f #f ())
-(1830 #f 1829 15 ())
-(1831 reading #f #f ())
-(1832 #f 1831 15 ())
-(1833 reading #f #f ())
-(1834 #f 1833 15 ())
-(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 ())
-(1847 reading #f #f ())
-(1848 #f 1847 11 ())
-(1849 reading #f #f ())
-(1850 reading #f #f ())
-(1851 reading #f #f ())
-(1852 reading #f #f ())
-(1853 preferred-case 1852 7 ())
-(1854 reading #f #f ())
-(1855 reader-token? 1854 7 ())
-(1856 reading #f #f ())
-(1857 reading-error 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 ())
+(1766 make-input-port 1765 7 ())
+(1767 i/o #f #f ())
+(1768 make-output-port 1767 7 ())
+(1769 i/o #f #f ())
+(1770 make-unbuffered-output-port 1769 7 ())
+(1771 i/o #f #f ())
+(1772 make-null-output-port 1771 7 ())
+(1773 i/o #f #f ())
+(1774 initialize-output-port-list! 1773 7 ())
+(1775 i/o #f #f ())
+(1776 periodically-force-output! 1775 7 ())
+(1777 i/o #f #f ())
+(1778 make-forcing-thunk 1777 7 ())
+(1779 #f 1778 6 ())
+(1780 #f 1779 7 ())
+(1781 #f 1779 59 ())
+(1782 i/o #f #f ())
+(1783 output-port-forcers 1782 7 ())
+(1784 loop 1783 30 ())
+(1785 i/o #f #f ())
+(1786 periodically-flushed-ports 1785 7 ())
+(1787 loop 1786 35 ())
+(1788 i/o #f #f ())
+(1789 really-steal-port! 1788 7 ())
+(1790 #f 1789 158 ())
+(1791 i/o #f #f ())
+(1792 steal-port! 1791 7 ())
+(1793 i/o #f #f ())
+(1794 make-buffered-input-port 1793 7 ())
+(1795 i/o #f #f ())
+(1796 make-buffered-output-port 1795 7 ())
+(1797 i/o #f #f ())
+(1798 okay-buffer? 1797 7 ())
+(1799 i/o #f #f ())
+(1800 make-char-ready? 1799 7 ())
+(1801 #f 1800 6 ())
+(1802 i/o #f #f ())
+(1803 make-buffered-input-port-handler 1802 7 ())
+(1804 i/o #f #f ())
+(1805 make-buffered-output-port-handler 1804 7 ())
+(1806 i/o #f #f ())
+(1807 current-output-port 1806 7 ())
+(1808 i/o #f #f ())
+(1809 current-error-port 1808 7 ())
+(1810 i/o #f #f ())
+(1811 current-noise-port 1810 7 ())
+(1812 i/o #f #f ())
+(1813 with-current-ports 1812 7 ())
+(1814 i/o #f #f ())
+(1815 initialize-i/o 1814 7 ())
+(1816 i/o #f #f ())
+(1817 call-with-current-input-port 1816 7 ())
+(1818 i/o #f #f ())
+(1819 call-with-current-output-port 1818 7 ())
+(1820 i/o #f #f ())
+(1821 call-with-current-noise-port 1820 7 ())
+(1822 i/o #f #f ())
+(1823 silently 1822 7 ())
+(1824 i/o #f #f ())
+(1825 output-port-option 1824 7 ())
+(1826 i/o #f #f ())
+(1827 newline 1826 7 ())
+(1828 i/o #f #f ())
+(1829 i/o #f #f ())
+(1830 i/o #f #f ())
+(1831 writing #f #f ())
+(1832 display 1831 7 ())
+(1833 recur 1832 36 ())
+(1834 writing #f #f ())
+(1835 display-type-name 1834 7 ())
+(1836 loop##152 1835 86 ())
+(1837 writing #f #f ())
+(1838 write-other 1837 7 ())
+(1839 #f 1838 73 ())
+(1840 writing #f #f ())
+(1841 write-vector 1840 7 ())
+(1842 loop 1841 76 ())
+(1843 writing #f #f ())
+(1844 quotation? 1843 7 ())
+(1845 writing #f #f ())
+(1846 write-list 1845 7 ())
+(1847 loop 1846 88 ())
+(1848 writing #f #f ())
+(1849 write-string-literal 1848 7 ())
+(1850 loop##156 1849 26 ())
+(1851 writing #f #f ())
+(1852 character-name 1851 7 ())
+(1853 writing #f #f ())
+(1854 write-char-literal 1853 7 ())
+(1855 writing #f #f ())
+(1856 write-number 1855 7 ())
+(1857 writing #f #f ())
+(1858 write-boolean 1857 7 ())
+(1859 writing #f #f ())
+(1860 recurring-write 1859 7 ())
+(1861 writing #f #f ())
+(1862 write 1861 7 ())
+(1863 recur 1862 36 ())
+(1864 reading #f #f ())
+(1865 loop##158 1864 40 ())
+(1866 reading #f #f ())
 (1867 reading #f #f ())
-(1868 sub-read-carefully 1867 7 ())
-(1869 reading #f #f ())
-(1870 make-reader-token 1869 7 ())
-(1871 reading #f #f ())
-(1872 set-standard-syntax! 1871 7 ())
+(1868 #f 1867 15 ())
+(1869 readc 1868 8 ())
+(1870 read-digit 1868 16 ())
+(1871 loop 1868 41 ())
+(1872 reading #f #f ())
 (1873 reading #f #f ())
-(1874 set-standard-read-macro! 1873 7 ())
+(1874 reading #f #f ())
 (1875 reading #f #f ())
-(1876 sub-read-list 1875 7 ())
-(1877 recur 1876 56 ())
+(1876 reading #f #f ())
+(1877 reading #f #f ())
 (1878 reading #f #f ())
-(1879 gobble-line 1878 7 ())
-(1880 loop 1879 15 ())
+(1879 #f 1878 13 ())
+(1880 reading #f #f ())
 (1881 reading #f #f ())
-(1882 define-sharp-macro 1881 7 ())
-(1883 reading #f #f ())
-(1884 sub-read-token 1883 7 ())
-(1885 loop 1884 32 ())
-(1886 reading #f #f ())
-(1887 parse-token 1886 7 ())
-(1888 reading #f #f ())
+(1882 reading #f #f ())
+(1883 number-sharp-macro 1882 7 ())
+(1884 #f 1882 15 ())
+(1885 reading #f #f ())
+(1886 #f 1885 7 ())
+(1887 reading #f #f ())
+(1888 #f 1887 7 ())
 (1889 reading #f #f ())
-(1890 channels #f #f ())
-(1891 close-output-channel 1890 7 ())
-(1892 channels #f #f ())
-(1893 close-input-channel 1892 7 ())
-(1894 channels #f #f ())
-(1895 open-output-channel 1894 7 ())
-(1896 channels #f #f ())
-(1897 open-input-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 ())
-(1905 channel-i/o #f #f ())
-(1906 add-channel-wait-queue! 1905 7 ())
-(1907 channel-i/o #f #f ())
-(1908 channel-i/o #f #f ())
-(1909 decrement-channel-wait-count! 1908 7 ())
-(1910 channel-i/o #f #f ())
-(1911 increment-channel-wait-count! 1910 7 ())
-(1912 channel-i/o #f #f ())
-(1913 channel-wait-count 1912 7 ())
-(1914 channel-i/o #f #f ())
-(1915 channel-i/o #f #f ())
-(1916 #f 1915 11 ())
-(1917 channel-i/o #f #f ())
-(1918 #f 1917 11 ())
-(1919 channel-i/o #f #f ())
-(1920 steal-channel! 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 ())
-(1926 channel-i/o #f #f ())
-(1927 waiting-for-i/o? 1926 7 ())
-(1928 channel-i/o #f #f ())
-(1929 i/o-completion-handler 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 ())
-(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 ())
-(1946 channel-i/o #f #f ())
-(1947 call-with-output-file 1946 7 ())
-(1948 channel-i/o #f #f ())
-(1949 call-with-input-file 1948 7 ())
-(1950 channel-i/o #f #f ())
-(1951 open-output-file 1950 7 ())
-(1952 channel-i/o #f #f ())
-(1953 open-input-file 1952 7 ())
-(1954 channel-i/o #f #f ())
-(1955 port->channel 1954 7 ())
-(1956 channel-i/o #f #f ())
-(1957 channel-cell? 1956 7 ())
-(1958 channel-i/o #f #f ())
-(1959 channel-cell-ref 1958 7 ())
-(1960 channel-i/o #f #f ())
-(1961 channel-cell-closer 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 ())
-(1968 channel-i/o #f #f ())
-(1969 real-output-channel->port 1968 7 ())
-(1970 channel-i/o #f #f ())
-(1971 output-channel+closer->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 ())
+(1890 #f 1889 7 ())
+(1891 reading #f #f ())
+(1892 #f 1891 7 ())
+(1893 reading #f #f ())
+(1894 #f 1893 13 ())
+(1895 reading #f #f ())
+(1896 #f 1895 15 ())
+(1897 reading #f #f ())
+(1898 #f 1897 15 ())
+(1899 reading #f #f ())
+(1900 #f 1899 15 ())
+(1901 reading #f #f ())
+(1902 #f 1901 15 ())
+(1903 reading #f #f ())
+(1904 #f 1903 15 ())
+(1905 reading #f #f ())
+(1906 reading #f #f ())
+(1907 sub-read-constituent 1906 7 ())
+(1908 #f 1906 15 ())
+(1909 reading #f #f ())
+(1910 sub-read-whitespace 1909 7 ())
+(1911 #f 1909 15 ())
+(1912 reading #f #f ())
+(1913 reading #f #f ())
+(1914 #f 1913 11 ())
+(1915 reading #f #f ())
+(1916 reading #f #f ())
+(1917 reading #f #f ())
+(1918 reading #f #f ())
+(1919 preferred-case 1918 7 ())
+(1920 reading #f #f ())
+(1921 reader-token? 1920 7 ())
+(1922 reading #f #f ())
+(1923 reading-error 1922 7 ())
+(1924 reading #f #f ())
+(1925 sub-read 1924 7 ())
+(1926 reading #f #f ())
+(1927 read 1926 7 ())
+(1928 loop 1927 33 ())
+(1929 reading #f #f ())
+(1930 script-skip 1929 7 ())
+(1931 lp 1930 23 ())
+(1932 advance-if 1931 6 ())
+(1933 reading #f #f ())
+(1934 multi-line-comment-skip 1933 7 ())
+(1935 lp 1934 25 ())
+(1936 advance-one-of-two 1935 6 ())
+(1937 advance-if 1935 14 ())
+(1938 reading #f #f ())
+(1939 sub-read-carefully 1938 7 ())
+(1940 reading #f #f ())
+(1941 make-reader-token 1940 7 ())
+(1942 reading #f #f ())
+(1943 set-standard-syntax! 1942 7 ())
+(1944 reading #f #f ())
+(1945 set-standard-read-macro! 1944 7 ())
+(1946 reading #f #f ())
+(1947 sub-read-list 1946 7 ())
+(1948 recur 1947 56 ())
+(1949 reading #f #f ())
+(1950 gobble-line 1949 7 ())
+(1951 loop 1950 15 ())
+(1952 reading #f #f ())
+(1953 define-sharp-macro 1952 7 ())
+(1954 reading #f #f ())
+(1955 sub-read-token 1954 7 ())
+(1956 loop 1955 32 ())
+(1957 reading #f #f ())
+(1958 parse-token 1957 7 ())
+(1959 reading #f #f ())
+(1960 reading #f #f ())
+(1961 channels #f #f ())
+(1962 close-output-channel 1961 7 ())
+(1963 channels #f #f ())
+(1964 close-input-channel 1963 7 ())
+(1965 channels #f #f ())
+(1966 open-output-channel 1965 7 ())
+(1967 channels #f #f ())
+(1968 open-input-channel 1967 7 ())
+(1969 channels #f #f ())
+(1970 output-channel? 1969 7 ())
+(1971 channels #f #f ())
+(1972 input-channel? 1971 7 ())
+(1973 channel-i/o #f #f ())
+(1974 fetch-channel-wait-queue! 1973 7 ())
+(1975 loop 1974 92 ())
+(1976 channel-i/o #f #f ())
+(1977 add-channel-wait-queue! 1976 7 ())
+(1978 channel-i/o #f #f ())
+(1979 channel-i/o #f #f ())
+(1980 decrement-channel-wait-count! 1979 7 ())
+(1981 channel-i/o #f #f ())
+(1982 increment-channel-wait-count! 1981 7 ())
+(1983 channel-i/o #f #f ())
+(1984 channel-wait-count 1983 7 ())
 (1985 channel-i/o #f #f ())
-(1986 real-input-channel->port 1985 7 ())
-(1987 channel-i/o #f #f ())
-(1988 input-channel+closer->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 ())
-(1998 tables #f #f ())
-(1999 tables #f #f ())
-(2000 tables #f #f ())
-(2001 tables #f #f ())
-(2002 make-table 2001 32 ())
-(2003 tables #f #f ())
-(2004 tables #f #f ())
-(2005 tables #f #f ())
-(2006 tables #f #f ())
-(2007 tables #f #f ())
-(2008 set-table-size! 2007 7 ())
-(2009 tables #f #f ())
-(2010 table-size 2009 7 ())
-(2011 tables #f #f ())
-(2012 set-table-data! 2011 7 ())
-(2013 tables #f #f ())
-(2014 table-data 2013 7 ())
-(2015 tables #f #f ())
-(2016 set-table-ref-procedure! 2015 7 ())
-(2017 tables #f #f ())
-(2018 table-ref-procedure 2017 7 ())
-(2019 tables #f #f ())
-(2020 set-table-set!-procedure! 2019 7 ())
-(2021 tables #f #f ())
-(2022 table-set!-procedure 2021 7 ())
-(2023 tables #f #f ())
-(2024 really-make-table 2023 7 ())
-(2025 tables #f #f ())
-(2026 tables #f #f ())
-(2027 table? 2026 7 ())
-(2028 tables #f #f ())
-(2029 table-ref 2028 7 ())
-(2030 tables #f #f ())
-(2031 table-set! 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 ())
-(2037 tables #f #f ())
-(2038 new-entry 2037 7 ())
-(2039 tables #f #f ())
-(2040 make-linear-table-set! 2039 7 ())
-(2041 #f 2040 6 ())
-(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 ())
-(2069 tables #f #f ())
-(2070 make-table-maker 2069 7 ())
-(2071 tables #f #f ())
-(2072 alist-walk 2071 7 ())
-(2073 loop##173 2072 11 ())
+(1986 channel-i/o #f #f ())
+(1987 #f 1986 11 ())
+(1988 channel-i/o #f #f ())
+(1989 #f 1988 11 ())
+(1990 channel-i/o #f #f ())
+(1991 steal-channel! 1990 7 ())
+(1992 channel-i/o #f #f ())
+(1993 nothing 1992 7 ())
+(1994 channel-i/o #f #f ())
+(1995 wait-for-channel 1994 7 ())
+(1996 #f 1995 135 ())
+(1997 channel-i/o #f #f ())
+(1998 waiting-for-i/o? 1997 7 ())
+(1999 channel-i/o #f #f ())
+(2000 i/o-completion-handler 1999 7 ())
+(2001 channel-i/o #f #f ())
+(2002 initialize-channel-i/o! 2001 7 ())
+(2003 channel-i/o #f #f ())
+(2004 really-steal-channel-port! 2003 7 ())
+(2005 #f 2004 154 ())
+(2006 channel-i/o #f #f ())
+(2007 steal-channel-port! 2006 7 ())
+(2008 channel-i/o #f #f ())
+(2009 force-channel-output-ports! 2008 7 ())
+(2010 #f 2009 3 ())
+(2011 channel-i/o #f #f ())
+(2012 with-output-to-file 2011 7 ())
+(2013 #f 2012 9 ())
+(2014 channel-i/o #f #f ())
+(2015 with-input-from-file 2014 7 ())
+(2016 #f 2015 9 ())
+(2017 channel-i/o #f #f ())
+(2018 call-with-output-file 2017 7 ())
+(2019 channel-i/o #f #f ())
+(2020 call-with-input-file 2019 7 ())
+(2021 channel-i/o #f #f ())
+(2022 open-output-file 2021 7 ())
+(2023 channel-i/o #f #f ())
+(2024 open-input-file 2023 7 ())
+(2025 channel-i/o #f #f ())
+(2026 port->channel 2025 7 ())
+(2027 channel-i/o #f #f ())
+(2028 channel-cell? 2027 7 ())
+(2029 channel-i/o #f #f ())
+(2030 channel-cell-ref 2029 7 ())
+(2031 channel-i/o #f #f ())
+(2032 channel-cell-closer 2031 7 ())
+(2033 channel-i/o #f #f ())
+(2034 make-channel-cell 2033 7 ())
+(2035 channel-i/o #f #f ())
+(2036 channel-i/o #f #f ())
+(2037 maybe-force-output 2036 7 ())
+(2038 #f 2037 28 ())
+(2039 channel-i/o #f #f ())
+(2040 real-output-channel->port 2039 7 ())
+(2041 channel-i/o #f #f ())
+(2042 output-channel+closer->port 2041 7 ())
+(2043 channel-i/o #f #f ())
+(2044 output-channel->port 2043 7 ())
+(2045 channel-i/o #f #f ())
+(2046 make-unbuffered-output-channel-handler 2045 7 ())
+(2047 #f 2046 15 ())
+(2048 #f 2046 20 ())
+(2049 #f 2046 25 ())
+(2050 #f 2046 30 ())
+(2051 #f 2046 35 ())
+(2052 channel-i/o #f #f ())
+(2053 #f 2052 11 ())
+(2054 #f 2052 16 ())
+(2055 #f 2052 21 ())
+(2056 #f 2052 30 ())
+(2057 channel-i/o #f #f ())
+(2058 real-input-channel->port 2057 7 ())
+(2059 channel-i/o #f #f ())
+(2060 input-channel+closer->port 2059 7 ())
+(2061 channel-i/o #f #f ())
+(2062 input-channel->port 2061 7 ())
+(2063 channel-i/o #f #f ())
+(2064 #f 2063 11 ())
+(2065 #f 2063 16 ())
+(2066 #f 2063 21 ())
+(2067 #f 2063 30 ())
+(2068 channel-i/o #f #f ())
+(2069 channel-port-ready? 2068 7 ())
+(2070 scheme-level-2 #f #f ())
+(2071 features #f #f ())
+(2072 tables #f #f ())
+(2073 tables #f #f ())
 (2074 tables #f #f ())
-(2075 really-table-walk 2074 7 ())
-(2076 loop##176 2075 63 ())
+(2075 tables #f #f ())
+(2076 make-table 2075 32 ())
 (2077 tables #f #f ())
-(2078 table-walk 2077 7 ())
-(2079 #f 2078 6 ())
+(2078 tables #f #f ())
+(2079 tables #f #f ())
 (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 tables #f #f ())
+(2082 set-table-size! 2081 7 ())
+(2083 tables #f #f ())
+(2084 table-size 2083 7 ())
 (2085 tables #f #f ())
-(2086 default-table-hash-function 2085 7 ())
+(2086 set-table-data! 2085 7 ())
 (2087 tables #f #f ())
-(2088 default-table-assoc 2087 7 ())
+(2088 table-data 2087 7 ())
 (2089 tables #f #f ())
-(2090 symbol-hash 2089 7 ())
+(2090 set-table-ref-procedure! 2089 7 ())
 (2091 tables #f #f ())
-(2092 tables #f #f ())
-(2093 weak #f #f ())
-(2094 walk-population 2093 7 ())
-(2095 #f 2094 6 ())
-(2096 weak #f #f ())
-(2097 population->list 2096 7 ())
-(2098 weak #f #f ())
-(2099 population-reduce 2098 7 ())
-(2100 loop##178 2099 11 ())
-(2101 weak #f #f ())
-(2102 weak-memq 2101 7 ())
-(2103 weak #f #f ())
-(2104 add-to-population! 2103 7 ())
-(2105 weak #f #f ())
-(2106 make-population 2105 7 ())
-(2107 meta-types #f #f ())
-(2108 meta-types #f #f ())
-(2109 meta-types #f #f ())
-(2110 meta-types #f #f ())
-(2111 meta-types #f #f ())
-(2112 meta-types #f #f ())
-(2113 meta-types #f #f ())
-(2114 meta-types #f #f ())
-(2115 meta-types #f #f ())
-(2116 meta-types #f #f ())
-(2117 meta-types #f #f ())
-(2118 meta-types #f #f ())
-(2119 meta-types #f #f ())
-(2120 meta-types #f #f ())
-(2121 meta-types #f #f ())
-(2122 meta-types #f #f ())
-(2123 meta-types #f #f ())
-(2124 meta-types #f #f ())
-(2125 meta-types #f #f ())
-(2126 meta-types #f #f ())
-(2127 meta-types #f #f ())
-(2128 meta-types #f #f ())
-(2129 meta-types #f #f ())
-(2130 meta-types #f #f ())
-(2131 meta-types #f #f ())
-(2132 meta-types #f #f ())
-(2133 meta-types #f #f ())
-(2134 meta-types #f #f ())
-(2135 meta-types #f #f ())
-(2136 meta-types #f #f ())
-(2137 loop 2136 28 ())
-(2138 meta-types #f #f ())
-(2139 meta-types #f #f ())
-(2140 meta-types #f #f ())
-(2141 meta-types #f #f ())
-(2142 meta-types #f #f ())
-(2143 meta-types #f #f ())
-(2144 meta-types #f #f ())
-(2145 meta-types #f #f ())
-(2146 meta-types #f #f ())
-(2147 meta-types #f #f ())
-(2148 meta-types #f #f ())
-(2149 meta-types #f #f ())
-(2150 meta-types #f #f ())
-(2151 meta-types #f #f ())
-(2152 meta-types #f #f ())
-(2153 meta-types #f #f ())
-(2154 meta-types #f #f ())
-(2155 meta-types #f #f ())
-(2156 meta-types #f #f ())
-(2157 meta-types #f #f ())
-(2158 #f 2157 11 ())
-(2159 meta-types #f #f ())
-(2160 type-mask 2159 7 ())
-(2161 meta-types #f #f ())
-(2162 type-more 2161 7 ())
-(2163 meta-types #f #f ())
-(2164 type-info 2163 7 ())
-(2165 meta-types #f #f ())
-(2166 really-make-type 2165 7 ())
-(2167 meta-types #f #f ())
-(2168 meta-types #f #f ())
-(2169 meta-type? 2168 7 ())
-(2170 meta-types #f #f ())
-(2171 make-type 2170 7 ())
-(2172 meta-types #f #f ())
-(2173 set-type-name! 2172 7 ())
-(2174 meta-types #f #f ())
-(2175 make-other-type 2174 7 ())
-(2176 meta-types #f #f ())
-(2177 name->type 2176 7 ())
-(2178 meta-types #f #f ())
-(2179 new-type-bit 2178 7 ())
-(2180 meta-types #f #f ())
-(2181 mask->type 2180 7 ())
+(2092 table-ref-procedure 2091 7 ())
+(2093 tables #f #f ())
+(2094 set-table-set!-procedure! 2093 7 ())
+(2095 tables #f #f ())
+(2096 table-set!-procedure 2095 7 ())
+(2097 tables #f #f ())
+(2098 really-make-table 2097 7 ())
+(2099 tables #f #f ())
+(2100 tables #f #f ())
+(2101 table? 2100 7 ())
+(2102 tables #f #f ())
+(2103 table-ref 2102 7 ())
+(2104 tables #f #f ())
+(2105 table-set! 2104 7 ())
+(2106 tables #f #f ())
+(2107 next-table-size 2106 7 ())
+(2108 tables #f #f ())
+(2109 delete-entry! 2108 7 ())
+(2110 loop 2109 40 ())
+(2111 tables #f #f ())
+(2112 new-entry 2111 7 ())
+(2113 tables #f #f ())
+(2114 make-linear-table-set! 2113 7 ())
+(2115 #f 2114 6 ())
+(2116 tables #f #f ())
+(2117 table-expand-table! 2116 7 ())
+(2118 tables #f #f ())
+(2119 table-enter-alist! 2118 7 ())
+(2120 loop##187 2119 26 ())
+(2121 tables #f #f ())
+(2122 make-hash-table-ref 2121 7 ())
+(2123 #f 2122 6 ())
+(2124 tables #f #f ())
+(2125 expand-hash-table! 2124 7 ())
+(2126 loop##189 2125 52 ())
+(2127 tables #f #f ())
+(2128 make-hash-table-set! 2127 7 ())
+(2129 #f 2128 6 ())
+(2130 tables #f #f ())
+(2131 make->hash-table 2130 7 ())
+(2132 #f 2131 41 ())
+(2133 tables #f #f ())
+(2134 make-linear-table-ref 2133 7 ())
+(2135 #f 2134 6 ())
+(2136 tables #f #f ())
+(2137 assoc->table-maker 2136 7 ())
+(2138 #f 2137 60 ())
+(2139 tables #f #f ())
+(2140 make-assoc 2139 7 ())
+(2141 #f 2140 20 ())
+(2142 loop 2141 18 ())
+(2143 tables #f #f ())
+(2144 make-table-maker 2143 7 ())
+(2145 tables #f #f ())
+(2146 alist-walk 2145 7 ())
+(2147 loop##191 2146 11 ())
+(2148 tables #f #f ())
+(2149 really-table-walk 2148 7 ())
+(2150 loop##194 2149 63 ())
+(2151 tables #f #f ())
+(2152 table-walk 2151 7 ())
+(2153 #f 2152 6 ())
+(2154 tables #f #f ())
+(2155 make-table-immutable! 2154 7 ())
+(2156 tables #f #f ())
+(2157 table->entry-list 2156 7 ())
+(2158 #f 2157 17 ())
+(2159 tables #f #f ())
+(2160 default-table-hash-function 2159 7 ())
+(2161 tables #f #f ())
+(2162 default-table-assoc 2161 7 ())
+(2163 tables #f #f ())
+(2164 symbol-hash 2163 7 ())
+(2165 tables #f #f ())
+(2166 tables #f #f ())
+(2167 weak #f #f ())
+(2168 walk-population 2167 7 ())
+(2169 #f 2168 6 ())
+(2170 weak #f #f ())
+(2171 population->list 2170 7 ())
+(2172 weak #f #f ())
+(2173 population-reduce 2172 7 ())
+(2174 loop##196 2173 11 ())
+(2175 weak #f #f ())
+(2176 weak-memq 2175 7 ())
+(2177 weak #f #f ())
+(2178 add-to-population! 2177 7 ())
+(2179 weak #f #f ())
+(2180 make-population 2179 7 ())
+(2181 meta-types #f #f ())
 (2182 meta-types #f #f ())
-(2183 bottom-type? 2182 7 ())
+(2183 meta-types #f #f ())
 (2184 meta-types #f #f ())
-(2185 new-atomic-type 2184 7 ())
+(2185 meta-types #f #f ())
 (2186 meta-types #f #f ())
-(2187 named-atomic-type 2186 7 ())
+(2187 meta-types #f #f ())
 (2188 meta-types #f #f ())
-(2189 empty-rail-type? 2188 7 ())
+(2189 meta-types #f #f ())
 (2190 meta-types #f #f ())
-(2191 rest-type? 2190 7 ())
+(2191 meta-types #f #f ())
 (2192 meta-types #f #f ())
-(2193 same-type? 2192 7 ())
+(2193 meta-types #f #f ())
 (2194 meta-types #f #f ())
-(2195 head-type 2194 7 ())
+(2195 meta-types #f #f ())
 (2196 meta-types #f #f ())
-(2197 optional-type? 2196 7 ())
+(2197 meta-types #f #f ())
 (2198 meta-types #f #f ())
-(2199 rail-type 2198 7 ())
+(2199 meta-types #f #f ())
 (2200 meta-types #f #f ())
-(2201 make-optional-type 2200 7 ())
+(2201 meta-types #f #f ())
 (2202 meta-types #f #f ())
-(2203 make-rest-type 2202 7 ())
+(2203 meta-types #f #f ())
 (2204 meta-types #f #f ())
-(2205 head-type-really 2204 7 ())
+(2205 meta-types #f #f ())
 (2206 meta-types #f #f ())
-(2207 tail-type 2206 7 ())
+(2207 meta-types #f #f ())
 (2208 meta-types #f #f ())
-(2209 value-type? 2208 7 ())
+(2209 meta-types #f #f ())
 (2210 meta-types #f #f ())
-(2211 other-type-info 2210 7 ())
+(2211 loop 2210 28 ())
 (2212 meta-types #f #f ())
-(2213 restrictive? 2212 7 ())
+(2213 meta-types #f #f ())
 (2214 meta-types #f #f ())
-(2215 make-procedure-type 2214 7 ())
+(2215 meta-types #f #f ())
 (2216 meta-types #f #f ())
-(2217 procedure-type-domain 2216 7 ())
+(2217 meta-types #f #f ())
 (2218 meta-types #f #f ())
-(2219 procedure-type-codomain 2218 7 ())
+(2219 meta-types #f #f ())
 (2220 meta-types #f #f ())
-(2221 meet-procedure 2220 7 ())
+(2221 meta-types #f #f ())
 (2222 meta-types #f #f ())
-(2223 meet-rail 2222 7 ())
+(2223 meta-types #f #f ())
 (2224 meta-types #f #f ())
-(2225 meet-type 2224 7 ())
+(2225 meta-types #f #f ())
 (2226 meta-types #f #f ())
-(2227 subtype? 2226 7 ())
+(2227 meta-types #f #f ())
 (2228 meta-types #f #f ())
-(2229 meet-procedure? 2228 7 ())
+(2229 meta-types #f #f ())
 (2230 meta-types #f #f ())
-(2231 meet? 2230 7 ())
-(2232 meta-types #f #f ())
-(2233 procedure-type? 2232 7 ())
-(2234 meta-types #f #f ())
-(2235 join-procedure 2234 7 ())
-(2236 meta-types #f #f ())
-(2237 join-rail 2236 7 ())
-(2238 meta-types #f #f ())
-(2239 join-type 2238 7 ())
-(2240 meta-types #f #f ())
-(2241 procedure-type 2240 7 ())
+(2231 meta-types #f #f ())
+(2232 #f 2231 11 ())
+(2233 meta-types #f #f ())
+(2234 type-mask 2233 7 ())
+(2235 meta-types #f #f ())
+(2236 type-more 2235 7 ())
+(2237 meta-types #f #f ())
+(2238 type-info 2237 7 ())
+(2239 meta-types #f #f ())
+(2240 really-make-type 2239 7 ())
+(2241 meta-types #f #f ())
 (2242 meta-types #f #f ())
-(2243 sexp->values-type 2242 7 ())
+(2243 meta-type? 2242 7 ())
 (2244 meta-types #f #f ())
-(2245 sexp->type 2244 7 ())
-(2246 #f 2245 285 ())
-(2247 #f 2245 349 ())
+(2245 make-type 2244 7 ())
+(2246 meta-types #f #f ())
+(2247 set-type-name! 2246 7 ())
 (2248 meta-types #f #f ())
-(2249 disjoin-rest 2248 7 ())
+(2249 make-other-type 2248 7 ())
 (2250 meta-types #f #f ())
-(2251 disjoin-type 2250 7 ())
-(2252 loop##197 2251 262 ())
-(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 ())
+(2251 name->type 2250 7 ())
+(2252 meta-types #f #f ())
+(2253 new-type-bit 2252 7 ())
+(2254 meta-types #f #f ())
+(2255 mask->type 2254 7 ())
+(2256 meta-types #f #f ())
+(2257 bottom-type? 2256 7 ())
 (2258 meta-types #f #f ())
-(2259 type->sexp 2258 7 ())
-(2260 #f 2259 141 ())
-(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 ())
+(2259 new-atomic-type 2258 7 ())
+(2260 meta-types #f #f ())
+(2261 named-atomic-type 2260 7 ())
+(2262 meta-types #f #f ())
+(2263 empty-rail-type? 2262 7 ())
+(2264 meta-types #f #f ())
+(2265 rest-type? 2264 7 ())
 (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 ())
+(2267 same-type? 2266 7 ())
+(2268 meta-types #f #f ())
+(2269 head-type 2268 7 ())
+(2270 meta-types #f #f ())
+(2271 optional-type? 2270 7 ())
 (2272 meta-types #f #f ())
-(2273 variable-type 2272 7 ())
+(2273 rail-type 2272 7 ())
 (2274 meta-types #f #f ())
-(2275 variable-type? 2274 7 ())
+(2275 make-optional-type 2274 7 ())
 (2276 meta-types #f #f ())
-(2277 compatible-types? 2276 7 ())
+(2277 make-rest-type 2276 7 ())
 (2278 meta-types #f #f ())
-(2279 meta-types #f #f ())
+(2279 head-type-really 2278 7 ())
 (2280 meta-types #f #f ())
-(2281 interfaces #f #f ())
-(2282 #f 2281 7 ())
-(2283 interfaces #f #f ())
-(2284 ref-method 2283 7 ())
-(2285 interfaces #f #f ())
-(2286 walk-method 2285 7 ())
-(2287 interfaces #f #f ())
-(2288 interface-clients 2287 7 ())
-(2289 interfaces #f #f ())
-(2290 set-interface-name! 2289 7 ())
-(2291 interfaces #f #f ())
-(2292 interface-name 2291 7 ())
-(2293 interfaces #f #f ())
-(2294 really-make-interface 2293 7 ())
-(2295 interfaces #f #f ())
-(2296 interfaces #f #f ())
-(2297 interface? 2296 7 ())
-(2298 interfaces #f #f ())
-(2299 interface-ref 2298 7 ())
-(2300 interfaces #f #f ())
-(2301 for-each-declaration 2300 7 ())
-(2302 interfaces #f #f ())
-(2303 note-reference-to-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 ())
-(2324 bindings #f #f ())
-(2325 binding-type 2324 7 ())
-(2326 bindings #f #f ())
-(2327 binding-place 2326 7 ())
-(2328 bindings #f #f ())
-(2329 binding-static 2328 7 ())
-(2330 bindings #f #f ())
-(2331 binding-path 2330 7 ())
-(2332 bindings #f #f ())
-(2333 set-binding-place! 2332 7 ())
-(2334 bindings #f #f ())
-(2335 make-binding 2334 7 ())
-(2336 bindings #f #f ())
-(2337 add-path 2336 7 ())
-(2338 bindings #f #f ())
-(2339 clobber-binding! 2338 7 ())
-(2340 bindings #f #f ())
-(2341 impose-type 2340 7 ())
-(2342 bindings #f #f ())
-(2343 forget-integration 2342 7 ())
-(2344 bindings #f #f ())
-(2345 same-denotation? 2344 7 ())
-(2346 bindings #f #f ())
-(2347 follow-forwarding-pointers 2346 7 ())
-(2348 bindings #f #f ())
-(2349 maybe-fix-place! 2348 7 ())
-(2350 names #f #f ())
-(2351 #f 2350 7 ())
-(2352 names #f #f ())
-(2353 transform-procedure 2352 7 ())
-(2354 names #f #f ())
-(2355 transform-env 2354 7 ())
-(2356 names #f #f ())
-(2357 transform-type 2356 7 ())
-(2358 names #f #f ())
-(2359 transform-aux-names 2358 7 ())
-(2360 names #f #f ())
-(2361 transform-source 2360 7 ())
-(2362 names #f #f ())
-(2363 transform-id 2362 7 ())
-(2364 names #f #f ())
-(2365 really-make-transform 2364 7 ())
-(2366 names #f #f ())
-(2367 names #f #f ())
-(2368 names #f #f ())
-(2369 #f 2368 11 ())
-(2370 names #f #f ())
-(2371 generated-symbol 2370 7 ())
-(2372 names #f #f ())
-(2373 generated-token 2372 7 ())
-(2374 names #f #f ())
-(2375 generated-env 2374 7 ())
-(2376 names #f #f ())
-(2377 generated-parent-name 2376 7 ())
-(2378 names #f #f ())
-(2379 make-generated 2378 7 ())
-(2380 names #f #f ())
-(2381 names #f #f ())
-(2382 generated? 2381 7 ())
-(2383 names #f #f ())
-(2384 name? 2383 7 ())
-(2385 names #f #f ())
-(2386 generate-name 2385 7 ())
-(2387 names #f #f ())
-(2388 generated-uid 2387 7 ())
-(2389 names #f #f ())
-(2390 name->symbol 2389 7 ())
-(2391 names #f #f ())
-(2392 name-hash 2391 7 ())
-(2393 names #f #f ())
-(2394 desyntaxify 2393 7 ())
-(2395 loop 2394 267 ())
-(2396 names #f #f ())
-(2397 make-qualified 2396 7 ())
-(2398 names #f #f ())
-(2399 qualified? 2398 7 ())
-(2400 names #f #f ())
-(2401 qualified-parent-name 2400 7 ())
-(2402 names #f #f ())
-(2403 qualified-symbol 2402 7 ())
-(2404 names #f #f ())
-(2405 lookup 2404 7 ())
-(2406 names #f #f ())
-(2407 transform? 2406 7 ())
-(2408 names #f #f ())
-(2409 qualify-parent 2408 7 ())
-(2410 recur 2409 18 ())
-(2411 names #f #f ())
-(2412 name->qualified 2411 7 ())
-(2413 names #f #f ())
-(2414 make-transform 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 ())
+(2281 tail-type 2280 7 ())
+(2282 meta-types #f #f ())
+(2283 value-type? 2282 7 ())
+(2284 meta-types #f #f ())
+(2285 other-type-info 2284 7 ())
+(2286 meta-types #f #f ())
+(2287 restrictive? 2286 7 ())
+(2288 meta-types #f #f ())
+(2289 make-procedure-type 2288 7 ())
+(2290 meta-types #f #f ())
+(2291 procedure-type-domain 2290 7 ())
+(2292 meta-types #f #f ())
+(2293 procedure-type-codomain 2292 7 ())
+(2294 meta-types #f #f ())
+(2295 meet-procedure 2294 7 ())
+(2296 meta-types #f #f ())
+(2297 meet-rail 2296 7 ())
+(2298 meta-types #f #f ())
+(2299 meet-type 2298 7 ())
+(2300 meta-types #f #f ())
+(2301 subtype? 2300 7 ())
+(2302 meta-types #f #f ())
+(2303 meet-procedure? 2302 7 ())
+(2304 meta-types #f #f ())
+(2305 meet? 2304 7 ())
+(2306 meta-types #f #f ())
+(2307 procedure-type? 2306 7 ())
+(2308 meta-types #f #f ())
+(2309 join-procedure 2308 7 ())
+(2310 meta-types #f #f ())
+(2311 join-rail 2310 7 ())
+(2312 meta-types #f #f ())
+(2313 join-type 2312 7 ())
+(2314 meta-types #f #f ())
+(2315 procedure-type 2314 7 ())
+(2316 meta-types #f #f ())
+(2317 sexp->values-type 2316 7 ())
+(2318 meta-types #f #f ())
+(2319 sexp->type 2318 7 ())
+(2320 #f 2319 281 ())
+(2321 #f 2319 345 ())
+(2322 meta-types #f #f ())
+(2323 disjoin-rest 2322 7 ())
+(2324 meta-types #f #f ())
+(2325 disjoin-type 2324 7 ())
+(2326 loop##215 2325 262 ())
+(2327 meta-types #f #f ())
+(2328 atomic-type->sexp 2327 7 ())
+(2329 meta-types #f #f ())
+(2330 rail-type->sexp 2329 7 ())
+(2331 recur 2330 25 ())
+(2332 meta-types #f #f ())
+(2333 type->sexp 2332 7 ())
+(2334 #f 2333 141 ())
+(2335 meta-types #f #f ())
+(2336 make-some-values-type 2335 7 ())
+(2337 meta-types #f #f ())
+(2338 fixed-arity-procedure-type? 2337 7 ())
+(2339 loop 2338 43 ())
+(2340 meta-types #f #f ())
+(2341 procedure-type-arity 2340 7 ())
+(2342 loop##218 2341 11 ())
+(2343 meta-types #f #f ())
+(2344 procedure-type-argument-types 2343 7 ())
+(2345 recur 2344 28 ())
+(2346 meta-types #f #f ())
+(2347 variable-type 2346 7 ())
+(2348 meta-types #f #f ())
+(2349 variable-type? 2348 7 ())
+(2350 meta-types #f #f ())
+(2351 compatible-types? 2350 7 ())
+(2352 meta-types #f #f ())
+(2353 meta-types #f #f ())
+(2354 meta-types #f #f ())
+(2355 interfaces #f #f ())
+(2356 #f 2355 7 ())
+(2357 interfaces #f #f ())
+(2358 ref-method 2357 7 ())
+(2359 interfaces #f #f ())
+(2360 walk-method 2359 7 ())
+(2361 interfaces #f #f ())
+(2362 interface-clients 2361 7 ())
+(2363 interfaces #f #f ())
+(2364 set-interface-name! 2363 7 ())
+(2365 interfaces #f #f ())
+(2366 interface-name 2365 7 ())
+(2367 interfaces #f #f ())
+(2368 really-make-interface 2367 7 ())
+(2369 interfaces #f #f ())
+(2370 interfaces #f #f ())
+(2371 interface? 2370 7 ())
+(2372 interfaces #f #f ())
+(2373 interface-ref 2372 7 ())
+(2374 interfaces #f #f ())
+(2375 for-each-declaration 2374 7 ())
+(2376 interfaces #f #f ())
+(2377 note-reference-to-interface! 2376 7 ())
+(2378 interfaces #f #f ())
+(2379 make-interface 2378 7 ())
+(2380 interfaces #f #f ())
+(2381 really-make-simple-interface 2380 7 ())
+(2382 #f 2381 6 ())
+(2383 #f 2381 11 ())
+(2384 interfaces #f #f ())
+(2385 make-simple-interface 2384 7 ())
+(2386 #f 2385 23 ())
+(2387 #f 2386 62 ())
+(2388 interfaces #f #f ())
+(2389 make-compound-interface 2388 7 ())
+(2390 #f 2389 12 ())
+(2391 loop 2390 18 ())
+(2392 #f 2389 17 ())
+(2393 #f 2392 6 ())
+(2394 #f 2389 38 ())
+(2395 interfaces #f #f ())
+(2396 note-interface-name! 2395 7 ())
+(2397 bindings #f #f ())
+(2398 bindings #f #f ())
+(2399 binding-type 2398 7 ())
+(2400 bindings #f #f ())
+(2401 binding-place 2400 7 ())
+(2402 bindings #f #f ())
+(2403 binding-static 2402 7 ())
+(2404 bindings #f #f ())
+(2405 binding-path 2404 7 ())
+(2406 bindings #f #f ())
+(2407 set-binding-place! 2406 7 ())
+(2408 bindings #f #f ())
+(2409 make-binding 2408 7 ())
+(2410 bindings #f #f ())
+(2411 add-path 2410 7 ())
+(2412 bindings #f #f ())
+(2413 clobber-binding! 2412 7 ())
+(2414 bindings #f #f ())
+(2415 impose-type 2414 7 ())
+(2416 bindings #f #f ())
+(2417 forget-integration 2416 7 ())
+(2418 bindings #f #f ())
+(2419 same-denotation? 2418 7 ())
+(2420 bindings #f #f ())
+(2421 follow-forwarding-pointers 2420 7 ())
+(2422 bindings #f #f ())
+(2423 maybe-fix-place! 2422 7 ())
+(2424 names #f #f ())
+(2425 #f 2424 7 ())
 (2426 names #f #f ())
-(2427 maybe-apply-macro-transform 2426 7 ())
+(2427 transform-procedure 2426 7 ())
 (2428 names #f #f ())
-(2429 apply-inline-transform 2428 7 ())
+(2429 transform-env 2428 7 ())
 (2430 names #f #f ())
-(2431 compiler-envs #f #f ())
-(2432 compiler-envs #f #f ())
-(2433 compiler-envs #f #f ())
-(2434 compiler-envs #f #f ())
-(2435 compiler-envs #f #f ())
-(2436 lookup 2435 7 ())
-(2437 compiler-envs #f #f ())
-(2438 bind1 2437 7 ())
-(2439 #f 2438 6 ())
-(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 ())
-(2448 compiler-envs #f #f ())
-(2449 environment-macro-eval 2448 7 ())
-(2450 compiler-envs #f #f ())
-(2451 environment-define! 2450 7 ())
-(2452 compiler-envs #f #f ())
-(2453 extract-package-from-environment 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 ())
-(2458 thingies #f #f ())
-(2459 thingie-binding 2458 7 ())
-(2460 thingies #f #f ())
-(2461 thingie-name 2460 7 ())
-(2462 thingies #f #f ())
-(2463 thingie-want-type 2462 7 ())
-(2464 thingies #f #f ())
-(2465 make-thingie 2464 7 ())
-(2466 thingies #f #f ())
-(2467 thingies #f #f ())
-(2468 thingie? 2467 7 ())
-(2469 packages #f #f ())
-(2470 #f 2469 11 ())
-(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 ())
-(2478 packages #f #f ())
-(2479 #f 2478 11 ())
-(2480 packages #f #f ())
-(2481 package-uid 2480 7 ())
-(2482 packages #f #f ())
-(2483 set-package-opens! 2482 7 ())
-(2484 packages #f #f ())
-(2485 package-opens-really 2484 7 ())
-(2486 packages #f #f ())
-(2487 package-definitions 2486 7 ())
-(2488 packages #f #f ())
-(2489 package-unstable? 2488 7 ())
-(2490 packages #f #f ())
-(2491 set-package-integrate?! 2490 7 ())
-(2492 packages #f #f ())
-(2493 package-integrate? 2492 7 ())
-(2494 packages #f #f ())
-(2495 set-package-get-location! 2494 7 ())
-(2496 packages #f #f ())
-(2497 package-get-location 2496 7 ())
-(2498 packages #f #f ())
-(2499 package-file-name 2498 7 ())
-(2500 packages #f #f ())
-(2501 package-clauses 2500 7 ())
-(2502 packages #f #f ())
-(2503 set-package-loaded?! 2502 7 ())
-(2504 packages #f #f ())
-(2505 package-loaded? 2504 7 ())
-(2506 packages #f #f ())
-(2507 set-package->environment! 2506 7 ())
-(2508 packages #f #f ())
-(2509 package->environment 2508 7 ())
-(2510 packages #f #f ())
-(2511 set-package-opens-thunk! 2510 7 ())
-(2512 packages #f #f ())
-(2513 package-opens-thunk 2512 7 ())
-(2514 packages #f #f ())
-(2515 package-accesses-thunk 2514 7 ())
-(2516 packages #f #f ())
-(2517 set-package-undefineds! 2516 7 ())
-(2518 packages #f #f ())
-(2519 package-real-undefineds 2518 7 ())
-(2520 packages #f #f ())
-(2521 set-package-undefined-but-assigneds! 2520 7 ())
-(2522 packages #f #f ())
-(2523 package-real-undefined-but-assigneds 2522 7 ())
-(2524 packages #f #f ())
-(2525 package-clients 2524 7 ())
-(2526 packages #f #f ())
-(2527 package-cached 2526 7 ())
-(2528 packages #f #f ())
-(2529 really-make-package 2528 7 ())
-(2530 packages #f #f ())
-(2531 packages #f #f ())
-(2532 #f 2531 11 ())
-(2533 packages #f #f ())
-(2534 structure-interface-thunk 2533 7 ())
-(2535 packages #f #f ())
-(2536 set-structure-interface! 2535 7 ())
-(2537 packages #f #f ())
-(2538 structure-interface-really 2537 7 ())
-(2539 packages #f #f ())
-(2540 structure-package 2539 7 ())
-(2541 packages #f #f ())
-(2542 structure-clients 2541 7 ())
+(2431 transform-type 2430 7 ())
+(2432 names #f #f ())
+(2433 transform-aux-names 2432 7 ())
+(2434 names #f #f ())
+(2435 transform-source 2434 7 ())
+(2436 names #f #f ())
+(2437 transform-id 2436 7 ())
+(2438 names #f #f ())
+(2439 really-make-transform 2438 7 ())
+(2440 names #f #f ())
+(2441 names #f #f ())
+(2442 names #f #f ())
+(2443 #f 2442 11 ())
+(2444 names #f #f ())
+(2445 generated-symbol 2444 7 ())
+(2446 names #f #f ())
+(2447 generated-token 2446 7 ())
+(2448 names #f #f ())
+(2449 generated-env 2448 7 ())
+(2450 names #f #f ())
+(2451 generated-parent-name 2450 7 ())
+(2452 names #f #f ())
+(2453 make-generated 2452 7 ())
+(2454 names #f #f ())
+(2455 names #f #f ())
+(2456 generated? 2455 7 ())
+(2457 names #f #f ())
+(2458 name? 2457 7 ())
+(2459 names #f #f ())
+(2460 generate-name 2459 7 ())
+(2461 names #f #f ())
+(2462 generated-uid 2461 7 ())
+(2463 names #f #f ())
+(2464 name->symbol 2463 7 ())
+(2465 names #f #f ())
+(2466 name-hash 2465 7 ())
+(2467 names #f #f ())
+(2468 desyntaxify 2467 7 ())
+(2469 loop 2468 267 ())
+(2470 names #f #f ())
+(2471 make-qualified 2470 7 ())
+(2472 names #f #f ())
+(2473 qualified? 2472 7 ())
+(2474 names #f #f ())
+(2475 qualified-parent-name 2474 7 ())
+(2476 names #f #f ())
+(2477 qualified-symbol 2476 7 ())
+(2478 names #f #f ())
+(2479 lookup 2478 7 ())
+(2480 names #f #f ())
+(2481 transform? 2480 7 ())
+(2482 names #f #f ())
+(2483 qualify-parent 2482 7 ())
+(2484 recur 2483 18 ())
+(2485 names #f #f ())
+(2486 name->qualified 2485 7 ())
+(2487 names #f #f ())
+(2488 make-transform 2487 7 ())
+(2489 names #f #f ())
+(2490 name->source-name 2489 7 ())
+(2491 names #f #f ())
+(2492 make-keyword-comparator 2491 7 ())
+(2493 #f 2492 6 ())
+(2494 names #f #f ())
+(2495 make-name-generator 2494 7 ())
+(2496 #f 2495 13 ())
+(2497 names #f #f ())
+(2498 bind-aliases 2497 7 ())
+(2499 #f 2498 36 ())
+(2500 names #f #f ())
+(2501 maybe-apply-macro-transform 2500 7 ())
+(2502 names #f #f ())
+(2503 apply-inline-transform 2502 7 ())
+(2504 names #f #f ())
+(2505 compiler-envs #f #f ())
+(2506 compiler-envs #f #f ())
+(2507 compiler-envs #f #f ())
+(2508 compiler-envs #f #f ())
+(2509 compiler-envs #f #f ())
+(2510 lookup 2509 7 ())
+(2511 compiler-envs #f #f ())
+(2512 bind1 2511 7 ())
+(2513 #f 2512 6 ())
+(2514 compiler-envs #f #f ())
+(2515 bind 2514 7 ())
+(2516 compiler-envs #f #f ())
+(2517 bindrec 2516 7 ())
+(2518 #f 2517 17 ())
+(2519 compiler-envs #f #f ())
+(2520 make-compiler-env 2519 7 ())
+(2521 #f 2520 6 ())
+(2522 compiler-envs #f #f ())
+(2523 environment-macro-eval 2522 7 ())
+(2524 compiler-envs #f #f ())
+(2525 environment-define! 2524 7 ())
+(2526 compiler-envs #f #f ())
+(2527 extract-package-from-environment 2526 7 ())
+(2528 compiler-envs #f #f ())
+(2529 bind-source-file-name 2528 7 ())
+(2530 compiler-envs #f #f ())
+(2531 source-file-name 2530 7 ())
+(2532 thingies #f #f ())
+(2533 thingie-binding 2532 7 ())
+(2534 thingies #f #f ())
+(2535 thingie-name 2534 7 ())
+(2536 thingies #f #f ())
+(2537 thingie-want-type 2536 7 ())
+(2538 thingies #f #f ())
+(2539 make-thingie 2538 7 ())
+(2540 thingies #f #f ())
+(2541 thingies #f #f ())
+(2542 thingie? 2541 7 ())
 (2543 packages #f #f ())
-(2544 set-structure-name! 2543 7 ())
+(2544 #f 2543 11 ())
 (2545 packages #f #f ())
-(2546 structure-name 2545 7 ())
+(2546 packages #f #f ())
 (2547 packages #f #f ())
-(2548 really-make-structure 2547 7 ())
+(2548 packages #f #f ())
 (2549 packages #f #f ())
 (2550 packages #f #f ())
-(2551 structure? 2550 7 ())
+(2551 packages #f #f ())
 (2552 packages #f #f ())
-(2553 initialize-structure! 2552 7 ())
+(2553 #f 2552 11 ())
 (2554 packages #f #f ())
-(2555 structure-interface 2554 7 ())
+(2555 package-uid 2554 7 ())
 (2556 packages #f #f ())
-(2557 package? 2556 7 ())
+(2557 set-package-opens! 2556 7 ())
 (2558 packages #f #f ())
-(2559 note-package-name! 2558 7 ())
+(2559 package-opens-really 2558 7 ())
 (2560 packages #f #f ())
-(2561 note-structure-name! 2560 7 ())
+(2561 package-definitions 2560 7 ())
 (2562 packages #f #f ())
-(2563 make-structure 2562 7 ())
-(2564 #f 2563 85 ())
-(2565 packages #f #f ())
-(2566 structure-unstable? 2565 7 ())
-(2567 packages #f #f ())
-(2568 get-new-location 2567 7 ())
-(2569 packages #f #f ())
-(2570 package-define! 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 ())
-(2577 packages #f #f ())
-(2578 initialize-package-if-necessary! 2577 7 ())
-(2579 packages #f #f ())
-(2580 package-definition 2579 7 ())
-(2581 packages #f #f ())
-(2582 search-opens 2581 7 ())
-(2583 loop 2582 18 ())
+(2563 package-unstable? 2562 7 ())
+(2564 packages #f #f ())
+(2565 set-package-integrate?! 2564 7 ())
+(2566 packages #f #f ())
+(2567 package-integrate? 2566 7 ())
+(2568 packages #f #f ())
+(2569 set-package-get-location! 2568 7 ())
+(2570 packages #f #f ())
+(2571 package-get-location 2570 7 ())
+(2572 packages #f #f ())
+(2573 package-file-name 2572 7 ())
+(2574 packages #f #f ())
+(2575 package-clauses 2574 7 ())
+(2576 packages #f #f ())
+(2577 set-package-loaded?! 2576 7 ())
+(2578 packages #f #f ())
+(2579 package-loaded? 2578 7 ())
+(2580 packages #f #f ())
+(2581 set-package->environment! 2580 7 ())
+(2582 packages #f #f ())
+(2583 package->environment 2582 7 ())
 (2584 packages #f #f ())
-(2585 structure-lookup 2584 7 ())
+(2585 set-package-opens-thunk! 2584 7 ())
 (2586 packages #f #f ())
-(2587 package-lookup 2586 7 ())
+(2587 package-opens-thunk 2586 7 ())
 (2588 packages #f #f ())
-(2589 generic-lookup 2588 7 ())
+(2589 package-accesses-thunk 2588 7 ())
 (2590 packages #f #f ())
-(2591 really-package-lookup 2590 7 ())
+(2591 set-package-undefineds! 2590 7 ())
 (2592 packages #f #f ())
-(2593 real-structure-lookup 2592 7 ())
+(2593 package-real-undefineds 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 ())
-(2601 packages #f #f ())
-(2602 new-package-uid 2601 7 ())
-(2603 packages #f #f ())
-(2604 make-package 2603 7 ())
+(2595 set-package-undefined-but-assigneds! 2594 7 ())
+(2596 packages #f #f ())
+(2597 package-real-undefined-but-assigneds 2596 7 ())
+(2598 packages #f #f ())
+(2599 package-clients 2598 7 ())
+(2600 packages #f #f ())
+(2601 package-cached 2600 7 ())
+(2602 packages #f #f ())
+(2603 really-make-package 2602 7 ())
+(2604 packages #f #f ())
 (2605 packages #f #f ())
-(2606 lazy-table-accessor 2605 7 ())
-(2607 #f 2606 6 ())
-(2608 packages #f #f ())
-(2609 package-name 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 ())
-(2616 packages #f #f ())
-(2617 package-add-static! 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 ())
+(2606 #f 2605 11 ())
+(2607 packages #f #f ())
+(2608 structure-interface-thunk 2607 7 ())
+(2609 packages #f #f ())
+(2610 set-structure-interface! 2609 7 ())
+(2611 packages #f #f ())
+(2612 structure-interface-really 2611 7 ())
+(2613 packages #f #f ())
+(2614 structure-package 2613 7 ())
+(2615 packages #f #f ())
+(2616 structure-clients 2615 7 ())
+(2617 packages #f #f ())
+(2618 set-structure-name! 2617 7 ())
+(2619 packages #f #f ())
+(2620 structure-name 2619 7 ())
+(2621 packages #f #f ())
+(2622 really-make-structure 2621 7 ())
 (2623 packages #f #f ())
-(2624 make-new-location 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 ())
-(2636 #f 2635 3 ())
-(2637 #f 2635 11 ())
-(2638 #f 2637 3 ())
+(2624 packages #f #f ())
+(2625 structure? 2624 7 ())
+(2626 packages #f #f ())
+(2627 initialize-structure! 2626 7 ())
+(2628 packages #f #f ())
+(2629 structure-interface 2628 7 ())
+(2630 packages #f #f ())
+(2631 package? 2630 7 ())
+(2632 packages #f #f ())
+(2633 note-package-name! 2632 7 ())
+(2634 packages #f #f ())
+(2635 note-structure-name! 2634 7 ())
+(2636 packages #f #f ())
+(2637 make-structure 2636 7 ())
+(2638 #f 2637 85 ())
 (2639 packages #f #f ())
-(2640 cenv->package 2639 7 ())
+(2640 structure-unstable? 2639 7 ())
 (2641 packages #f #f ())
-(2642 get-location-for-unassignable 2641 7 ())
-(2643 #f 2642 98 ())
-(2644 #f 2642 103 ())
+(2642 get-new-location 2641 7 ())
+(2643 packages #f #f ())
+(2644 package-define! 2643 7 ())
 (2645 packages #f #f ())
-(2646 package-note-caching! 2645 7 ())
-(2647 loop 2646 79 ())
-(2648 packages #f #f ())
-(2649 note-caching! 2648 7 ())
-(2650 packages #f #f ())
-(2651 location-for-reference 2650 7 ())
-(2652 loop 2651 28 ())
+(2646 package-accesses 2645 7 ())
+(2647 packages #f #f ())
+(2648 initialize-package! 2647 7 ())
+(2649 #f 2648 45 ())
+(2650 #f 2648 59 ())
+(2651 packages #f #f ())
+(2652 initialize-package-if-necessary! 2651 7 ())
 (2653 packages #f #f ())
-(2654 get-location-for-undefined 2653 7 ())
-(2655 #f 2654 105 ())
-(2656 packages #f #f ())
-(2657 get-location 2656 7 ())
+(2654 package-definition 2653 7 ())
+(2655 packages #f #f ())
+(2656 search-opens 2655 7 ())
+(2657 loop 2656 18 ())
 (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 ())
+(2659 structure-lookup 2658 7 ())
+(2660 packages #f #f ())
+(2661 package-lookup 2660 7 ())
+(2662 packages #f #f ())
+(2663 generic-lookup 2662 7 ())
 (2664 packages #f #f ())
-(2665 location-on-demand 2664 7 ())
-(2666 #f 2665 6 ())
-(2667 packages #f #f ())
+(2665 really-package-lookup 2664 7 ())
+(2666 packages #f #f ())
+(2667 real-structure-lookup 2666 7 ())
 (2668 packages #f #f ())
-(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 ())
-(2675 environments #f #f ())
-(2676 null-environment 2675 7 ())
-(2677 environments #f #f ())
-(2678 set-scheme-report-environment! 2677 7 ())
-(2679 environments #f #f ())
-(2680 environments #f #f ())
-(2681 environments #f #f ())
-(2682 environments #f #f ())
-(2683 scheme-report-environment 2682 7 ())
-(2684 environments #f #f ())
-(2685 with-interaction-environment 2684 7 ())
-(2686 environments #f #f ())
-(2687 set-interaction-environment! 2686 7 ())
-(2688 environments #f #f ())
-(2689 interaction-environment 2688 7 ())
-(2690 environments #f #f ())
-(2691 environments #f #f ())
-(2692 carefully 2691 7 ())
-(2693 environments #f #f ())
-(2694 *structure-ref 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 ())
-(2706 filenames #f #f ())
-(2707 set-translation! 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 ())
-(2717 filenames #f #f ())
-(2718 file-name-nondirectory 2717 7 ())
-(2719 filenames #f #f ())
-(2720 file-name-directory 2719 7 ())
-(2721 filenames #f #f ())
-(2722 filenames #f #f ())
-(2723 filenames #f #f ())
-(2724 filenames #f #f ())
-(2725 namestring-component 2724 7 ())
-(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 ())
-(2739 nodes #f #f ())
-(2740 #f 2739 15 ())
-(2741 nodes #f #f ())
-(2742 #f 2741 19 ())
-(2743 nodes #f #f ())
-(2744 #f 2743 19 ())
-(2745 #f 2744 29 ())
-(2746 #f 2744 57 ())
-(2747 nodes #f #f ())
-(2748 nodes #f #f ())
-(2749 nodes #f #f ())
-(2750 #f 2749 19 ())
-(2751 #f 2750 6 ())
-(2752 nodes #f #f ())
-(2753 #f 2752 19 ())
-(2754 nodes #f #f ())
-(2755 #f 2754 19 ())
-(2756 nodes #f #f ())
-(2757 #f 2756 11 ())
-(2758 nodes #f #f ())
-(2759 #f 2758 11 ())
-(2760 nodes #f #f ())
-(2761 node-operator-id 2760 7 ())
-(2762 nodes #f #f ())
-(2763 node-form 2762 7 ())
-(2764 nodes #f #f ())
-(2765 set-node-plist! 2764 7 ())
-(2766 nodes #f #f ())
-(2767 node-plist 2766 7 ())
-(2768 nodes #f #f ())
-(2769 really-make-node 2768 7 ())
-(2770 nodes #f #f ())
-(2771 nodes #f #f ())
-(2772 nodes #f #f ())
-(2773 nodes #f #f ())
-(2774 nodes #f #f ())
-(2775 nodes #f #f ())
-(2776 #f 2775 11 ())
-(2777 nodes #f #f ())
-(2778 set-operator-type! 2777 7 ())
-(2779 nodes #f #f ())
-(2780 operator-type 2779 7 ())
-(2781 nodes #f #f ())
-(2782 operator-nargs 2781 7 ())
-(2783 nodes #f #f ())
-(2784 operator-uid 2783 7 ())
-(2785 nodes #f #f ())
-(2786 operator-name 2785 7 ())
-(2787 nodes #f #f ())
-(2788 make-operator 2787 7 ())
-(2789 nodes #f #f ())
-(2790 nodes #f #f ())
-(2791 operator? 2790 7 ())
-(2792 nodes #f #f ())
-(2793 get-operator 2792 7 ())
-(2794 nodes #f #f ())
-(2795 make-operator-table 2794 7 ())
-(2796 nodes #f #f ())
-(2797 operator-lookup 2796 7 ())
-(2798 nodes #f #f ())
-(2799 operator-define! 2798 7 ())
-(2800 nodes #f #f ())
-(2801 node? 2800 7 ())
-(2802 nodes #f #f ())
-(2803 make-node 2802 7 ())
-(2804 nodes #f #f ())
-(2805 node-ref 2804 7 ())
-(2806 nodes #f #f ())
-(2807 node-set! 2806 7 ())
-(2808 loop 2807 103 ())
-(2809 nodes #f #f ())
-(2810 node-operator 2809 7 ())
-(2811 nodes #f #f ())
-(2812 node-predicate 2811 7 ())
-(2813 #f 2812 37 ())
-(2814 nodes #f #f ())
-(2815 make-similar-node 2814 7 ())
-(2816 nodes #f #f ())
-(2817 force-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 ())
+(2669 for-each-export 2668 7 ())
+(2670 #f 2669 22 ())
+(2671 packages #f #f ())
+(2672 really-package->environment 2671 7 ())
+(2673 #f 2672 6 ())
+(2674 #f 2672 11 ())
+(2675 packages #f #f ())
+(2676 new-package-uid 2675 7 ())
+(2677 packages #f #f ())
+(2678 make-package 2677 7 ())
+(2679 packages #f #f ())
+(2680 lazy-table-accessor 2679 7 ())
+(2681 #f 2680 6 ())
+(2682 packages #f #f ())
+(2683 package-name 2682 7 ())
+(2684 packages #f #f ())
+(2685 package-opens 2684 7 ())
+(2686 packages #f #f ())
+(2687 make-simple-package 2686 7 ())
+(2688 #f 2687 65 ())
+(2689 #f 2687 70 ())
+(2690 packages #f #f ())
+(2691 package-add-static! 2690 7 ())
+(2692 packages #f #f ())
+(2693 package-refine-type! 2692 7 ())
+(2694 packages #f #f ())
+(2695 for-each-definition 2694 7 ())
+(2696 #f 2695 6 ())
+(2697 packages #f #f ())
+(2698 make-new-location 2697 7 ())
+(2699 packages #f #f ())
+(2700 flush-location-names 2699 7 ())
+(2701 packages #f #f ())
+(2702 print-undefined-names 2701 7 ())
+(2703 #f 2702 10 ())
+(2704 #f 2702 184 ())
+(2705 packages #f #f ())
+(2706 noting-undefined-variables 2705 7 ())
+(2707 add-name 2706 13 ())
+(2708 #f 2706 25 ())
+(2709 #f 2706 30 ())
+(2710 #f 2709 3 ())
+(2711 #f 2709 11 ())
+(2712 #f 2711 3 ())
+(2713 packages #f #f ())
+(2714 cenv->package 2713 7 ())
+(2715 packages #f #f ())
+(2716 get-location-for-unassignable 2715 7 ())
+(2717 #f 2716 98 ())
+(2718 #f 2716 103 ())
+(2719 packages #f #f ())
+(2720 package-note-caching! 2719 7 ())
+(2721 loop 2720 79 ())
+(2722 packages #f #f ())
+(2723 note-caching! 2722 7 ())
+(2724 packages #f #f ())
+(2725 location-for-reference 2724 7 ())
+(2726 loop 2725 28 ())
+(2727 packages #f #f ())
+(2728 get-location-for-undefined 2727 7 ())
+(2729 #f 2728 105 ())
+(2730 packages #f #f ())
+(2731 get-location 2730 7 ())
+(2732 packages #f #f ())
+(2733 really-link! 2732 7 ())
+(2734 loop##299 2733 11 ())
+(2735 packages #f #f ())
+(2736 link! 2735 7 ())
+(2737 #f 2736 14 ())
+(2738 packages #f #f ())
+(2739 location-on-demand 2738 7 ())
+(2740 #f 2739 6 ())
+(2741 packages #f #f ())
+(2742 packages #f #f ())
+(2743 environments #f #f ())
+(2744 set-reflective-tower-maker! 2743 28 ())
+(2745 environments #f #f ())
+(2746 make-reflective-tower 2745 7 ())
+(2747 recur 2746 19 ())
+(2748 #f 2747 6 ())
+(2749 environments #f #f ())
+(2750 null-environment 2749 7 ())
+(2751 environments #f #f ())
+(2752 set-scheme-report-environment! 2751 7 ())
+(2753 environments #f #f ())
+(2754 environments #f #f ())
+(2755 environments #f #f ())
+(2756 environments #f #f ())
+(2757 scheme-report-environment 2756 7 ())
+(2758 environments #f #f ())
+(2759 with-interaction-environment 2758 7 ())
+(2760 environments #f #f ())
+(2761 set-interaction-environment! 2760 7 ())
+(2762 environments #f #f ())
+(2763 interaction-environment 2762 7 ())
+(2764 environments #f #f ())
+(2765 environments #f #f ())
+(2766 carefully 2765 7 ())
+(2767 environments #f #f ())
+(2768 *structure-ref 2767 7 ())
+(2769 environments #f #f ())
+(2770 environment-define! 2769 7 ())
+(2771 environments #f #f ())
+(2772 environment-set! 2771 7 ())
+(2773 #f 2772 115 ())
+(2774 environments #f #f ())
+(2775 environment-ref 2774 7 ())
+(2776 #f 2775 22 ())
+(2777 filenames #f #f ())
+(2778 translate 2777 7 ())
+(2779 loop 2778 26 ())
+(2780 filenames #f #f ())
+(2781 set-translation! 2780 7 ())
+(2782 filenames #f #f ())
+(2783 translations 2782 7 ())
+(2784 filenames #f #f ())
+(2785 filenames #f #f ())
+(2786 string-posq 2785 7 ())
+(2787 loop 2786 19 ())
+(2788 filenames #f #f ())
+(2789 file-nondirectory-position 2788 7 ())
+(2790 loop 2789 24 ())
+(2791 filenames #f #f ())
+(2792 file-name-nondirectory 2791 7 ())
+(2793 filenames #f #f ())
+(2794 file-name-directory 2793 7 ())
+(2795 filenames #f #f ())
+(2796 filenames #f #f ())
+(2797 filenames #f #f ())
+(2798 filenames #f #f ())
+(2799 namestring-component 2798 7 ())
+(2800 filenames #f #f ())
+(2801 filenames #f #f ())
+(2802 filenames #f #f ())
+(2803 namestring 2802 7 ())
+(2804 #f 2803 183 ())
+(2805 reading-forms #f #f ())
+(2806 really-read-forms 2805 7 ())
+(2807 loop 2806 19 ())
+(2808 reading-forms #f #f ())
+(2809 read-forms 2808 7 ())
+(2810 #f 2809 47 ())
+(2811 reading-forms #f #f ())
+(2812 #f 2811 11 ())
+(2813 nodes #f #f ())
+(2814 #f 2813 15 ())
+(2815 nodes #f #f ())
+(2816 #f 2815 19 ())
+(2817 nodes #f #f ())
+(2818 #f 2817 19 ())
+(2819 #f 2818 29 ())
+(2820 #f 2818 53 ())
+(2821 nodes #f #f ())
+(2822 nodes #f #f ())
 (2823 nodes #f #f ())
-(2824 schemify 2823 7 ())
-(2825 nodes #f #f ())
-(2826 schemify-nodes 2825 7 ())
-(2827 #f 2826 6 ())
+(2824 #f 2823 19 ())
+(2825 #f 2824 6 ())
+(2826 nodes #f #f ())
+(2827 #f 2826 19 ())
 (2828 nodes #f #f ())
-(2829 define-schemifier 2828 7 ())
+(2829 #f 2828 19 ())
 (2830 nodes #f #f ())
-(2831 schemify-formals 2830 7 ())
+(2831 #f 2830 11 ())
 (2832 nodes #f #f ())
-(2833 schemify-lambda 2832 7 ())
+(2833 #f 2832 11 ())
 (2834 nodes #f #f ())
-(2835 nodes #f #f ())
-(2836 var-utilities #f #f ())
-(2837 normalize-formals 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 ())
-(2843 syntactic #f #f ())
-(2844 syntactic #f #f ())
-(2845 syntactic #f #f ())
-(2846 syntactic #f #f ())
-(2847 syntactic #f #f ())
-(2848 syntactic #f #f ())
-(2849 syntactic #f #f ())
-(2850 syntactic #f #f ())
-(2851 syntactic #f #f ())
-(2852 syntactic #f #f ())
-(2853 syntactic #f #f ())
-(2854 syntactic #f #f ())
-(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 ())
-(2869 syntactic #f #f ())
-(2870 #f 2869 19 ())
-(2871 syntactic #f #f ())
-(2872 #f 2871 19 ())
-(2873 #f 2872 87 ())
-(2874 syntactic #f #f ())
-(2875 #f 2874 19 ())
-(2876 syntactic #f #f ())
-(2877 #f 2876 19 ())
-(2878 syntactic #f #f ())
-(2879 #f 2878 19 ())
-(2880 syntactic #f #f ())
-(2881 #f 2880 19 ())
-(2882 syntactic #f #f ())
-(2883 #f 2882 19 ())
-(2884 syntactic #f #f ())
-(2885 #f 2884 19 ())
-(2886 syntactic #f #f ())
-(2887 #f 2886 19 ())
-(2888 syntactic #f #f ())
-(2889 #f 2888 19 ())
-(2890 syntactic #f #f ())
-(2891 #f 2890 11 ())
-(2892 syntactic #f #f ())
-(2893 syntactic #f #f ())
-(2894 syntactic #f #f ())
-(2895 syntactic #f #f ())
-(2896 at-least-this-long? 2895 7 ())
-(2897 syntactic #f #f ())
-(2898 names? 2897 7 ())
-(2899 syntactic #f #f ())
-(2900 destructure-define 2899 7 ())
-(2901 syntactic #f #f ())
-(2902 scan-define 2901 7 ())
-(2903 syntactic #f #f ())
-(2904 this-long? 2903 7 ())
-(2905 syntactic #f #f ())
-(2906 process-syntax 2905 7 ())
-(2907 syntactic #f #f ())
-(2908 scan-define-syntax 2907 7 ())
-(2909 syntactic #f #f ())
-(2910 expand-name 2909 7 ())
-(2911 syntactic #f #f ())
-(2912 expand-operator-form 2911 7 ())
-(2913 syntactic #f #f ())
-(2914 literal? 2913 7 ())
-(2915 syntactic #f #f ())
-(2916 expand-literal 2915 7 ())
+(2835 node-operator-id 2834 7 ())
+(2836 nodes #f #f ())
+(2837 node-form 2836 7 ())
+(2838 nodes #f #f ())
+(2839 set-node-plist! 2838 7 ())
+(2840 nodes #f #f ())
+(2841 node-plist 2840 7 ())
+(2842 nodes #f #f ())
+(2843 really-make-node 2842 7 ())
+(2844 nodes #f #f ())
+(2845 nodes #f #f ())
+(2846 nodes #f #f ())
+(2847 nodes #f #f ())
+(2848 nodes #f #f ())
+(2849 nodes #f #f ())
+(2850 #f 2849 11 ())
+(2851 nodes #f #f ())
+(2852 set-operator-type! 2851 7 ())
+(2853 nodes #f #f ())
+(2854 operator-type 2853 7 ())
+(2855 nodes #f #f ())
+(2856 operator-nargs 2855 7 ())
+(2857 nodes #f #f ())
+(2858 operator-uid 2857 7 ())
+(2859 nodes #f #f ())
+(2860 operator-name 2859 7 ())
+(2861 nodes #f #f ())
+(2862 make-operator 2861 7 ())
+(2863 nodes #f #f ())
+(2864 nodes #f #f ())
+(2865 operator? 2864 7 ())
+(2866 nodes #f #f ())
+(2867 get-operator 2866 7 ())
+(2868 nodes #f #f ())
+(2869 make-operator-table 2868 7 ())
+(2870 nodes #f #f ())
+(2871 operator-lookup 2870 7 ())
+(2872 nodes #f #f ())
+(2873 operator-define! 2872 7 ())
+(2874 nodes #f #f ())
+(2875 node? 2874 7 ())
+(2876 nodes #f #f ())
+(2877 make-node 2876 7 ())
+(2878 nodes #f #f ())
+(2879 node-ref 2878 7 ())
+(2880 nodes #f #f ())
+(2881 node-set! 2880 7 ())
+(2882 loop 2881 103 ())
+(2883 nodes #f #f ())
+(2884 node-operator 2883 7 ())
+(2885 nodes #f #f ())
+(2886 node-predicate 2885 7 ())
+(2887 #f 2886 37 ())
+(2888 nodes #f #f ())
+(2889 make-similar-node 2888 7 ())
+(2890 nodes #f #f ())
+(2891 force-node 2890 7 ())
+(2892 nodes #f #f ())
+(2893 schemify-node 2892 7 ())
+(2894 nodes #f #f ())
+(2895 schemify-sexp 2894 7 ())
+(2896 loop 2895 147 ())
+(2897 nodes #f #f ())
+(2898 schemify 2897 7 ())
+(2899 nodes #f #f ())
+(2900 schemify-nodes 2899 7 ())
+(2901 #f 2900 6 ())
+(2902 nodes #f #f ())
+(2903 define-schemifier 2902 7 ())
+(2904 nodes #f #f ())
+(2905 schemify-formals 2904 7 ())
+(2906 nodes #f #f ())
+(2907 schemify-lambda 2906 7 ())
+(2908 nodes #f #f ())
+(2909 nodes #f #f ())
+(2910 var-utilities #f #f ())
+(2911 normalize-formals 2910 7 ())
+(2912 var-utilities #f #f ())
+(2913 n-ary? 2912 7 ())
+(2914 var-utilities #f #f ())
+(2915 number-of-required-args 2914 7 ())
+(2916 loop##318 2915 11 ())
 (2917 syntactic #f #f ())
-(2918 expand-list 2917 7 ())
-(2919 #f 2918 6 ())
+(2918 syntactic #f #f ())
+(2919 syntactic #f #f ())
 (2920 syntactic #f #f ())
-(2921 expand-call 2920 7 ())
+(2921 syntactic #f #f ())
 (2922 syntactic #f #f ())
-(2923 expand 2922 7 ())
+(2923 syntactic #f #f ())
 (2924 syntactic #f #f ())
-(2925 expand-macro-application 2924 7 ())
-(2926 #f 2925 6 ())
+(2925 syntactic #f #f ())
+(2926 syntactic #f #f ())
 (2927 syntactic #f #f ())
-(2928 expand-structure-ref 2927 7 ())
-(2929 lose 2928 32 ())
+(2928 syntactic #f #f ())
+(2929 syntactic #f #f ())
 (2930 syntactic #f #f ())
-(2931 expand-head 2930 7 ())
+(2931 syntactic #f #f ())
 (2932 syntactic #f #f ())
-(2933 scan-forms 2932 7 ())
-(2934 loop 2933 22 ())
-(2935 syntactic #f #f ())
-(2936 expand-define 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 ())
-(2942 syntactic #f #f ())
-(2943 static-value 2942 7 ())
-(2944 syntactic #f #f ())
-(2945 make-operator-predicate 2944 7 ())
-(2946 #f 2945 26 ())
-(2947 syntactic #f #f ())
-(2948 body-lossage 2947 7 ())
-(2949 syntactic #f #f ())
-(2950 scan-body-forms 2949 7 ())
-(2951 #f 2950 231 ())
+(2933 syntactic #f #f ())
+(2934 #f 2933 19 ())
+(2935 #f 2934 108 ())
+(2936 syntactic #f #f ())
+(2937 #f 2936 19 ())
+(2938 #f 2937 92 ())
+(2939 #f 2938 6 ())
+(2940 syntactic #f #f ())
+(2941 #f 2940 19 ())
+(2942 #f 2941 96 ())
+(2943 syntactic #f #f ())
+(2944 #f 2943 19 ())
+(2945 syntactic #f #f ())
+(2946 #f 2945 19 ())
+(2947 #f 2946 75 ())
+(2948 syntactic #f #f ())
+(2949 #f 2948 19 ())
+(2950 syntactic #f #f ())
+(2951 #f 2950 19 ())
 (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 ())
+(2953 #f 2952 19 ())
+(2954 syntactic #f #f ())
+(2955 #f 2954 19 ())
+(2956 syntactic #f #f ())
+(2957 #f 2956 19 ())
 (2958 syntactic #f #f ())
-(2959 define-expander 2958 7 ())
+(2959 #f 2958 19 ())
 (2960 syntactic #f #f ())
-(2961 unspecific-node 2960 7 ())
+(2961 #f 2960 19 ())
 (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 ())
+(2963 #f 2962 19 ())
+(2964 syntactic #f #f ())
+(2965 #f 2964 11 ())
+(2966 syntactic #f #f ())
+(2967 syntactic #f #f ())
 (2968 syntactic #f #f ())
-(2969 specs? 2968 7 ())
-(2970 syntactic #f #f ())
-(2971 syntax? 2970 7 ())
-(2972 primops #f #f ())
-(2973 primops #f #f ())
-(2974 #f 2973 11 ())
-(2975 primops #f #f ())
-(2976 primop-name 2975 7 ())
-(2977 primops #f #f ())
-(2978 primop-type 2977 7 ())
-(2979 primops #f #f ())
-(2980 primop-closed 2979 7 ())
-(2981 primops #f #f ())
-(2982 primop-compilator 2981 7 ())
-(2983 primops #f #f ())
-(2984 make-primop 2983 7 ())
-(2985 primops #f #f ())
-(2986 primops #f #f ())
-(2987 primop? 2986 7 ())
-(2988 primops #f #f ())
-(2989 walk-primops 2988 7 ())
-(2990 #f 2989 6 ())
-(2991 primops #f #f ())
-(2992 define-compiler-primitive 2991 7 ())
-(2993 primops #f #f ())
-(2994 get-primop 2993 7 ())
-(2995 debug-data #f #f ())
-(2996 #f 2995 7 ())
-(2997 debug-data #f #f ())
-(2998 debug-data-uid 2997 7 ())
-(2999 debug-data #f #f ())
-(3000 debug-data-name 2999 7 ())
-(3001 debug-data #f #f ())
-(3002 debug-data-parent 3001 7 ())
-(3003 debug-data #f #f ())
-(3004 debug-data-pc-in-parent 3003 7 ())
-(3005 debug-data #f #f ())
-(3006 set-debug-data-env-maps! 3005 7 ())
-(3007 debug-data #f #f ())
-(3008 debug-data-env-maps 3007 7 ())
-(3009 debug-data #f #f ())
-(3010 set-debug-data-source! 3009 7 ())
-(3011 debug-data #f #f ())
-(3012 debug-data-source 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 ())
-(3018 stack-check #f #f ())
-(3019 loop##327 3018 8 ())
-(3020 stack-check #f #f ())
-(3021 #f 3020 11 ())
-(3022 loop 3021 48 ())
-(3023 stack-check #f #f ())
-(3024 #f 3023 11 ())
-(3025 stack-check #f #f ())
-(3026 #f 3025 11 ())
-(3027 stack-check #f #f ())
-(3028 stack-check #f #f ())
-(3029 stack-check #f #f ())
-(3030 #f 3029 11 ())
-(3031 loop 3030 68 ())
-(3032 stack-check #f #f ())
-(3033 #f 3032 11 ())
-(3034 stack-check #f #f ())
-(3035 #f 3034 11 ())
-(3036 stack-check #f #f ())
-(3037 #f 3036 11 ())
-(3038 stack-check #f #f ())
-(3039 #f 3038 11 ())
-(3040 stack-check #f #f ())
-(3041 stack-check #f #f ())
-(3042 stack-check #f #f ())
-(3043 stack-check #f #f ())
-(3044 stack-check #f #f ())
-(3045 stack-check #f #f ())
-(3046 stack-check #f #f ())
-(3047 stack-check #f #f ())
-(3048 stack-check #f #f ())
-(3049 stack-check #f #f ())
-(3050 stack-check #f #f ())
-(3051 stack-check #f #f ())
-(3052 stack-check #f #f ())
-(3053 stack-check #f #f ())
-(3054 stack-check #f #f ())
-(3055 stack-check #f #f ())
-(3056 stack-check #f #f ())
-(3057 stack-max 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 ())
-(3069 stack-check #f #f ())
-(3070 imax 3069 7 ())
-(3071 stack-check #f #f ())
-(3072 pusher 3071 7 ())
-(3073 #f 3072 6 ())
-(3074 stack-check #f #f ())
-(3075 continue 3074 7 ())
-(3076 stack-check #f #f ())
-(3077 continuer 3076 7 ())
-(3078 #f 3077 6 ())
-(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 ())
-(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 ())
-(3089 segments #f #f ())
-(3090 segments #f #f ())
-(3091 segments #f #f ())
-(3092 segments #f #f ())
-(3093 #f 3092 15 ())
-(3094 segments #f #f ())
-(3095 astate-code-vector 3094 7 ())
-(3096 segments #f #f ())
-(3097 set-astate-pc! 3096 7 ())
-(3098 segments #f #f ())
-(3099 astate-pc 3098 7 ())
-(3100 segments #f #f ())
-(3101 set-astate-count! 3100 7 ())
-(3102 segments #f #f ())
-(3103 astate-count 3102 7 ())
-(3104 segments #f #f ())
-(3105 set-astate-literals! 3104 7 ())
-(3106 segments #f #f ())
-(3107 astate-literals 3106 7 ())
-(3108 segments #f #f ())
-(3109 make-assembly-state 3108 7 ())
-(3110 segments #f #f ())
-(3111 segments #f #f ())
-(3112 segments #f #f ())
-(3113 segments #f #f ())
-(3114 segments #f #f ())
-(3115 segments #f #f ())
-(3116 segments #f #f ())
-(3117 segments #f #f ())
-(3118 segments #f #f ())
-(3119 segments #f #f ())
-(3120 segments #f #f ())
-(3121 segments #f #f ())
-(3122 segments #f #f ())
-(3123 segments #f #f ())
-(3124 new-template-uid 3123 7 ())
-(3125 segments #f #f ())
-(3126 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 ())
-(3143 segments #f #f ())
-(3144 note-debug-data! 3143 7 ())
-(3145 segments #f #f ())
-(3146 debug-data->info 3145 7 ())
-(3147 segments #f #f ())
-(3148 get-debug-data 3147 7 ())
-(3149 segments #f #f ())
-(3150 new-debug-data 3149 7 ())
-(3151 segments #f #f ())
-(3152 high-byte 3151 7 ())
-(3153 segments #f #f ())
-(3154 emit-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 ())
+(2969 syntactic #f #f ())
+(2970 at-least-this-long? 2969 7 ())
+(2971 syntactic #f #f ())
+(2972 names? 2971 7 ())
+(2973 syntactic #f #f ())
+(2974 destructure-define 2973 7 ())
+(2975 syntactic #f #f ())
+(2976 scan-define 2975 7 ())
+(2977 syntactic #f #f ())
+(2978 this-long? 2977 7 ())
+(2979 syntactic #f #f ())
+(2980 process-syntax 2979 7 ())
+(2981 syntactic #f #f ())
+(2982 scan-define-syntax 2981 7 ())
+(2983 syntactic #f #f ())
+(2984 expand-name 2983 7 ())
+(2985 syntactic #f #f ())
+(2986 expand-operator-form 2985 7 ())
+(2987 syntactic #f #f ())
+(2988 literal? 2987 7 ())
+(2989 syntactic #f #f ())
+(2990 expand-literal 2989 7 ())
+(2991 syntactic #f #f ())
+(2992 expand-list 2991 7 ())
+(2993 #f 2992 6 ())
+(2994 syntactic #f #f ())
+(2995 expand-call 2994 7 ())
+(2996 syntactic #f #f ())
+(2997 expand 2996 7 ())
+(2998 syntactic #f #f ())
+(2999 expand-macro-application 2998 7 ())
+(3000 #f 2999 6 ())
+(3001 syntactic #f #f ())
+(3002 expand-structure-ref 3001 7 ())
+(3003 lose 3002 28 ())
+(3004 syntactic #f #f ())
+(3005 expand-head 3004 7 ())
+(3006 syntactic #f #f ())
+(3007 scan-forms 3006 7 ())
+(3008 loop 3007 22 ())
+(3009 syntactic #f #f ())
+(3010 expand-define 3009 7 ())
+(3011 syntactic #f #f ())
+(3012 expand-scanned-form 3011 7 ())
+(3013 syntactic #f #f ())
+(3014 expand-form 3013 7 ())
+(3015 loop 3014 32 ())
+(3016 syntactic #f #f ())
+(3017 static-value 3016 7 ())
+(3018 syntactic #f #f ())
+(3019 make-operator-predicate 3018 7 ())
+(3020 #f 3019 26 ())
+(3021 syntactic #f #f ())
+(3022 body-lossage 3021 7 ())
+(3023 syntactic #f #f ())
+(3024 scan-body-forms 3023 7 ())
+(3025 #f 3024 226 ())
+(3026 syntactic #f #f ())
+(3027 expand-letrec 3026 7 ())
+(3028 #f 3027 10 ())
+(3029 syntactic #f #f ())
+(3030 expand-body 3029 7 ())
+(3031 #f 3030 33 ())
+(3032 syntactic #f #f ())
+(3033 define-expander 3032 7 ())
+(3034 syntactic #f #f ())
+(3035 unspecific-node 3034 7 ())
+(3036 syntactic #f #f ())
+(3037 bind-names 3036 7 ())
+(3038 loop 3037 26 ())
+(3039 syntactic #f #f ())
+(3040 expand-lambda 3039 7 ())
+(3041 #f 3040 6 ())
+(3042 syntactic #f #f ())
+(3043 specs? 3042 7 ())
+(3044 syntactic #f #f ())
+(3045 syntax? 3044 7 ())
+(3046 primops #f #f ())
+(3047 primops #f #f ())
+(3048 #f 3047 11 ())
+(3049 primops #f #f ())
+(3050 primop-name 3049 7 ())
+(3051 primops #f #f ())
+(3052 primop-type 3051 7 ())
+(3053 primops #f #f ())
+(3054 primop-closed 3053 7 ())
+(3055 primops #f #f ())
+(3056 primop-compilator 3055 7 ())
+(3057 primops #f #f ())
+(3058 make-primop 3057 7 ())
+(3059 primops #f #f ())
+(3060 primops #f #f ())
+(3061 primop? 3060 7 ())
+(3062 primops #f #f ())
+(3063 walk-primops 3062 7 ())
+(3064 #f 3063 6 ())
+(3065 primops #f #f ())
+(3066 define-compiler-primitive 3065 7 ())
+(3067 primops #f #f ())
+(3068 get-primop 3067 7 ())
+(3069 debug-data #f #f ())
+(3070 #f 3069 7 ())
+(3071 debug-data #f #f ())
+(3072 debug-data-uid 3071 7 ())
+(3073 debug-data #f #f ())
+(3074 debug-data-name 3073 7 ())
+(3075 debug-data #f #f ())
+(3076 debug-data-parent 3075 7 ())
+(3077 debug-data #f #f ())
+(3078 debug-data-pc-in-parent 3077 7 ())
+(3079 debug-data #f #f ())
+(3080 set-debug-data-env-maps! 3079 7 ())
+(3081 debug-data #f #f ())
+(3082 debug-data-env-maps 3081 7 ())
+(3083 debug-data #f #f ())
+(3084 set-debug-data-source! 3083 7 ())
+(3085 debug-data #f #f ())
+(3086 debug-data-source 3085 7 ())
+(3087 debug-data #f #f ())
+(3088 make-debug-data 3087 7 ())
+(3089 debug-data #f #f ())
+(3090 debug-data #f #f ())
+(3091 debug-data? 3090 7 ())
+(3092 stack-check #f #f ())
+(3093 loop##346 3092 8 ())
+(3094 stack-check #f #f ())
+(3095 #f 3094 11 ())
+(3096 loop 3095 48 ())
+(3097 stack-check #f #f ())
+(3098 #f 3097 11 ())
+(3099 stack-check #f #f ())
+(3100 #f 3099 11 ())
+(3101 stack-check #f #f ())
+(3102 stack-check #f #f ())
+(3103 stack-check #f #f ())
+(3104 #f 3103 11 ())
+(3105 loop 3104 68 ())
+(3106 stack-check #f #f ())
+(3107 #f 3106 11 ())
+(3108 stack-check #f #f ())
+(3109 #f 3108 11 ())
+(3110 stack-check #f #f ())
+(3111 #f 3110 11 ())
+(3112 stack-check #f #f ())
+(3113 #f 3112 11 ())
+(3114 stack-check #f #f ())
+(3115 stack-check #f #f ())
+(3116 stack-check #f #f ())
+(3117 stack-check #f #f ())
+(3118 stack-check #f #f ())
+(3119 stack-check #f #f ())
+(3120 stack-check #f #f ())
+(3121 stack-check #f #f ())
+(3122 stack-check #f #f ())
+(3123 stack-check #f #f ())
+(3124 stack-check #f #f ())
+(3125 stack-check #f #f ())
+(3126 stack-check #f #f ())
+(3127 stack-check #f #f ())
+(3128 stack-check #f #f ())
+(3129 stack-check #f #f ())
+(3130 stack-check #f #f ())
+(3131 stack-max 3130 7 ())
+(3132 stack-check #f #f ())
+(3133 protocol-skip 3132 7 ())
+(3134 stack-check #f #f ())
+(3135 maximum-stack-use 3134 7 ())
+(3136 loop##349 3135 74 ())
+(3137 stack-check #f #f ())
+(3138 nothing 3137 7 ())
+(3139 #f 3138 6 ())
+(3140 stack-check #f #f ())
+(3141 popper 3140 7 ())
+(3142 #f 3141 6 ())
+(3143 stack-check #f #f ())
+(3144 imax 3143 7 ())
+(3145 stack-check #f #f ())
+(3146 pusher 3145 7 ())
+(3147 #f 3146 6 ())
+(3148 stack-check #f #f ())
+(3149 continue 3148 7 ())
+(3150 stack-check #f #f ())
+(3151 continuer 3150 7 ())
+(3152 #f 3151 6 ())
+(3153 stack-check #f #f ())
+(3154 get-offset 3153 7 ())
+(3155 stack-check #f #f ())
+(3156 do-make-cont 3155 7 ())
+(3157 #f 3156 6 ())
+(3158 stack-check #f #f ())
+(3159 arg-spec-size 3158 7 ())
+(3160 stack-check #f #f ())
+(3161 stack-function 3160 7 ())
+(3162 loop 3161 22 ())
 (3163 segments #f #f ())
-(3164 literal->index 3163 7 ())
+(3164 segments #f #f ())
 (3165 segments #f #f ())
-(3166 emit-literal! 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 ())
+(3166 segments #f #f ())
+(3167 #f 3166 15 ())
+(3168 segments #f #f ())
+(3169 astate-code-vector 3168 7 ())
+(3170 segments #f #f ())
+(3171 set-astate-pc! 3170 7 ())
 (3172 segments #f #f ())
-(3173 emit-segment! 3172 7 ())
+(3173 astate-pc 3172 7 ())
 (3174 segments #f #f ())
-(3175 emit-with-environment-maps! 3174 7 ())
-(3176 #f 3175 14 ())
-(3177 segments #f #f ())
-(3178 make-astate 3177 7 ())
-(3179 segments #f #f ())
-(3180 template 3179 7 ())
-(3181 #f 3180 10 ())
+(3175 set-astate-count! 3174 7 ())
+(3176 segments #f #f ())
+(3177 astate-count 3176 7 ())
+(3178 segments #f #f ())
+(3179 set-astate-literals! 3178 7 ())
+(3180 segments #f #f ())
+(3181 astate-literals 3180 7 ())
 (3182 segments #f #f ())
-(3183 segment-data->template 3182 7 ())
-(3184 loop##343 3183 68 ())
+(3183 make-assembly-state 3182 7 ())
+(3184 segments #f #f ())
 (3185 segments #f #f ())
-(3186 segment->template 3185 7 ())
-(3187 #f 3186 124 ())
+(3186 segments #f #f ())
+(3187 segments #f #f ())
 (3188 segments #f #f ())
-(3189 instruction 3188 7 ())
-(3190 #f 3189 30 ())
-(3191 #f 3190 22 ())
+(3189 segments #f #f ())
+(3190 segments #f #f ())
+(3191 segments #f #f ())
 (3192 segments #f #f ())
-(3193 sequentially-2 3192 7 ())
-(3194 #f 3193 59 ())
+(3193 segments #f #f ())
+(3194 segments #f #f ())
 (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 ())
-(3207 segments #f #f ())
-(3208 make-label 3207 7 ())
+(3196 segments #f #f ())
+(3197 segments #f #f ())
+(3198 new-template-uid 3197 7 ())
+(3199 segments #f #f ())
+(3200 template-uid 3199 7 ())
+(3201 segments #f #f ())
+(3202 set-template-uid! 3201 7 ())
+(3203 segments #f #f ())
+(3204 debug-flag-accessor 3203 7 ())
+(3205 #f 3204 26 ())
+(3206 segments #f #f ())
+(3207 debug-flag-modifier 3206 7 ())
+(3208 #f 3207 26 ())
 (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 ())
+(3210 saving-and-restoring 3209 7 ())
+(3211 swap 3210 6 ())
+(3212 segments #f #f ())
+(3213 with-fresh-compiler-state 3212 7 ())
+(3214 #f 3213 44 ())
+(3215 #f 3214 3 ())
+(3216 #f 3214 8 ())
+(3217 segments #f #f ())
+(3218 note-debug-data! 3217 7 ())
+(3219 segments #f #f ())
+(3220 debug-data->info 3219 7 ())
+(3221 segments #f #f ())
+(3222 get-debug-data 3221 7 ())
+(3223 segments #f #f ())
+(3224 new-debug-data 3223 7 ())
 (3225 segments #f #f ())
-(3226 note-environment 3225 7 ())
-(3227 #f 3226 31 ())
-(3228 segments #f #f ())
+(3226 high-byte 3225 7 ())
+(3227 segments #f #f ())
+(3228 emit-byte! 3227 7 ())
 (3229 segments #f #f ())
-(3230 segments #f #f ())
-(3231 reconstruction #f #f ())
-(3232 constant-type 3231 7 ())
-(3233 reconstruction #f #f ())
-(3234 reconstruction #f #f ())
-(3235 reconstruction #f #f ())
-(3236 reconstruct-apply 3235 7 ())
-(3237 #f 3236 56 ())
-(3238 reconstruction #f #f ())
-(3239 #f 3238 11 ())
-(3240 reconstruction #f #f ())
-(3241 #f 3240 11 ())
-(3242 #f 3241 10 ())
-(3243 reconstruction #f #f ())
-(3244 #f 3243 15 ())
-(3245 reconstruction #f #f ())
-(3246 define-primop-reconstructor 3245 7 ())
-(3247 reconstruction #f #f ())
-(3248 reconstruction #f #f ())
-(3249 reconstruction #f #f ())
-(3250 reconstruction #f #f ())
-(3251 reconstruction #f #f ())
-(3252 #f 3251 15 ())
-(3253 reconstruction #f #f ())
-(3254 #f 3253 15 ())
-(3255 reconstruction #f #f ())
-(3256 node->type 3255 7 ())
-(3257 reconstruction #f #f ())
-(3258 #f 3257 15 ())
-(3259 reconstruction #f #f ())
-(3260 #f 3259 15 ())
-(3261 #f 3260 60 ())
-(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 ())
-(3274 reconstruction #f #f ())
-(3275 #f 3274 13 ())
-(3276 reconstruction #f #f ())
-(3277 #f 3276 13 ())
-(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 ())
-(3287 reconstruction #f #f ())
-(3288 proc->reconstructor 3287 7 ())
-(3289 reconstruction #f #f ())
-(3290 #f 3289 15 ())
-(3291 reconstruction #f #f ())
-(3292 reconstruct-name 3291 7 ())
-(3293 reconstruction #f #f ())
-(3294 #f 3293 15 ())
-(3295 reconstruction #f #f ())
-(3296 careful-codomain 3295 7 ())
-(3297 reconstruction #f #f ())
-(3298 reconstruct-lambda 3297 7 ())
-(3299 #f 3298 71 ())
-(3300 reconstruction #f #f ())
-(3301 #f 3300 15 ())
-(3302 reconstruction #f #f ())
-(3303 #f 3302 15 ())
-(3304 reconstruction #f #f ())
-(3305 define-reconstructor 3304 7 ())
-(3306 reconstruction #f #f ())
-(3307 #f 3306 11 ())
+(3230 low-byte 3229 7 ())
+(3231 segments #f #f ())
+(3232 position 3231 7 ())
+(3233 loop 3232 22 ())
+(3234 segments #f #f ())
+(3235 literal-position 3234 7 ())
+(3236 #f 3235 21 ())
+(3237 segments #f #f ())
+(3238 literal->index 3237 7 ())
+(3239 segments #f #f ())
+(3240 emit-literal! 3239 7 ())
+(3241 segments #f #f ())
+(3242 code-vector-set2! 3241 7 ())
+(3243 segments #f #f ())
+(3244 check-stack-use 3243 7 ())
+(3245 loop##360 3244 77 ())
+(3246 segments #f #f ())
+(3247 emit-segment! 3246 7 ())
+(3248 segments #f #f ())
+(3249 emit-with-environment-maps! 3248 7 ())
+(3250 #f 3249 14 ())
+(3251 segments #f #f ())
+(3252 make-astate 3251 7 ())
+(3253 segments #f #f ())
+(3254 template 3253 7 ())
+(3255 #f 3254 10 ())
+(3256 segments #f #f ())
+(3257 segment-data->template 3256 7 ())
+(3258 loop##362 3257 68 ())
+(3259 segments #f #f ())
+(3260 segment->template 3259 7 ())
+(3261 #f 3260 124 ())
+(3262 segments #f #f ())
+(3263 instruction 3262 7 ())
+(3264 #f 3263 30 ())
+(3265 #f 3264 22 ())
+(3266 segments #f #f ())
+(3267 sequentially-2 3266 7 ())
+(3268 #f 3267 59 ())
+(3269 segments #f #f ())
+(3270 sequentially 3269 7 ())
+(3271 loop 3270 97 ())
+(3272 #f 3270 112 ())
+(3273 loop 3272 18 ())
+(3274 segments #f #f ())
+(3275 instruction-with-literal 3274 7 ())
+(3276 #f 3275 30 ())
+(3277 #f 3276 160 ())
+(3278 segments #f #f ())
+(3279 instruction-with-location 3278 7 ())
+(3280 #f 3279 10 ())
+(3281 segments #f #f ())
+(3282 make-label 3281 7 ())
+(3283 segments #f #f ())
+(3284 insert-label! 3283 7 ())
+(3285 segments #f #f ())
+(3286 instruction-using-label 3285 7 ())
+(3287 #f 3286 49 ())
+(3288 segments #f #f ())
+(3289 computed-goto-instruction 3288 7 ())
+(3290 #f 3289 68 ())
+(3291 loop##363 3290 75 ())
+(3292 segments #f #f ())
+(3293 attach-label 3292 7 ())
+(3294 #f 3293 19 ())
+(3295 #f 3294 37 ())
+(3296 segments #f #f ())
+(3297 note-source-code 3296 7 ())
+(3298 #f 3297 19 ())
+(3299 segments #f #f ())
+(3300 note-environment 3299 7 ())
+(3301 #f 3300 31 ())
+(3302 segments #f #f ())
+(3303 segments #f #f ())
+(3304 segments #f #f ())
+(3305 reconstruction #f #f ())
+(3306 constant-type 3305 7 ())
+(3307 reconstruction #f #f ())
 (3308 reconstruction #f #f ())
-(3309 examine 3308 7 ())
-(3310 reconstruction #f #f ())
-(3311 reconstruct 3310 7 ())
+(3309 reconstruction #f #f ())
+(3310 reconstruct-apply 3309 7 ())
+(3311 #f 3310 56 ())
 (3312 reconstruction #f #f ())
-(3313 reconstruct-type 3312 7 ())
+(3313 #f 3312 11 ())
 (3314 reconstruction #f #f ())
-(3315 node-type 3314 7 ())
-(3316 compiler #f #f ())
-(3317 compiler #f #f ())
-(3318 loop 3317 60 ())
-(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 ())
-(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 ())
-(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 ())
-(3370 compiler #f #f ())
-(3371 #f 3370 7 ())
-(3372 compiler #f #f ())
-(3373 compiler #f #f ())
-(3374 #f 3373 7 ())
-(3375 compiler #f #f ())
-(3376 compiler #f #f ())
-(3377 compiler #f #f ())
-(3378 compiler #f #f ())
-(3379 compiler #f #f ())
-(3380 loop##350 3379 12 ())
-(3381 compiler #f #f ())
-(3382 compiler #f #f ())
-(3383 #f 3382 19 ())
-(3384 compiler #f #f ())
-(3385 compiler #f #f ())
-(3386 compiler #f #f ())
-(3387 compiler #f #f ())
-(3388 compiler #f #f ())
-(3389 compiler #f #f ())
+(3315 #f 3314 11 ())
+(3316 #f 3315 10 ())
+(3317 reconstruction #f #f ())
+(3318 #f 3317 15 ())
+(3319 reconstruction #f #f ())
+(3320 define-primop-reconstructor 3319 7 ())
+(3321 reconstruction #f #f ())
+(3322 reconstruction #f #f ())
+(3323 reconstruction #f #f ())
+(3324 reconstruction #f #f ())
+(3325 reconstruction #f #f ())
+(3326 #f 3325 15 ())
+(3327 reconstruction #f #f ())
+(3328 #f 3327 15 ())
+(3329 reconstruction #f #f ())
+(3330 node->type 3329 7 ())
+(3331 reconstruction #f #f ())
+(3332 #f 3331 15 ())
+(3333 reconstruction #f #f ())
+(3334 #f 3333 15 ())
+(3335 #f 3334 59 ())
+(3336 reconstruction #f #f ())
+(3337 #f 3336 15 ())
+(3338 reconstruction #f #f ())
+(3339 #f 3338 15 ())
+(3340 loop##365 3339 11 ())
+(3341 reconstruction #f #f ())
+(3342 reconstruction #f #f ())
+(3343 fork-constraints 3342 7 ())
+(3344 #f 3343 13 ())
+(3345 reconstruction #f #f ())
+(3346 #f 3345 15 ())
+(3347 #f 3346 150 ())
+(3348 reconstruction #f #f ())
+(3349 #f 3348 13 ())
+(3350 reconstruction #f #f ())
+(3351 #f 3350 13 ())
+(3352 reconstruction #f #f ())
+(3353 #f 3352 15 ())
+(3354 reconstruction #f #f ())
+(3355 #f 3354 15 ())
+(3356 reconstruction #f #f ())
+(3357 reconstruct-call 3356 7 ())
+(3358 lose 3357 112 ())
+(3359 #f 3358 3 ())
+(3360 loop 3357 179 ())
+(3361 reconstruction #f #f ())
+(3362 proc->reconstructor 3361 7 ())
+(3363 reconstruction #f #f ())
+(3364 #f 3363 15 ())
+(3365 reconstruction #f #f ())
+(3366 reconstruct-name 3365 7 ())
+(3367 reconstruction #f #f ())
+(3368 #f 3367 15 ())
+(3369 reconstruction #f #f ())
+(3370 careful-codomain 3369 7 ())
+(3371 reconstruction #f #f ())
+(3372 reconstruct-lambda 3371 7 ())
+(3373 #f 3372 67 ())
+(3374 reconstruction #f #f ())
+(3375 #f 3374 15 ())
+(3376 reconstruction #f #f ())
+(3377 #f 3376 15 ())
+(3378 reconstruction #f #f ())
+(3379 define-reconstructor 3378 7 ())
+(3380 reconstruction #f #f ())
+(3381 #f 3380 11 ())
+(3382 reconstruction #f #f ())
+(3383 examine 3382 7 ())
+(3384 reconstruction #f #f ())
+(3385 reconstruct 3384 7 ())
+(3386 reconstruction #f #f ())
+(3387 reconstruct-type 3386 7 ())
+(3388 reconstruction #f #f ())
+(3389 node-type 3388 7 ())
 (3390 compiler #f #f ())
 (3391 compiler #f #f ())
-(3392 #f 3391 19 ())
+(3392 loop 3391 59 ())
 (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 ())
-(3401 compiler #f #f ())
-(3402 #f 3401 19 ())
+(3396 define-one-or-two 3395 7 ())
+(3397 #f 3396 12 ())
+(3398 #f 3396 17 ())
+(3399 compiler #f #f ())
+(3400 define-one-or-two 3399 7 ())
+(3401 #f 3400 73 ())
+(3402 #f 3400 78 ())
 (3403 compiler #f #f ())
-(3404 #f 3403 19 ())
+(3404 compiler #f #f ())
 (3405 compiler #f #f ())
-(3406 compiler #f #f ())
-(3407 #f 3406 19 ())
-(3408 loop 3407 89 ())
+(3406 define=< 3405 7 ())
+(3407 #f 3406 73 ())
+(3408 #f 3406 78 ())
 (3409 compiler #f #f ())
-(3410 #f 3409 19 ())
-(3411 compiler #f #f ())
-(3412 #f 3411 19 ())
+(3410 define+* 3409 7 ())
+(3411 #f 3410 43 ())
+(3412 #f 3410 48 ())
 (3413 compiler #f #f ())
-(3414 #f 3413 19 ())
-(3415 compiler #f #f ())
-(3416 #f 3415 19 ())
+(3414 define-char-io 3413 7 ())
+(3415 #f 3414 12 ())
+(3416 #f 3414 17 ())
 (3417 compiler #f #f ())
-(3418 #f 3417 41 ())
-(3419 compiler #f #f ())
-(3420 #f 3419 41 ())
+(3418 define-char-io 3417 7 ())
+(3419 #f 3418 12 ())
+(3420 #f 3418 17 ())
 (3421 compiler #f #f ())
-(3422 #f 3421 19 ())
-(3423 compiler #f #f ())
-(3424 #f 3423 11 ())
+(3422 n-ary-constructor 3421 7 ())
+(3423 #f 3422 16 ())
+(3424 #f 3422 21 ())
 (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 ())
+(3426 #f 3425 21 ())
+(3427 compiler #f #f ())
+(3428 #f 3427 44 ())
+(3429 #f 3428 112 ())
+(3430 #f 3427 49 ())
 (3431 compiler #f #f ())
-(3432 compile 3431 7 ())
-(3433 compiler #f #f ())
-(3434 compile-expression 3433 7 ())
-(3435 compiler #f #f ())
-(3436 define-compilator 3435 7 ())
+(3432 #f 3431 17 ())
+(3433 #f 3431 22 ())
+(3434 compiler #f #f ())
+(3435 #f 3434 73 ())
+(3436 #f 3434 84 ())
 (3437 compiler #f #f ())
-(3438 ignore-values-cont? 3437 7 ())
-(3439 compiler #f #f ())
-(3440 deliver-value 3439 7 ())
-(3441 compiler #f #f ())
-(3442 compile-constant 3441 7 ())
+(3438 #f 3437 71 ())
+(3439 #f 3437 76 ())
+(3440 compiler #f #f ())
+(3441 #f 3440 57 ())
+(3442 #f 3440 62 ())
 (3443 compiler #f #f ())
-(3444 return-cont? 3443 7 ())
-(3445 compiler #f #f ())
-(3446 fixup-source 3445 7 ())
+(3444 compiler #f #f ())
+(3445 #f 3444 7 ())
+(3446 compiler #f #f ())
 (3447 compiler #f #f ())
-(3448 maybe-push-continuation 3447 7 ())
+(3448 #f 3447 7 ())
 (3449 compiler #f #f ())
-(3450 make-cont 3449 7 ())
+(3450 compiler #f #f ())
 (3451 compiler #f #f ())
-(3452 fall-through-cont 3451 7 ())
+(3452 compiler #f #f ())
 (3453 compiler #f #f ())
-(3454 push-arguments 3453 7 ())
-(3455 recur 3454 37 ())
+(3454 loop##369 3453 12 ())
+(3455 compiler #f #f ())
 (3456 compiler #f #f ())
-(3457 compile-unknown-call 3456 7 ())
+(3457 #f 3456 19 ())
 (3458 compiler #f #f ())
-(3459 name-node-binding 3458 7 ())
+(3459 compiler #f #f ())
 (3460 compiler #f #f ())
-(3461 compile-name-call 3460 7 ())
+(3461 compiler #f #f ())
 (3462 compiler #f #f ())
-(3463 generate-trap 3462 7 ())
+(3463 compiler #f #f ())
 (3464 compiler #f #f ())
-(3465 named-cont 3464 7 ())
-(3466 compiler #f #f ())
-(3467 push-all-with-names 3466 7 ())
+(3465 compiler #f #f ())
+(3466 #f 3465 19 ())
+(3467 compiler #f #f ())
 (3468 compiler #f #f ())
-(3469 set-lexical-offsets! 3468 7 ())
-(3470 loop 3469 22 ())
+(3469 compiler #f #f ())
+(3470 compiler #f #f ())
 (3471 compiler #f #f ())
-(3472 name-node->symbol 3471 7 ())
-(3473 compiler #f #f ())
-(3474 return-cont 3473 7 ())
+(3472 #f 3471 19 ())
+(3473 #f 3472 68 ())
+(3474 #f 3472 152 ())
 (3475 compiler #f #f ())
-(3476 compile-lambda-code 3475 7 ())
+(3476 #f 3475 19 ())
 (3477 compiler #f #f ())
-(3478 cont-name 3477 7 ())
+(3478 #f 3477 19 ())
 (3479 compiler #f #f ())
-(3480 compile-redex 3479 7 ())
-(3481 compiler #f #f ())
-(3482 compile-call 3481 7 ())
+(3480 compiler #f #f ())
+(3481 #f 3480 19 ())
+(3482 loop 3481 89 ())
 (3483 compiler #f #f ())
-(3484 compile-lambda 3483 7 ())
+(3484 #f 3483 19 ())
 (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 ())
+(3486 #f 3485 19 ())
+(3487 compiler #f #f ())
+(3488 #f 3487 19 ())
+(3489 compiler #f #f ())
+(3490 #f 3489 19 ())
+(3491 compiler #f #f ())
+(3492 #f 3491 41 ())
+(3493 compiler #f #f ())
+(3494 #f 3493 41 ())
+(3495 compiler #f #f ())
+(3496 #f 3495 19 ())
 (3497 compiler #f #f ())
-(3498 compile-flat-lambda 3497 7 ())
-(3499 #f 3498 26 ())
-(3500 #f 3498 366 ())
-(3501 compiler #f #f ())
-(3502 fall-through-cont? 3501 7 ())
-(3503 compiler #f #f ())
-(3504 ignore-values-cont 3503 7 ())
+(3498 #f 3497 11 ())
+(3499 compiler #f #f ())
+(3500 diagnose-call-error 3499 7 ())
+(3501 #f 3500 173 ())
+(3502 compiler #f #f ())
+(3503 type-check 3502 7 ())
+(3504 #f 3503 121 ())
 (3505 compiler #f #f ())
-(3506 set-type-check?! 3505 7 ())
+(3506 compile 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 ())
+(3508 compile-expression 3507 7 ())
+(3509 compiler #f #f ())
+(3510 define-compilator 3509 7 ())
+(3511 compiler #f #f ())
+(3512 ignore-values-cont? 3511 7 ())
 (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 ())
+(3514 deliver-value 3513 7 ())
+(3515 compiler #f #f ())
+(3516 compile-constant 3515 7 ())
+(3517 compiler #f #f ())
+(3518 return-cont? 3517 7 ())
 (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 ())
+(3520 fixup-source 3519 7 ())
+(3521 compiler #f #f ())
+(3522 maybe-push-continuation 3521 7 ())
+(3523 compiler #f #f ())
+(3524 make-cont 3523 7 ())
 (3525 compiler #f #f ())
-(3526 simple-closed-compilator 3525 7 ())
-(3527 #f 3526 6 ())
-(3528 compiler #f #f ())
-(3529 define-simple-primitive 3528 7 ())
+(3526 fall-through-cont 3525 7 ())
+(3527 compiler #f #f ())
+(3528 push-arguments 3527 7 ())
+(3529 recur 3528 37 ())
 (3530 compiler #f #f ())
-(3531 symbol-append 3530 7 ())
+(3531 compile-unknown-call 3530 7 ())
 (3532 compiler #f #f ())
-(3533 define-stob-predicate 3532 7 ())
+(3533 name-node-binding 3532 7 ())
 (3534 compiler #f #f ())
-(3535 define-data-struct-primitives 3534 7 ())
-(3536 def-prim 3535 8 ())
-(3537 loop##361 3535 190 ())
+(3535 compile-name-call 3534 7 ())
+(3536 compiler #f #f ())
+(3537 generate-trap 3536 7 ())
 (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 ())
-(3544 compiler #f #f ())
-(3545 define-n-ary-compiler-primitive 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 ())
-(3552 compiler #f #f ())
-(3553 make-dispatch-protocol 3552 7 ())
-(3554 compiler #f #f ())
-(3555 compile-definition 3554 7 ())
-(3556 compiler #f #f ())
-(3557 compile-form 3556 7 ())
-(3558 compiler #f #f ())
-(3559 compile-forms-loop 3558 7 ())
-(3560 compiler #f #f ())
-(3561 compile-forms 3560 7 ())
-(3562 compiler #f #f ())
-(3563 append-templates 3562 7 ())
-(3564 #f 3563 31 ())
-(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 ())
-(3572 evaluation #f #f ())
-(3573 really-load-into 3572 7 ())
-(3574 evaluation #f #f ())
-(3575 load-port 3574 7 ())
-(3576 evaluation #f #f ())
-(3577 load-into-port 3576 7 ())
-(3578 evaluation #f #f ())
-(3579 load 3578 7 ())
-(3580 evaluation #f #f ())
-(3581 eval-from-file 3580 7 ())
-(3582 evaluation #f #f ())
-(3583 load-into 3582 7 ())
-(3584 evaluation #f #f ())
-(3585 eval 3584 7 ())
-(3586 scheme #f #f ())
-(3587 display-conditions #f #f ())
-(3588 limited-write 3587 7 ())
-(3589 recur 3588 22 ())
-(3590 #f 3589 145 ())
-(3591 #f 3590 24 ())
-(3592 display-conditions #f #f ())
-(3593 &disclose-condition 3592 52 ())
-(3594 display-conditions #f #f ())
-(3595 display-conditions #f #f ())
-(3596 display-conditions #f #f ())
-(3597 display-conditions #f #f ())
-(3598 display-conditions #f #f ())
-(3599 really-display-condition 3598 7 ())
-(3600 #f 3599 246 ())
-(3601 display-conditions #f #f ())
-(3602 display-condition 3601 22 ())
-(3603 #f 3602 10 ())
-(3604 mini-command #f #f ())
-(3605 read-string 3604 7 ())
-(3606 loop 3605 23 ())
-(3607 mini-command #f #f ())
-(3608 mini-load 3607 7 ())
-(3609 mini-command #f #f ())
-(3610 command-processor 3609 7 ())
-(3611 loop 3610 77 ())
-(3612 #f 3611 7 ())
-(3613 #f 3612 6 ())
-(3614 #f 3613 68 ())
-(3615 #f 3612 11 ())
-(3616 #f 3615 75 ())
-(3617 #f 3615 201 ())
-(3618 #f 3615 246 ())
-(3619 #f 3618 12 ())
-(3620 export-the-record-type #f #f ())
-(3621 enum-case #f #f ())
-(3622 scheduler #f #f ())
-(3623 decrement-counter! 3622 7 ())
-(3624 scheduler #f #f ())
-(3625 increment-counter! 3624 7 ())
-(3626 scheduler #f #f ())
-(3627 scheduler #f #f ())
-(3628 make-counter 3627 7 ())
-(3629 scheduler #f #f ())
-(3630 round-robin-event-handler 3629 7 ())
-(3631 thread-event-handler 3630 15 ())
-(3632 #f 3631 111 ())
-(3633 asynchronous-event-handler 3630 24 ())
-(3634 next-thread 3630 33 ())
-(3635 #f 3634 18 ())
-(3636 scheduler #f #f ())
-(3637 run-threads-with-housekeeper 3636 7 ())
-(3638 #f 3637 6 ())
-(3639 loop 3638 29 ())
-(3640 #f 3639 6 ())
-(3641 #f 3640 57 ())
-(3642 scheduler #f #f ())
-(3643 run-threads 3642 7 ())
-(3644 #f 3643 6 ())
-(3645 loop 3644 26 ())
-(3646 #f 3645 6 ())
-(3647 #f 3646 8 ())
-(3648 root-scheduler #f #f ())
-(3649 root-scheduler #f #f ())
-(3650 spawn-output-forcers 3649 7 ())
-(3651 root-scheduler #f #f ())
-(3652 call-when-deadlocked! 3651 7 ())
-(3653 root-scheduler #f #f ())
-(3654 root-scheduler #f #f ())
-(3655 do-some-waiting 3654 7 ())
-(3656 root-scheduler #f #f ())
-(3657 root-scheduler #f #f ())
-(3658 root-wait 3657 7 ())
-(3659 #f 3658 22 ())
-(3660 root-scheduler #f #f ())
-(3661 scheme-exit-now 3660 7 ())
-(3662 root-scheduler #f #f ())
-(3663 root-scheduler #f #f ())
-(3664 cheap-display-condition 3663 7 ())
-(3665 #f 3664 164 ())
-(3666 root-scheduler #f #f ())
-(3667 root-handler 3666 7 ())
-(3668 root-scheduler #f #f ())
-(3669 make-root-event-handler 3668 7 ())
-(3670 #f 3669 115 ())
-(3671 #f 3669 120 ())
-(3672 root-scheduler #f #f ())
-(3673 root-scheduler 3672 7 ())
-(3674 #f 3673 13 ())
-(3675 #f 3674 24 ())
-(3676 #f 3674 41 ())
-(3677 usual-resumer #f #f ())
-(3678 usual-resumer #f #f ())
-(3679 initialize-rts 3678 7 ())
-(3680 #f 3679 44 ())
-(3681 #f 3680 7 ())
-(3682 #f 3681 46 ())
-(3683 #f 3682 3 ())
-(3684 usual-resumer #f #f ())
-(3685 usual-resumer 3684 7 ())
-(3686 #f 3685 6 ())
-(3687 #f 3686 15 ())
-(3688 initial-system #f #f ())
-(3689 make-tower 3688 7 ())
-(3690 initial-system #f #f ())
-(3691 make-initial-package 3690 7 ())
-(3692 #f 3691 17 ())
-(3693 initial-system #f #f ())
-(3694 initialize-interaction-environment! 3693 7 ())
-(3695 initial-system #f #f ())
-(3696 make-built-in-structures 3695 7 ())
-(3697 #f 3696 38 ())
-(3698 #f 3696 60 ())
-(3699 initial-system #f #f ())
-(3700 start 3699 7 ())
-(3701 #f 3700 6 ())
-(3702 #f 3701 6 ())
-(3703 #f 3702 64 ())
-(3704 usual-macros #f #f ())
-(3705 find-free-names-in-syntax-rules 3704 7 ())
-(3706 meta-variables 3705 13 ())
-(3707 free-names 3705 22 ())
-(3708 loop##381 3705 36 ())
-(3709 usual-macros #f #f ())
-(3710 usual-macros #f #f ())
-(3711 segment-tail 3710 7 ())
-(3712 loop 3711 21 ())
-(3713 usual-macros #f #f ())
-(3714 segment-depth 3713 7 ())
-(3715 usual-macros #f #f ())
-(3716 segment-template? 3715 7 ())
-(3717 usual-macros #f #f ())
-(3718 segment-pattern? 3717 7 ())
-(3719 usual-macros #f #f ())
-(3720 process-rules 3719 7 ())
-(3721 make-transformer 3720 424 ())
-(3722 process-rule 3720 433 ())
-(3723 #f 3722 114 ())
-(3724 process-match 3720 442 ())
-(3725 process-segment-match 3720 451 ())
-(3726 process-pattern 3720 460 ())
-(3727 #f 3726 97 ())
-(3728 process-template 3720 469 ())
-(3729 loop##385 3728 294 ())
-(3730 meta-variables 3720 478 ())
-(3731 free-meta-variables 3720 487 ())
-(3732 usual-macros #f #f ())
-(3733 #f 3732 11 ())
-(3734 usual-macros #f #f ())
-(3735 #f 3734 11 ())
-(3736 expand-quasiquote 3735 154 ())
-(3737 finalize-quasiquote 3735 163 ())
-(3738 descend-quasiquote 3735 172 ())
-(3739 descend-quasiquote-pair 3735 181 ())
-(3740 #f 3739 15 ())
-(3741 #f 3740 15 ())
-(3742 descend-quasiquote-vector 3735 190 ())
-(3743 #f 3742 22 ())
-(3744 interesting-to-quasiquote? 3735 199 ())
-(3745 usual-macros #f #f ())
-(3746 case-clause? 3745 7 ())
-(3747 usual-macros #f #f ())
-(3748 #f 3747 11 ())
-(3749 #f 3748 28 ())
-(3750 #f 3748 218 ())
-(3751 usual-macros #f #f ())
-(3752 #f 3751 11 ())
-(3753 usual-macros #f #f ())
-(3754 specs? 3753 7 ())
-(3755 usual-macros #f #f ())
-(3756 #f 3755 11 ())
-(3757 usual-macros #f #f ())
-(3758 #f 3757 11 ())
-(3759 usual-macros #f #f ())
-(3760 do-spec? 3759 7 ())
-(3761 usual-macros #f #f ())
-(3762 #f 3761 11 ())
-(3763 #f 3762 238 ())
-(3764 usual-macros #f #f ())
-(3765 #f 3764 11 ())
-(3766 recur 3765 85 ())
-(3767 usual-macros #f #f ())
-(3768 #f 3767 11 ())
-(3769 usual-macros #f #f ())
-(3770 usual-transform 3769 7 ())
-(3771 usual-macros #f #f ())
-(3772 define-usual-macro 3771 7 ())
-(3773 usual-macros #f #f ())
-(3774 strong #f #f ())
-(3775 pop-vertex-edge! 3774 7 ())
-(3776 strong #f #f ())
-(3777 follow-edge 3776 7 ())
-(3778 strong #f #f ())
-(3779 unwind-stack 3778 7 ())
-(3780 loop 3779 22 ())
-(3781 strong #f #f ())
-(3782 end-vertex 3781 7 ())
-(3783 #f 3782 6 ())
-(3784 strong #f #f ())
-(3785 get-strong 3784 7 ())
-(3786 strong #f #f ())
-(3787 do-vertex 3786 7 ())
-(3788 strong #f #f ())
-(3789 make-vertices 3788 7 ())
-(3790 maybe-slot 3789 6 ())
-(3791 #f 3789 18 ())
-(3792 #f 3789 36 ())
-(3793 strong #f #f ())
-(3794 make-vertex 3793 7 ())
-(3795 strong #f #f ())
-(3796 vertex? 3795 7 ())
-(3797 strong #f #f ())
-(3798 vertex-data 3797 7 ())
-(3799 strong #f #f ())
-(3800 set-vertex-edges! 3799 7 ())
-(3801 strong #f #f ())
-(3802 vertex-edges 3801 7 ())
-(3803 strong #f #f ())
-(3804 set-vertex-stack! 3803 7 ())
-(3805 strong #f #f ())
-(3806 vertex-stack 3805 7 ())
-(3807 strong #f #f ())
-(3808 set-vertex-index! 3807 7 ())
-(3809 strong #f #f ())
-(3810 vertex-index 3809 7 ())
-(3811 strong #f #f ())
-(3812 set-vertex-parent! 3811 7 ())
-(3813 strong #f #f ())
-(3814 vertex-parent 3813 7 ())
-(3815 strong #f #f ())
-(3816 set-vertex-lowpoint! 3815 7 ())
-(3817 strong #f #f ())
-(3818 vertex-lowpoint 3817 7 ())
-(3819 strong #f #f ())
-(3820 really-make-vertex 3819 7 ())
-(3821 strong #f #f ())
-(3822 strong #f #f ())
-(3823 find-next-vertex 3822 7 ())
-(3824 loop##407 3823 11 ())
-(3825 strong #f #f ())
-(3826 strongly-connected-components 3825 7 ())
-(3827 loop 3826 52 ())
-(3828 #f 3827 39 ())
-(3829 #f 3827 57 ())
-(3830 usages #f #f ())
-(3831 insert-aliases 3830 7 ())
-(3832 loop 3831 22 ())
-(3833 usages #f #f ())
-(3834 make-form 3833 7 ())
-(3835 usages #f #f ())
-(3836 #f 3835 11 ())
-(3837 usages #f #f ())
-(3838 form? 3837 7 ())
-(3839 usages #f #f ())
-(3840 form-node 3839 7 ())
-(3841 usages #f #f ())
-(3842 set-form-aliases! 3841 7 ())
-(3843 usages #f #f ())
-(3844 form-aliases 3843 7 ())
-(3845 usages #f #f ())
-(3846 set-form-unaliased?! 3845 7 ())
-(3847 usages #f #f ())
-(3848 form-unaliased? 3847 7 ())
-(3849 usages #f #f ())
-(3850 set-form-free! 3849 7 ())
-(3851 usages #f #f ())
-(3852 form-free 3851 7 ())
-(3853 usages #f #f ())
-(3854 set-form-temp! 3853 7 ())
-(3855 usages #f #f ())
-(3856 form-temp 3855 7 ())
-(3857 usages #f #f ())
-(3858 really-make-form 3857 7 ())
-(3859 usages #f #f ())
-(3860 usages #f #f ())
-(3861 topologically-sort 3860 7 ())
-(3862 #f 3861 13 ())
-(3863 #f 3862 6 ())
-(3864 #f 3862 15 ())
-(3865 usages #f #f ())
-(3866 maybe-make-aliased 3865 7 ())
-(3867 usages #f #f ())
-(3868 stuff-count 3867 7 ())
-(3869 #f 3868 10 ())
-(3870 usages #f #f ())
-(3871 sort-forms 3870 7 ())
-(3872 #f 3871 39 ())
-(3873 #f 3871 71 ())
-(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 ())
-(3884 usage-incrementator 3883 7 ())
-(3885 #f 3884 6 ())
-(3886 usages #f #f ())
-(3887 package-usage? 3886 7 ())
-(3888 usages #f #f ())
-(3889 make-package-usage 3888 7 ())
-(3890 usages #f #f ())
-(3891 make-usage 3890 7 ())
-(3892 usages #f #f ())
-(3893 usage? 3892 7 ())
-(3894 usages #f #f ())
-(3895 usage-name-node 3894 7 ())
-(3896 usages #f #f ())
-(3897 set-reference! 3896 7 ())
-(3898 usages #f #f ())
-(3899 usage-reference-count 3898 7 ())
-(3900 usages #f #f ())
-(3901 set-operator! 3900 7 ())
-(3902 usages #f #f ())
-(3903 usage-operator-count 3902 7 ())
-(3904 usages #f #f ())
-(3905 set-assignment! 3904 7 ())
-(3906 usages #f #f ())
-(3907 usage-assignment-count 3906 7 ())
-(3908 usages #f #f ())
-(3909 really-make-usage 3908 7 ())
-(3910 usages #f #f ())
-(3911 usages #f #f ())
-(3912 #f 3911 15 ())
-(3913 usages #f #f ())
-(3914 #f 3913 15 ())
-(3915 usages #f #f ())
-(3916 #f 3915 15 ())
-(3917 usages #f #f ())
-(3918 #f 3917 15 ())
-(3919 usages #f #f ())
-(3920 #f 3919 15 ())
-(3921 usages #f #f ())
-(3922 #f 3921 15 ())
-(3923 usages #f #f ())
-(3924 #f 3923 15 ())
-(3925 #f 3924 57 ())
-(3926 usages #f #f ())
-(3927 #f 3926 15 ())
-(3928 #f 3927 41 ())
-(3929 usages #f #f ())
-(3930 #f 3929 13 ())
-(3931 usages #f #f ())
-(3932 add-if-free 3931 7 ())
-(3933 usages #f #f ())
-(3934 #f 3933 13 ())
-(3935 usages #f #f ())
-(3936 usages #f #f ())
-(3937 usages #f #f ())
-(3938 usages #f #f ())
-(3939 usages #f #f ())
-(3940 usages #f #f ())
-(3941 nothing 3940 7 ())
-(3942 usages #f #f ())
-(3943 define-usage-analyzer 3942 7 ())
-(3944 usages #f #f ())
-(3945 #f 3944 11 ())
+(3539 named-cont 3538 7 ())
+(3540 compiler #f #f ())
+(3541 push-all-with-names 3540 7 ())
+(3542 compiler #f #f ())
+(3543 set-lexical-offsets! 3542 7 ())
+(3544 loop 3543 22 ())
+(3545 compiler #f #f ())
+(3546 name-node->symbol 3545 7 ())
+(3547 compiler #f #f ())
+(3548 return-cont 3547 7 ())
+(3549 compiler #f #f ())
+(3550 compile-lambda-code 3549 7 ())
+(3551 compiler #f #f ())
+(3552 cont-name 3551 7 ())
+(3553 compiler #f #f ())
+(3554 compile-redex 3553 7 ())
+(3555 compiler #f #f ())
+(3556 compile-call 3555 7 ())
+(3557 compiler #f #f ())
+(3558 compile-lambda 3557 7 ())
+(3559 compiler #f #f ())
+(3560 variable-env-data 3559 7 ())
+(3561 level-loop 3560 26 ())
+(3562 loop 3561 56 ())
+(3563 loop 3562 119 ())
+(3564 compiler #f #f ())
+(3565 sort-list 3564 7 ())
+(3566 insert 3565 11 ())
+(3567 sort 3565 32 ())
+(3568 compiler #f #f ())
+(3569 get-variables-offsets 3568 7 ())
+(3570 loop 3569 22 ())
+(3571 compiler #f #f ())
+(3572 compile-flat-lambda 3571 7 ())
+(3573 #f 3572 26 ())
+(3574 #f 3572 366 ())
+(3575 compiler #f #f ())
+(3576 fall-through-cont? 3575 7 ())
+(3577 compiler #f #f ())
+(3578 ignore-values-cont 3577 7 ())
+(3579 compiler #f #f ())
+(3580 set-type-check?! 3579 7 ())
+(3581 compiler #f #f ())
+(3582 push-all-but-last 3581 7 ())
+(3583 recur 3582 25 ())
+(3584 compiler #f #f ())
+(3585 direct-compilator 3584 7 ())
+(3586 #f 3585 6 ())
+(3587 compiler #f #f ())
+(3588 direct-closed-compilator 3587 7 ())
+(3589 #f 3588 6 ())
+(3590 compiler #f #f ())
+(3591 nargs->domain 3590 7 ())
+(3592 loop##378 3591 11 ())
+(3593 compiler #f #f ())
+(3594 get-primop-type 3593 7 ())
+(3595 #f 3594 10 ())
+(3596 compiler #f #f ())
+(3597 simple-compilator 3596 7 ())
+(3598 #f 3597 6 ())
+(3599 compiler #f #f ())
+(3600 simple-closed-compilator 3599 7 ())
+(3601 #f 3600 6 ())
+(3602 compiler #f #f ())
+(3603 define-simple-primitive 3602 7 ())
+(3604 compiler #f #f ())
+(3605 symbol-append 3604 7 ())
+(3606 compiler #f #f ())
+(3607 define-stob-predicate 3606 7 ())
+(3608 compiler #f #f ())
+(3609 define-data-struct-primitives 3608 7 ())
+(3610 def-prim 3609 8 ())
+(3611 loop##380 3609 190 ())
+(3612 compiler #f #f ())
+(3613 define-vector-primitives 3612 7 ())
+(3614 def-prim 3613 26 ())
+(3615 compiler #f #f ())
+(3616 n-ary-primitive-compilator 3615 7 ())
+(3617 #f 3616 6 ())
+(3618 compiler #f #f ())
+(3619 define-n-ary-compiler-primitive 3618 7 ())
+(3620 compiler #f #f ())
+(3621 call-on-arg-and-id 3620 7 ())
+(3622 compiler #f #f ())
+(3623 call-on-args 3622 7 ())
+(3624 do-arg 3623 6 ())
+(3625 loop 3623 52 ())
+(3626 compiler #f #f ())
+(3627 make-dispatch-protocol 3626 7 ())
+(3628 compiler #f #f ())
+(3629 compile-definition 3628 7 ())
+(3630 compiler #f #f ())
+(3631 compile-form 3630 7 ())
+(3632 compiler #f #f ())
+(3633 compile-forms-loop 3632 7 ())
+(3634 compiler #f #f ())
+(3635 compile-forms 3634 7 ())
+(3636 compiler #f #f ())
+(3637 append-templates 3636 7 ())
+(3638 #f 3637 31 ())
+(3639 compiler #f #f ())
+(3640 make-startup-procedure 3639 7 ())
+(3641 compiler #f #f ())
+(3642 evaluation #f #f ())
+(3643 compile-and-run 3642 7 ())
+(3644 #f 3643 61 ())
+(3645 #f 3644 6 ())
+(3646 evaluation #f #f ())
+(3647 really-load-into 3646 7 ())
+(3648 evaluation #f #f ())
+(3649 load-port 3648 7 ())
+(3650 evaluation #f #f ())
+(3651 load-into-port 3650 7 ())
+(3652 evaluation #f #f ())
+(3653 load 3652 7 ())
+(3654 evaluation #f #f ())
+(3655 eval-from-file 3654 7 ())
+(3656 evaluation #f #f ())
+(3657 load-into 3656 7 ())
+(3658 evaluation #f #f ())
+(3659 eval 3658 7 ())
+(3660 scheme #f #f ())
+(3661 display-conditions #f #f ())
+(3662 limited-write 3661 7 ())
+(3663 recur 3662 22 ())
+(3664 #f 3663 145 ())
+(3665 #f 3664 24 ())
+(3666 display-conditions #f #f ())
+(3667 &disclose-condition 3666 52 ())
+(3668 display-conditions #f #f ())
+(3669 display-conditions #f #f ())
+(3670 display-conditions #f #f ())
+(3671 display-conditions #f #f ())
+(3672 display-conditions #f #f ())
+(3673 really-display-condition 3672 7 ())
+(3674 #f 3673 242 ())
+(3675 display-conditions #f #f ())
+(3676 display-condition 3675 22 ())
+(3677 #f 3676 10 ())
+(3678 mini-command #f #f ())
+(3679 read-string 3678 7 ())
+(3680 loop 3679 23 ())
+(3681 mini-command #f #f ())
+(3682 mini-load 3681 7 ())
+(3683 mini-command #f #f ())
+(3684 command-processor 3683 7 ())
+(3685 loop 3684 77 ())
+(3686 #f 3685 7 ())
+(3687 #f 3686 6 ())
+(3688 #f 3687 68 ())
+(3689 #f 3686 11 ())
+(3690 #f 3689 75 ())
+(3691 #f 3689 197 ())
+(3692 #f 3689 238 ())
+(3693 #f 3692 12 ())
+(3694 sigevents #f #f ())
+(3695 sigevents #f #f ())
+(3696 sigevents #f #f ())
+(3697 set-sigevent-type! 3696 7 ())
+(3698 sigevents #f #f ())
+(3699 sigevent-type 3698 7 ())
+(3700 sigevents #f #f ())
+(3701 set-sigevent-next! 3700 7 ())
+(3702 sigevents #f #f ())
+(3703 sigevent-next 3702 7 ())
+(3704 sigevents #f #f ())
+(3705 really-make-sigevent 3704 7 ())
+(3706 sigevents #f #f ())
+(3707 sigevents #f #f ())
+(3708 sigevent? 3707 7 ())
+(3709 sigevents #f #f ())
+(3710 make-sigevent 3709 7 ())
+(3711 sigevents #f #f ())
+(3712 most-recent-sigevent 3711 7 ())
+(3713 sigevents #f #f ())
+(3714 rts-next-sigevent 3713 7 ())
+(3715 #f 3714 10 ())
+(3716 lp 3715 15 ())
+(3717 sigevents #f #f ())
+(3718 rts-next-sigevent/no-wait 3717 7 ())
+(3719 sigevents #f #f ())
+(3720 register-interrupt 3719 7 ())
+(3721 #f 3720 14 ())
+(3722 loop##397 3721 47 ())
+(3723 sigevents #f #f ())
+(3724 waiting-for-sigevent? 3723 7 ())
+(3725 sigevents #f #f ())
+(3726 initialize-sigevents! 3725 7 ())
+(3727 #f 3726 27 ())
+(3728 #f 3726 45 ())
+(3729 sigevents #f #f ())
+(3730 schedule-timer-interrupt! 3729 7 ())
+(3731 #f 3730 6 ())
+(3732 sigevents #f #f ())
+(3733 export-the-record-type #f #f ())
+(3734 enum-case #f #f ())
+(3735 scheduler #f #f ())
+(3736 decrement-counter! 3735 7 ())
+(3737 scheduler #f #f ())
+(3738 increment-counter! 3737 7 ())
+(3739 scheduler #f #f ())
+(3740 scheduler #f #f ())
+(3741 make-counter 3740 7 ())
+(3742 scheduler #f #f ())
+(3743 round-robin-event-handler 3742 7 ())
+(3744 thread-event-handler 3743 15 ())
+(3745 #f 3744 111 ())
+(3746 asynchronous-event-handler 3743 24 ())
+(3747 next-thread 3743 33 ())
+(3748 #f 3747 18 ())
+(3749 scheduler #f #f ())
+(3750 run-threads-with-housekeeper 3749 7 ())
+(3751 #f 3750 6 ())
+(3752 loop 3751 29 ())
+(3753 #f 3752 6 ())
+(3754 #f 3753 57 ())
+(3755 scheduler #f #f ())
+(3756 run-threads 3755 7 ())
+(3757 #f 3756 6 ())
+(3758 loop 3757 26 ())
+(3759 #f 3758 6 ())
+(3760 #f 3759 8 ())
+(3761 root-scheduler #f #f ())
+(3762 root-scheduler #f #f ())
+(3763 spawn-output-forcers 3762 7 ())
+(3764 root-scheduler #f #f ())
+(3765 call-when-deadlocked! 3764 7 ())
+(3766 root-scheduler #f #f ())
+(3767 root-scheduler #f #f ())
+(3768 do-some-waiting 3767 7 ())
+(3769 root-scheduler #f #f ())
+(3770 root-scheduler #f #f ())
+(3771 root-wait 3770 7 ())
+(3772 #f 3771 22 ())
+(3773 root-scheduler #f #f ())
+(3774 scheme-exit-now 3773 7 ())
+(3775 root-scheduler #f #f ())
+(3776 root-scheduler #f #f ())
+(3777 cheap-display-condition 3776 7 ())
+(3778 #f 3777 160 ())
+(3779 root-scheduler #f #f ())
+(3780 root-handler 3779 7 ())
+(3781 root-scheduler #f #f ())
+(3782 make-root-event-handler 3781 7 ())
+(3783 #f 3782 121 ())
+(3784 #f 3782 126 ())
+(3785 root-scheduler #f #f ())
+(3786 root-scheduler 3785 7 ())
+(3787 #f 3786 13 ())
+(3788 #f 3787 24 ())
+(3789 #f 3787 41 ())
+(3790 usual-resumer #f #f ())
+(3791 usual-resumer #f #f ())
+(3792 initialize-rts 3791 7 ())
+(3793 #f 3792 45 ())
+(3794 #f 3793 7 ())
+(3795 #f 3794 46 ())
+(3796 #f 3795 3 ())
+(3797 usual-resumer #f #f ())
+(3798 usual-resumer 3797 7 ())
+(3799 #f 3798 6 ())
+(3800 #f 3799 15 ())
+(3801 initial-system #f #f ())
+(3802 make-tower 3801 7 ())
+(3803 initial-system #f #f ())
+(3804 make-initial-package 3803 7 ())
+(3805 #f 3804 17 ())
+(3806 initial-system #f #f ())
+(3807 initialize-interaction-environment! 3806 7 ())
+(3808 initial-system #f #f ())
+(3809 make-built-in-structures 3808 7 ())
+(3810 #f 3809 38 ())
+(3811 #f 3809 60 ())
+(3812 initial-system #f #f ())
+(3813 start 3812 7 ())
+(3814 #f 3813 6 ())
+(3815 #f 3814 6 ())
+(3816 #f 3815 64 ())
+(3817 usual-macros #f #f ())
+(3818 find-free-names-in-syntax-rules 3817 7 ())
+(3819 meta-variables 3818 13 ())
+(3820 free-names 3818 22 ())
+(3821 loop##408 3818 36 ())
+(3822 usual-macros #f #f ())
+(3823 usual-macros #f #f ())
+(3824 segment-tail 3823 7 ())
+(3825 loop 3824 21 ())
+(3826 usual-macros #f #f ())
+(3827 segment-depth 3826 7 ())
+(3828 usual-macros #f #f ())
+(3829 segment-template? 3828 7 ())
+(3830 usual-macros #f #f ())
+(3831 segment-pattern? 3830 7 ())
+(3832 usual-macros #f #f ())
+(3833 process-rules 3832 7 ())
+(3834 make-transformer 3833 424 ())
+(3835 process-rule 3833 433 ())
+(3836 #f 3835 102 ())
+(3837 process-match 3833 442 ())
+(3838 process-segment-match 3833 451 ())
+(3839 process-pattern 3833 460 ())
+(3840 #f 3839 97 ())
+(3841 process-template 3833 469 ())
+(3842 loop##412 3841 294 ())
+(3843 meta-variables 3833 478 ())
+(3844 free-meta-variables 3833 487 ())
+(3845 usual-macros #f #f ())
+(3846 #f 3845 11 ())
+(3847 usual-macros #f #f ())
+(3848 #f 3847 11 ())
+(3849 expand-quasiquote 3848 154 ())
+(3850 finalize-quasiquote 3848 163 ())
+(3851 descend-quasiquote 3848 172 ())
+(3852 descend-quasiquote-pair 3848 181 ())
+(3853 #f 3852 15 ())
+(3854 #f 3853 15 ())
+(3855 descend-quasiquote-vector 3848 190 ())
+(3856 #f 3855 22 ())
+(3857 interesting-to-quasiquote? 3848 199 ())
+(3858 usual-macros #f #f ())
+(3859 case-clause? 3858 7 ())
+(3860 usual-macros #f #f ())
+(3861 #f 3860 11 ())
+(3862 #f 3861 28 ())
+(3863 #f 3861 206 ())
+(3864 usual-macros #f #f ())
+(3865 #f 3864 11 ())
+(3866 usual-macros #f #f ())
+(3867 specs? 3866 7 ())
+(3868 usual-macros #f #f ())
+(3869 #f 3868 11 ())
+(3870 usual-macros #f #f ())
+(3871 #f 3870 11 ())
+(3872 usual-macros #f #f ())
+(3873 do-spec? 3872 7 ())
+(3874 usual-macros #f #f ())
+(3875 #f 3874 11 ())
+(3876 #f 3875 228 ())
+(3877 usual-macros #f #f ())
+(3878 #f 3877 11 ())
+(3879 recur 3878 85 ())
+(3880 usual-macros #f #f ())
+(3881 #f 3880 11 ())
+(3882 usual-macros #f #f ())
+(3883 usual-transform 3882 7 ())
+(3884 usual-macros #f #f ())
+(3885 define-usual-macro 3884 7 ())
+(3886 usual-macros #f #f ())
+(3887 strong #f #f ())
+(3888 pop-vertex-edge! 3887 7 ())
+(3889 strong #f #f ())
+(3890 follow-edge 3889 7 ())
+(3891 strong #f #f ())
+(3892 unwind-stack 3891 7 ())
+(3893 loop 3892 22 ())
+(3894 strong #f #f ())
+(3895 end-vertex 3894 7 ())
+(3896 #f 3895 6 ())
+(3897 strong #f #f ())
+(3898 get-strong 3897 7 ())
+(3899 strong #f #f ())
+(3900 do-vertex 3899 7 ())
+(3901 strong #f #f ())
+(3902 make-vertices 3901 7 ())
+(3903 maybe-slot 3902 6 ())
+(3904 #f 3902 18 ())
+(3905 #f 3902 36 ())
+(3906 strong #f #f ())
+(3907 make-vertex 3906 7 ())
+(3908 strong #f #f ())
+(3909 vertex? 3908 7 ())
+(3910 strong #f #f ())
+(3911 vertex-data 3910 7 ())
+(3912 strong #f #f ())
+(3913 set-vertex-edges! 3912 7 ())
+(3914 strong #f #f ())
+(3915 vertex-edges 3914 7 ())
+(3916 strong #f #f ())
+(3917 set-vertex-stack! 3916 7 ())
+(3918 strong #f #f ())
+(3919 vertex-stack 3918 7 ())
+(3920 strong #f #f ())
+(3921 set-vertex-index! 3920 7 ())
+(3922 strong #f #f ())
+(3923 vertex-index 3922 7 ())
+(3924 strong #f #f ())
+(3925 set-vertex-parent! 3924 7 ())
+(3926 strong #f #f ())
+(3927 vertex-parent 3926 7 ())
+(3928 strong #f #f ())
+(3929 set-vertex-lowpoint! 3928 7 ())
+(3930 strong #f #f ())
+(3931 vertex-lowpoint 3930 7 ())
+(3932 strong #f #f ())
+(3933 really-make-vertex 3932 7 ())
+(3934 strong #f #f ())
+(3935 strong #f #f ())
+(3936 find-next-vertex 3935 7 ())
+(3937 loop##434 3936 11 ())
+(3938 strong #f #f ())
+(3939 strongly-connected-components 3938 7 ())
+(3940 loop 3939 52 ())
+(3941 #f 3940 39 ())
+(3942 #f 3940 57 ())
+(3943 usages #f #f ())
+(3944 insert-aliases 3943 7 ())
+(3945 loop 3944 22 ())
 (3946 usages #f #f ())
-(3947 analyze-nodes 3946 7 ())
-(3948 #f 3947 6 ())
-(3949 usages #f #f ())
-(3950 analyze 3949 7 ())
-(3951 usages #f #f ())
-(3952 find-node-usages 3951 7 ())
-(3953 #f 3952 30 ())
-(3954 #f 3952 44 ())
-(3955 usages #f #f ())
-(3956 maybe-update-known-type 3955 7 ())
-(3957 usages #f #f ())
-(3958 find-usages 3957 7 ())
-(3959 #f 3958 23 ())
-(3960 #f 3958 41 ())
-(3961 #f 3960 24 ())
-(3962 #f 3958 59 ())
-(3963 inline #f #f ())
-(3964 inline #f #f ())
-(3965 inline #f #f ())
-(3966 inline #f #f ())
-(3967 inline #f #f ())
-(3968 inline #f #f ())
-(3969 get-qualified-env 3968 7 ())
-(3970 inline #f #f ())
-(3971 qualified->name 3970 7 ())
-(3972 recur 3971 18 ())
-(3973 inline #f #f ())
-(3974 inline #f #f ())
-(3975 inline #f #f ())
-(3976 reconstitute-name 3975 7 ())
-(3977 inline #f #f ())
-(3978 reconstitute 3977 7 ())
-(3979 label 3978 18 ())
-(3980 inline #f #f ())
-(3981 make-substitution 3980 7 ())
-(3982 #f 3981 29 ())
-(3983 inline #f #f ())
-(3984 inline-transform 3983 7 ())
-(3985 #f 3984 63 ())
+(3947 make-form 3946 7 ())
+(3948 usages #f #f ())
+(3949 #f 3948 11 ())
+(3950 usages #f #f ())
+(3951 form? 3950 7 ())
+(3952 usages #f #f ())
+(3953 form-node 3952 7 ())
+(3954 usages #f #f ())
+(3955 set-form-aliases! 3954 7 ())
+(3956 usages #f #f ())
+(3957 form-aliases 3956 7 ())
+(3958 usages #f #f ())
+(3959 set-form-unaliased?! 3958 7 ())
+(3960 usages #f #f ())
+(3961 form-unaliased? 3960 7 ())
+(3962 usages #f #f ())
+(3963 set-form-free! 3962 7 ())
+(3964 usages #f #f ())
+(3965 form-free 3964 7 ())
+(3966 usages #f #f ())
+(3967 set-form-temp! 3966 7 ())
+(3968 usages #f #f ())
+(3969 form-temp 3968 7 ())
+(3970 usages #f #f ())
+(3971 really-make-form 3970 7 ())
+(3972 usages #f #f ())
+(3973 usages #f #f ())
+(3974 topologically-sort 3973 7 ())
+(3975 #f 3974 13 ())
+(3976 #f 3975 6 ())
+(3977 #f 3975 15 ())
+(3978 usages #f #f ())
+(3979 maybe-make-aliased 3978 7 ())
+(3980 usages #f #f ())
+(3981 stuff-count 3980 7 ())
+(3982 #f 3981 10 ())
+(3983 usages #f #f ())
+(3984 sort-forms 3983 7 ())
+(3985 #f 3984 39 ())
 (3986 #f 3984 71 ())
-(3987 inline #f #f ())
-(3988 unused-name 3987 7 ())
-(3989 loop##431 3988 46 ())
-(3990 #f 3989 10 ())
-(3991 inline #f #f ())
-(3992 clean-lookup 3991 7 ())
-(3993 inline #f #f ())
-(3994 clean-lambda 3993 7 ())
-(3995 #f 3994 41 ())
-(3996 recur 3994 91 ())
-(3997 inline #f #f ())
-(3998 clean-node 3997 7 ())
-(3999 #f 3998 132 ())
-(4000 #f 3998 296 ())
-(4001 inline #f #f ())
-(4002 make-inline-transform 4001 7 ())
-(4003 #f 4002 41 ())
-(4004 #f 4002 96 ())
-(4005 loop##432 4004 11 ())
-(4006 for-reification #f #f ())
-(4007 package-define-static! 4006 7 ())
-(4008 for-reification #f #f ())
-(4009 transform 4008 7 ())
-(4010 for-reification #f #f ())
-(4011 package 4010 7 ())
-(4012 loop##433 4011 73 ())
-(4013 for-reification #f #f ())
-(4014 simple-interface 4013 7 ())
-(4015 #f 4014 12 ())
-(4016 for-reification #f #f ())
-(4017 primop 4016 7 ())
-(4018 for-reification #f #f ())
-(4019 operator 4018 7 ())
-(4020 types #f #f ())
-(4021 types #f #f ())
-(4022 types #f #f ())
-(4023 types #f #f ())
-(4024 types #f #f ())
-(4025 types #f #f ())
-(4026 types #f #f ())
-(4027 types #f #f ())
-(4028 types #f #f ())
-(4029 types #f #f ())
-(4030 types #f #f ())
-(4031 types #f #f ())
-(4032 types #f #f ())
-(4033 types #f #f ())
-(4034 types #f #f ())
-(4035 types #f #f ())
-(4036 types #f #f ())
-(4037 types #f #f ())
-(4038 types #f #f ())
-(4039 types #f #f ())
-(4040 types #f #f ())
-(4041 types #f #f ())
-(4042 procedure 4041 7 ())
-(4043 types #f #f ())
-(4044 types #f #f ())
-(4045 types #f #f ())
-(4046 types #f #f ())
-(4047 defpackage #f #f ())
-(4048 note-name! 4047 7 ())
-(4049 defpackage #f #f ())
-(4050 set-verify-later! 4049 7 ())
-(4051 defpackage #f #f ())
-(4052 verify-later! 4051 7 ())
-(4053 defpackage #f #f ())
-(4054 *verify-later!* 4053 7 ())
-(4055 defpackage #f #f ())
-(4056 defpackage #f #f ())
-(4057 loser 4056 7 ())
-(4058 defpackage #f #f ())
-(4059 make-a-package 4058 7 ())
-(4060 optimizer #f #f ())
-(4061 apply-optimizers 4060 7 ())
-(4062 #f 4061 6 ())
-(4063 optimizer #f #f ())
-(4064 get-optimizer 4063 7 ())
-(4065 #f 4064 6 ())
-(4066 #f 4065 10 ())
-(4067 #f 4066 55 ())
-(4068 optimizer #f #f ())
-(4069 set-optimizer! 4068 7 ())
-(4070 optimizer #f #f ())
-(4071 scan-package #f #f ())
-(4072 check-structure 4071 7 ())
-(4073 #f 4072 17 ())
-(4074 scan-package #f #f ())
-(4075 package-optimizer-names 4074 7 ())
-(4076 #f 4075 36 ())
-(4077 #f 4075 75 ())
-(4078 scan-package #f #f ())
-(4079 read-files 4078 7 ())
-(4080 #f 4079 30 ())
-(4081 scan-package #f #f ())
-(4082 package-source 4081 7 ())
-(4083 #f 4082 46 ())
-(4084 scan-package #f #f ())
-(4085 collect-packages 4084 7 ())
-(4086 recur 4085 26 ())
-(4087 #f 4086 150 ())
-(4088 compile-packages #f #f ())
-(4089 compile-packages #f #f ())
-(4090 compile-packages #f #f ())
-(4091 make-define-primitive-node 4090 7 ())
-(4092 compile-packages #f #f ())
-(4093 define-primitives 4092 7 ())
-(4094 #f 4093 17 ())
-(4095 #f 4093 36 ())
-(4096 compile-packages #f #f ())
-(4097 define-usual-transform 4096 7 ())
-(4098 compile-packages #f #f ())
-(4099 expand-package 4098 7 ())
-(4100 #f 4099 21 ())
-(4101 #f 4100 10 ())
-(4102 #f 4100 28 ())
-(4103 #f 4100 82 ())
-(4104 #f 4103 15 ())
-(4105 #f 4104 10 ())
-(4106 compile-packages #f #f ())
-(4107 compile-package 4106 7 ())
-(4108 module-system #f #f ())
-(4109 analysis #f #f ())
-(4110 analysis #f #f ())
-(4111 analysis #f #f ())
-(4112 analysis #f #f ())
-(4113 analysis #f #f ())
-(4114 package-lookup-type 4113 7 ())
-(4115 analysis #f #f ())
-(4116 analysis #f #f ())
-(4117 require 4116 7 ())
-(4118 analysis #f #f ())
-(4119 simple-literal? 4118 7 ())
-(4120 analysis #f #f ())
-(4121 analysis #f #f ())
-(4122 analysis #f #f ())
-(4123 lexical-node? 4122 7 ())
-(4124 analysis #f #f ())
-(4125 really-simple-call? 4124 7 ())
-(4126 analysis #f #f ())
-(4127 static-value 4126 7 ())
-(4128 analysis #f #f ())
-(4129 #f 4128 11 ())
-(4130 analysis #f #f ())
-(4131 #f 4130 11 ())
-(4132 loop 4131 21 ())
-(4133 analysis #f #f ())
-(4134 #f 4133 11 ())
-(4135 analysis #f #f ())
-(4136 #f 4135 11 ())
-(4137 analysis #f #f ())
-(4138 #f 4137 11 ())
-(4139 analysis #f #f ())
-(4140 #f 4139 11 ())
-(4141 analysis #f #f ())
-(4142 #f 4141 11 ())
-(4143 analysis #f #f ())
-(4144 #f 4143 11 ())
-(4145 analysis #f #f ())
-(4146 #f 4145 11 ())
-(4147 analysis #f #f ())
-(4148 #f 4147 11 ())
-(4149 analysis #f #f ())
-(4150 #f 4149 11 ())
-(4151 analysis #f #f ())
-(4152 #f 4151 11 ())
-(4153 analysis #f #f ())
-(4154 define-analyzer 4153 7 ())
-(4155 analysis #f #f ())
-(4156 #f 4155 11 ())
-(4157 analysis #f #f ())
-(4158 simple-list? 4157 7 ())
-(4159 analysis #f #f ())
-(4160 simple? 4159 7 ())
-(4161 analysis #f #f ())
-(4162 analysis #f #f ())
-(4163 simple-lambda? 4162 7 ())
-(4164 #f 4163 128 ())
-(4165 analysis #f #f ())
-(4166 inlinable-rhs? 4165 7 ())
-(4167 analysis #f #f ())
-(4168 analyze-form 4167 7 ())
-(4169 analysis #f #f ())
-(4170 analyze-forms 4169 7 ())
-(4171 #f 4170 17 ())
-(4172 analysis #f #f ())
-(4173 #f 4172 11 ())
-(4174 flat-environments #f #f ())
-(4175 set-difference 4174 7 ())
-(4176 recur 4175 18 ())
-(4177 flat-environments #f #f ())
-(4178 union 4177 7 ())
-(4179 recur 4178 31 ())
-(4180 flat-environments #f #f ())
-(4181 cell-set!-primop 4180 7 ())
-(4182 flat-environments #f #f ())
-(4183 flat-environments #f #f ())
-(4184 cell-ref-primop 4183 7 ())
-(4185 flat-environments #f #f ())
-(4186 flat-environments #f #f ())
-(4187 make-cell-primop 4186 7 ())
-(4188 flat-environments #f #f ())
-(4189 flat-environments #f #f ())
-(4190 flat-environments #f #f ())
-(4191 flat-environments #f #f ())
-(4192 flat-environments #f #f ())
-(4193 flat-environments #f #f ())
-(4194 flat-environments #f #f ())
-(4195 flat-environments #f #f ())
-(4196 flat-environments #f #f ())
-(4197 flat-environments #f #f ())
-(4198 flat-environments #f #f ())
-(4199 make-primop-call 4198 7 ())
-(4200 flat-environments #f #f ())
-(4201 make-cell-set! 4200 7 ())
-(4202 flat-environments #f #f ())
-(4203 make-cell-ref 4202 7 ())
-(4204 flat-environments #f #f ())
-(4205 make-unassigned-cell 4204 7 ())
-(4206 flat-environments #f #f ())
-(4207 make-cell 4206 7 ())
-(4208 flat-environments #f #f ())
-(4209 #f 4208 11 ())
-(4210 #f 4209 25 ())
-(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 ())
-(4219 flat-environments #f #f ())
-(4220 flat-environments #f #f ())
-(4221 flat-environments #f #f ())
-(4222 flat-environments #f #f ())
-(4223 flat-environments #f #f ())
-(4224 flat-environments #f #f ())
-(4225 no-sets 4224 7 ())
-(4226 flat-environments #f #f ())
-(4227 define-set-marker 4226 7 ())
-(4228 flat-environments #f #f ())
-(4229 #f 4228 11 ())
-(4230 flat-environments #f #f ())
-(4231 mark-set-variables! 4230 7 ())
-(4232 flat-environments #f #f ())
-(4233 assigned? 4232 7 ())
-(4234 flat-environments #f #f ())
-(4235 #f 4234 11 ())
-(4236 flat-environments #f #f ())
-(4237 #f 4236 11 ())
-(4238 #f 4237 85 ())
-(4239 #f 4237 99 ())
-(4240 #f 4239 119 ())
-(4241 flat-environments #f #f ())
-(4242 #f 4241 11 ())
-(4243 #f 4242 21 ())
-(4244 flat-environments #f #f ())
-(4245 #f 4244 11 ())
-(4246 #f 4245 21 ())
-(4247 #f 4246 6 ())
-(4248 flat-environments #f #f ())
-(4249 #f 4248 11 ())
-(4250 #f 4249 37 ())
-(4251 flat-environments #f #f ())
-(4252 #f 4251 11 ())
-(4253 flat-environments #f #f ())
-(4254 add-cells 4253 7 ())
-(4255 loop##446 4254 11 ())
-(4256 flat-environments #f #f ())
-(4257 convert-lambda-body 4256 7 ())
-(4258 #f 4257 47 ())
-(4259 flat-environments #f #f ())
-(4260 flatten-lambda 4259 7 ())
-(4261 #f 4260 21 ())
-(4262 flat-environments #f #f ())
+(3987 usages #f #f ())
+(3988 usages #f #f ())
+(3989 usages #f #f ())
+(3990 usages #f #f ())
+(3991 usages #f #f ())
+(3992 usages #f #f ())
+(3993 usages #f #f ())
+(3994 usages #f #f ())
+(3995 usages #f #f ())
+(3996 usages #f #f ())
+(3997 usage-incrementator 3996 7 ())
+(3998 #f 3997 6 ())
+(3999 usages #f #f ())
+(4000 package-usage? 3999 7 ())
+(4001 usages #f #f ())
+(4002 make-package-usage 4001 7 ())
+(4003 usages #f #f ())
+(4004 make-usage 4003 7 ())
+(4005 usages #f #f ())
+(4006 usage? 4005 7 ())
+(4007 usages #f #f ())
+(4008 usage-name-node 4007 7 ())
+(4009 usages #f #f ())
+(4010 set-reference! 4009 7 ())
+(4011 usages #f #f ())
+(4012 usage-reference-count 4011 7 ())
+(4013 usages #f #f ())
+(4014 set-operator! 4013 7 ())
+(4015 usages #f #f ())
+(4016 usage-operator-count 4015 7 ())
+(4017 usages #f #f ())
+(4018 set-assignment! 4017 7 ())
+(4019 usages #f #f ())
+(4020 usage-assignment-count 4019 7 ())
+(4021 usages #f #f ())
+(4022 really-make-usage 4021 7 ())
+(4023 usages #f #f ())
+(4024 usages #f #f ())
+(4025 #f 4024 15 ())
+(4026 usages #f #f ())
+(4027 #f 4026 15 ())
+(4028 usages #f #f ())
+(4029 #f 4028 15 ())
+(4030 usages #f #f ())
+(4031 #f 4030 15 ())
+(4032 usages #f #f ())
+(4033 #f 4032 15 ())
+(4034 usages #f #f ())
+(4035 #f 4034 15 ())
+(4036 usages #f #f ())
+(4037 analyze-letrec 4036 7 ())
+(4038 #f 4037 10 ())
+(4039 usages #f #f ())
+(4040 #f 4039 15 ())
+(4041 usages #f #f ())
+(4042 #f 4041 15 ())
+(4043 #f 4042 37 ())
+(4044 usages #f #f ())
+(4045 #f 4044 13 ())
+(4046 usages #f #f ())
+(4047 add-if-free 4046 7 ())
+(4048 usages #f #f ())
+(4049 #f 4048 13 ())
+(4050 usages #f #f ())
+(4051 usages #f #f ())
+(4052 usages #f #f ())
+(4053 usages #f #f ())
+(4054 usages #f #f ())
+(4055 usages #f #f ())
+(4056 nothing 4055 7 ())
+(4057 usages #f #f ())
+(4058 define-usage-analyzer 4057 7 ())
+(4059 usages #f #f ())
+(4060 #f 4059 11 ())
+(4061 usages #f #f ())
+(4062 analyze-nodes 4061 7 ())
+(4063 #f 4062 6 ())
+(4064 usages #f #f ())
+(4065 analyze 4064 7 ())
+(4066 usages #f #f ())
+(4067 find-node-usages 4066 7 ())
+(4068 #f 4067 30 ())
+(4069 #f 4067 44 ())
+(4070 usages #f #f ())
+(4071 maybe-update-known-type 4070 7 ())
+(4072 usages #f #f ())
+(4073 find-usages 4072 7 ())
+(4074 #f 4073 23 ())
+(4075 #f 4073 41 ())
+(4076 #f 4075 24 ())
+(4077 #f 4073 59 ())
+(4078 inline #f #f ())
+(4079 inline #f #f ())
+(4080 inline #f #f ())
+(4081 inline #f #f ())
+(4082 inline #f #f ())
+(4083 inline #f #f ())
+(4084 get-qualified-env 4083 7 ())
+(4085 inline #f #f ())
+(4086 qualified->name 4085 7 ())
+(4087 recur 4086 18 ())
+(4088 inline #f #f ())
+(4089 inline #f #f ())
+(4090 inline #f #f ())
+(4091 reconstitute-name 4090 7 ())
+(4092 inline #f #f ())
+(4093 reconstitute 4092 7 ())
+(4094 label 4093 18 ())
+(4095 inline #f #f ())
+(4096 make-substitution 4095 7 ())
+(4097 #f 4096 29 ())
+(4098 inline #f #f ())
+(4099 inline-transform 4098 7 ())
+(4100 #f 4099 58 ())
+(4101 #f 4099 66 ())
+(4102 inline #f #f ())
+(4103 remove-bindings 4102 7 ())
+(4104 label 4103 18 ())
+(4105 inline #f #f ())
+(4106 unused-name 4105 7 ())
+(4107 loop##459 4106 46 ())
+(4108 #f 4107 10 ())
+(4109 inline #f #f ())
+(4110 clean-lookup 4109 7 ())
+(4111 inline #f #f ())
+(4112 clean-lambda 4111 7 ())
+(4113 #f 4112 37 ())
+(4114 recur 4112 87 ())
+(4115 inline #f #f ())
+(4116 clean-node 4115 7 ())
+(4117 #f 4116 128 ())
+(4118 #f 4116 288 ())
+(4119 inline #f #f ())
+(4120 make-inline-transform 4119 7 ())
+(4121 #f 4120 41 ())
+(4122 #f 4120 80 ())
+(4123 loop##460 4122 11 ())
+(4124 for-reification #f #f ())
+(4125 package-define-static! 4124 7 ())
+(4126 for-reification #f #f ())
+(4127 transform 4126 7 ())
+(4128 for-reification #f #f ())
+(4129 package 4128 7 ())
+(4130 loop##461 4129 73 ())
+(4131 for-reification #f #f ())
+(4132 simple-interface 4131 7 ())
+(4133 #f 4132 12 ())
+(4134 for-reification #f #f ())
+(4135 primop 4134 7 ())
+(4136 for-reification #f #f ())
+(4137 operator 4136 7 ())
+(4138 types #f #f ())
+(4139 types #f #f ())
+(4140 types #f #f ())
+(4141 types #f #f ())
+(4142 types #f #f ())
+(4143 types #f #f ())
+(4144 types #f #f ())
+(4145 types #f #f ())
+(4146 types #f #f ())
+(4147 types #f #f ())
+(4148 types #f #f ())
+(4149 types #f #f ())
+(4150 types #f #f ())
+(4151 types #f #f ())
+(4152 types #f #f ())
+(4153 types #f #f ())
+(4154 types #f #f ())
+(4155 types #f #f ())
+(4156 types #f #f ())
+(4157 types #f #f ())
+(4158 types #f #f ())
+(4159 types #f #f ())
+(4160 procedure 4159 7 ())
+(4161 types #f #f ())
+(4162 types #f #f ())
+(4163 types #f #f ())
+(4164 types #f #f ())
+(4165 defpackage #f #f ())
+(4166 note-name! 4165 7 ())
+(4167 defpackage #f #f ())
+(4168 set-verify-later! 4167 7 ())
+(4169 defpackage #f #f ())
+(4170 verify-later! 4169 7 ())
+(4171 defpackage #f #f ())
+(4172 *verify-later!* 4171 7 ())
+(4173 defpackage #f #f ())
+(4174 defpackage #f #f ())
+(4175 loser 4174 7 ())
+(4176 defpackage #f #f ())
+(4177 make-a-package 4176 7 ())
+(4178 optimizer #f #f ())
+(4179 apply-optimizers 4178 7 ())
+(4180 #f 4179 6 ())
+(4181 optimizer #f #f ())
+(4182 get-optimizer 4181 7 ())
+(4183 #f 4182 6 ())
+(4184 #f 4183 10 ())
+(4185 #f 4184 55 ())
+(4186 optimizer #f #f ())
+(4187 set-optimizer! 4186 7 ())
+(4188 optimizer #f #f ())
+(4189 scan-package #f #f ())
+(4190 check-structure 4189 7 ())
+(4191 #f 4190 17 ())
+(4192 scan-package #f #f ())
+(4193 package-optimizer-names 4192 7 ())
+(4194 #f 4193 36 ())
+(4195 #f 4193 75 ())
+(4196 scan-package #f #f ())
+(4197 read-files 4196 7 ())
+(4198 #f 4197 30 ())
+(4199 scan-package #f #f ())
+(4200 package-source 4199 7 ())
+(4201 #f 4200 46 ())
+(4202 scan-package #f #f ())
+(4203 collect-packages 4202 7 ())
+(4204 recur 4203 26 ())
+(4205 #f 4204 150 ())
+(4206 compile-packages #f #f ())
+(4207 compile-packages #f #f ())
+(4208 compile-packages #f #f ())
+(4209 make-define-primitive-node 4208 7 ())
+(4210 compile-packages #f #f ())
+(4211 define-primitives 4210 7 ())
+(4212 #f 4211 17 ())
+(4213 #f 4211 36 ())
+(4214 compile-packages #f #f ())
+(4215 define-usual-transform 4214 7 ())
+(4216 compile-packages #f #f ())
+(4217 expand-package 4216 7 ())
+(4218 #f 4217 21 ())
+(4219 #f 4218 10 ())
+(4220 #f 4218 28 ())
+(4221 #f 4218 82 ())
+(4222 #f 4221 15 ())
+(4223 #f 4222 10 ())
+(4224 compile-packages #f #f ())
+(4225 compile-package 4224 7 ())
+(4226 module-system #f #f ())
+(4227 analysis #f #f ())
+(4228 analysis #f #f ())
+(4229 analysis #f #f ())
+(4230 analysis #f #f ())
+(4231 analysis #f #f ())
+(4232 analysis #f #f ())
+(4233 package-lookup-type 4232 7 ())
+(4234 analysis #f #f ())
+(4235 analysis #f #f ())
+(4236 require 4235 7 ())
+(4237 analysis #f #f ())
+(4238 simple-literal? 4237 7 ())
+(4239 analysis #f #f ())
+(4240 analysis #f #f ())
+(4241 analysis #f #f ())
+(4242 primitive-proc? 4241 7 ())
+(4243 analysis #f #f ())
+(4244 really-simple-call? 4243 7 ())
+(4245 analysis #f #f ())
+(4246 static-value 4245 7 ())
+(4247 analysis #f #f ())
+(4248 #f 4247 11 ())
+(4249 analysis #f #f ())
+(4250 #f 4249 11 ())
+(4251 loop 4250 21 ())
+(4252 analysis #f #f ())
+(4253 #f 4252 11 ())
+(4254 analysis #f #f ())
+(4255 #f 4254 11 ())
+(4256 analysis #f #f ())
+(4257 #f 4256 11 ())
+(4258 analysis #f #f ())
+(4259 #f 4258 11 ())
+(4260 analysis #f #f ())
+(4261 #f 4260 11 ())
+(4262 analysis #f #f ())
 (4263 #f 4262 11 ())
-(4264 flat-environments #f #f ())
-(4265 flat-environments #f #f ())
-(4266 flat-environments #f #f ())
-(4267 flat-environments #f #f ())
-(4268 flat-environments #f #f ())
-(4269 no-free-vars 4268 7 ())
-(4270 flat-environments #f #f ())
-(4271 flatten-list 4270 7 ())
-(4272 loop 4271 26 ())
-(4273 #f 4272 39 ())
-(4274 flat-environments #f #f ())
-(4275 define-flattener 4274 7 ())
-(4276 flat-environments #f #f ())
-(4277 #f 4276 11 ())
-(4278 #f 4277 6 ())
-(4279 flat-environments #f #f ())
-(4280 flatten-node 4279 7 ())
-(4281 flat-environments #f #f ())
-(4282 flatten-form 4281 7 ())
-(4283 #f 4282 73 ())
-(4284 #f 4282 120 ())
-(4285 flat-environments #f #f ())
-(4286 #f 4285 11 ())
-(4287 #f 4286 6 ())
-(4288 ensures-loaded #f #f ())
-(4289 ensure-loaded 4288 7 ())
-(4290 #f 4289 49 ())
-(4291 #f 4290 56 ())
-(4292 #f 4289 61 ())
-(4293 #f #f #f ())
-(4294 #f 4293 3 ())
-(4295 get-location 4294 3 ())
-(4296 #f 4294 10527 ())
-(4297 #f 4294 10576 ())
-(4298 #f 4294 10689 ())
-(4299 #f 4294 10807 ())
-(4300 #f 4294 10888 ())
-(4301 conc 4300 42 ())
-(4302 #f 4301 16 ())
-(4303 #f 4294 12198 ())
-(4304 loop 4303 115 ())
-(4305 #f 4303 202 ())
-(4306 #f 4303 233 ())
-(4307 #f 4303 413 ())
-(4308 #f 4303 471 ())
-(4309 #f 4294 12586 ())
-(4310 mem? 4309 197 ())
-(4311 every? 4309 206 ())
-(4312 #f 4309 219 ())
-(4313 #f 4309 282 ())
-(4314 #f 4294 12782 ())
-(4315 loop##451 4314 66 ())
-(4316 #f 4294 12831 ())
-(4317 #f 4294 14573 ())
-(4318 #f 4294 21666 ())
-(4319 #f 4318 456 ())
-(4320 #f 4294 22600 ())
-(4321 loop 4320 95 ())
-(4322 #f 4294 22757 ())
-(4323 loop 4322 95 ())
-(4324 #f 4294 22882 ())
-(4325 loop 4324 95 ())
-(4326 #f 4294 22975 ())
-(4327 loop 4326 95 ())
-(4328 #f 4294 23068 ())
-(4329 loop 4328 95 ())
-(4330 #f 4294 23161 ())
-(4331 loop 4330 95 ())
-(4332 #f 4294 23254 ())
-(4333 loop 4332 95 ())
-(4334 #f 4294 23347 ())
-(4335 loop 4334 95 ())
-(4336 #f 4294 23440 ())
-(4337 loop 4336 95 ())
-(4338 #f 4294 24136 ())
-(4339 loop 4338 95 ())
-(4340 #f 4294 26264 ())
-(4341 #f 4294 26427 ())
-(4342 #f 4294 26476 ())
-(4343 #f 4294 26525 ())
-(4344 #f 4294 26670 ())
-(4345 #f 4294 26888 ())
-(4346 #f 4294 29811 ())
-(4347 #f 4294 30011 ())
-(4348 #f 4294 30060 ())
-(4349 #f 4294 30109 ())
-(4350 #f 4349 146 ())
-(4351 #f 4294 30158 ())
-(4352 #f 4351 329 ())
-(4353 #f 4351 403 ())
-(4354 #f 4294 30537 ())
-(4355 #f 4294 30586 ())
-(4356 #f 4355 176 ())
-(4357 parse-package-clauses 4294 30644 ())
-(4358 loop 4357 76 ())
-(4359 #f 4294 30653 ())
-(4360 #f 4359 35 ())
-(4361 #f 4360 146 ())
-(4362 #f 4294 30909 ())
-(4363 #f 4294 30958 ())
-(4364 loop 4363 35 ())
-(4365 #f 4294 31071 ())
-(4366 #f 4294 31152 ())
-(4367 #f 4294 31233 ())
-(4368 loop 4367 51 ())
-(4369 #f 4367 90 ())
-(4370 #f 4367 114 ())
-(4371 #f 4294 31314 ())
-(4372 #f 4294 32571 ())
-(4373 #f 4294 32707 ())
-(4374 #f #f #f ())
+(4264 analysis #f #f ())
+(4265 #f 4264 11 ())
+(4266 analysis #f #f ())
+(4267 #f 4266 11 ())
+(4268 analysis #f #f ())
+(4269 #f 4268 11 ())
+(4270 analysis #f #f ())
+(4271 #f 4270 11 ())
+(4272 analysis #f #f ())
+(4273 define-analyzer 4272 7 ())
+(4274 analysis #f #f ())
+(4275 #f 4274 11 ())
+(4276 analysis #f #f ())
+(4277 simple-list? 4276 7 ())
+(4278 analysis #f #f ())
+(4279 simple? 4278 7 ())
+(4280 analysis #f #f ())
+(4281 analysis #f #f ())
+(4282 simple-lambda? 4281 7 ())
+(4283 #f 4282 123 ())
+(4284 analysis #f #f ())
+(4285 inlinable-rhs? 4284 7 ())
+(4286 analysis #f #f ())
+(4287 analyze-form 4286 7 ())
+(4288 analysis #f #f ())
+(4289 analyze-forms 4288 7 ())
+(4290 #f 4289 17 ())
+(4291 analysis #f #f ())
+(4292 #f 4291 11 ())
+(4293 flat-environments #f #f ())
+(4294 set-difference 4293 7 ())
+(4295 recur 4294 18 ())
+(4296 flat-environments #f #f ())
+(4297 union 4296 7 ())
+(4298 recur 4297 31 ())
+(4299 flat-environments #f #f ())
+(4300 cell-set!-primop 4299 7 ())
+(4301 flat-environments #f #f ())
+(4302 flat-environments #f #f ())
+(4303 cell-ref-primop 4302 7 ())
+(4304 flat-environments #f #f ())
+(4305 flat-environments #f #f ())
+(4306 make-cell-primop 4305 7 ())
+(4307 flat-environments #f #f ())
+(4308 flat-environments #f #f ())
+(4309 flat-environments #f #f ())
+(4310 flat-environments #f #f ())
+(4311 flat-environments #f #f ())
+(4312 flat-environments #f #f ())
+(4313 flat-environments #f #f ())
+(4314 flat-environments #f #f ())
+(4315 flat-environments #f #f ())
+(4316 flat-environments #f #f ())
+(4317 flat-environments #f #f ())
+(4318 make-primop-call 4317 7 ())
+(4319 flat-environments #f #f ())
+(4320 make-cell-set! 4319 7 ())
+(4321 flat-environments #f #f ())
+(4322 make-cell-ref 4321 7 ())
+(4323 flat-environments #f #f ())
+(4324 make-unassigned-cell 4323 7 ())
+(4325 flat-environments #f #f ())
+(4326 make-cell 4325 7 ())
+(4327 flat-environments #f #f ())
+(4328 #f 4327 11 ())
+(4329 #f 4328 25 ())
+(4330 flat-environments #f #f ())
+(4331 #f 4330 11 ())
+(4332 flat-environments #f #f ())
+(4333 #f 4332 11 ())
+(4334 flat-environments #f #f ())
+(4335 #f 4334 11 ())
+(4336 flat-environments #f #f ())
+(4337 #f 4336 11 ())
+(4338 flat-environments #f #f ())
+(4339 flat-environments #f #f ())
+(4340 flat-environments #f #f ())
+(4341 flat-environments #f #f ())
+(4342 flat-environments #f #f ())
+(4343 flat-environments #f #f ())
+(4344 no-sets 4343 7 ())
+(4345 flat-environments #f #f ())
+(4346 define-set-marker 4345 7 ())
+(4347 flat-environments #f #f ())
+(4348 #f 4347 11 ())
+(4349 flat-environments #f #f ())
+(4350 mark-set-variables! 4349 7 ())
+(4351 flat-environments #f #f ())
+(4352 assigned? 4351 7 ())
+(4353 flat-environments #f #f ())
+(4354 #f 4353 11 ())
+(4355 flat-environments #f #f ())
+(4356 #f 4355 11 ())
+(4357 #f 4356 77 ())
+(4358 #f 4356 91 ())
+(4359 #f 4358 119 ())
+(4360 flat-environments #f #f ())
+(4361 #f 4360 11 ())
+(4362 #f 4361 21 ())
+(4363 flat-environments #f #f ())
+(4364 #f 4363 11 ())
+(4365 #f 4364 21 ())
+(4366 #f 4365 6 ())
+(4367 flat-environments #f #f ())
+(4368 #f 4367 11 ())
+(4369 #f 4368 33 ())
+(4370 flat-environments #f #f ())
+(4371 #f 4370 11 ())
+(4372 flat-environments #f #f ())
+(4373 add-cells 4372 7 ())
+(4374 loop##474 4373 11 ())
+(4375 flat-environments #f #f ())
+(4376 convert-lambda-body 4375 7 ())
+(4377 #f 4376 43 ())
+(4378 flat-environments #f #f ())
+(4379 flatten-lambda 4378 7 ())
+(4380 #f 4379 21 ())
+(4381 flat-environments #f #f ())
+(4382 #f 4381 11 ())
+(4383 flat-environments #f #f ())
+(4384 flat-environments #f #f ())
+(4385 flat-environments #f #f ())
+(4386 flat-environments #f #f ())
+(4387 flat-environments #f #f ())
+(4388 no-free-vars 4387 7 ())
+(4389 flat-environments #f #f ())
+(4390 flatten-list 4389 7 ())
+(4391 loop 4390 26 ())
+(4392 #f 4391 39 ())
+(4393 flat-environments #f #f ())
+(4394 define-flattener 4393 7 ())
+(4395 flat-environments #f #f ())
+(4396 #f 4395 11 ())
+(4397 #f 4396 6 ())
+(4398 flat-environments #f #f ())
+(4399 flatten-node 4398 7 ())
+(4400 flat-environments #f #f ())
+(4401 flatten-form 4400 7 ())
+(4402 #f 4401 69 ())
+(4403 #f 4401 115 ())
+(4404 flat-environments #f #f ())
+(4405 #f 4404 11 ())
+(4406 #f 4405 6 ())
+(4407 ensures-loaded #f #f ())
+(4408 ensure-loaded 4407 7 ())
+(4409 #f 4408 49 ())
+(4410 #f 4409 56 ())
+(4411 #f 4408 61 ())
+(4412 #f #f #f ())
+(4413 #f 4412 3 ())
+(4414 get-location 4413 3 ())
+(4415 #f 4413 11036 ())
+(4416 #f 4413 11085 ())
+(4417 #f 4413 11198 ())
+(4418 #f 4413 11316 ())
+(4419 #f 4413 11397 ())
+(4420 conc 4419 37 ())
+(4421 #f 4420 16 ())
+(4422 #f 4413 12707 ())
+(4423 loop 4422 115 ())
+(4424 #f 4422 202 ())
+(4425 #f 4422 233 ())
+(4426 #f 4422 413 ())
+(4427 #f 4422 471 ())
+(4428 #f 4413 13095 ())
+(4429 mem? 4428 191 ())
+(4430 every? 4428 200 ())
+(4431 #f 4428 213 ())
+(4432 #f 4428 276 ())
+(4433 #f 4413 13291 ())
+(4434 loop##479 4433 58 ())
+(4435 #f 4413 13340 ())
+(4436 #f 4413 18358 ())
+(4437 #f 4413 26592 ())
+(4438 #f 4437 456 ())
+(4439 #f 4413 27526 ())
+(4440 loop 4439 90 ())
+(4441 #f 4413 27683 ())
+(4442 loop 4441 90 ())
+(4443 #f 4413 27808 ())
+(4444 loop 4443 90 ())
+(4445 #f 4413 27901 ())
+(4446 loop 4445 90 ())
+(4447 #f 4413 27994 ())
+(4448 loop 4447 90 ())
+(4449 #f 4413 28087 ())
+(4450 loop 4449 90 ())
+(4451 #f 4413 28180 ())
+(4452 loop 4451 90 ())
+(4453 #f 4413 28273 ())
+(4454 loop 4453 90 ())
+(4455 #f 4413 28366 ())
+(4456 loop 4455 90 ())
+(4457 #f 4413 29062 ())
+(4458 loop 4457 90 ())
+(4459 #f 4413 32397 ())
+(4460 #f 4413 32560 ())
+(4461 #f 4413 32609 ())
+(4462 #f 4413 32658 ())
+(4463 #f 4413 32803 ())
+(4464 #f 4413 33021 ())
+(4465 #f 4413 37084 ())
+(4466 #f 4413 37284 ())
+(4467 #f 4413 37333 ())
+(4468 #f 4413 37382 ())
+(4469 #f 4468 146 ())
+(4470 #f 4413 37431 ())
+(4471 #f 4470 329 ())
+(4472 #f 4470 403 ())
+(4473 #f 4413 37810 ())
+(4474 #f 4413 37859 ())
+(4475 #f 4474 176 ())
+(4476 parse-package-clauses 4413 37917 ())
+(4477 loop 4476 76 ())
+(4478 #f 4413 37926 ())
+(4479 #f 4478 27 ())
+(4480 #f 4479 146 ())
+(4481 #f 4413 38182 ())
+(4482 #f 4413 38231 ())
+(4483 loop 4482 35 ())
+(4484 #f 4413 38344 ())
+(4485 #f 4413 38425 ())
+(4486 #f 4413 38506 ())
+(4487 loop 4486 51 ())
+(4488 #f 4486 90 ())
+(4489 #f 4486 114 ())
+(4490 #f 4413 38587 ())
+(4491 #f 4413 39844 ())
+(4492 #f 4413 39980 ())
+(4493 #f #f #f ())
 -
diff --git a/build/initial.image b/build/initial.image
index 60d088a..d81946a 100644
Binary files a/build/initial.image and b/build/initial.image differ
diff --git a/scheme/env/command-level.scm b/scheme/env/command-level.scm
index ea7ecdb..2dc7821 100644
--- a/scheme/env/command-level.scm
+++ b/scheme/env/command-level.scm
@@ -168,8 +168,11 @@
 ; that when it is rescheduled after blocking it can be put on the correct
 ; run queue.
 
-(define (spawn-on-command-level level thunk id)    
-  (let ((thread (make-thread thunk (command-level-dynamic-env level) id)))
+(define (spawn-on-command-level level thunk cell-values id)
+  (let ((thread (make-thread thunk
+			     (command-level-dynamic-env level)
+			     cell-values
+			     id)))
     (set-thread-scheduler! thread (command-thread))
     (set-thread-data! thread level)
     (enqueue-thread! (command-level-queue level) thread)
@@ -181,6 +184,7 @@
 (define (spawn-repl-thread! level)
   (let ((thread (spawn-on-command-level level
 					(command-level-repl-thunk level)
+					(empty-cell-values)
 					'command-loop)))
     (set-command-level-repl-thread! level thread)))
 
@@ -353,7 +357,7 @@
     (lambda (event args)
       (enum-case event-type event
 	((spawned)
-	 (spawn-on-command-level level (car args) (cadr args))
+	 (spawn-on-command-level level (car args) (cadr args) (caddr args))
 	 #t)
 	((runnable)
 	 (let* ((thread (car args))
diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index eea7305..f554b65 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -390,6 +390,16 @@
 	  really-string->number &really-string->number ;exactness argument
 	  string->integer))
 
+(define-interface thread-cells-interface
+  (export make-thread-cell
+	  thread-cell-ref
+	  thread-cell-set!))
+
+(define-interface thread-cells-internal-interface
+  (export get-cell-values
+	  empty-cell-values		; env/command-level.scm
+	  initialize-dynamic-state!))
+
 (define-interface fluids-interface
   (export make-fluid
 	  let-fluid
@@ -398,13 +408,13 @@
 	  set-fluid!))
 
 (define-interface fluids-internal-interface
-  (export initialize-dynamic-state!
-	  current-thread
+  (export current-thread
 	  set-current-thread!
 	  get-dynamic-env		; wind.scm, env/command-level.scm
 	  set-dynamic-env!		; wind.scm
 	  get-dynamic-point		; wind.scm
-	  set-dynamic-point!))		; wind.scm
+	  set-dynamic-point!		; wind.scm
+	  empty-dynamic-env))		; thread-cell.scm
 
 (define-interface enumerated-interface
   (export (define-enumeration :syntax)
diff --git a/scheme/more-packages.scm b/scheme/more-packages.scm
index b06f7f0..e696650 100644
--- a/scheme/more-packages.scm
+++ b/scheme/more-packages.scm
@@ -72,6 +72,7 @@
 	util                    ; unspecific
 	channel-i/o             ; steal-channel-port
 	fluids-internal         ; get-dynamic-env, set-dynamic-env!
+	thread-cells-internal	; empty-cell-values
 	root-scheduler          ; call-when-deadlocked!
 	conditions)             ; define-condition-type
   (files (env command-level)))
diff --git a/scheme/packages.scm b/scheme/packages.scm
index abd01b6..fd243a4 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -272,6 +272,7 @@
 	    scheme-level-1
 	    scheme-level-2
 	    templates
+	    thread-cells
 	    threads
 	    threads-internal
 	    util
@@ -301,6 +302,7 @@
 	    records-internal
 	    root-scheduler
 	    session-data
+	    thread-cells-internal
 	    usual-resumer
 	    ;; silly
 	    ;; structure-refs
diff --git a/scheme/rts-packages.scm b/scheme/rts-packages.scm
index 6b88590..9e87280 100644
--- a/scheme/rts-packages.scm
+++ b/scheme/rts-packages.scm
@@ -53,6 +53,12 @@
   (files (rts fluid))
   (optimize auto-integrate))
 
+(define-structures ((thread-cells thread-cells-interface)
+		    (thread-cells-internal thread-cells-internal-interface))
+  (open scheme-level-1 define-record-types primitives fluids-internal)
+  (files (rts thread-cell))
+  (optimize auto-integrate))
+
 (define-structure wind wind-interface
   (open scheme-level-1 signals define-record-types
 	fluids fluids-internal
@@ -238,6 +244,7 @@
         wind
         fluids
 	fluids-internal         ;get-dynamic-env
+	thread-cells-internal	;get-cell-values
         escapes                 ;primitive-cwcc
         conditions              ;error?
         handle                  ;with-handler
@@ -252,7 +259,8 @@
   (files (rts thread) (rts sleep)))
 
 (define-structure scheduler scheduler-interface
-  (open scheme-level-1 threads threads-internal enumerated enum-case
+  (open scheme-level-1 threads threads-internal thread-cells-internal
+	enumerated enum-case
 	debug-messages
 	signals)       		;error
   (files (rts scheduler)))
@@ -270,6 +278,7 @@
 	writing			;display
 	i/o-internal            ;output-port-forcer, output-forcer-id
 	fluids-internal         ;get-dynamic-env
+	thread-cells-internal	;get-cell-values
 	interrupts              ;with-interrupts-inhibited
 	wind                    ;call-with-current-continuation
 	channel-i/o		;waiting-for-i/o?
@@ -318,7 +327,7 @@
 	i/o		 ;initialize-i/o, etc.
 	channel-i/o      ;{in,out}put-channel->port, initialize-channel-i/o
 	session-data     ;initialize-session-data!
-	fluids-internal	 ;initialize-dynamic-state!
+	thread-cells-internal	 ;initialize-dynamic-state!
 	exceptions	 ;initialize-exceptions!
 	interrupts	 ;initialize-interrupts!
 	sigevents-internal  ;initialize-sigevents!
diff --git a/scheme/rts/fluid.scm b/scheme/rts/fluid.scm
index a2337b3..076047c 100644
--- a/scheme/rts/fluid.scm
+++ b/scheme/rts/fluid.scm
@@ -27,6 +27,14 @@
   (dynamic-env thread-dynamic-env)
   (dynamic-point thread-dynamic-point))
 
+;; (define *dynamic-env* (make-thread-cell (empty-dynamic-env)))
+;; 
+;; (define (get-dynamic-env)
+;;   (thread-cell-ref *dynamic-env*))
+;; 
+;; (define (set-dynamic-env! env)
+;;   (thread-cell-set! *dynamic-env* env))
+
 (define (get-dynamic-env)
   (record-ref (current-thread) 1))
 
@@ -42,9 +50,6 @@
 (define (set-dynamic-point! point)
   (record-set! (current-thread) 2 point))
 
-(define (initialize-dynamic-state!)
-  (set-current-thread! (make-thread (empty-dynamic-env) #f)))
-
 ;----------------
 ; Dynamic environment
 ; A dynamic environment is an alist where the cars are fluid records.
@@ -87,8 +92,3 @@
 	(with-dynamic-env env (car args))
 	(loop (cddr args)
 	      (cons (cons (car args) (cadr args)) env)))))
-
-; Initialize
-
-(initialize-dynamic-state!)
-
diff --git a/scheme/rts/root-scheduler.scm b/scheme/rts/root-scheduler.scm
index ba40533..1da0383 100644
--- a/scheme/rts/root-scheduler.scm
+++ b/scheme/rts/root-scheduler.scm
@@ -30,6 +30,7 @@
 	(safe-dynamic-env (with-handler root-handler get-dynamic-env))
 	(thread (make-thread thunk
 			     (get-dynamic-env)
+			     (get-cell-values)
 			     'scheduler-initial-thread)))
     (increment-counter! thread-count)
     (enqueue-thread! runnable thread)
diff --git a/scheme/rts/scheduler.scm b/scheme/rts/scheduler.scm
index 0eabbb6..0a89307 100644
--- a/scheme/rts/scheduler.scm
+++ b/scheme/rts/scheduler.scm
@@ -100,7 +100,8 @@
 	   (enqueue-thread! runnable
 			    (make-thread (car event-data)
 					 dynamic-env
-					 (cadr event-data))))
+					 (cadr event-data)
+					 (caddr event-data))))
 	  ((no-event)
 	   (values))
 	  (else
diff --git a/scheme/rts/thread-cell.scm b/scheme/rts/thread-cell.scm
new file mode 100644
index 0000000..8e9a4dc
--- /dev/null
+++ b/scheme/rts/thread-cell.scm
@@ -0,0 +1,74 @@
+; Copyright (c) 1993-2001 by Richard Kelsey and Jonathan Rees. See file COPYING.
+
+(define-record-type thread :thread
+  (make-thread dynamic-env dynamic-point
+	       cell-values own-cell-values?)
+  (dynamic-env   thread-dynamic-env)
+  (dynamic-point thread-dynamic-point)
+  (cell-values    thread-cell-values set-thread-cell-values!)
+  (own-cell-values? thread-own-cell-values? set-thread-own-values?!))
+
+(define (empty-cell-values) '())
+
+(define (get-cell-values)
+  (record-ref (current-thread) 3))
+
+(define (set-cell-values! values)
+  (record-set! (current-thread) 3 values))
+
+(define (get-own-cell-values?)
+  (record-ref (current-thread) 4))
+
+(define (set-own-cell-values? own-values?)
+  (record-set! (current-thread) 4 own-values?))
+
+(define-record-type thread-cell :thread-cell
+  (make-thread-cell top)
+  (top thread-cell-top-level-value set-thread-cell-top-level-value!))
+
+(define (thread-cell-ref thread-cell)
+  (cond
+   ((assq thread-cell (get-cell-values)) => cdr)
+   (else (thread-cell-top-level-value thread-cell))))
+
+(define (thread-cell-set! thread-cell val)
+  (cond
+   ;; This might benefit from reordering: if we don't have a binding
+   ;; here, it's safe to set cell-values regardless of the setting of
+   ;; OWN-CELL-VALUES?.  On the other hand, this may mean we copy too
+   ;; much when push comes to shove; probably best to store the
+   ;; original CELL-VALUES instead of OWN-CELL-VALUES?.
+   ((not (get-own-cell-values?))
+    (let loop ((values (get-cell-values))
+	       (rev-new-values '())
+	       (found? #f))
+      (cond
+       ((null? values)
+	(set-cell-values! (if found?
+			      (reverse rev-new-values)
+			      (cons (cons thread-cell val)
+				    (reverse rev-new-values))))
+	(set-own-cell-values? #t))
+       ((eq? thread-cell (caar values))
+	(loop (cdr values)
+	      (cons (cons (caar values) val)
+		    rev-new-values)
+	      #t))
+       (else
+	(loop (cdr values)
+	      (cons (cons (caar values) (cdar values))
+		    rev-new-values)
+	      found?)))))
+   ((assq thread-cell (get-cell-values))
+    => (lambda (pair)
+	 (set-cdr! pair val)))
+   (else
+    (set-cell-values! (cons (cons thread-cell val)
+			    (get-cell-values))))))
+
+(define (initialize-dynamic-state!)
+  (set-current-thread! (make-thread (empty-dynamic-env) #f
+				    (empty-cell-values) #t)))
+
+
+(initialize-dynamic-state!)
diff --git a/scheme/rts/thread.scm b/scheme/rts/thread.scm
index a833a43..9b5a47f 100644
--- a/scheme/rts/thread.scm
+++ b/scheme/rts/thread.scm
@@ -39,13 +39,20 @@
 ; the list is spliced back together and eN's continuation is resumed.
 
 (define-record-type thread :thread
-  (really-make-thread dynamic-env dynamic-point continuation scheduler
+  (really-make-thread dynamic-env dynamic-point
+		      cell-values own-cell-values?
+		      continuation scheduler
 		      queue arguments
 		      events current-task uid name)
   thread?
   (dynamic-env    thread-dynamic-env)   ;Must be first!  (See fluid.scm)
   (dynamic-point  thread-dynamic-point set-thread-dynamic-point!)
   					;Must be second!  (See fluid.scm)
+
+					;Must be third! (See thread-cell.scm)
+  (cell-values    thread-cell-values set-thread-cell-values!)
+					;Must be fourth! (See thread-cell.scm)
+  (own-cell-values? thread-own-cell-values? set-thread-own-values?!)
   (continuation   thread-continuation set-thread-continuation!)
   (queue          thread-queue set-thread-queue!)
   (arguments      thread-arguments set-thread-arguments!)
@@ -68,9 +75,11 @@
 
 (define *thread-uid* 0)
 
-(define (make-thread thunk dynamic-env name)
+(define (make-thread thunk dynamic-env cell-values name)
   (let ((thread (really-make-thread dynamic-env
 				    #f               ; dynamic-point root
+				    cell-values
+				    #f		     ; own-cell-values?
 				    (thunk->continuation
 				     (thread-top-level thunk))
 				    (current-thread) ; scheduler
@@ -540,20 +549,26 @@
 ; scheduler.
 
 (define (spawn thunk . id)
-  (apply spawn-on-scheduler (thread-scheduler (current-thread)) thunk id))
+  (apply spawn-on-scheduler
+	 (thread-scheduler (current-thread))
+	 thunk
+	 (thread-cell-values (current-thread))
+	 id))
 
 (define (spawn-on-root thunk . id)
   (if (root-scheduler)
       (apply spawn-on-scheduler
 	     (root-scheduler)
 	     thunk
+	     (thread-cell-values (current-thread))
 	     id)
       (thunk)))
 
-(define (spawn-on-scheduler scheduler thunk . id)
+(define (spawn-on-scheduler scheduler thunk cell-values . id)
   (schedule-event scheduler
 		  (enum event-type spawned)
 		  thunk
+		  cell-values
 		  (if (null? id) #f (car id))))
 
 ; Enqueue a RUNNABLE for THREAD's scheduler.
@@ -621,6 +636,7 @@
 		 (set! *thread-uid* 0)
 		 (let ((thread (make-thread #f    ; thunk
 					    (get-dynamic-env)
+					    (get-cell-values)
 					    'initial-thread)))
 		   (set-thread-scheduler! thread #f)
 		   (set-thread-time! thread #f)