; Package uid -> name (0 low-structures) (1 debug-low-structures) (2 alt-features-structures) (3 cheat-features-structures) (4 the-interfaces) (5 meta-module-system) (6 run-time-structures) (7 compiler-structures) (8 initial-structures) (9 debug-structures) (10 usual-structures) (11 alt-low-structures) (12 compiler-structures) (13 linker-structures) (14 scheme-level-0) (15 scheme-level-1) (16 records) (17 export-the-record-type) (18 define-record-types) (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) - ; Location uid -> (name . package-uid) (0 (and . 14)) (1 (cond . 14)) (2 (do . 14)) (3 (let . 14)) (4 (let* . 14)) (5 (or . 14)) (6 (code-quote . 14)) (7 (quote . 14)) (8 (unspecific . 14)) (9 (define-syntax . 14)) (10 (lambda . 14)) (11 (begin . 14)) (12 (unassigned . 14)) (13 (flat-lambda . 14)) (14 (define . 14)) (15 (primitive-procedure . 14)) (16 (if . 14)) (17 (letrec-syntax . 14)) (18 (%file-name% . 14)) (19 (let-syntax . 14)) (20 (structure-ref . 14)) (21 (loophole . 14)) (22 (letrec . 14)) (23 (lap . 14)) (24 (set! . 14)) (25 (call . 14)) (26 (atan . 14)) (27 (set-location-defined?! . 14)) (28 (acos . 14)) (29 (vm-extension . 14)) (30 (asin . 14)) (31 (location-defined? . 14)) (32 (time . 14)) (33 (template-set! . 14)) (34 (cons . 14)) (35 (wait . 14)) (36 (trap . 14)) (37 (assq . 14)) (38 (make-weak-pointer . 14)) (39 (lookup-shared-binding . 14)) (40 (push . 14)) (41 (set-contents! . 14)) (42 (read-char . 14)) (43 (make-cell . 14)) (44 (sqrt . 14)) (45 (* . 14)) (46 (contents . 14)) (47 (+ . 14)) (48 (peek-char . 14)) (49 (- . 14)) (50 (continuation-set! . 14)) (51 (/ . 14)) (52 (weak-pointer? . 14)) (53 (quotient . 14)) (54 (close-channel . 14)) (55 (channel-abort . 14)) (56 (char? . 14)) (57 (< . 14)) (58 (= . 14)) (59 (> . 14)) (60 (make-location . 14)) (61 (imag-part . 14)) (62 (set-port-data! . 14)) (63 (make-template . 14)) (64 (real? . 14)) (65 (real-part . 14)) (66 (get-cont-from-heap . 14)) (67 (record-length . 14)) (68 (port-data . 14)) (69 (pair? . 14)) (70 (make-port . 14)) (71 (set-port-lock! . 14)) (72 (return-from-exception . 14)) (73 (location? . 14)) (74 (channel-maybe-read . 14)) (75 (checked-record-ref . 14)) (76 (add-finalizer! . 14)) (77 (rational? . 14)) (78 (template? . 14)) (79 (port-lock . 14)) (80 (vector-length . 14)) (81 (make-continuation . 14)) (82 (string-length . 14)) (83 (shared-binding-ref . 14)) (84 (port? . 14)) (85 (angle . 14)) (86 (false . 14)) (87 (remainder . 14)) (88 (continuation? . 14)) (89 (binary-reduce1 . 14)) (90 (binary-reduce2 . 14)) (91 (char= . 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 (make-closure . 14)) (214 (session-data . 14)) (215 (integer? . 14)) (216 (signal-condition . 14)) (217 (port-handler . 14)) (218 (set-port-pending-eof?! . 14)) (219 (define-shared-binding . 14)) (220 (arithmetic-shift . 14)) (221 (complex? . 14)) (222 (port-pending-eof? . 14)) (223 (cell-set! . 14)) (224 (binary-comparison-reduce2 . 14)) (225 (closure? . 14)) (226 (continuation-ref . 14)) (227 (closure-template . 14)) (228 (current-cont . 14)) (229 (char->integer . 14)) (230 (integer->char . 14)) (231 (ascii-limit . 14)) (232 (ascii-whitespaces . 14)) (233 (procedure? . 14)) (234 (invoke-closure . 14)) (235 (primitive-cwcc . 14)) (236 (make-undefined-location . 14)) (237 (location-assigned? . 14)) (238 (vector-unassigned? . 14)) (239 (string-copy . 14)) (240 (string->symbol . 14)) (241 (input-port? . 14)) (242 (output-port? . 14)) (243 (make-code-vector . 14)) (244 (code-vector? . 14)) (245 (code-vector-length . 14)) (246 (code-vector-ref . 14)) (247 (code-vector-set! . 14)) (248 (channel-read . 14)) (249 (buffer-length . 14)) (250 (channel-write . 14)) (251 (lookup-imported-binding . 14)) (252 (lookup-exported-binding . 14)) (253 (define-imported-binding . 14)) (254 (define-exported-binding . 14)) (255 (undefine-imported-binding . 14)) (256 (undefine-exported-binding . 14)) (257 (debug-message . 14)) (258 (make-condition . 14)) (259 (signal . 14)) (260 (warn . 14)) (261 (syntax-error . 14)) (262 (call-error . 14)) (263 (case . 15)) (264 (quasiquote . 15)) (265 (syntax-rules . 15)) (266 (not . 15)) (267 (boolean? . 15)) (268 (eqv? . 15)) (269 (equal? . 15)) (270 (max . 15)) (271 (min . 15)) (272 (max-or-min . 15)) (273 (abs . 15)) (274 (zero? . 15)) (275 (positive? . 15)) (276 (negative? . 15)) (277 (even? . 15)) (278 (odd? . 15)) (279 (caar . 15)) (280 (cadr . 15)) (281 (cdar . 15)) (282 (cddr . 15)) (283 (caaar . 15)) (284 (caadr . 15)) (285 (cadar . 15)) (286 (caddr . 15)) (287 (cdaar . 15)) (288 (cdadr . 15)) (289 (cddar . 15)) (290 (cdddr . 15)) (291 (caaaar . 15)) (292 (caaadr . 15)) (293 (caadar . 15)) (294 (caaddr . 15)) (295 (cadaar . 15)) (296 (cadadr . 15)) (297 (caddar . 15)) (298 (cadddr . 15)) (299 (cdaaar . 15)) (300 (cdaadr . 15)) (301 (cdadar . 15)) (302 (cdaddr . 15)) (303 (cddaar . 15)) (304 (cddadr . 15)) (305 (cdddar . 15)) (306 (cddddr . 15)) (307 (null? . 15)) (308 (list . 15)) (309 (length . 15)) (310 (real-length . 15)) (311 (append . 15)) (312 (reverse . 15)) (313 (append-reverse . 15)) (314 (list-tail . 15)) (315 (list-ref . 15)) (316 (mem . 15)) (317 (memq . 15)) (318 (memv . 15)) (319 (member . 15)) (320 (ass . 15)) (321 (assv . 15)) (322 (assoc . 15)) (323 (list? . 15)) (324 (char>? . 15)) (325 (char>=? . 15)) (326 (char<=? . 15)) (327 (char-whitespace? . 15)) (328 (char-lower-case? . 15)) (329 (char-upper-case? . 15)) (330 (char-numeric? . 15)) (331 (char-alphabetic? . 15)) (332 (char-case-delta . 15)) (333 (make-character-map . 15)) (334 (upcase-map . 15)) (335 (char-upcase . 15)) (336 (downcase-map . 15)) (337 (char-downcase . 15)) (338 (char-ci-compare . 15)) (339 (char-ci=? . 15)) (340 (char-ci? . 15)) (343 (char-ci>=? . 15)) (344 (string . 15)) (345 (substring . 15)) (346 (string-append . 15)) (347 (string->list . 15)) (348 (list->string . 15)) (349 (string-fill! . 15)) (350 (make-string=? . 15)) (351 (string-ci=? . 15)) (352 (make-string? . 15)) (356 (string<=? . 15)) (357 (string>=? . 15)) (358 (string-ci>? . 15)) (359 (string-ci<=? . 15)) (360 (string-ci>=? . 15)) (361 (vector->list . 15)) (362 (list->vector . 15)) (363 (vector-fill! . 15)) (364 (map . 15)) (365 (map1 . 15)) (366 (map2+ . 15)) (367 (for-each . 15)) (368 (for-each1 . 15)) (369 (for-each2+ . 15)) (370 (delay . 15)) (371 (make-promise . 15)) (372 (force . 15)) (373 (unspecific . 15)) (374 (reduce . 15)) (375 (filter . 15)) (376 (pos . 15)) (377 (posq . 15)) (378 (posv . 15)) (379 (position . 15)) (380 (any . 15)) (381 (every . 15)) (382 (sublist . 15)) (383 (last . 15)) (384 (insert . 15)) (385 (fold . 15)) (386 (fold->2 . 15)) (387 (fold->3 . 15)) (388 (inexact? . 15)) (389 (modulo . 15)) (390 (ceiling . 15)) (391 (truncate . 15)) (392 (round . 15)) (393 (gcd . 15)) (394 (euclid . 15)) (395 (lcm . 15)) (396 (expt . 15)) (397 (raise-to-integer-power . 15)) (398 (rationalize . 15)) (399 (simplest-rational . 15)) (400 (record-type . 16)) (401 (*record-type-uid* . 16)) (402 (*record-type* . 16)) (403 (make-record-type . 16)) (404 (record-type? . 16)) (405 (record-type-resumer . 16)) (406 (set-record-type-resumer! . 16)) (407 (record-type-uid . 16)) (408 (record-type-name . 16)) (409 (record-type-field-names . 16)) (410 (record-type-number-of-fields . 16)) (411 (record-type-discloser . 16)) (412 (set-record-type-discloser! . 16)) (413 (record-type-fields . 16)) (414 (record-field-index . 16)) (415 (record-constructor . 16)) (416 (record-accessor . 16)) (417 (record-modifier . 16)) (418 (record-predicate . 16)) (419 (define-record-discloser . 16)) (420 (make-default-record-discloser . 16)) (421 (disclose-record . 16)) (422 (define-record-resumer . 16)) (423 (default-record-resumer . 16)) (424 (initialize-records! . 16)) (425 (resume-record . 16)) (426 (:record-type . 16)) (427 (define-record-type . 18)) (428 (define-constructor . 18)) (429 (define-accessors . 18)) (430 (define-accessor . 18)) (431 (:simple-type . 19)) (432 (really-make-simple-type . 19)) (433 (simple-type-id . 19)) (434 (simple-type-priority . 19)) (435 (simple-type-predicate . 19)) (436 (simple-type-superiors . 19)) (437 (simple-type? . 19)) (438 (make-simple-type . 19)) (439 (compute-priority . 19)) (440 (*increment* . 19)) (441 (%type-priority . 19)) (442 (%type-predicate . 19)) (443 (%same-type? . 19)) (444 (define-simple-type . 19)) (445 (:syntax . 19)) (446 (:values . 19)) (447 (value? . 19)) (448 (:value . 19)) (449 (:zero . 19)) (450 (:number . 19)) (451 (:complex . 19)) (452 (:real . 19)) (453 (:rational . 19)) (454 (:integer . 19)) (455 (:exact-integer . 19)) (456 (:boolean . 19)) (457 (:symbol . 19)) (458 (:char . 19)) (459 (:null . 19)) (460 (:pair . 19)) (461 (:vector . 19)) (462 (:string . 19)) (463 (:procedure . 19)) (464 (:input-port . 19)) (465 (:output-port . 19)) (466 (:eof-object . 19)) (467 (:record . 19)) (468 (record-type-priority . 19)) (469 (:method-info . 19)) (470 (really-make-method-info . 19)) (471 (method-info-proc . 19)) (472 (method-info-n-ary? . 19)) (473 (method-info-types . 19)) (474 (method-info? . 19)) (475 (make-method-info . 19)) (476 (empty-method-list . 19)) (477 (insert-method . 19)) (478 (same-applicability? . 19)) (479 (every2 . 19)) (480 (more-specific? . 19)) (481 (more-specific-type? . 19)) (482 (:method-table . 19)) (483 (really-make-method-table . 19)) (484 (method-table-id . 19)) (485 (method-table-set-perform! . 19)) (486 (method-table-get-perform . 19)) (487 (make-generic . 19)) (488 (method-table-prototype . 19)) (489 (method-table-methods . 19)) (490 (set-method-table-methods! . 19)) (491 (method-table? . 19)) (492 (make-method-table . 19)) (493 (make-cell-for-generic . 19)) (494 (add-to-method-table! . 19)) (495 (set-final-method! . 19)) (496 (apply-generic . 19)) (497 (define-generic . 19)) (498 (methods->perform . 19)) (499 (last-action . 19)) (500 (one-action . 19)) (501 (argument-sequence-predicate . 19)) (502 (check-for-next . 19)) (503 (check-next . 19)) (504 (method-info . 19)) (505 (method-internal . 19)) (506 (with-next-method . 19)) (507 (define-method . 19)) (508 (&add-method! . 19)) (509 (add-method! . 19)) (510 (&type-predicate . 19)) (511 (type-predicate . 19)) (512 (&type-priority . 19)) (513 (type-priority . 19)) (514 (&type-superiors . 19)) (515 (type-superiors . 19)) (516 (&same-type? . 19)) (517 (same-type? . 19)) (518 (:singleton . 19)) (519 (singleton . 19)) (520 (singleton-value . 19)) (521 (compare-to . 19)) (522 (&disclose . 19)) (523 (disclose . 19)) (524 (proc->discloser . 19)) (525 (&number->string . 20)) (526 (real-number->string . 20)) (527 (number->string . 20)) (528 (integer->string . 20)) (529 (string->number . 20)) (530 (&really-string->number . 20)) (531 (really-string->number . 20)) (532 (:integer-string . 20)) (533 (set-exactness . 20)) (534 (string->integer . 20)) (535 (:thread . 21)) (536 (make-thread . 21)) (537 (thread-dynamic-point . 21)) (538 (thread-dynamic-env . 21)) (539 (get-dynamic-env . 21)) (540 (set-dynamic-env! . 21)) (541 (get-dynamic-point . 21)) (542 (set-dynamic-point! . 21)) (543 (initialize-dynamic-state! . 21)) (544 (with-dynamic-env . 21)) (545 (empty-dynamic-env . 21)) (546 (:fluid . 21)) (547 (make-fluid . 21)) (548 (fluid-top-level-value . 21)) (549 (set-fluid-top-level-value! . 21)) (550 (fluid . 21)) (551 (set-fluid! . 21)) (552 (let-fluid . 21)) (553 (let-fluids . 21)) (554 (define-enumeration . 35)) (555 (components . 35)) (556 (enum . 35)) (557 (enumerand->name . 35)) (558 (name->enumerand . 35)) (559 (lookup-enumerand . 35)) (560 (architecture-version . 36)) (561 (bits-used-per-byte . 36)) (562 (byte-limit . 36)) (563 (define-instruction-set . 36)) (564 (op . 36)) (565 (op-enumeration . 36)) (566 (op-count . 36)) (567 (opcode-arg-specs . 36)) (568 (interrupt . 36)) (569 (interrupt-enumeration . 36)) (570 (interrupt-count . 36)) (571 (exception . 36)) (572 (exception-enumeration . 36)) (573 (exception-count . 36)) (574 (current-port-marker . 36)) (575 (current-port-marker-enumeration . 36)) (576 (current-port-marker-count . 36)) (577 (maximum-stack-args . 36)) (578 (*last-protocol* . 36)) (579 (next-protocol . 36)) (580 (two-byte-nargs-protocol . 36)) (581 (two-byte-nargs+list-protocol . 36)) (582 (big-stack-protocol . 36)) (583 (args+nargs-protocol . 36)) (584 (nary-dispatch-protocol . 36)) (585 (maximum-external-call-args . 36)) (586 (default-stack-space . 36)) (587 (environment-stack-size . 36)) (588 (continuation-stack-size . 36)) (589 (available-stack-space . 36)) (590 (time-option . 36)) (591 (time-option-enumeration . 36)) (592 (time-option-count . 36)) (593 (memory-status-option . 36)) (594 (memory-status-option-enumeration . 36)) (595 (memory-status-option-count . 36)) (596 (channel-status-option . 36)) (597 (channel-status-option-enumeration . 36)) (598 (channel-status-option-count . 36)) (599 (port-status-options . 36)) (600 (port-status-options-enumeration . 36)) (601 (port-status-options-count . 36)) (602 (stob . 36)) (603 (stob-enumeration . 36)) (604 (stob-count . 36)) (605 (least-b-vector-type . 36)) (606 (stob-data . 36)) (607 (:queue . 43)) (608 (really-make-queue . 43)) (609 (queue-tail . 43)) (610 (set-queue-tail! . 43)) (611 (queue-head . 43)) (612 (set-queue-head! . 43)) (613 (queue-uid . 43)) (614 (queue? . 43)) (615 (*queue-uid* . 43)) (616 (make-queue . 43)) (617 (queue-empty? . 43)) (618 (enqueue! . 43)) (619 (queue-front . 43)) (620 (dequeue! . 43)) (621 (on-queue? . 43)) (622 (delete-from-queue! . 43)) (623 (delete-from-queue-if! . 43)) (624 (queue->list . 43)) (625 (queue-length . 43)) (626 (*condition-types* . 27)) (627 (condition-supertypes . 27)) (628 (define-condition-type . 27)) (629 (condition-predicate . 27)) (630 (condition? . 27)) (631 (condition-type . 27)) (632 (condition-stuff . 27)) (633 (error? . 27)) (634 (call-error? . 27)) (635 (read-error? . 27)) (636 (exception? . 27)) (637 (exception-opcode . 27)) (638 (exception-reason . 27)) (639 (exception-arguments . 27)) (640 (make-exception . 27)) (641 (warning? . 27)) (642 (syntax-error? . 27)) (643 (interrupt? . 27)) (644 (*session-data-initializers* . 23)) (645 (make-session-data-slot! . 23)) (646 (session-data-ref . 23)) (647 (session-data-set! . 23)) (648 (initialize-session-data! . 23)) (649 (initialize-interrupts! . 38)) (650 (interrupt-handlers . 38)) (651 (set-interrupt-handler! . 38)) (652 (no-interrupts . 38)) (653 (all-interrupts . 38)) (654 (with-interrupts-inhibited . 38)) (655 (with-interrupts-allowed . 38)) (656 (disable-interrupts! . 38)) (657 (enable-interrupts! . 38)) (658 (with-interrupts . 38)) (659 (enabled-interrupts . 38)) (660 (*post-gc-procedures* . 38)) (661 (call-after-gc! . 38)) (662 (post-gc-handler . 38)) (663 (required-post-gc-space . 38)) (664 (space-shortage-handler . 38)) (665 (call-before-heap-overflow! . 38)) (666 (interrupt-handlers-vector . 38)) (667 (dynamic-wind . 22)) (668 (call-with-current-continuation . 22)) (669 (continuation->procedure . 22)) (670 (:point . 22)) (671 (make-point . 22)) (672 (point-parent . 22)) (673 (point-dynamic-env . 22)) (674 (point-out . 22)) (675 (point-in . 22)) (676 (point-depth . 22)) (677 (travel-to-point! . 22)) (678 (template-overhead . 32)) (679 (template-code . 32)) (680 (template-info . 32)) (681 (set-template-code! . 32)) (682 (set-template-info! . 32)) (683 (:closure . 34)) (684 (:code-vector . 34)) (685 (:location . 34)) (686 (:template . 34)) (687 (:channel . 34)) (688 (:port . 34)) (689 (:double . 34)) (690 (:weak-pointer . 34)) (691 (:shared-binding . 34)) (692 (continuation-cont . 33)) (693 (real-continuation-pc . 33)) (694 (real-continuation-template . 33)) (695 (continuation-env . 33)) (696 (exception-continuation-pc . 33)) (697 (exception-continuation-template . 33)) (698 (exception-continuation-exception . 33)) (699 (exception-continuation? . 33)) (700 (continuation-pc . 33)) (701 (continuation-template . 33)) (702 (normal-continuation-overhead . 33)) (703 (exception-continuation-overhead . 33)) (704 (continuation-arg . 33)) (705 (continuation-arg-count . 33)) (706 (:continuation . 33)) (707 (continuation-parent . 33)) (708 (define-exception-handler . 37)) (709 (signal-exception . 37)) (710 (exception-handlers . 37)) (711 (extend-opcode! . 37)) (712 (really-signal-condition . 37)) (713 (with-handler . 37)) (714 ($condition-handlers . 37)) (715 (initialize-exceptions! . 37)) (716 (last-resort-condition-handler . 37)) (717 (report-utter-lossage . 37)) (718 (continuation-preview . 37)) (719 (ignore-errors . 37)) (720 (report-errors-as-warnings . 37)) (721 (:thread . 39)) (722 (really-make-thread . 39)) (723 (thread-name . 39)) (724 (thread-uid . 39)) (725 (thread-current-task . 39)) (726 (set-thread-current-task! . 39)) (727 (thread-events . 39)) (728 (set-thread-events! . 39)) (729 (thread-data . 39)) (730 (set-thread-data! . 39)) (731 (thread-scheduler . 39)) (732 (set-thread-scheduler! . 39)) (733 (thread-time . 39)) (734 (set-thread-time! . 39)) (735 (thread-arguments . 39)) (736 (set-thread-arguments! . 39)) (737 (thread-queue . 39)) (738 (set-thread-queue! . 39)) (739 (thread-continuation . 39)) (740 (set-thread-continuation! . 39)) (741 (thread-dynamic-point . 39)) (742 (set-thread-dynamic-point! . 39)) (743 (thread-dynamic-env . 39)) (744 (thread? . 39)) (745 (*thread-uid* . 39)) (746 (make-thread . 39)) (747 (thread-top-level . 39)) (748 (thread-uid->thread . 39)) (749 (all-threads . 39)) (750 (add-event! . 39)) (751 (thunk->continuation . 39)) (752 (compose-continuation . 39)) (753 (make-thread-queue . 39)) (754 (thread-queue-empty? . 39)) (755 (enqueue-thread! . 39)) (756 (dequeue-thread! . 39)) (757 (remove-thread-from-queue! . 39)) (758 (current-thread . 39)) (759 (set-current-thread! . 39)) (760 (event-type . 39)) (761 (event-type-enumeration . 39)) (762 (event-type-count . 39)) (763 (run . 39)) (764 (find-and-run-next-thread . 39)) (765 (debit-thread-times-and-run! . 39)) (766 (handle-timer-interrupt . 39)) (767 (run-next-thread . 39)) (768 (min . 39)) (769 (switch-to-thread . 39)) (770 (run-thread . 39)) (771 (suspend . 39)) (772 (suspend-to . 39)) (773 (debit-down! . 39)) (774 (exit . 39)) (775 (wait . 39)) (776 (waiting? . 39)) (777 (block . 39)) (778 (relinquish-timeslice . 39)) (779 (upcall . 39)) (780 (propogate-upcall . 39)) (781 (kill-thread! . 39)) (782 (interrupt-thread . 39)) (783 (get-next-event! . 39)) (784 (event-pending? . 39)) (785 (schedule-event . 39)) (786 (schedule-wakeup . 39)) (787 (show-running . 39)) (788 (running? . 39)) (789 (spawn . 39)) (790 (spawn-on-root . 39)) (791 (spawn-on-scheduler . 39)) (792 (make-ready . 39)) (793 (schedule-interrupt! . 39)) (794 (cancel-timer-interrupt! . 39)) (795 (interrupt-timer-time . 39)) (796 (real-time . 39)) (797 (with-threads . 39)) (798 (start-multitasking . 39)) (799 (deadlock? . 39)) (800 (terminate? . 39)) (801 (terminate-current-thread . 39)) (802 (root-scheduler-slot . 39)) (803 (root-scheduler . 39)) (804 (sleep . 39)) (805 (*dozers* . 39)) (806 (insert . 39)) (807 (wake-some-threads . 39)) (808 (:lock . 44)) (809 (really-make-lock . 44)) (810 (lock-uid . 44)) (811 (lock-queue . 44)) (812 (lock-owner-uid . 44)) (813 (set-lock-owner-uid! . 44)) (814 (lock? . 44)) (815 (*lock-uid* . 44)) (816 (make-lock . 44)) (817 (obtain-lock . 44)) (818 (maybe-obtain-lock . 44)) (819 (release-lock . 44)) (820 (:port-handler . 24)) (821 (really-make-port-handler . 24)) (822 (port-handler-steal . 24)) (823 (port-handler-buffer-proc . 24)) (824 (port-handler-close . 24)) (825 (port-handler-discloser . 24)) (826 (port-handler? . 24)) (827 (make-port-handler . 24)) (828 (disclose-port . 24)) (829 (obtain-port-lock . 24)) (830 (maybe-obtain-port-lock . 24)) (831 (release-port-lock . 24)) (832 (initialize-i/o-handlers! . 24)) (833 (one-arg-proc->handler . 24)) (834 (two-arg-proc->handler . 24)) (835 (read-char-handler . 24)) (836 (fill-port-buffer! . 24)) (837 (write-char-handler . 24)) (838 (empty-port-buffer! . 24)) (839 (port-flushed? . 24)) (840 (set-port-flushed?! . 24)) (841 (close-input-port . 24)) (842 (close-output-port . 24)) (843 (define-port-op . 24)) (844 (real-char-ready? . 24)) (845 (read-block . 24)) (846 (really-read-block . 24)) (847 (buffer-length . 24)) (848 (read-more . 24)) (849 (okay-limits? . 24)) (850 (write-block . 24)) (851 (write-string . 24)) (852 (write-buffered-block . 24)) (853 (write-unbuffered-block . 24)) (854 (force-output . 24)) (855 (really-force-output . 24)) (856 (force-output-if-open . 24)) (857 (default-buffer-size . 24)) (858 (open-port? . 24)) (859 (open-port-mask . 24)) (860 (input-port-mask . 24)) (861 (open-input-port-mask . 24)) (862 (open-input-port-status . 24)) (863 (open-input-port? . 24)) (864 (make-input-port-closed! . 24)) (865 (make-input-port . 24)) (866 (okay-buffer? . 24)) (867 (output-port-mask . 24)) (868 (open-output-port-mask . 24)) (869 (open-output-port-status . 24)) (870 (open-output-port? . 24)) (871 (make-output-port-closed! . 24)) (872 (make-output-port . 24)) (873 (make-unbuffered-output-port . 24)) (874 (null-output-port-handler . 24)) (875 (make-null-output-port . 24)) (876 (*flush-these-ports* . 24)) (877 (initialize-output-port-list! . 24)) (878 (periodically-force-output! . 24)) (879 (output-port-forcers . 24)) (880 (periodically-flushed-ports . 24)) (881 (make-forcing-thunk . 24)) (882 (steal-port! . 24)) (883 (really-steal-port! . 24)) (884 ($current-input-port . 24)) (885 ($current-output-port . 24)) (886 ($current-error-port . 24)) (887 ($current-noise-port . 24)) (888 (current-input-port . 24)) (889 (current-output-port . 24)) (890 (current-error-port . 24)) (891 (current-noise-port . 24)) (892 (initialize-i/o . 24)) (893 (with-current-ports . 24)) (894 (call-with-current-input-port . 24)) (895 (call-with-current-output-port . 24)) (896 (call-with-current-noise-port . 24)) (897 (silently . 24)) (898 (newline . 24)) (899 (char-ready? . 24)) (900 (output-port-option . 24)) (901 (input-port-option . 24)) (902 (write . 28)) (903 (recurring-write . 28)) (904 (write-boolean . 28)) (905 (write-number . 28)) (906 (write-char-literal . 28)) (907 (character-name . 28)) (908 (write-string-literal . 28)) (909 (write-list . 28)) (910 (quotation? . 28)) (911 (write-vector . 28)) (912 (write-other . 28)) (913 (display-type-name . 28)) (914 (display . 28)) (915 (preferred-case . 29)) (916 (script-skip . 29)) (917 (read . 29)) (918 (sub-read-carefully . 29)) (919 (reader-token-marker . 29)) (920 (make-reader-token . 29)) (921 (reader-token? . 29)) (922 (close-paren . 29)) (923 (dot . 29)) (924 (sub-read . 29)) (925 (read-dispatch-vector . 29)) (926 (read-terminating?-vector . 29)) (927 (set-standard-syntax! . 29)) (928 (set-standard-read-macro! . 29)) (929 (sub-read-list . 29)) (930 (gobble-line . 29)) (931 (*sharp-macros* . 29)) (932 (define-sharp-macro . 29)) (933 (sub-read-token . 29)) (934 (parse-token . 29)) (935 (bel . 29)) (936 (bs . 29)) (937 (ff . 29)) (938 (cr . 29)) (939 (ht . 29)) (940 (vt . 29)) (941 (strange-symbol-names . 29)) (942 (p-c-v . 29)) (943 (reading-error . 29)) (944 (input-channel? . 25)) (945 (output-channel? . 25)) (946 (open-input-channel . 25)) (947 (open-output-channel . 25)) (948 (close-input-channel . 25)) (949 (close-output-channel . 25)) (950 (input-channel-handler . 26)) (951 (input-channel->port . 26)) (952 (input-channel+closer->port . 26)) (953 (real-input-channel->port . 26)) (954 (output-channel-handler . 26)) (955 (make-unbuffered-output-channel-handler . 26)) (956 (output-channel->port . 26)) (957 (output-channel+closer->port . 26)) (958 (real-output-channel->port . 26)) (959 (maybe-force-output . 26)) (960 (:channel-cell . 26)) (961 (make-channel-cell . 26)) (962 (channel-cell-closer . 26)) (963 (channel-cell-ref . 26)) (964 (channel-cell? . 26)) (965 (port->channel . 26)) (966 (open-input-file . 26)) (967 (open-output-file . 26)) (968 (call-with-input-file . 26)) (969 (call-with-output-file . 26)) (970 (with-input-from-file . 26)) (971 (with-output-to-file . 26)) (972 (force-channel-output-ports! . 26)) (973 (steal-channel-port! . 26)) (974 (really-steal-channel-port! . 26)) (975 (initialize-channel-i/o! . 26)) (976 (i/o-completion-handler . 26)) (977 (waiting-for-i/o? . 26)) (978 (wait-for-channel . 26)) (979 (nothing . 26)) (980 (steal-channel! . 26)) (981 (channel-wait-count-slot . 26)) (982 (channel-wait-count . 26)) (983 (increment-channel-wait-count! . 26)) (984 (decrement-channel-wait-count! . 26)) (985 (channel-wait-queues-slot . 26)) (986 (add-channel-wait-queue! . 26)) (987 (fetch-channel-wait-queue! . 26)) (988 (:table . 77)) (989 (really-make-table . 77)) (990 (table-set!-procedure . 77)) (991 (set-table-set!-procedure! . 77)) (992 (table-ref-procedure . 77)) (993 (set-table-ref-procedure! . 77)) (994 (table-data . 77)) (995 (set-table-data! . 77)) (996 (table-size . 77)) (997 (set-table-size! . 77)) (998 (table? . 77)) (999 (table-ref . 77)) (1000 (table-set! . 77)) (1001 (linear-table-size-limit . 77)) (1002 (next-table-size . 77)) (1003 (make-table-maker . 77)) (1004 (assoc->table-maker . 77)) (1005 (null-entry . 77)) (1006 (new-entry . 77)) (1007 (entry-value . 77)) (1008 (entry-key . 77)) (1009 (set-entry-value! . 77)) (1010 (delete-entry! . 77)) (1011 (make-assoc . 77)) (1012 (make-linear-table-ref . 77)) (1013 (make-linear-table-set! . 77)) (1014 (make->hash-table . 77)) (1015 (make-hash-table-ref . 77)) (1016 (make-hash-table-set! . 77)) (1017 (expand-hash-table! . 77)) (1018 (table-enter-alist! . 77)) (1019 (table-expand-table! . 77)) (1020 (table-walk . 77)) (1021 (really-table-walk . 77)) (1022 (alist-walk . 77)) (1023 (make-table-immutable! . 77)) (1024 (table->entry-list . 77)) (1025 (default-table-hash-function . 77)) (1026 (eqv?-assoc . 77)) (1027 (default-table-assoc . 77)) (1028 (symbol-hash . 77)) (1029 (make-table . 77)) (1030 (make-string-table . 77)) (1031 (make-symbol-table . 77)) (1032 (make-integer-table . 77)) (1033 (make-population . 46)) (1034 (add-to-population! . 46)) (1035 (weak-memq . 46)) (1036 (population-reduce . 46)) (1037 (population->list . 46)) (1038 (walk-population . 46)) (1039 (:meta-type . 48)) (1040 (really-make-type . 48)) (1041 (type-info . 48)) (1042 (type-more . 48)) (1043 (type-mask . 48)) (1044 (meta-type? . 48)) (1045 (make-type . 48)) (1046 (name->type-table . 48)) (1047 (mask->name-table . 48)) (1048 (name->type . 48)) (1049 (set-type-name! . 48)) (1050 (*mask* . 48)) (1051 (new-type-bit . 48)) (1052 (mask->type . 48)) (1053 (bottom-type . 48)) (1054 (error-type . 48)) (1055 (bottom-type? . 48)) (1056 (new-atomic-type . 48)) (1057 (named-atomic-type . 48)) (1058 (syntax-type . 48)) (1059 (other-static-type . 48)) (1060 (empty-rail-type . 48)) (1061 (rail-type . 48)) (1062 (make-optional-type . 48)) (1063 (make-rest-type . 48)) (1064 (head-type . 48)) (1065 (head-type-really . 48)) (1066 (tail-type . 48)) (1067 (empty-rail-type? . 48)) (1068 (rest-type? . 48)) (1069 (optional-type? . 48)) (1070 (mask/no-values . 48)) (1071 (mask/two-or-more . 48)) (1072 (mask/&rest . 48)) (1073 (value-type . 48)) (1074 (mask/value . 48)) (1075 (value-type? . 48)) (1076 (any-values-type . 48)) (1077 (any-arguments-type . 48)) (1078 (mask/one-or-more . 48)) (1079 (same-type? . 48)) (1080 (subtype? . 48)) (1081 (meet-type . 48)) (1082 (other-type-info . 48)) (1083 (meet-rail . 48)) (1084 (meet-procedure . 48)) (1085 (meet? . 48)) (1086 (meet-procedure? . 48)) (1087 (join-type . 48)) (1088 (join-rail . 48)) (1089 (join-procedure . 48)) (1090 (number-hierarchy . 48)) (1091 (integer-type . 48)) (1092 (rational-type . 48)) (1093 (real-type . 48)) (1094 (complex-type . 48)) (1095 (number-type . 48)) (1096 (exact-type . 48)) (1097 (inexact-type . 48)) (1098 (exact-integer-type . 48)) (1099 (inexact-real-type . 48)) (1100 (boolean-type . 48)) (1101 (pair-type . 48)) (1102 (null-type . 48)) (1103 (record-type . 48)) (1104 (any-procedure-type . 48)) (1105 (other-value-type . 48)) (1106 (mask/other . 48)) (1107 (make-other-type . 48)) (1108 (char-type . 48)) (1109 (unspecific-type . 48)) (1110 (string-type . 48)) (1111 (symbol-type . 48)) (1112 (vector-type . 48)) (1113 (escape-type . 48)) (1114 (structure-type . 48)) (1115 (mask/procedure . 48)) (1116 (procedure-type . 48)) (1117 (make-procedure-type . 48)) (1118 (procedure-type-domain . 48)) (1119 (procedure-type-codomain . 48)) (1120 (restrictive? . 48)) (1121 (sexp->type . 48)) (1122 (sexp->values-type . 48)) (1123 (type->sexp . 48)) (1124 (atomic-type->sexp . 48)) (1125 (rail-type->sexp . 48)) (1126 (disjoin-type . 48)) (1127 (disjoin-rest . 48)) (1128 (mask/number . 48)) (1129 (make-some-values-type . 48)) (1130 (proc . 48)) (1131 (some-values . 48)) (1132 (procedure-type? . 48)) (1133 (fixed-arity-procedure-type? . 48)) (1134 (procedure-type-arity . 48)) (1135 (procedure-type-argument-types . 48)) (1136 (variable-type . 48)) (1137 (variable-type? . 48)) (1138 (variable-value-type . 48)) (1139 (usual-variable-type . 48)) (1140 (undeclared-type . 48)) (1141 (compatible-types? . 48)) (1142 (:interface . 65)) (1143 (really-make-interface . 65)) (1144 (interface-name . 65)) (1145 (set-interface-name! . 65)) (1146 (interface-clients . 65)) (1147 (walk-method . 65)) (1148 (ref-method . 65)) (1149 (interface? . 65)) (1150 (interface-ref . 65)) (1151 (for-each-declaration . 65)) (1152 (note-reference-to-interface! . 65)) (1153 (make-interface . 65)) (1154 (make-simple-interface . 65)) (1155 (really-make-simple-interface . 65)) (1156 (make-compound-interface . 65)) (1157 (note-interface-name! . 65)) (1158 (binding? . 49)) (1159 (binding-type . 49)) (1160 (binding-place . 49)) (1161 (binding-static . 49)) (1162 (binding-path . 49)) (1163 (set-binding-place! . 49)) (1164 (make-binding . 49)) (1165 (add-path . 49)) (1166 (clobber-binding! . 49)) (1167 (impose-type . 49)) (1168 (forget-integration . 49)) (1169 (same-denotation? . 49)) (1170 (maybe-fix-place! . 49)) (1171 (follow-forwarding-pointers . 49)) (1172 (name? . 50)) (1173 (:generated . 50)) (1174 (make-generated . 50)) (1175 (generated-parent-name . 50)) (1176 (generated-env . 50)) (1177 (generated-token . 50)) (1178 (generated-symbol . 50)) (1179 (generated? . 50)) (1180 (generate-name . 50)) (1181 (generated-uid . 50)) (1182 (*generated-uid* . 50)) (1183 (name->symbol . 50)) (1184 (name-hash . 50)) (1185 (make-name-table . 50)) (1186 (desyntaxify . 50)) (1187 (make-qualified . 50)) (1188 (qualified? . 50)) (1189 (qualified-parent-name . 50)) (1190 (qualified-symbol . 50)) (1191 (name->qualified . 50)) (1192 (qualify-parent . 50)) (1193 (:transform . 50)) (1194 (really-make-transform . 50)) (1195 (transform-id . 50)) (1196 (transform-source . 50)) (1197 (transform-aux-names . 50)) (1198 (transform-type . 50)) (1199 (transform-env . 50)) (1200 (transform-procedure . 50)) (1201 (transform? . 50)) (1202 (make-transform . 50)) (1203 (maybe-apply-macro-transform . 50)) (1204 (apply-inline-transform . 50)) (1205 (make-keyword-comparator . 50)) (1206 (name->source-name . 50)) (1207 (bind-aliases . 50)) (1208 (make-name-generator . 50)) (1209 (lookup . 50)) (1210 (lookup . 53)) (1211 (bind1 . 53)) (1212 (bind . 53)) (1213 (bindrec . 53)) (1214 (make-compiler-env . 53)) (1215 (funny-name/macro-eval . 53)) (1216 (environment-macro-eval . 53)) (1217 (funny-name/define! . 53)) (1218 (environment-define! . 53)) (1219 (funny-name/package . 53)) (1220 (extract-package-from-environment . 53)) (1221 (funny-name/source-file-name . 53)) (1222 (bind-source-file-name . 53)) (1223 (source-file-name . 53)) (1224 (:thingie . 51)) (1225 (make-thingie . 51)) (1226 (thingie-want-type . 51)) (1227 (thingie-name . 51)) (1228 (thingie-binding . 51)) (1229 (thingie? . 51)) (1230 (:structure . 66)) (1231 (really-make-structure . 66)) (1232 (structure-name . 66)) (1233 (set-structure-name! . 66)) (1234 (structure-clients . 66)) (1235 (structure-package . 66)) (1236 (structure-interface-really . 66)) (1237 (set-structure-interface! . 66)) (1238 (structure-interface-thunk . 66)) (1239 (structure? . 66)) (1240 (structure-interface . 66)) (1241 (initialize-structure! . 66)) (1242 (make-structure . 66)) (1243 (note-structure-name! . 66)) (1244 (structure-unstable? . 66)) (1245 (for-each-export . 66)) (1246 (:package . 66)) (1247 (really-make-package . 66)) (1248 (package-cached . 66)) (1249 (package-clients . 66)) (1250 (package-real-undefined-but-assigneds . 66)) (1251 (set-package-undefined-but-assigneds! . 66)) (1252 (package-real-undefineds . 66)) (1253 (set-package-undefineds! . 66)) (1254 (package-accesses-thunk . 66)) (1255 (package-opens-thunk . 66)) (1256 (set-package-opens-thunk! . 66)) (1257 (package->environment . 66)) (1258 (set-package->environment! . 66)) (1259 (package-loaded? . 66)) (1260 (set-package-loaded?! . 66)) (1261 (package-clauses . 66)) (1262 (package-file-name . 66)) (1263 (package-get-location . 66)) (1264 (set-package-get-location! . 66)) (1265 (package-integrate? . 66)) (1266 (set-package-integrate?! . 66)) (1267 (package-unstable? . 66)) (1268 (package-definitions . 66)) (1269 (package-opens-really . 66)) (1270 (set-package-opens! . 66)) (1271 (package-uid . 66)) (1272 (package? . 66)) (1273 (make-package . 66)) (1274 (really-package->environment . 66)) (1275 (lazy-table-accessor . 66)) (1276 (package-undefineds . 66)) (1277 (package-undefined-but-assigneds . 66)) (1278 (new-package-uid . 66)) (1279 (*package-uid* . 66)) (1280 (package-name-table . 66)) (1281 (package-name . 66)) (1282 (note-package-name! . 66)) (1283 (package-opens . 66)) (1284 (initialize-package-if-necessary! . 66)) (1285 (package-accesses . 66)) (1286 (make-simple-package . 66)) (1287 (package-definition . 66)) (1288 (package-define! . 66)) (1289 (package-add-static! . 66)) (1290 (package-refine-type! . 66)) (1291 (package-lookup . 66)) (1292 (really-package-lookup . 66)) (1293 (search-opens . 66)) (1294 (structure-lookup . 66)) (1295 (real-structure-lookup . 66)) (1296 (generic-lookup . 66)) (1297 (initialize-package! . 66)) (1298 (for-each-definition . 66)) (1299 (get-new-location . 66)) (1300 (make-new-location . 66)) (1301 ($get-location . 66)) (1302 (*location-uid* . 66)) (1303 (location-info-table . 66)) (1304 (flush-location-names . 66)) (1305 (link! . 66)) (1306 (really-link! . 66)) (1307 (get-location . 66)) (1308 (location-on-demand . 66)) (1309 (get-undefined . 66)) (1310 (location-for-assignment . 66)) (1311 (package-note-caching! . 66)) (1312 (note-caching! . 66)) (1313 (get-location-for-unassignable . 66)) (1314 (get-location-for-undefined . 66)) (1315 ($note-undefined . 66)) (1316 (cenv->package . 66)) (1317 (location-for-reference . 66)) (1318 (noting-undefined-variables . 66)) (1319 (print-undefined-names . 66)) (1320 (environment-ref . 79)) (1321 (environment-set! . 79)) (1322 (environment-define! . 79)) (1323 (*structure-ref . 79)) (1324 (carefully . 79)) (1325 ($interaction-environment . 79)) (1326 (interaction-environment . 79)) (1327 (set-interaction-environment! . 79)) (1328 (with-interaction-environment . 79)) (1329 (scheme-report-environment . 79)) (1330 (*scheme-report-environment* . 79)) (1331 (*null-environment* . 79)) (1332 (*scheme-report-number* . 79)) (1333 (set-scheme-report-environment! . 79)) (1334 (null-environment . 79)) (1335 (make-reflective-tower . 79)) (1336 (set-reflective-tower-maker! . 79)) (1337 (namestring . 78)) (1338 (directory-component-separator . 78)) (1339 (type-component-separator . 78)) (1340 (namestring-component . 78)) (1341 (file-name-preferred-case . 78)) (1342 (*scheme-file-type* . 78)) (1343 (*load-file-type* . 78)) (1344 (file-name-directory . 78)) (1345 (file-name-nondirectory . 78)) (1346 (file-nondirectory-position . 78)) (1347 (string-posq . 78)) (1348 (*translations* . 78)) (1349 (translations . 78)) (1350 (set-translation! . 78)) (1351 (translate . 78)) (1352 ($note-file-package . 63)) (1353 (read-forms . 63)) (1354 (really-read-forms . 63)) (1355 (:operator . 52)) (1356 (make-operator . 52)) (1357 (operator-name . 52)) (1358 (operator-uid . 52)) (1359 (operator-nargs . 52)) (1360 (operator-type . 52)) (1361 (set-operator-type! . 52)) (1362 (operator? . 52)) (1363 (usual-operator-type . 52)) (1364 (get-operator . 52)) (1365 (*operator-uid* . 52)) (1366 (operators-table . 52)) (1367 (number-of-operators . 52)) (1368 (the-operators . 52)) (1369 (make-operator-table . 52)) (1370 (operator-table-ref . 52)) (1371 (operator-lookup . 52)) (1372 (operator-define! . 52)) (1373 (:node . 52)) (1374 (really-make-node . 52)) (1375 (node-plist . 52)) (1376 (set-node-plist! . 52)) (1377 (node-form . 52)) (1378 (node-operator-id . 52)) (1379 (node? . 52)) (1380 (make-node . 52)) (1381 (node-ref . 52)) (1382 (node-set! . 52)) (1383 (node-operator . 52)) (1384 (node-predicate . 52)) (1385 (make-similar-node . 52)) (1386 (force-node . 52)) (1387 (schemify . 52)) (1388 (schemifiers . 52)) (1389 (schemify-node . 52)) (1390 (schemify-nodes . 52)) (1391 (define-schemifier . 52)) (1392 (schemify-lambda . 52)) (1393 (schemify-formals . 52)) (1394 (schemify-sexp . 52)) (1395 (number-of-required-args . 56)) (1396 (n-ary? . 56)) (1397 (normalize-formals . 56)) (1398 (scan-forms . 54)) (1399 (expand-scanned-form . 54)) (1400 (scan-define . 54)) (1401 (expand-define . 54)) (1402 (scan-define-syntax . 54)) (1403 (expand-form . 54)) (1404 (expand-head . 54)) (1405 (destructure-define . 54)) (1406 (make-operator-predicate . 54)) (1407 (define? . 54)) (1408 (begin? . 54)) (1409 (define-syntax? . 54)) (1410 (static-value . 54)) (1411 (expand-body . 54)) (1412 (scan-body-forms . 54)) (1413 (body-lossage . 54)) (1414 (expand . 54)) (1415 (expand-list . 54)) (1416 (expand-literal . 54)) (1417 (expand-call . 54)) (1418 (expand-name . 54)) (1419 (expand-macro-application . 54)) (1420 (expand-operator-form . 54)) (1421 (expanders . 54)) (1422 (define-expander . 54)) (1423 (unspecific-node . 54)) (1424 (expand-structure-ref . 54)) (1425 (expand-lambda . 54)) (1426 (bind-names . 54)) (1427 (names? . 54)) (1428 (expand-letrec . 54)) (1429 (process-syntax . 54)) (1430 (this-long? . 54)) (1431 (at-least-this-long? . 54)) (1432 (specs? . 54)) (1433 (literal? . 54)) (1434 (syntax? . 54)) (1435 (begin-node? . 54)) (1436 (call-node? . 54)) (1437 (name-node? . 54)) (1438 (operator/literal . 54)) (1439 (operator/quote . 54)) (1440 (operator/call . 54)) (1441 (operator/name . 54)) (1442 (operator/unspecific . 54)) (1443 (operator/unassigned . 54)) (1444 (operator/lambda . 54)) (1445 (operator/begin . 54)) (1446 (operator/letrec . 54)) (1447 (operator/define . 54)) (1448 (operator/define-syntax . 54)) (1449 (operator/primitive-procedure . 54)) (1450 (operator/structure-ref . 54)) (1451 (:primop . 60)) (1452 (make-primop . 60)) (1453 (primop-compilator . 60)) (1454 (primop-closed . 60)) (1455 (primop-type . 60)) (1456 (primop-name . 60)) (1457 (primop? . 60)) (1458 (primop-table . 60)) (1459 (walk-primops . 60)) (1460 (define-compiler-primitive . 60)) (1461 (get-primop . 60)) (1462 (:debug-data . 57)) (1463 (make-debug-data . 57)) (1464 (debug-data-source . 57)) (1465 (set-debug-data-source! . 57)) (1466 (debug-data-env-maps . 57)) (1467 (set-debug-data-env-maps! . 57)) (1468 (debug-data-pc-in-parent . 57)) (1469 (debug-data-parent . 57)) (1470 (debug-data-name . 57)) (1471 (debug-data-uid . 57)) (1472 (debug-data? . 57)) (1473 (maximum-stack-use . 58)) (1474 (protocol-skip . 58)) (1475 (stack-delta . 58)) (1476 (define-delta . 58)) (1477 (stack-max . 58)) (1478 (nothing . 58)) (1479 (popper . 58)) (1480 (pusher . 58)) (1481 (continue . 58)) (1482 (continuer . 58)) (1483 (do-make-cont . 58)) (1484 (stack-function . 58)) (1485 (arg-spec-size . 58)) (1486 (imax . 58)) (1487 (get-offset . 58)) (1488 (new-template-uid . 59)) (1489 (*template-uid* . 59)) (1490 (template-uid . 59)) (1491 (set-template-uid! . 59)) (1492 (debug-flag-names . 59)) (1493 (type/debug-flags . 59)) (1494 (make-debug-flags . 59)) (1495 ($debug-flags . 59)) (1496 (debug-flag-accessor . 59)) (1497 (debug-flag-modifier . 59)) (1498 (keep-source-code? . 59)) (1499 (keep-environment-maps? . 59)) (1500 (keep-procedure-names? . 59)) (1501 (keep-file-names? . 59)) (1502 (tabulate-debug-data? . 59)) (1503 (debug-data-table . 59)) (1504 (with-fresh-compiler-state . 59)) (1505 (saving-and-restoring . 59)) (1506 (debug-data->info . 59)) (1507 (get-debug-data . 59)) (1508 (note-debug-data! . 59)) (1509 (new-debug-data . 59)) (1510 (make-segment . 59)) (1511 (segment-size . 59)) (1512 (segment-emitter . 59)) (1513 (segment->template . 59)) (1514 (segment-data->template . 59)) (1515 (check-stack-use . 59)) (1516 (:assembly-state . 59)) (1517 (make-assembly-state . 59)) (1518 (astate-literals . 59)) (1519 (set-astate-literals! . 59)) (1520 (astate-count . 59)) (1521 (set-astate-count! . 59)) (1522 (astate-pc . 59)) (1523 (set-astate-pc! . 59)) (1524 (astate-code-vector . 59)) (1525 (make-astate . 59)) (1526 (emit-byte! . 59)) (1527 (literal->index . 59)) (1528 (literal-position . 59)) (1529 (position . 59)) (1530 (emit-literal! . 59)) (1531 (emit-segment! . 59)) (1532 (empty-segment . 59)) (1533 (instruction . 59)) (1534 (sequentially . 59)) (1535 (sequentially-2 . 59)) (1536 (instruction-with-literal . 59)) (1537 (instruction-with-location . 59)) (1538 (template . 59)) (1539 (make-label . 59)) (1540 (instruction-using-label . 59)) (1541 (computed-goto-label-size . 59)) (1542 (computed-goto-instruction . 59)) (1543 (attach-label . 59)) (1544 (insert-label! . 59)) (1545 (code-vector-set2! . 59)) (1546 (two-byte-limit . 59)) (1547 (high-byte . 59)) (1548 (low-byte . 59)) (1549 ($debug-data . 59)) (1550 (note-source-code . 59)) (1551 (note-environment . 59)) (1552 (emit-with-environment-maps! . 59)) (1553 ($environment-maps . 59)) (1554 (node-type . 61)) (1555 (reconstruct-type . 61)) (1556 (reconstruct . 61)) (1557 (examine . 61)) (1558 (reconstructors . 61)) (1559 (define-reconstructor . 61)) (1560 (reconstruct-lambda . 61)) (1561 (careful-codomain . 61)) (1562 (reconstruct-name . 61)) (1563 (proc->reconstructor . 61)) (1564 (reconstruct-call . 61)) (1565 (fork-constraints . 61)) (1566 (node->type . 61)) (1567 (name-node? . 61)) (1568 (lambda-node? . 61)) (1569 (literal-node? . 61)) (1570 (primop-reconstructors . 61)) (1571 (define-primop-reconstructor . 61)) (1572 (reconstruct-apply . 61)) (1573 (constant-type . 61)) (1574 (compile-expression . 62)) (1575 (compile . 62)) (1576 (compilators . 62)) (1577 (define-compilator . 62)) (1578 (compile-constant . 62)) (1579 (compile-call . 62)) (1580 (compile-name-call . 62)) (1581 (compile-redex . 62)) (1582 (compile-unknown-call . 62)) (1583 (maybe-push-continuation . 62)) (1584 (fixup-source . 62)) (1585 (push-arguments . 62)) (1586 (push-all-with-names . 62)) (1587 (compile-lambda . 62)) (1588 (compile-lambda-code . 62)) (1589 (name-node->symbol . 62)) (1590 (set-lexical-offsets! . 62)) (1591 (compile-flat-lambda . 62)) (1592 (get-variables-offsets . 62)) (1593 (variable-env-data . 62)) (1594 (sort-list . 62)) (1595 (make-cont . 62)) (1596 (cont-segment . 62)) (1597 (cont-source-info . 62)) (1598 (return-cont-segment . 62)) (1599 (return-cont . 62)) (1600 (return-cont? . 62)) (1601 (fall-through-cont . 62)) (1602 (fall-through-cont? . 62)) (1603 (ignore-values-segment . 62)) (1604 (ignore-values-cont . 62)) (1605 (ignore-values-cont? . 62)) (1606 (deliver-value . 62)) (1607 (named-cont . 62)) (1608 (cont-name . 62)) (1609 (name-node-binding . 62)) (1610 (generate-trap . 62)) (1611 (type-check . 62)) (1612 (set-type-check?! . 62)) (1613 (*type-check?* . 62)) (1614 (diagnose-call-error . 62)) (1615 (lambda-node? . 62)) (1616 (name-node? . 62)) (1617 (literal-node? . 62)) (1618 (operator/lambda . 62)) (1619 (operator/set! . 62)) (1620 (operator/call . 62)) (1621 (operator/begin . 62)) (1622 (direct-compilator . 62)) (1623 (direct-closed-compilator . 62)) (1624 (nargs->domain . 62)) (1625 (get-primop-type . 62)) (1626 (primop-types . 62)) (1627 (define-simple-primitive . 62)) (1628 (simple-compilator . 62)) (1629 (simple-closed-compilator . 62)) (1630 (symbol-append . 62)) (1631 (define-stob-predicate . 62)) (1632 (define-data-struct-primitives . 62)) (1633 (define-vector-primitives . 62)) (1634 (define-n-ary-compiler-primitive . 62)) (1635 (n-ary-primitive-compilator . 62)) (1636 (call-on-arg-and-id . 62)) (1637 (call-on-args . 62)) (1638 (op/unspecific . 62)) (1639 (op/literal . 62)) (1640 (push-all-but-last . 62)) (1641 (dispatch-protocol-size . 62)) (1642 (make-dispatch-protocol . 62)) (1643 (compile-forms . 62)) (1644 (compile-forms-loop . 62)) (1645 (compile-form . 62)) (1646 (define-node? . 62)) (1647 (compile-definition . 62)) (1648 (location-contents-offset . 62)) (1649 (make-startup-procedure . 62)) (1650 (append-templates . 62)) (1651 (an-ignore-values-cont . 62)) (1652 (eval . 80)) (1653 (load-into . 80)) (1654 (eval-from-file . 80)) (1655 (load . 80)) (1656 (load-into-port . 80)) (1657 (load-port . 80)) (1658 (really-load-into . 80)) (1659 (compile-and-run . 80)) (1660 (display-condition . 47)) (1661 (really-display-condition . 47)) (1662 (*depth* . 47)) (1663 (*length* . 47)) (1664 (&disclose-condition . 47)) (1665 (disclose-condition . 47)) (1666 (limited-write . 47)) (1667 (command-processor . 84)) (1668 (mini-load . 84)) (1669 (read-string . 84)) (1670 (enum-case . 42)) (1671 (run-threads . 40)) (1672 (run-threads-with-housekeeper . 40)) (1673 (round-robin-event-handler . 40)) (1674 (make-counter . 40)) (1675 (counter-value . 40)) (1676 (increment-counter! . 40)) (1677 (decrement-counter! . 40)) (1678 (root-scheduler . 41)) (1679 (make-root-event-handler . 41)) (1680 (root-handler . 41)) (1681 (cheap-display-condition . 41)) (1682 (abort-token . 41)) (1683 (scheme-exit-now . 41)) (1684 (root-wait . 41)) (1685 (one-day-of-milliseconds . 41)) (1686 (do-some-waiting . 41)) (1687 (deadlock-handler . 41)) (1688 (call-when-deadlocked! . 41)) (1689 (spawn-output-forcers . 41)) (1690 (unspecific . 41)) (1691 (usual-resumer . 45)) (1692 (initialize-rts . 45)) (1693 (start . 85)) (1694 (make-built-in-structures . 85)) (1695 (initialize-interaction-environment! . 85)) (1696 (make-initial-package . 85)) (1697 (make-tower . 85)) (1698 (the-usual-transforms . 55)) (1699 (define-usual-macro . 55)) (1700 (usual-transform . 55)) (1701 (do-spec? . 55)) (1702 (specs? . 55)) (1703 (case-clause? . 55)) (1704 (process-rules . 55)) (1705 (segment-pattern? . 55)) (1706 (segment-template? . 55)) (1707 (segment-depth . 55)) (1708 (segment-tail . 55)) (1709 (indicators-for-zero-or-more . 55)) (1710 (find-free-names-in-syntax-rules . 55)) (1711 (strongly-connected-components . 76)) (1712 (find-next-vertex . 76)) (1713 (:vertex . 76)) (1714 (really-make-vertex . 76)) (1715 (vertex-lowpoint . 76)) (1716 (set-vertex-lowpoint! . 76)) (1717 (vertex-parent . 76)) (1718 (set-vertex-parent! . 76)) (1719 (vertex-index . 76)) (1720 (set-vertex-index! . 76)) (1721 (vertex-stack . 76)) (1722 (set-vertex-stack! . 76)) (1723 (vertex-edges . 76)) (1724 (set-vertex-edges! . 76)) (1725 (vertex-data . 76)) (1726 (vertex? . 76)) (1727 (make-vertex . 76)) (1728 (make-vertices . 76)) (1729 (do-vertex . 76)) (1730 (get-strong . 76)) (1731 (end-vertex . 76)) (1732 (unwind-stack . 76)) (1733 (follow-edge . 76)) (1734 (pop-vertex-edge! . 76)) (1735 (find-usages . 73)) (1736 (maybe-update-known-type . 73)) (1737 (find-node-usages . 73)) (1738 (analyze . 73)) (1739 (analyze-nodes . 73)) (1740 (usage-analyzers . 73)) (1741 (define-usage-analyzer . 73)) (1742 (nothing . 73)) (1743 (add-if-free . 73)) (1744 (:usage . 73)) (1745 (really-make-usage . 73)) (1746 (usage-assignment-count . 73)) (1747 (set-assignment! . 73)) (1748 (usage-operator-count . 73)) (1749 (set-operator! . 73)) (1750 (usage-reference-count . 73)) (1751 (set-reference! . 73)) (1752 (usage-name-node . 73)) (1753 (usage? . 73)) (1754 (make-usage . 73)) (1755 (make-package-usage . 73)) (1756 (package-usage? . 73)) (1757 (usage-incrementator . 73)) (1758 (note-reference! . 73)) (1759 (note-operator! . 73)) (1760 (note-assignment! . 73)) (1761 (lambda-node? . 73)) (1762 (quote-node? . 73)) (1763 (literal-node? . 73)) (1764 (call-node? . 73)) (1765 (name-node? . 73)) (1766 (define-node? . 73)) (1767 (sort-forms . 73)) (1768 (stuff-count . 73)) (1769 (maybe-make-aliased . 73)) (1770 (topologically-sort . 73)) (1771 (:form . 73)) (1772 (really-make-form . 73)) (1773 (form-temp . 73)) (1774 (set-form-temp! . 73)) (1775 (form-free . 73)) (1776 (set-form-free! . 73)) (1777 (form-unaliased? . 73)) (1778 (set-form-unaliased?! . 73)) (1779 (form-aliases . 73)) (1780 (set-form-aliases! . 73)) (1781 (form-node . 73)) (1782 (form? . 73)) (1783 (make-form . 73)) (1784 (insert-aliases . 73)) (1785 (make-inline-transform . 75)) (1786 (clean-node . 75)) (1787 (clean-lambda . 75)) (1788 (clean-lookup . 75)) (1789 (unused-name . 75)) (1790 (inline-transform . 75)) (1791 (make-substitution . 75)) (1792 (reconstitute . 75)) (1793 (reconstitute-name . 75)) (1794 (operator/name . 75)) (1795 (operator/literal . 75)) (1796 (qualified->name . 75)) (1797 (get-qualified-env . 75)) (1798 (quote-node? . 75)) (1799 (call-node? . 75)) (1800 (lambda-node? . 75)) (1801 (name-node? . 75)) (1802 (loophole-node? . 75)) (1803 (operator . 82)) (1804 (primop . 82)) (1805 (simple-interface . 82)) (1806 (package . 82)) (1807 (transform . 82)) (1808 (package-define-static! . 82)) (1809 (:syntax . 71)) (1810 (:values . 71)) (1811 (:arguments . 71)) (1812 (:value . 71)) (1813 (procedure . 71)) (1814 (:boolean . 71)) (1815 (:char . 71)) (1816 (:null . 71)) (1817 (:unspecific . 71)) (1818 (:number . 71)) (1819 (:complex . 71)) (1820 (:real . 71)) (1821 (:rational . 71)) (1822 (:integer . 71)) (1823 (:exact-integer . 71)) (1824 (:pair . 71)) (1825 (:string . 71)) (1826 (:symbol . 71)) (1827 (:vector . 71)) (1828 (:procedure . 71)) (1829 (:input-port . 71)) (1830 (:output-port . 71)) (1831 (:error . 71)) (1832 (:escape . 71)) (1833 (:structure . 71)) (1834 (:type . 71)) (1835 (def . 70)) (1836 (really-def . 70)) (1837 (define-multiple . 70)) (1838 (define-interface . 70)) (1839 (compound-interface . 70)) (1840 (export . 70)) (1841 (define-structure . 70)) (1842 (define-structures . 70)) (1843 (structure . 70)) (1844 (structures . 70)) (1845 (a-package . 70)) (1846 (receive . 70)) (1847 (define-reflective-tower-maker . 70)) (1848 (export-reflective-tower-maker . 70)) (1849 (define-module . 70)) (1850 (make-a-package . 70)) (1851 (loser . 70)) (1852 (interface-of . 70)) (1853 (*verify-later!* . 70)) (1854 (verify-later! . 70)) (1855 (set-verify-later! . 70)) (1856 (note-name! . 70)) (1857 (optimizers-table . 68)) (1858 (set-optimizer! . 68)) (1859 (get-optimizer . 68)) (1860 (apply-optimizers . 68)) (1861 (collect-packages . 67)) (1862 (package-source . 67)) (1863 (read-files . 67)) (1864 (package-optimizer-names . 67)) (1865 (check-structure . 67)) (1866 (compile-package . 69)) (1867 (expand-package . 69)) (1868 (define-usual-transform . 69)) (1869 (define-primitives . 69)) (1870 (make-define-primitive-node . 69)) (1871 (operator/define . 69)) (1872 (operator/primitive-procedure . 69)) (1873 (analyze-forms . 74)) (1874 (analyze-form . 74)) (1875 (inlinable-rhs? . 74)) (1876 (simple-lambda? . 74)) (1877 (operator/name . 74)) (1878 (simple? . 74)) (1879 (simple-list? . 74)) (1880 (analyzers . 74)) (1881 (define-analyzer . 74)) (1882 (static-value . 74)) (1883 (really-simple-call? . 74)) (1884 (lexical-node? . 74)) (1885 (no-ret . 74)) (1886 (ret . 74)) (1887 (simple-literal? . 74)) (1888 (require . 74)) (1889 (*debug?* . 74)) (1890 (package-lookup-type . 74)) (1891 (lambda-node? . 74)) (1892 (name-node? . 74)) (1893 (loophole-node? . 74)) (1894 (define-node? . 74)) (1895 (flatten-form . 64)) (1896 (flatten-node . 64)) (1897 (flatteners . 64)) (1898 (define-flattener . 64)) (1899 (flatten-list . 64)) (1900 (no-free-vars . 64)) (1901 (flatten-lambda . 64)) (1902 (convert-lambda-body . 64)) (1903 (add-cells . 64)) (1904 (assigned? . 64)) (1905 (mark-set-variables! . 64)) (1906 (mark-sets . 64)) (1907 (define-set-marker . 64)) (1908 (no-sets . 64)) (1909 (make-cell . 64)) (1910 (make-unassigned-cell . 64)) (1911 (make-cell-ref . 64)) (1912 (make-cell-set! . 64)) (1913 (make-primop-call . 64)) (1914 (operator/flat-lambda . 64)) (1915 (operator/lambda . 64)) (1916 (operator/begin . 64)) (1917 (operator/literal . 64)) (1918 (operator/call . 64)) (1919 (operator/unassigned . 64)) (1920 (operator/set! . 64)) (1921 (define-node? . 64)) (1922 (lambda-node? . 64)) (1923 (define-primop . 64)) (1924 (temp0 . 64)) (1925 (make-cell-primop . 64)) (1926 (temp1 . 64)) (1927 (cell-ref-primop . 64)) (1928 (temp2 . 64)) (1929 (cell-set!-primop . 64)) (1930 (union . 64)) (1931 (set-difference . 64)) (1932 (ensure-loaded . 81)) - ; Template uid -> name, parent, pc in parent, env maps (0 scheme-level-0 #f #f ()) (1 atan 0 7 ()) (2 scheme-level-0 #f #f ()) (3 set-location-defined?! 2 7 ()) (4 scheme-level-0 #f #f ()) (5 acos 4 7 ()) (6 scheme-level-0 #f #f ()) (7 vm-extension 6 7 ()) (8 scheme-level-0 #f #f ()) (9 asin 8 7 ()) (10 scheme-level-0 #f #f ()) (11 location-defined? 10 7 ()) (12 scheme-level-0 #f #f ()) (13 time 12 7 ()) (14 scheme-level-0 #f #f ()) (15 template-set! 14 7 ()) (16 scheme-level-0 #f #f ()) (17 scheme-level-0 #f #f ()) (18 cons 17 7 ()) (19 scheme-level-0 #f #f ()) (20 wait 19 7 ()) (21 scheme-level-0 #f #f ()) (22 trap 21 7 ()) (23 scheme-level-0 #f #f ()) (24 assq 23 7 ()) (25 scheme-level-0 #f #f ()) (26 make-weak-pointer 25 7 ()) (27 scheme-level-0 #f #f ()) (28 lookup-shared-binding 27 7 ()) (29 scheme-level-0 #f #f ()) (30 push 29 7 ()) (31 scheme-level-0 #f #f ()) (32 set-contents! 31 7 ()) (33 scheme-level-0 #f #f ()) (34 read-char 33 7 ()) (35 scheme-level-0 #f #f ()) (36 make-cell 35 7 ()) (37 scheme-level-0 #f #f ()) (38 sqrt 37 7 ()) (39 scheme-level-0 #f #f ()) (40 * 39 7 ()) (41 scheme-level-0 #f #f ()) (42 contents 41 7 ()) (43 scheme-level-0 #f #f ()) (44 + 43 7 ()) (45 scheme-level-0 #f #f ()) (46 peek-char 45 7 ()) (47 scheme-level-0 #f #f ()) (48 - 47 7 ()) (49 scheme-level-0 #f #f ()) (50 continuation-set! 49 7 ()) (51 scheme-level-0 #f #f ()) (52 / 51 7 ()) (53 scheme-level-0 #f #f ()) (54 weak-pointer? 53 7 ()) (55 scheme-level-0 #f #f ()) (56 quotient 55 7 ()) (57 scheme-level-0 #f #f ()) (58 close-channel 57 7 ()) (59 scheme-level-0 #f #f ()) (60 channel-abort 59 7 ()) (61 scheme-level-0 #f #f ()) (62 char? 61 7 ()) (63 scheme-level-0 #f #f ()) (64 < 63 7 ()) (65 scheme-level-0 #f #f ()) (66 = 65 7 ()) (67 scheme-level-0 #f #f ()) (68 > 67 7 ()) (69 scheme-level-0 #f #f ()) (70 make-location 69 7 ()) (71 scheme-level-0 #f #f ()) (72 imag-part 71 7 ()) (73 scheme-level-0 #f #f ()) (74 set-port-data! 73 7 ()) (75 scheme-level-0 #f #f ()) (76 make-template 75 7 ()) (77 scheme-level-0 #f #f ()) (78 real? 77 7 ()) (79 scheme-level-0 #f #f ()) (80 real-part 79 7 ()) (81 scheme-level-0 #f #f ()) (82 get-cont-from-heap 81 7 ()) (83 scheme-level-0 #f #f ()) (84 record-length 83 7 ()) (85 scheme-level-0 #f #f ()) (86 port-data 85 7 ()) (87 scheme-level-0 #f #f ()) (88 pair? 87 7 ()) (89 scheme-level-0 #f #f ()) (90 make-port 89 7 ()) (91 scheme-level-0 #f #f ()) (92 set-port-lock! 91 7 ()) (93 scheme-level-0 #f #f ()) (94 return-from-exception 93 7 ()) (95 scheme-level-0 #f #f ()) (96 location? 95 7 ()) (97 scheme-level-0 #f #f ()) (98 channel-maybe-read 97 7 ()) (99 scheme-level-0 #f #f ()) (100 checked-record-ref 99 7 ()) (101 scheme-level-0 #f #f ()) (102 add-finalizer! 101 7 ()) (103 scheme-level-0 #f #f ()) (104 rational? 103 7 ()) (105 scheme-level-0 #f #f ()) (106 template? 105 7 ()) (107 scheme-level-0 #f #f ()) (108 port-lock 107 7 ()) (109 scheme-level-0 #f #f ()) (110 vector-length 109 7 ()) (111 scheme-level-0 #f #f ()) (112 make-continuation 111 7 ()) (113 scheme-level-0 #f #f ()) (114 string-length 113 7 ()) (115 scheme-level-0 #f #f ()) (116 shared-binding-ref 115 7 ()) (117 scheme-level-0 #f #f ()) (118 port? 117 7 ()) (119 scheme-level-0 #f #f ()) (120 angle 119 7 ()) (121 scheme-level-0 #f #f ()) (122 false 121 7 ()) (123 scheme-level-0 #f #f ()) (124 remainder 123 7 ()) (125 scheme-level-0 #f #f ()) (126 continuation? 125 7 ()) (127 scheme-level-0 #f #f ()) (128 binary-reduce1 127 7 ()) (129 scheme-level-0 #f #f ()) (130 binary-reduce2 129 7 ()) (131 scheme-level-0 #f #f ()) (132 char= 139 7 ()) (141 scheme-level-0 #f #f ()) (142 with-continuation 141 7 ()) (143 scheme-level-0 #f #f ()) (144 floor 143 7 ()) (145 scheme-level-0 #f #f ()) (146 apply 145 7 ()) (147 scheme-level-0 #f #f ()) (148 memory-status 147 7 ()) (149 scheme-level-0 #f #f ()) (150 checked-record-set! 149 7 ()) (151 scheme-level-0 #f #f ()) (152 inexact->exact 151 7 ()) (153 scheme-level-0 #f #f ()) (154 exact->inexact 153 7 ()) (155 scheme-level-0 #f #f ()) (156 error 155 7 ()) (157 scheme-level-0 #f #f ()) (158 extended-number-length 157 7 ()) (159 scheme-level-0 #f #f ()) (160 open-channels-list 159 7 ()) (161 scheme-level-0 #f #f ()) (162 channel-id 161 7 ()) (163 scheme-level-0 #f #f ()) (164 shared-binding-set! 163 7 ()) (165 scheme-level-0 #f #f ()) (166 numerator 165 7 ()) (167 scheme-level-0 #f #f ()) (168 eof-object 167 7 ()) (169 scheme-level-0 #f #f ()) (170 byte-vector-length 169 7 ()) (171 scheme-level-0 #f #f ()) (172 record-ref 171 7 ()) (173 scheme-level-0 #f #f ()) (174 make-polar 173 7 ()) (175 scheme-level-0 #f #f ()) (176 write-char 175 7 ()) (177 scheme-level-0 #f #f ()) (178 symbol->string 177 7 ()) (179 scheme-level-0 #f #f ()) (180 exact? 179 7 ()) (181 scheme-level-0 #f #f ()) (182 vector-ref 181 7 ()) (183 scheme-level-0 #f #f ()) (184 set-current-thread! 183 7 ()) (185 scheme-level-0 #f #f ()) (186 immutable? 185 7 ()) (187 scheme-level-0 #f #f ()) (188 set-exception-handlers! 187 7 ()) (189 scheme-level-0 #f #f ()) (190 string-ref 189 7 ()) (191 scheme-level-0 #f #f ()) (192 set-port-index! 191 7 ()) (193 scheme-level-0 #f #f ()) (194 make-shared-binding 193 7 ()) (195 scheme-level-0 #f #f ()) (196 current-thread 195 7 ()) (197 scheme-level-0 #f #f ()) (198 channel-status 197 7 ()) (199 scheme-level-0 #f #f ()) (200 set-port-limit! 199 7 ()) (201 scheme-level-0 #f #f ()) (202 shared-binding-name 201 7 ()) (203 scheme-level-0 #f #f ()) (204 port-index 203 7 ()) (205 scheme-level-0 #f #f ()) (206 make-immutable! 205 7 ()) (207 scheme-level-0 #f #f ()) (208 set-enabled-interrupts! 207 7 ()) (209 scheme-level-0 #f #f ()) (210 port-limit 209 7 ()) (211 scheme-level-0 #f #f ()) (212 ascii->char 211 7 ()) (213 scheme-level-0 #f #f ()) (214 char->ascii 213 7 ()) (215 scheme-level-0 #f #f ()) (216 undefine-shared-binding 215 7 ()) (217 scheme-level-0 #f #f ()) (218 record-set! 217 7 ()) (219 scheme-level-0 #f #f ()) (220 shared-binding? 219 7 ()) (221 scheme-level-0 #f #f ()) (222 eof-object? 221 7 ()) (223 scheme-level-0 #f #f ()) (224 set-interrupt-handlers! 223 7 ()) (225 scheme-level-0 #f #f ()) (226 record 225 7 ()) (227 scheme-level-0 #f #f ()) (228 schedule-interrupt 227 7 ()) (229 scheme-level-0 #f #f ()) (230 channel-maybe-write 229 7 ()) (231 scheme-level-0 #f #f ()) (232 unspecific 231 7 ()) (233 scheme-level-0 #f #f ()) (234 extended-number-ref 233 7 ()) (235 scheme-level-0 #f #f ()) (236 vector-set! 235 7 ()) (237 scheme-level-0 #f #f ()) (238 copy-bytes! 237 7 ()) (239 scheme-level-0 #f #f ()) (240 string-set! 239 7 ()) (241 scheme-level-0 #f #f ()) (242 unassigned 241 7 ()) (243 scheme-level-0 #f #f ()) (244 call-external-value 243 7 ()) (245 scheme-level-0 #f #f ()) (246 values 245 7 ()) (247 scheme-level-0 #f #f ()) (248 intern 247 7 ()) (249 scheme-level-0 #f #f ()) (250 vector 249 7 ()) (251 scheme-level-0 #f #f ()) (252 byte-vector-ref 251 7 ()) (253 scheme-level-0 #f #f ()) (254 make-double 253 7 ()) (255 scheme-level-0 #f #f ()) (256 make-record 255 7 ()) (257 scheme-level-0 #f #f ()) (258 set-location-id! 257 7 ()) (259 scheme-level-0 #f #f ()) (260 location-id 259 7 ()) (261 scheme-level-0 #f #f ()) (262 bitwise-and 261 7 ()) (263 scheme-level-0 #f #f ()) (264 eq? 263 7 ()) (265 scheme-level-0 #f #f ()) (266 write-image 265 7 ()) (267 scheme-level-0 #f #f ()) (268 double? 267 7 ()) (269 scheme-level-0 #f #f ()) (270 extended-number-set! 269 7 ()) (271 scheme-level-0 #f #f ()) (272 make-vector 271 7 ()) (273 scheme-level-0 #f #f ()) (274 record? 273 7 ()) (275 scheme-level-0 #f #f ()) (276 make-string 275 7 ()) (277 scheme-level-0 #f #f ()) (278 set-port-buffer! 277 7 ()) (279 scheme-level-0 #f #f ()) (280 primitive-catch 279 7 ()) (281 scheme-level-0 #f #f ()) (282 string-hash 281 7 ()) (283 scheme-level-0 #f #f ()) (284 template-length 283 7 ()) (285 scheme-level-0 #f #f ()) (286 number? 285 7 ()) (287 scheme-level-0 #f #f ()) (288 port-buffer 287 7 ()) (289 scheme-level-0 #f #f ()) (290 byte-vector-set! 289 7 ()) (291 scheme-level-0 #f #f ()) (292 bitwise-ior 291 7 ()) (293 scheme-level-0 #f #f ()) (294 set-car! 293 7 ()) (295 scheme-level-0 #f #f ()) (296 closure-env 295 7 ()) (297 scheme-level-0 #f #f ()) (298 vector? 297 7 ()) (299 scheme-level-0 #f #f ()) (300 bitwise-not 299 7 ()) (301 scheme-level-0 #f #f ()) (302 set-cdr! 301 7 ()) (303 scheme-level-0 #f #f ()) (304 symbol? 303 7 ()) (305 scheme-level-0 #f #f ()) (306 string? 305 7 ()) (307 scheme-level-0 #f #f ()) (308 car 307 7 ()) (309 scheme-level-0 #f #f ()) (310 bitwise-xor 309 7 ()) (311 scheme-level-0 #f #f ()) (312 cdr 311 7 ()) (313 scheme-level-0 #f #f ()) (314 find-all-records 313 7 ()) (315 scheme-level-0 #f #f ()) (316 continuation-length 315 7 ()) (317 scheme-level-0 #f #f ()) (318 log 317 7 ()) (319 scheme-level-0 #f #f ()) (320 message 319 7 ()) (321 scheme-level-0 #f #f ()) (322 tan 321 7 ()) (323 scheme-level-0 #f #f ()) (324 collect 323 7 ()) (325 scheme-level-0 #f #f ()) (326 cos 325 7 ()) (327 scheme-level-0 #f #f ()) (328 channel-os-index 327 7 ()) (329 scheme-level-0 #f #f ()) (330 make-extended-number 329 7 ()) (331 scheme-level-0 #f #f ()) (332 set-port-status! 331 7 ()) (333 scheme-level-0 #f #f ()) (334 sin 333 7 ()) (335 scheme-level-0 #f #f ()) (336 exp 335 7 ()) (337 scheme-level-0 #f #f ()) (338 pop 337 7 ()) (339 scheme-level-0 #f #f ()) (340 port-status 339 7 ()) (341 scheme-level-0 #f #f ()) (342 return-from-callback 341 7 ()) (343 scheme-level-0 #f #f ()) (344 set-port-locked?! 343 7 ()) (345 scheme-level-0 #f #f ()) (346 make-byte-vector 345 7 ()) (347 scheme-level-0 #f #f ()) (348 weak-pointer-ref 347 7 ()) (349 scheme-level-0 #f #f ()) (350 call-with-values 349 7 ()) (351 scheme-level-0 #f #f ()) (352 denominator 351 7 ()) (353 scheme-level-0 #f #f ()) (354 reverse-list->string 353 7 ()) (355 scheme-level-0 #f #f ()) (356 port-locked? 355 7 ()) (357 scheme-level-0 #f #f ()) (358 extended-number? 357 7 ()) (359 scheme-level-0 #f #f ()) (360 shared-binding-is-import? 359 7 ()) (361 scheme-level-0 #f #f ()) (362 find-all 361 7 ()) (363 scheme-level-0 #f #f ()) (364 cell-ref 363 7 ()) (365 scheme-level-0 #f #f ()) (366 byte-vector? 365 7 ()) (367 scheme-level-0 #f #f ()) (368 string=? 367 7 ()) (369 scheme-level-0 #f #f ()) (370 open-channel 369 7 ()) (371 scheme-level-0 #f #f ()) (372 channel? 371 7 ()) (373 scheme-level-0 #f #f ()) (374 make-rectangular 373 7 ()) (375 scheme-level-0 #f #f ()) (376 set-session-data! 375 7 ()) (377 scheme-level-0 #f #f ()) (378 template-ref 377 7 ()) (379 scheme-level-0 #f #f ()) (380 make-closure 379 7 ()) (381 scheme-level-0 #f #f ()) (382 session-data 381 7 ()) (383 scheme-level-0 #f #f ()) (384 integer? 383 7 ()) (385 scheme-level-0 #f #f ()) (386 signal-condition 385 7 ()) (387 scheme-level-0 #f #f ()) (388 port-handler 387 7 ()) (389 scheme-level-0 #f #f ()) (390 set-port-pending-eof?! 389 7 ()) (391 scheme-level-0 #f #f ()) (392 define-shared-binding 391 7 ()) (393 scheme-level-0 #f #f ()) (394 arithmetic-shift 393 7 ()) (395 scheme-level-0 #f #f ()) (396 complex? 395 7 ()) (397 scheme-level-0 #f #f ()) (398 port-pending-eof? 397 7 ()) (399 scheme-level-0 #f #f ()) (400 cell-set! 399 7 ()) (401 scheme-level-0 #f #f ()) (402 binary-comparison-reduce2 401 7 ()) (403 scheme-level-0 #f #f ()) (404 scheme-level-0 #f #f ()) (405 closure? 404 7 ()) (406 scheme-level-0 #f #f ()) (407 continuation-ref 406 7 ()) (408 scheme-level-0 #f #f ()) (409 closure-template 408 7 ()) (410 scheme-level-0 #f #f ()) (411 current-cont 410 7 ()) (412 scheme-level-0 #f #f ()) (413 char->integer 412 7 ()) (414 scheme-level-0 #f #f ()) (415 integer->char 414 7 ()) (416 scheme-level-0 #f #f ()) (417 invoke-closure 416 7 ()) (418 scheme-level-0 #f #f ()) (419 primitive-cwcc 418 7 ()) (420 #f 419 8 ()) (421 scheme-level-0 #f #f ()) (422 make-undefined-location 421 7 ()) (423 scheme-level-0 #f #f ()) (424 location-assigned? 423 7 ()) (425 scheme-level-0 #f #f ()) (426 vector-unassigned? 425 7 ()) (427 scheme-level-0 #f #f ()) (428 string-copy 427 7 ()) (429 scheme-level-0 #f #f ()) (430 string->symbol 429 7 ()) (431 scheme-level-0 #f #f ()) (432 input-port? 431 7 ()) (433 scheme-level-0 #f #f ()) (434 output-port? 433 7 ()) (435 scheme-level-0 #f #f ()) (436 make-code-vector 435 7 ()) (437 scheme-level-0 #f #f ()) (438 code-vector? 437 7 ()) (439 scheme-level-0 #f #f ()) (440 code-vector-length 439 7 ()) (441 scheme-level-0 #f #f ()) (442 code-vector-ref 441 7 ()) (443 scheme-level-0 #f #f ()) (444 code-vector-set! 443 7 ()) (445 scheme-level-0 #f #f ()) (446 buffer-length 445 7 ()) (447 scheme-level-0 #f #f ()) (448 channel-read 447 7 ()) (449 #f 448 6 ()) (450 loop 449 19 ()) (451 scheme-level-0 #f #f ()) (452 channel-write 451 7 ()) (453 loop 452 19 ()) (454 scheme-level-0 #f #f ()) (455 lookup-imported-binding 454 7 ()) (456 scheme-level-0 #f #f ()) (457 lookup-exported-binding 456 7 ()) (458 scheme-level-0 #f #f ()) (459 define-imported-binding 458 7 ()) (460 scheme-level-0 #f #f ()) (461 define-exported-binding 460 7 ()) (462 scheme-level-0 #f #f ()) (463 undefine-imported-binding 462 7 ()) (464 scheme-level-0 #f #f ()) (465 undefine-exported-binding 464 7 ()) (466 scheme-level-0 #f #f ()) (467 debug-message 466 7 ()) (468 scheme-level-0 #f #f ()) (469 signal 468 7 ()) (470 scheme-level-0 #f #f ()) (471 warn 470 7 ()) (472 scheme-level-0 #f #f ()) (473 syntax-error 472 7 ()) (474 scheme-level-0 #f #f ()) (475 call-error 474 7 ()) (476 scheme-level-0 #f #f ()) (477 scheme-level-0 #f #f ()) (478 scheme-level-1 #f #f ()) (479 scheme-level-1 #f #f ()) (480 scheme-level-1 #f #f ()) (481 scheme-level-1 #f #f ()) (482 scheme-level-1 #f #f ()) (483 scheme-level-1 #f #f ()) (484 scheme-level-1 #f #f ()) (485 scheme-level-1 #f #f ()) (486 scheme-level-1 #f #f ()) (487 scheme-level-1 #f #f ()) (488 scheme-level-1 #f #f ()) (489 scheme-level-1 #f #f ()) (490 #f 489 11 ()) (491 scheme-level-1 #f #f ()) (492 #f 491 11 ()) (493 scheme-level-1 #f #f ()) (494 scheme-level-1 #f #f ()) (495 scheme-level-1 #f #f ()) (496 scheme-level-1 #f #f ()) (497 scheme-level-1 #f #f ()) (498 scheme-level-1 #f #f ()) (499 scheme-level-1 #f #f ()) (500 not 499 7 ()) (501 scheme-level-1 #f #f ()) (502 boolean? 501 7 ()) (503 scheme-level-1 #f #f ()) (504 eqv? 503 7 ()) (505 scheme-level-1 #f #f ()) (506 equal? 505 7 ()) (507 loop 506 156 ()) (508 scheme-level-1 #f #f ()) (509 null? 508 7 ()) (510 scheme-level-1 #f #f ()) (511 inexact? 510 7 ()) (512 scheme-level-1 #f #f ()) (513 max-or-min 512 7 ()) (514 loop 513 34 ()) (515 scheme-level-1 #f #f ()) (516 max 515 7 ()) (517 scheme-level-1 #f #f ()) (518 min 517 7 ()) (519 scheme-level-1 #f #f ()) (520 abs 519 7 ()) (521 scheme-level-1 #f #f ()) (522 zero? 521 7 ()) (523 scheme-level-1 #f #f ()) (524 positive? 523 7 ()) (525 scheme-level-1 #f #f ()) (526 negative? 525 7 ()) (527 scheme-level-1 #f #f ()) (528 even? 527 7 ()) (529 scheme-level-1 #f #f ()) (530 odd? 529 7 ()) (531 scheme-level-1 #f #f ()) (532 caar 531 7 ()) (533 scheme-level-1 #f #f ()) (534 cadr 533 7 ()) (535 scheme-level-1 #f #f ()) (536 cdar 535 7 ()) (537 scheme-level-1 #f #f ()) (538 cddr 537 7 ()) (539 scheme-level-1 #f #f ()) (540 caaar 539 7 ()) (541 scheme-level-1 #f #f ()) (542 caadr 541 7 ()) (543 scheme-level-1 #f #f ()) (544 cadar 543 7 ()) (545 scheme-level-1 #f #f ()) (546 caddr 545 7 ()) (547 scheme-level-1 #f #f ()) (548 cdaar 547 7 ()) (549 scheme-level-1 #f #f ()) (550 cdadr 549 7 ()) (551 scheme-level-1 #f #f ()) (552 cddar 551 7 ()) (553 scheme-level-1 #f #f ()) (554 cdddr 553 7 ()) (555 scheme-level-1 #f #f ()) (556 caaaar 555 7 ()) (557 scheme-level-1 #f #f ()) (558 caaadr 557 7 ()) (559 scheme-level-1 #f #f ()) (560 caadar 559 7 ()) (561 scheme-level-1 #f #f ()) (562 caaddr 561 7 ()) (563 scheme-level-1 #f #f ()) (564 cadaar 563 7 ()) (565 scheme-level-1 #f #f ()) (566 cadadr 565 7 ()) (567 scheme-level-1 #f #f ()) (568 caddar 567 7 ()) (569 scheme-level-1 #f #f ()) (570 cadddr 569 7 ()) (571 scheme-level-1 #f #f ()) (572 cdaaar 571 7 ()) (573 scheme-level-1 #f #f ()) (574 cdaadr 573 7 ()) (575 scheme-level-1 #f #f ()) (576 cdadar 575 7 ()) (577 scheme-level-1 #f #f ()) (578 cdaddr 577 7 ()) (579 scheme-level-1 #f #f ()) (580 cddaar 579 7 ()) (581 scheme-level-1 #f #f ()) (582 cddadr 581 7 ()) (583 scheme-level-1 #f #f ()) (584 cdddar 583 7 ()) (585 scheme-level-1 #f #f ()) (586 cddddr 585 7 ()) (587 scheme-level-1 #f #f ()) (588 list 587 7 ()) (589 scheme-level-1 #f #f ()) (590 real-length 589 7 ()) (591 scheme-level-1 #f #f ()) (592 length 591 7 ()) (593 scheme-level-1 #f #f ()) (594 reduce 593 7 ()) (595 scheme-level-1 #f #f ()) (596 append 595 7 ()) (597 recur 596 34 ()) (598 scheme-level-1 #f #f ()) (599 append-reverse 598 7 ()) (600 scheme-level-1 #f #f ()) (601 reverse 600 7 ()) (602 scheme-level-1 #f #f ()) (603 list-tail 602 7 ()) (604 scheme-level-1 #f #f ()) (605 list-ref 604 7 ()) (606 scheme-level-1 #f #f ()) (607 mem 606 7 ()) (608 #f 607 6 ()) (609 loop 608 18 ()) (610 scheme-level-1 #f #f ()) (611 ass 610 7 ()) (612 #f 611 6 ()) (613 loop 612 18 ()) (614 scheme-level-1 #f #f ()) (615 list? 614 7 ()) (616 recur 615 21 ()) (617 scheme-level-1 #f #f ()) (618 char>? 617 7 ()) (619 scheme-level-1 #f #f ()) (620 char>=? 619 7 ()) (621 scheme-level-1 #f #f ()) (622 char<=? 621 7 ()) (623 scheme-level-1 #f #f ()) (624 char-whitespace? 623 7 ()) (625 scheme-level-1 #f #f ()) (626 char-lower-case? 625 7 ()) (627 scheme-level-1 #f #f ()) (628 char-upper-case? 627 7 ()) (629 scheme-level-1 #f #f ()) (630 char-numeric? 629 7 ()) (631 scheme-level-1 #f #f ()) (632 char-alphabetic? 631 7 ()) (633 scheme-level-1 #f #f ()) (634 make-character-map 633 7 ()) (635 loop##6 634 27 ()) (636 scheme-level-1 #f #f ()) (637 char-upcase 636 7 ()) (638 scheme-level-1 #f #f ()) (639 char-downcase 638 7 ()) (640 scheme-level-1 #f #f ()) (641 char-ci-compare 640 7 ()) (642 #f 641 6 ()) (643 scheme-level-1 #f #f ()) (644 list->string 643 7 ()) (645 loop##8 644 36 ()) (646 scheme-level-1 #f #f ()) (647 string 646 7 ()) (648 scheme-level-1 #f #f ()) (649 substring 648 7 ()) (650 loop##9 649 26 ()) (651 scheme-level-1 #f #f ()) (652 string-append 651 7 ()) (653 #f 652 12 ()) (654 loop 652 60 ()) (655 loop##10 654 40 ()) (656 scheme-level-1 #f #f ()) (657 string->list 656 7 ()) (658 loop##11 657 18 ()) (659 scheme-level-1 #f #f ()) (660 unspecific 659 7 ()) (661 scheme-level-1 #f #f ()) (662 string-fill! 661 7 ()) (663 loop##12 662 18 ()) (664 scheme-level-1 #f #f ()) (665 make-string=? 664 7 ()) (666 #f 665 6 ()) (667 loop 666 36 ()) (668 scheme-level-1 #f #f ()) (669 make-string? 672 7 ()) (674 scheme-level-1 #f #f ()) (675 string<=? 674 7 ()) (676 scheme-level-1 #f #f ()) (677 string>=? 676 7 ()) (678 scheme-level-1 #f #f ()) (679 string-ci>? 678 7 ()) (680 scheme-level-1 #f #f ()) (681 string-ci<=? 680 7 ()) (682 scheme-level-1 #f #f ()) (683 string-ci>=? 682 7 ()) (684 scheme-level-1 #f #f ()) (685 vector->list 684 7 ()) (686 loop##14 685 11 ()) (687 scheme-level-1 #f #f ()) (688 list->vector 687 7 ()) (689 loop##15 688 35 ()) (690 scheme-level-1 #f #f ()) (691 vector-fill! 690 7 ()) (692 loop##16 691 19 ()) (693 scheme-level-1 #f #f ()) (694 map1 693 7 ()) (695 scheme-level-1 #f #f ()) (696 any 695 7 ()) (697 scheme-level-1 #f #f ()) (698 map2+ 697 7 ()) (699 scheme-level-1 #f #f ()) (700 map 699 7 ()) (701 scheme-level-1 #f #f ()) (702 for-each1 701 7 ()) (703 loop 702 18 ()) (704 scheme-level-1 #f #f ()) (705 for-each2+ 704 7 ()) (706 loop 705 21 ()) (707 scheme-level-1 #f #f ()) (708 for-each 707 7 ()) (709 scheme-level-1 #f #f ()) (710 make-promise 709 7 ()) (711 #f 710 11 ()) (712 scheme-level-1 #f #f ()) (713 force 712 7 ()) (714 scheme-level-1 #f #f ()) (715 filter 714 7 ()) (716 #f 715 6 ()) (717 scheme-level-1 #f #f ()) (718 pos 717 7 ()) (719 #f 718 6 ()) (720 loop 719 22 ()) (721 scheme-level-1 #f #f ()) (722 every 721 7 ()) (723 scheme-level-1 #f #f ()) (724 sublist 723 7 ()) (725 recur 724 58 ()) (726 scheme-level-1 #f #f ()) (727 last 726 7 ()) (728 scheme-level-1 #f #f ()) (729 insert 728 7 ()) (730 scheme-level-1 #f #f ()) (731 fold 730 7 ()) (732 loop##20 731 11 ()) (733 scheme-level-1 #f #f ()) (734 fold->2 733 7 ()) (735 loop 734 24 ()) (736 #f 735 25 ()) (737 scheme-level-1 #f #f ()) (738 fold->3 737 7 ()) (739 loop 738 27 ()) (740 #f 739 28 ()) (741 scheme-level-1 #f #f ()) (742 modulo 741 7 ()) (743 scheme-level-1 #f #f ()) (744 ceiling 743 7 ()) (745 scheme-level-1 #f #f ()) (746 truncate 745 7 ()) (747 scheme-level-1 #f #f ()) (748 round 747 7 ()) (749 scheme-level-1 #f #f ()) (750 euclid 749 7 ()) (751 scheme-level-1 #f #f ()) (752 gcd 751 7 ()) (753 #f 752 8 ()) (754 scheme-level-1 #f #f ()) (755 lcm 754 7 ()) (756 #f 755 8 ()) (757 scheme-level-1 #f #f ()) (758 raise-to-integer-power 757 7 ()) (759 loop 758 39 ()) (760 scheme-level-1 #f #f ()) (761 expt 760 7 ()) (762 scheme-level-1 #f #f ()) (763 simplest-rational 762 7 ()) (764 simplest-rational-internal 763 11 ()) (765 scheme-level-1 #f #f ()) (766 rationalize 765 7 ()) (767 records #f #f ()) (768 #f 767 7 ()) (769 records #f #f ()) (770 records #f #f ()) (771 records #f #f ()) (772 records #f #f ()) (773 record-type 772 7 ()) (774 records #f #f ()) (775 record-type-name 774 7 ()) (776 records #f #f ()) (777 make-default-record-discloser 776 7 ()) (778 #f 777 6 ()) (779 records #f #f ()) (780 make-record-type 779 7 ()) (781 records #f #f ()) (782 record-type? 781 7 ()) (783 records #f #f ()) (784 record-type-resumer 783 7 ()) (785 records #f #f ()) (786 set-record-type-resumer! 785 7 ()) (787 records #f #f ()) (788 record-type-uid 787 7 ()) (789 records #f #f ()) (790 record-type-field-names 789 7 ()) (791 records #f #f ()) (792 record-type-number-of-fields 791 7 ()) (793 records #f #f ()) (794 record-type-discloser 793 7 ()) (795 records #f #f ()) (796 set-record-type-discloser! 795 7 ()) (797 records #f #f ()) (798 record-field-index 797 7 ()) (799 loop 798 28 ()) (800 records #f #f ()) (801 record-constructor 800 7 ()) (802 #f 801 10 ()) (803 #f 801 41 ()) (804 loop 803 45 ()) (805 records #f #f ()) (806 record-accessor 805 7 ()) (807 #f 806 62 ()) (808 records #f #f ()) (809 record-modifier 808 7 ()) (810 #f 809 62 ()) (811 records #f #f ()) (812 record-predicate 811 7 ()) (813 #f 812 6 ()) (814 records #f #f ()) (815 define-record-discloser 814 7 ()) (816 records #f #f ()) (817 disclose-record 816 7 ()) (818 records #f #f ()) (819 define-record-resumer 818 7 ()) (820 records #f #f ()) (821 resume-record 820 7 ()) (822 records #f #f ()) (823 initialize-records! 822 7 ()) (824 loop##23 823 18 ()) (825 records #f #f ()) (826 records #f #f ()) (827 records #f #f ()) (828 records #f #f ()) (829 define-record-types #f #f ()) (830 methods #f #f ()) (831 &add-method! 830 59 ()) (832 methods #f #f ()) (833 &disclose 832 52 ()) (834 methods #f #f ()) (835 &disclose 834 52 ()) (836 methods #f #f ()) (837 methods #f #f ()) (838 disclose 837 56 ()) (839 methods #f #f ()) (840 &same-type? 839 56 ()) (841 methods #f #f ()) (842 &type-priority 841 52 ()) (843 methods #f #f ()) (844 &type-predicate 843 52 ()) (845 methods #f #f ()) (846 #f 845 11 ()) (847 methods #f #f ()) (848 singleton-value 847 7 ()) (849 methods #f #f ()) (850 singleton 849 7 ()) (851 methods #f #f ()) (852 methods #f #f ()) (853 &same-type? 852 56 ()) (854 methods #f #f ()) (855 &same-type? 854 56 ()) (856 methods #f #f ()) (857 methods #f #f ()) (858 same-type? 857 60 ()) (859 methods #f #f ()) (860 &type-superiors 859 52 ()) (861 methods #f #f ()) (862 &type-superiors 861 52 ()) (863 methods #f #f ()) (864 methods #f #f ()) (865 type-superiors 864 56 ()) (866 methods #f #f ()) (867 &type-priority 866 52 ()) (868 methods #f #f ()) (869 &type-priority 868 52 ()) (870 methods #f #f ()) (871 methods #f #f ()) (872 type-priority 871 56 ()) (873 methods #f #f ()) (874 &type-predicate 873 52 ()) (875 methods #f #f ()) (876 &type-predicate 875 52 ()) (877 methods #f #f ()) (878 methods #f #f ()) (879 type-predicate 878 56 ()) (880 methods #f #f ()) (881 add-method! 880 52 ()) (882 methods #f #f ()) (883 methods #f #f ()) (884 add-method! 883 60 ()) (885 methods #f #f ()) (886 #f 885 11 ()) (887 methods #f #f ()) (888 set-method-table-methods! 887 7 ()) (889 methods #f #f ()) (890 method-table-methods 889 7 ()) (891 methods #f #f ()) (892 method-table-prototype 891 7 ()) (893 methods #f #f ()) (894 make-generic 893 7 ()) (895 methods #f #f ()) (896 method-table-get-perform 895 7 ()) (897 methods #f #f ()) (898 method-table-set-perform! 897 7 ()) (899 methods #f #f ()) (900 method-table-id 899 7 ()) (901 methods #f #f ()) (902 really-make-method-table 901 7 ()) (903 methods #f #f ()) (904 methods #f #f ()) (905 #f 904 11 ()) (906 methods #f #f ()) (907 method-info-types 906 7 ()) (908 methods #f #f ()) (909 method-info-n-ary? 908 7 ()) (910 methods #f #f ()) (911 method-info-proc 910 7 ()) (912 methods #f #f ()) (913 really-make-method-info 912 7 ()) (914 methods #f #f ()) (915 methods #f #f ()) (916 record-type-priority 915 51 ()) (917 methods #f #f ()) (918 methods #f #f ()) (919 methods #f #f ()) (920 methods #f #f ()) (921 methods #f #f ()) (922 methods #f #f ()) (923 methods #f #f ()) (924 methods #f #f ()) (925 methods #f #f ()) (926 methods #f #f ()) (927 methods #f #f ()) (928 methods #f #f ()) (929 methods #f #f ()) (930 #f 929 25 ()) (931 methods #f #f ()) (932 methods #f #f ()) (933 methods #f #f ()) (934 methods #f #f ()) (935 methods #f #f ()) (936 methods #f #f ()) (937 #f 936 25 ()) (938 methods #f #f ()) (939 methods #f #f ()) (940 methods #f #f ()) (941 methods #f #f ()) (942 #f 941 11 ()) (943 methods #f #f ()) (944 simple-type-superiors 943 7 ()) (945 methods #f #f ()) (946 simple-type-predicate 945 7 ()) (947 methods #f #f ()) (948 simple-type-priority 947 7 ()) (949 methods #f #f ()) (950 simple-type-id 949 7 ()) (951 methods #f #f ()) (952 really-make-simple-type 951 7 ()) (953 methods #f #f ()) (954 methods #f #f ()) (955 simple-type? 954 7 ()) (956 methods #f #f ()) (957 %type-priority 956 7 ()) (958 methods #f #f ()) (959 compute-priority 958 7 ()) (960 methods #f #f ()) (961 make-simple-type 960 7 ()) (962 methods #f #f ()) (963 %type-predicate 962 7 ()) (964 methods #f #f ()) (965 %same-type? 964 7 ()) (966 methods #f #f ()) (967 value? 966 7 ()) (968 methods #f #f ()) (969 method-info? 968 7 ()) (970 methods #f #f ()) (971 make-method-info 970 7 ()) (972 methods #f #f ()) (973 empty-method-list 972 7 ()) (974 methods #f #f ()) (975 more-specific-type? 974 7 ()) (976 methods #f #f ()) (977 more-specific? 976 7 ()) (978 loop 977 148 ()) (979 methods #f #f ()) (980 every2 979 7 ()) (981 methods #f #f ()) (982 same-applicability? 981 7 ()) (983 methods #f #f ()) (984 insert-method 983 7 ()) (985 recur 984 18 ()) (986 methods #f #f ()) (987 method-table? 986 7 ()) (988 methods #f #f ()) (989 last-action 988 7 ()) (990 #f 989 6 ()) (991 methods #f #f ()) (992 one-action 991 7 ()) (993 #f 992 6 ()) (994 #f 993 20 ()) (995 methods #f #f ()) (996 check-for-next 995 7 ()) (997 #f 996 6 ()) (998 methods #f #f ()) (999 check-next 998 7 ()) (1000 #f 999 6 ()) (1001 methods #f #f ()) (1002 argument-sequence-predicate 1001 7 ()) (1003 recur 1002 27 ()) (1004 methods #f #f ()) (1005 methods->perform 1004 7 ()) (1006 recur 1005 18 ()) (1007 methods #f #f ()) (1008 add-to-method-table! 1007 7 ()) (1009 methods #f #f ()) (1010 set-final-method! 1009 7 ()) (1011 methods #f #f ()) (1012 make-cell-for-generic 1011 7 ()) (1013 #f 1012 8 ()) (1014 #f 1012 13 ()) (1015 #f 1012 18 ()) (1016 methods #f #f ()) (1017 make-method-table 1016 7 ()) (1018 #f 1017 53 ()) (1019 #f 1017 79 ()) (1020 methods #f #f ()) (1021 apply-generic 1020 7 ()) (1022 methods #f #f ()) (1023 compare-to 1022 7 ()) (1024 #f 1023 6 ()) (1025 methods #f #f ()) (1026 proc->discloser 1025 7 ()) (1027 #f 1026 6 ()) (1028 #f 1027 6 ()) (1029 methods #f #f ()) (1030 number-i/o #f #f ()) (1031 string->integer 1030 24 ()) (1032 do-it 1030 33 ()) (1033 loop 1032 40 ()) (1034 digit->integer 1030 42 ()) (1035 number-i/o #f #f ()) (1036 set-exactness 1035 7 ()) (1037 number-i/o #f #f ()) (1038 &really-string->number 1037 60 ()) (1039 number-i/o #f #f ()) (1040 #f 1039 25 ()) (1041 loop 1040 31 ()) (1042 number-i/o #f #f ()) (1043 &really-string->number 1042 60 ()) (1044 number-i/o #f #f ()) (1045 number-i/o #f #f ()) (1046 number-i/o #f #f ()) (1047 string->number 1046 7 ()) (1048 loop 1047 285 ()) (1049 radix-is 1048 55 ()) (1050 exactness-is 1048 60 ()) (1051 loop 1048 300 ()) (1052 number-i/o #f #f ()) (1053 integer->string 1052 22 ()) (1054 recur 1053 52 ()) (1055 integer->digit 1052 31 ()) (1056 number-i/o #f #f ()) (1057 &number->string 1056 56 ()) (1058 number-i/o #f #f ()) (1059 &number->string 1058 56 ()) (1060 number-i/o #f #f ()) (1061 number->string 1060 7 ()) (1062 number-i/o #f #f ()) (1063 number-i/o #f #f ()) (1064 fluids #f #f ()) (1065 fluids #f #f ()) (1066 set-fluid-top-level-value! 1065 7 ()) (1067 fluids #f #f ()) (1068 fluid-top-level-value 1067 7 ()) (1069 fluids #f #f ()) (1070 make-fluid 1069 7 ()) (1071 fluids #f #f ()) (1072 fluids #f #f ()) (1073 thread-dynamic-env 1072 7 ()) (1074 fluids #f #f ()) (1075 thread-dynamic-point 1074 7 ()) (1076 fluids #f #f ()) (1077 make-thread 1076 7 ()) (1078 fluids #f #f ()) (1079 fluids #f #f ()) (1080 get-dynamic-env 1079 7 ()) (1081 fluids #f #f ()) (1082 set-dynamic-env! 1081 7 ()) (1083 fluids #f #f ()) (1084 get-dynamic-point 1083 7 ()) (1085 fluids #f #f ()) (1086 set-dynamic-point! 1085 7 ()) (1087 fluids #f #f ()) (1088 empty-dynamic-env 1087 7 ()) (1089 fluids #f #f ()) (1090 initialize-dynamic-state! 1089 7 ()) (1091 fluids #f #f ()) (1092 with-dynamic-env 1091 7 ()) (1093 #f 1092 38 ()) (1094 fluids #f #f ()) (1095 fluid 1094 7 ()) (1096 fluids #f #f ()) (1097 set-fluid! 1096 7 ()) (1098 fluids #f #f ()) (1099 let-fluid 1098 7 ()) (1100 fluids #f #f ()) (1101 let-fluids 1100 7 ()) (1102 loop 1101 30 ()) (1103 enumerated #f #f ()) (1104 lookup-enumerand 1103 7 ()) (1105 loop 1104 27 ()) (1106 architecture #f #f ()) (1107 architecture #f #f ()) (1108 architecture #f #f ()) (1109 architecture #f #f ()) (1110 architecture #f #f ()) (1111 architecture #f #f ()) (1112 architecture #f #f ()) (1113 architecture #f #f ()) (1114 architecture #f #f ()) (1115 architecture #f #f ()) (1116 architecture #f #f ()) (1117 architecture #f #f ()) (1118 architecture #f #f ()) (1119 architecture #f #f ()) (1120 architecture #f #f ()) (1121 architecture #f #f ()) (1122 architecture #f #f ()) (1123 architecture #f #f ()) (1124 architecture #f #f ()) (1125 architecture #f #f ()) (1126 architecture #f #f ()) (1127 architecture #f #f ()) (1128 architecture #f #f ()) (1129 next-protocol 1128 7 ()) (1130 architecture #f #f ()) (1131 architecture #f #f ()) (1132 architecture #f #f ()) (1133 architecture #f #f ()) (1134 architecture #f #f ()) (1135 architecture #f #f ()) (1136 architecture #f #f ()) (1137 architecture #f #f ()) (1138 architecture #f #f ()) (1139 architecture #f #f ()) (1140 architecture #f #f ()) (1141 architecture #f #f ()) (1142 architecture #f #f ()) (1143 architecture #f #f ()) (1144 queues #f #f ()) (1145 queue-uid 1144 7 ()) (1146 queues #f #f ()) (1147 set-queue-head! 1146 7 ()) (1148 queues #f #f ()) (1149 queue-head 1148 7 ()) (1150 queues #f #f ()) (1151 set-queue-tail! 1150 7 ()) (1152 queues #f #f ()) (1153 queue-tail 1152 7 ()) (1154 queues #f #f ()) (1155 really-make-queue 1154 7 ()) (1156 queues #f #f ()) (1157 queues #f #f ()) (1158 queue? 1157 7 ()) (1159 queues #f #f ()) (1160 make-queue 1159 7 ()) (1161 queues #f #f ()) (1162 queue-empty? 1161 7 ()) (1163 queues #f #f ()) (1164 enqueue! 1163 7 ()) (1165 queues #f #f ()) (1166 queue-front 1165 7 ()) (1167 queues #f #f ()) (1168 dequeue! 1167 7 ()) (1169 queues #f #f ()) (1170 on-queue? 1169 7 ()) (1171 queues #f #f ()) (1172 delete-from-queue-if! 1171 7 ()) (1173 loop 1172 130 ()) (1174 queues #f #f ()) (1175 delete-from-queue! 1174 7 ()) (1176 #f 1175 9 ()) (1177 queues #f #f ()) (1178 queue->list 1177 7 ()) (1179 #f 1178 6 ()) (1180 queues #f #f ()) (1181 queue-length 1180 7 ()) (1182 queues #f #f ()) (1183 conditions #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 make-exception 1189 7 ()) (1191 conditions #f #f ()) (1192 conditions #f #f ()) (1193 conditions #f #f ()) (1194 conditions #f #f ()) (1195 conditions #f #f ()) (1196 conditions #f #f ()) (1197 conditions #f #f ()) (1198 conditions #f #f ()) (1199 conditions #f #f ()) (1200 conditions #f #f ()) (1201 conditions #f #f ()) (1202 conditions #f #f ()) (1203 conditions #f #f ()) (1204 conditions #f #f ()) (1205 condition? 1204 7 ()) (1206 conditions #f #f ()) (1207 condition-predicate 1206 7 ()) (1208 #f 1207 6 ()) (1209 conditions #f #f ()) (1210 define-condition-type 1209 7 ()) (1211 #f 1210 17 ()) (1212 conditions #f #f ()) (1213 condition-supertypes 1212 7 ()) (1214 conditions #f #f ()) (1215 session-data #f #f ()) (1216 make-session-data-slot! 1215 7 ()) (1217 session-data #f #f ()) (1218 session-data-ref 1217 7 ()) (1219 session-data #f #f ()) (1220 session-data-set! 1219 7 ()) (1221 session-data #f #f ()) (1222 initialize-session-data! 1221 7 ()) (1223 session-data #f #f ()) (1224 interrupts #f #f ()) (1225 #f 1224 11 ()) (1226 interrupts #f #f ()) (1227 interrupts #f #f ()) (1228 interrupts #f #f ()) (1229 interrupts #f #f ()) (1230 enabled-interrupts 1229 7 ()) (1231 interrupts #f #f ()) (1232 post-gc-handler 1231 7 ()) (1233 #f 1232 6 ()) (1234 #f 1233 42 ()) (1235 #f 1233 58 ()) (1236 #f 1235 7 ()) (1237 #f 1235 21 ()) (1238 interrupts #f #f ()) (1239 initialize-interrupts! 1238 7 ()) (1240 #f 1239 6 ()) (1241 loop##72 1240 32 ()) (1242 #f 1241 32 ()) (1243 #f 1240 78 ()) (1244 #f 1243 11 ()) (1245 interrupts #f #f ()) (1246 set-interrupt-handler! 1245 7 ()) (1247 interrupts #f #f ()) (1248 with-interrupts 1247 7 ()) (1249 #f 1248 13 ()) (1250 interrupts #f #f ()) (1251 with-interrupts-inhibited 1250 7 ()) (1252 interrupts #f #f ()) (1253 with-interrupts-allowed 1252 7 ()) (1254 interrupts #f #f ()) (1255 disable-interrupts! 1254 7 ()) (1256 interrupts #f #f ()) (1257 enable-interrupts! 1256 7 ()) (1258 interrupts #f #f ()) (1259 call-after-gc! 1258 7 ()) (1260 interrupts #f #f ()) (1261 call-before-heap-overflow! 1260 7 ()) (1262 interrupts #f #f ()) (1263 interrupt-handlers-vector 1262 7 ()) (1264 interrupts #f #f ()) (1265 interrupts #f #f ()) (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 ()) (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 ()) (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 ()) (1424 threads #f #f ()) (1425 thread-data 1424 7 ()) (1426 threads #f #f ()) (1427 set-thread-events! 1426 7 ()) (1428 threads #f #f ()) (1429 thread-events 1428 7 ()) (1430 threads #f #f ()) (1431 set-thread-current-task! 1430 7 ()) (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 ()) (1441 threads #f #f ()) (1442 thread? 1441 7 ()) (1443 threads #f #f ()) (1444 compose-continuation 1443 7 ()) (1445 #f 1444 6 ()) (1446 #f 1445 27 ()) (1447 #f 1446 10 ()) (1448 #f 1447 9 ()) (1449 threads #f #f ()) (1450 thunk->continuation 1449 7 ()) (1451 threads #f #f ()) (1452 interrupt-timer-time 1451 7 ()) (1453 threads #f #f ()) (1454 debit-down! 1453 7 ()) (1455 loop 1454 28 ()) (1456 threads #f #f ()) (1457 run-thread 1456 7 ()) (1458 #f 1457 44 ()) (1459 threads #f #f ()) (1460 switch-to-thread 1459 7 ()) (1461 #f 1460 6 ()) (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 ()) (1477 threads #f #f ()) (1478 add-event! 1477 7 ()) (1479 threads #f #f ()) (1480 enqueue-thread! 1479 7 ()) (1481 threads #f #f ()) (1482 dequeue-thread! 1481 7 ()) (1483 threads #f #f ()) (1484 remove-thread-from-queue! 1483 7 ()) (1485 threads #f #f ()) (1486 event-pending? 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 ()) (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 ()) (1503 threads #f #f ()) (1504 exit 1503 7 ()) (1505 threads #f #f ()) (1506 wait 1505 7 ()) (1507 threads #f #f ()) (1508 waiting? 1507 7 ()) (1509 threads #f #f ()) (1510 block 1509 7 ()) (1511 threads #f #f ()) (1512 relinquish-timeslice 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 ()) (1521 threads #f #f ()) (1522 upcall 1521 7 ()) (1523 threads #f #f ()) (1524 kill-thread! 1523 7 ()) (1525 #f 1524 9 ()) (1526 threads #f #f ()) (1527 get-next-event! 1526 7 ()) (1528 threads #f #f ()) (1529 schedule-wakeup 1528 7 ()) (1530 threads #f #f ()) (1531 schedule-event 1530 7 ()) (1532 threads #f #f ()) (1533 show-running 1532 7 ()) (1534 loop##111 1533 16 ()) (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 ()) (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 ()) (1563 threads #f #f ()) (1564 terminate-current-thread 1563 7 ()) (1565 threads #f #f ()) (1566 insert 1565 7 ()) (1567 threads #f #f ()) (1568 sleep 1567 7 ()) (1569 #f 1568 71 ()) (1570 threads #f #f ()) (1571 wake-some-threads 1570 7 ()) (1572 loop 1571 46 ()) (1573 threads #f #f ()) (1574 threads #f #f ()) (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 ()) (1650 i/o #f #f ()) (1651 fill-port-buffer! 1650 7 ()) (1652 i/o #f #f ()) (1653 read-char-handler 1652 7 ()) (1654 #f 1653 6 ()) (1655 i/o #f #f ()) (1656 two-arg-proc->handler 1655 7 ()) (1657 #f 1656 6 ()) (1658 i/o #f #f ()) (1659 empty-port-buffer! 1658 7 ()) (1660 i/o #f #f ()) (1661 write-char-handler 1660 7 ()) (1662 i/o #f #f ()) (1663 initialize-i/o-handlers! 1662 7 ()) (1664 i/o #f #f ()) (1665 open-input-port? 1664 7 ()) (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 ()) (1684 i/o #f #f ()) (1685 char-ready? 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 ()) (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 ()) (1730 i/o #f #f ()) (1731 output-port-forcers 1730 7 ()) (1732 loop 1731 30 ()) (1733 i/o #f #f ()) (1734 periodically-flushed-ports 1733 7 ()) (1735 loop 1734 35 ()) (1736 i/o #f #f ()) (1737 really-steal-port! 1736 7 ()) (1738 #f 1737 158 ()) (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 ()) (1749 i/o #f #f ()) (1750 initialize-i/o 1749 7 ()) (1751 i/o #f #f ()) (1752 call-with-current-input-port 1751 7 ()) (1753 i/o #f #f ()) (1754 call-with-current-output-port 1753 7 ()) (1755 i/o #f #f ()) (1756 call-with-current-noise-port 1755 7 ()) (1757 i/o #f #f ()) (1758 silently 1757 7 ()) (1759 i/o #f #f ()) (1760 output-port-option 1759 7 ()) (1761 i/o #f #f ()) (1762 newline 1761 7 ()) (1763 i/o #f #f ()) (1764 i/o #f #f ()) (1765 i/o #f #f ()) (1766 writing #f #f ()) (1767 display 1766 7 ()) (1768 recur 1767 36 ()) (1769 writing #f #f ()) (1770 display-type-name 1769 7 ()) (1771 loop##135 1770 90 ()) (1772 writing #f #f ()) (1773 write-other 1772 7 ()) (1774 #f 1773 73 ()) (1775 writing #f #f ()) (1776 write-vector 1775 7 ()) (1777 loop 1776 76 ()) (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 ()) (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 ()) (1873 reading #f #f ()) (1874 set-standard-read-macro! 1873 7 ()) (1875 reading #f #f ()) (1876 sub-read-list 1875 7 ()) (1877 recur 1876 56 ()) (1878 reading #f #f ()) (1879 gobble-line 1878 7 ()) (1880 loop 1879 15 ()) (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 ()) (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 ()) (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 ()) (2074 tables #f #f ()) (2075 really-table-walk 2074 7 ()) (2076 loop##176 2075 63 ()) (2077 tables #f #f ()) (2078 table-walk 2077 7 ()) (2079 #f 2078 6 ()) (2080 tables #f #f ()) (2081 make-table-immutable! 2080 7 ()) (2082 tables #f #f ()) (2083 table->entry-list 2082 7 ()) (2084 #f 2083 17 ()) (2085 tables #f #f ()) (2086 default-table-hash-function 2085 7 ()) (2087 tables #f #f ()) (2088 default-table-assoc 2087 7 ()) (2089 tables #f #f ()) (2090 symbol-hash 2089 7 ()) (2091 tables #f #f ()) (2092 tables #f #f ()) (2093 weak #f #f ()) (2094 walk-population 2093 7 ()) (2095 #f 2094 6 ()) (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 ()) (2182 meta-types #f #f ()) (2183 bottom-type? 2182 7 ()) (2184 meta-types #f #f ()) (2185 new-atomic-type 2184 7 ()) (2186 meta-types #f #f ()) (2187 named-atomic-type 2186 7 ()) (2188 meta-types #f #f ()) (2189 empty-rail-type? 2188 7 ()) (2190 meta-types #f #f ()) (2191 rest-type? 2190 7 ()) (2192 meta-types #f #f ()) (2193 same-type? 2192 7 ()) (2194 meta-types #f #f ()) (2195 head-type 2194 7 ()) (2196 meta-types #f #f ()) (2197 optional-type? 2196 7 ()) (2198 meta-types #f #f ()) (2199 rail-type 2198 7 ()) (2200 meta-types #f #f ()) (2201 make-optional-type 2200 7 ()) (2202 meta-types #f #f ()) (2203 make-rest-type 2202 7 ()) (2204 meta-types #f #f ()) (2205 head-type-really 2204 7 ()) (2206 meta-types #f #f ()) (2207 tail-type 2206 7 ()) (2208 meta-types #f #f ()) (2209 value-type? 2208 7 ()) (2210 meta-types #f #f ()) (2211 other-type-info 2210 7 ()) (2212 meta-types #f #f ()) (2213 restrictive? 2212 7 ()) (2214 meta-types #f #f ()) (2215 make-procedure-type 2214 7 ()) (2216 meta-types #f #f ()) (2217 procedure-type-domain 2216 7 ()) (2218 meta-types #f #f ()) (2219 procedure-type-codomain 2218 7 ()) (2220 meta-types #f #f ()) (2221 meet-procedure 2220 7 ()) (2222 meta-types #f #f ()) (2223 meet-rail 2222 7 ()) (2224 meta-types #f #f ()) (2225 meet-type 2224 7 ()) (2226 meta-types #f #f ()) (2227 subtype? 2226 7 ()) (2228 meta-types #f #f ()) (2229 meet-procedure? 2228 7 ()) (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 ()) (2242 meta-types #f #f ()) (2243 sexp->values-type 2242 7 ()) (2244 meta-types #f #f ()) (2245 sexp->type 2244 7 ()) (2246 #f 2245 285 ()) (2247 #f 2245 349 ()) (2248 meta-types #f #f ()) (2249 disjoin-rest 2248 7 ()) (2250 meta-types #f #f ()) (2251 disjoin-type 2250 7 ()) (2252 loop##197 2251 262 ()) (2253 meta-types #f #f ()) (2254 atomic-type->sexp 2253 7 ()) (2255 meta-types #f #f ()) (2256 rail-type->sexp 2255 7 ()) (2257 recur 2256 25 ()) (2258 meta-types #f #f ()) (2259 type->sexp 2258 7 ()) (2260 #f 2259 141 ()) (2261 meta-types #f #f ()) (2262 make-some-values-type 2261 7 ()) (2263 meta-types #f #f ()) (2264 fixed-arity-procedure-type? 2263 7 ()) (2265 loop 2264 43 ()) (2266 meta-types #f #f ()) (2267 procedure-type-arity 2266 7 ()) (2268 loop##200 2267 11 ()) (2269 meta-types #f #f ()) (2270 procedure-type-argument-types 2269 7 ()) (2271 recur 2270 28 ()) (2272 meta-types #f #f ()) (2273 variable-type 2272 7 ()) (2274 meta-types #f #f ()) (2275 variable-type? 2274 7 ()) (2276 meta-types #f #f ()) (2277 compatible-types? 2276 7 ()) (2278 meta-types #f #f ()) (2279 meta-types #f #f ()) (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 ()) (2426 names #f #f ()) (2427 maybe-apply-macro-transform 2426 7 ()) (2428 names #f #f ()) (2429 apply-inline-transform 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 ()) (2543 packages #f #f ()) (2544 set-structure-name! 2543 7 ()) (2545 packages #f #f ()) (2546 structure-name 2545 7 ()) (2547 packages #f #f ()) (2548 really-make-structure 2547 7 ()) (2549 packages #f #f ()) (2550 packages #f #f ()) (2551 structure? 2550 7 ()) (2552 packages #f #f ()) (2553 initialize-structure! 2552 7 ()) (2554 packages #f #f ()) (2555 structure-interface 2554 7 ()) (2556 packages #f #f ()) (2557 package? 2556 7 ()) (2558 packages #f #f ()) (2559 note-package-name! 2558 7 ()) (2560 packages #f #f ()) (2561 note-structure-name! 2560 7 ()) (2562 packages #f #f ()) (2563 make-structure 2562 7 ()) (2564 #f 2563 85 ()) (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 ()) (2584 packages #f #f ()) (2585 structure-lookup 2584 7 ()) (2586 packages #f #f ()) (2587 package-lookup 2586 7 ()) (2588 packages #f #f ()) (2589 generic-lookup 2588 7 ()) (2590 packages #f #f ()) (2591 really-package-lookup 2590 7 ()) (2592 packages #f #f ()) (2593 real-structure-lookup 2592 7 ()) (2594 packages #f #f ()) (2595 for-each-export 2594 7 ()) (2596 #f 2595 22 ()) (2597 packages #f #f ()) (2598 really-package->environment 2597 7 ()) (2599 #f 2598 6 ()) (2600 #f 2598 11 ()) (2601 packages #f #f ()) (2602 new-package-uid 2601 7 ()) (2603 packages #f #f ()) (2604 make-package 2603 7 ()) (2605 packages #f #f ()) (2606 lazy-table-accessor 2605 7 ()) (2607 #f 2606 6 ()) (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 ()) (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 ()) (2639 packages #f #f ()) (2640 cenv->package 2639 7 ()) (2641 packages #f #f ()) (2642 get-location-for-unassignable 2641 7 ()) (2643 #f 2642 98 ()) (2644 #f 2642 103 ()) (2645 packages #f #f ()) (2646 package-note-caching! 2645 7 ()) (2647 loop 2646 79 ()) (2648 packages #f #f ()) (2649 note-caching! 2648 7 ()) (2650 packages #f #f ()) (2651 location-for-reference 2650 7 ()) (2652 loop 2651 28 ()) (2653 packages #f #f ()) (2654 get-location-for-undefined 2653 7 ()) (2655 #f 2654 105 ()) (2656 packages #f #f ()) (2657 get-location 2656 7 ()) (2658 packages #f #f ()) (2659 really-link! 2658 7 ()) (2660 loop##280 2659 11 ()) (2661 packages #f #f ()) (2662 link! 2661 7 ()) (2663 #f 2662 14 ()) (2664 packages #f #f ()) (2665 location-on-demand 2664 7 ()) (2666 #f 2665 6 ()) (2667 packages #f #f ()) (2668 packages #f #f ()) (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 ()) (2823 nodes #f #f ()) (2824 schemify 2823 7 ()) (2825 nodes #f #f ()) (2826 schemify-nodes 2825 7 ()) (2827 #f 2826 6 ()) (2828 nodes #f #f ()) (2829 define-schemifier 2828 7 ()) (2830 nodes #f #f ()) (2831 schemify-formals 2830 7 ()) (2832 nodes #f #f ()) (2833 schemify-lambda 2832 7 ()) (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 ()) (2917 syntactic #f #f ()) (2918 expand-list 2917 7 ()) (2919 #f 2918 6 ()) (2920 syntactic #f #f ()) (2921 expand-call 2920 7 ()) (2922 syntactic #f #f ()) (2923 expand 2922 7 ()) (2924 syntactic #f #f ()) (2925 expand-macro-application 2924 7 ()) (2926 #f 2925 6 ()) (2927 syntactic #f #f ()) (2928 expand-structure-ref 2927 7 ()) (2929 lose 2928 32 ()) (2930 syntactic #f #f ()) (2931 expand-head 2930 7 ()) (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 ()) (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 ()) (2958 syntactic #f #f ()) (2959 define-expander 2958 7 ()) (2960 syntactic #f #f ()) (2961 unspecific-node 2960 7 ()) (2962 syntactic #f #f ()) (2963 bind-names 2962 7 ()) (2964 loop 2963 26 ()) (2965 syntactic #f #f ()) (2966 expand-lambda 2965 7 ()) (2967 #f 2966 6 ()) (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 ()) (3163 segments #f #f ()) (3164 literal->index 3163 7 ()) (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 ()) (3172 segments #f #f ()) (3173 emit-segment! 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 ()) (3182 segments #f #f ()) (3183 segment-data->template 3182 7 ()) (3184 loop##343 3183 68 ()) (3185 segments #f #f ()) (3186 segment->template 3185 7 ()) (3187 #f 3186 124 ()) (3188 segments #f #f ()) (3189 instruction 3188 7 ()) (3190 #f 3189 30 ()) (3191 #f 3190 22 ()) (3192 segments #f #f ()) (3193 sequentially-2 3192 7 ()) (3194 #f 3193 59 ()) (3195 segments #f #f ()) (3196 sequentially 3195 7 ()) (3197 loop 3196 105 ()) (3198 #f 3196 120 ()) (3199 loop 3198 18 ()) (3200 segments #f #f ()) (3201 instruction-with-literal 3200 7 ()) (3202 #f 3201 30 ()) (3203 #f 3202 160 ()) (3204 segments #f #f ()) (3205 instruction-with-location 3204 7 ()) (3206 #f 3205 10 ()) (3207 segments #f #f ()) (3208 make-label 3207 7 ()) (3209 segments #f #f ()) (3210 insert-label! 3209 7 ()) (3211 segments #f #f ()) (3212 instruction-using-label 3211 7 ()) (3213 #f 3212 49 ()) (3214 segments #f #f ()) (3215 computed-goto-instruction 3214 7 ()) (3216 #f 3215 68 ()) (3217 loop##344 3216 75 ()) (3218 segments #f #f ()) (3219 attach-label 3218 7 ()) (3220 #f 3219 19 ()) (3221 #f 3220 37 ()) (3222 segments #f #f ()) (3223 note-source-code 3222 7 ()) (3224 #f 3223 19 ()) (3225 segments #f #f ()) (3226 note-environment 3225 7 ()) (3227 #f 3226 31 ()) (3228 segments #f #f ()) (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 ()) (3308 reconstruction #f #f ()) (3309 examine 3308 7 ()) (3310 reconstruction #f #f ()) (3311 reconstruct 3310 7 ()) (3312 reconstruction #f #f ()) (3313 reconstruct-type 3312 7 ()) (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 ()) (3390 compiler #f #f ()) (3391 compiler #f #f ()) (3392 #f 3391 19 ()) (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 ()) (3403 compiler #f #f ()) (3404 #f 3403 19 ()) (3405 compiler #f #f ()) (3406 compiler #f #f ()) (3407 #f 3406 19 ()) (3408 loop 3407 89 ()) (3409 compiler #f #f ()) (3410 #f 3409 19 ()) (3411 compiler #f #f ()) (3412 #f 3411 19 ()) (3413 compiler #f #f ()) (3414 #f 3413 19 ()) (3415 compiler #f #f ()) (3416 #f 3415 19 ()) (3417 compiler #f #f ()) (3418 #f 3417 41 ()) (3419 compiler #f #f ()) (3420 #f 3419 41 ()) (3421 compiler #f #f ()) (3422 #f 3421 19 ()) (3423 compiler #f #f ()) (3424 #f 3423 11 ()) (3425 compiler #f #f ()) (3426 diagnose-call-error 3425 7 ()) (3427 #f 3426 173 ()) (3428 compiler #f #f ()) (3429 type-check 3428 7 ()) (3430 #f 3429 121 ()) (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 ()) (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 ()) (3443 compiler #f #f ()) (3444 return-cont? 3443 7 ()) (3445 compiler #f #f ()) (3446 fixup-source 3445 7 ()) (3447 compiler #f #f ()) (3448 maybe-push-continuation 3447 7 ()) (3449 compiler #f #f ()) (3450 make-cont 3449 7 ()) (3451 compiler #f #f ()) (3452 fall-through-cont 3451 7 ()) (3453 compiler #f #f ()) (3454 push-arguments 3453 7 ()) (3455 recur 3454 37 ()) (3456 compiler #f #f ()) (3457 compile-unknown-call 3456 7 ()) (3458 compiler #f #f ()) (3459 name-node-binding 3458 7 ()) (3460 compiler #f #f ()) (3461 compile-name-call 3460 7 ()) (3462 compiler #f #f ()) (3463 generate-trap 3462 7 ()) (3464 compiler #f #f ()) (3465 named-cont 3464 7 ()) (3466 compiler #f #f ()) (3467 push-all-with-names 3466 7 ()) (3468 compiler #f #f ()) (3469 set-lexical-offsets! 3468 7 ()) (3470 loop 3469 22 ()) (3471 compiler #f #f ()) (3472 name-node->symbol 3471 7 ()) (3473 compiler #f #f ()) (3474 return-cont 3473 7 ()) (3475 compiler #f #f ()) (3476 compile-lambda-code 3475 7 ()) (3477 compiler #f #f ()) (3478 cont-name 3477 7 ()) (3479 compiler #f #f ()) (3480 compile-redex 3479 7 ()) (3481 compiler #f #f ()) (3482 compile-call 3481 7 ()) (3483 compiler #f #f ()) (3484 compile-lambda 3483 7 ()) (3485 compiler #f #f ()) (3486 variable-env-data 3485 7 ()) (3487 level-loop 3486 26 ()) (3488 loop 3487 60 ()) (3489 loop 3488 123 ()) (3490 compiler #f #f ()) (3491 sort-list 3490 7 ()) (3492 insert 3491 11 ()) (3493 sort 3491 32 ()) (3494 compiler #f #f ()) (3495 get-variables-offsets 3494 7 ()) (3496 loop 3495 22 ()) (3497 compiler #f #f ()) (3498 compile-flat-lambda 3497 7 ()) (3499 #f 3498 26 ()) (3500 #f 3498 366 ()) (3501 compiler #f #f ()) (3502 fall-through-cont? 3501 7 ()) (3503 compiler #f #f ()) (3504 ignore-values-cont 3503 7 ()) (3505 compiler #f #f ()) (3506 set-type-check?! 3505 7 ()) (3507 compiler #f #f ()) (3508 push-all-but-last 3507 7 ()) (3509 recur 3508 25 ()) (3510 compiler #f #f ()) (3511 direct-compilator 3510 7 ()) (3512 #f 3511 6 ()) (3513 compiler #f #f ()) (3514 direct-closed-compilator 3513 7 ()) (3515 #f 3514 6 ()) (3516 compiler #f #f ()) (3517 nargs->domain 3516 7 ()) (3518 loop##359 3517 11 ()) (3519 compiler #f #f ()) (3520 get-primop-type 3519 7 ()) (3521 #f 3520 10 ()) (3522 compiler #f #f ()) (3523 simple-compilator 3522 7 ()) (3524 #f 3523 6 ()) (3525 compiler #f #f ()) (3526 simple-closed-compilator 3525 7 ()) (3527 #f 3526 6 ()) (3528 compiler #f #f ()) (3529 define-simple-primitive 3528 7 ()) (3530 compiler #f #f ()) (3531 symbol-append 3530 7 ()) (3532 compiler #f #f ()) (3533 define-stob-predicate 3532 7 ()) (3534 compiler #f #f ()) (3535 define-data-struct-primitives 3534 7 ()) (3536 def-prim 3535 8 ()) (3537 loop##361 3535 190 ()) (3538 compiler #f #f ()) (3539 define-vector-primitives 3538 7 ()) (3540 def-prim 3539 26 ()) (3541 compiler #f #f ()) (3542 n-ary-primitive-compilator 3541 7 ()) (3543 #f 3542 6 ()) (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 #f 3575 42 ()) (3577 evaluation #f #f ()) (3578 load-into-port 3577 7 ()) (3579 #f 3578 12 ()) (3580 evaluation #f #f ()) (3581 load 3580 7 ()) (3582 evaluation #f #f ()) (3583 eval-from-file 3582 7 ()) (3584 evaluation #f #f ()) (3585 load-into 3584 7 ()) (3586 evaluation #f #f ()) (3587 eval 3586 7 ()) (3588 scheme #f #f ()) (3589 display-conditions #f #f ()) (3590 limited-write 3589 7 ()) (3591 recur 3590 22 ()) (3592 #f 3591 145 ()) (3593 #f 3592 24 ()) (3594 display-conditions #f #f ()) (3595 &disclose-condition 3594 52 ()) (3596 display-conditions #f #f ()) (3597 display-conditions #f #f ()) (3598 display-conditions #f #f ()) (3599 display-conditions #f #f ()) (3600 display-conditions #f #f ()) (3601 really-display-condition 3600 7 ()) (3602 #f 3601 246 ()) (3603 display-conditions #f #f ()) (3604 display-condition 3603 22 ()) (3605 #f 3604 10 ()) (3606 mini-command #f #f ()) (3607 read-string 3606 7 ()) (3608 loop 3607 23 ()) (3609 mini-command #f #f ()) (3610 mini-load 3609 7 ()) (3611 mini-command #f #f ()) (3612 command-processor 3611 7 ()) (3613 loop 3612 77 ()) (3614 #f 3613 7 ()) (3615 #f 3614 6 ()) (3616 #f 3615 68 ()) (3617 #f 3614 11 ()) (3618 #f 3617 75 ()) (3619 #f 3617 201 ()) (3620 #f 3617 246 ()) (3621 #f 3620 12 ()) (3622 export-the-record-type #f #f ()) (3623 enum-case #f #f ()) (3624 scheduler #f #f ()) (3625 decrement-counter! 3624 7 ()) (3626 scheduler #f #f ()) (3627 increment-counter! 3626 7 ()) (3628 scheduler #f #f ()) (3629 scheduler #f #f ()) (3630 make-counter 3629 7 ()) (3631 scheduler #f #f ()) (3632 round-robin-event-handler 3631 7 ()) (3633 thread-event-handler 3632 15 ()) (3634 #f 3633 111 ()) (3635 asynchronous-event-handler 3632 24 ()) (3636 next-thread 3632 33 ()) (3637 #f 3636 18 ()) (3638 scheduler #f #f ()) (3639 run-threads-with-housekeeper 3638 7 ()) (3640 #f 3639 6 ()) (3641 loop 3640 29 ()) (3642 #f 3641 6 ()) (3643 #f 3642 57 ()) (3644 scheduler #f #f ()) (3645 run-threads 3644 7 ()) (3646 #f 3645 6 ()) (3647 loop 3646 26 ()) (3648 #f 3647 6 ()) (3649 #f 3648 8 ()) (3650 root-scheduler #f #f ()) (3651 root-scheduler #f #f ()) (3652 spawn-output-forcers 3651 7 ()) (3653 root-scheduler #f #f ()) (3654 call-when-deadlocked! 3653 7 ()) (3655 root-scheduler #f #f ()) (3656 root-scheduler #f #f ()) (3657 do-some-waiting 3656 7 ()) (3658 root-scheduler #f #f ()) (3659 root-scheduler #f #f ()) (3660 root-wait 3659 7 ()) (3661 #f 3660 22 ()) (3662 root-scheduler #f #f ()) (3663 scheme-exit-now 3662 7 ()) (3664 root-scheduler #f #f ()) (3665 root-scheduler #f #f ()) (3666 cheap-display-condition 3665 7 ()) (3667 #f 3666 164 ()) (3668 root-scheduler #f #f ()) (3669 root-handler 3668 7 ()) (3670 root-scheduler #f #f ()) (3671 make-root-event-handler 3670 7 ()) (3672 #f 3671 115 ()) (3673 #f 3671 120 ()) (3674 root-scheduler #f #f ()) (3675 root-scheduler 3674 7 ()) (3676 #f 3675 13 ()) (3677 #f 3676 24 ()) (3678 #f 3676 41 ()) (3679 usual-resumer #f #f ()) (3680 usual-resumer #f #f ()) (3681 initialize-rts 3680 7 ()) (3682 #f 3681 44 ()) (3683 #f 3682 7 ()) (3684 #f 3683 46 ()) (3685 #f 3684 3 ()) (3686 usual-resumer #f #f ()) (3687 usual-resumer 3686 7 ()) (3688 #f 3687 6 ()) (3689 #f 3688 15 ()) (3690 initial-system #f #f ()) (3691 make-tower 3690 7 ()) (3692 initial-system #f #f ()) (3693 make-initial-package 3692 7 ()) (3694 #f 3693 17 ()) (3695 initial-system #f #f ()) (3696 initialize-interaction-environment! 3695 7 ()) (3697 initial-system #f #f ()) (3698 make-built-in-structures 3697 7 ()) (3699 #f 3698 38 ()) (3700 #f 3698 60 ()) (3701 initial-system #f #f ()) (3702 start 3701 7 ()) (3703 #f 3702 6 ()) (3704 #f 3703 6 ()) (3705 #f 3704 64 ()) (3706 usual-macros #f #f ()) (3707 find-free-names-in-syntax-rules 3706 7 ()) (3708 meta-variables 3707 13 ()) (3709 free-names 3707 22 ()) (3710 loop##381 3707 36 ()) (3711 usual-macros #f #f ()) (3712 usual-macros #f #f ()) (3713 segment-tail 3712 7 ()) (3714 loop 3713 21 ()) (3715 usual-macros #f #f ()) (3716 segment-depth 3715 7 ()) (3717 usual-macros #f #f ()) (3718 segment-template? 3717 7 ()) (3719 usual-macros #f #f ()) (3720 segment-pattern? 3719 7 ()) (3721 usual-macros #f #f ()) (3722 process-rules 3721 7 ()) (3723 make-transformer 3722 424 ()) (3724 process-rule 3722 433 ()) (3725 #f 3724 114 ()) (3726 process-match 3722 442 ()) (3727 process-segment-match 3722 451 ()) (3728 process-pattern 3722 460 ()) (3729 #f 3728 97 ()) (3730 process-template 3722 469 ()) (3731 loop##385 3730 294 ()) (3732 meta-variables 3722 478 ()) (3733 free-meta-variables 3722 487 ()) (3734 usual-macros #f #f ()) (3735 #f 3734 11 ()) (3736 usual-macros #f #f ()) (3737 #f 3736 11 ()) (3738 expand-quasiquote 3737 154 ()) (3739 finalize-quasiquote 3737 163 ()) (3740 descend-quasiquote 3737 172 ()) (3741 descend-quasiquote-pair 3737 181 ()) (3742 #f 3741 15 ()) (3743 #f 3742 15 ()) (3744 descend-quasiquote-vector 3737 190 ()) (3745 #f 3744 22 ()) (3746 interesting-to-quasiquote? 3737 199 ()) (3747 usual-macros #f #f ()) (3748 case-clause? 3747 7 ()) (3749 usual-macros #f #f ()) (3750 #f 3749 11 ()) (3751 #f 3750 28 ()) (3752 #f 3750 218 ()) (3753 usual-macros #f #f ()) (3754 #f 3753 11 ()) (3755 usual-macros #f #f ()) (3756 specs? 3755 7 ()) (3757 usual-macros #f #f ()) (3758 #f 3757 11 ()) (3759 usual-macros #f #f ()) (3760 #f 3759 11 ()) (3761 usual-macros #f #f ()) (3762 do-spec? 3761 7 ()) (3763 usual-macros #f #f ()) (3764 #f 3763 11 ()) (3765 #f 3764 238 ()) (3766 usual-macros #f #f ()) (3767 #f 3766 11 ()) (3768 recur 3767 85 ()) (3769 usual-macros #f #f ()) (3770 #f 3769 11 ()) (3771 usual-macros #f #f ()) (3772 usual-transform 3771 7 ()) (3773 usual-macros #f #f ()) (3774 define-usual-macro 3773 7 ()) (3775 usual-macros #f #f ()) (3776 strong #f #f ()) (3777 pop-vertex-edge! 3776 7 ()) (3778 strong #f #f ()) (3779 follow-edge 3778 7 ()) (3780 strong #f #f ()) (3781 unwind-stack 3780 7 ()) (3782 loop 3781 22 ()) (3783 strong #f #f ()) (3784 end-vertex 3783 7 ()) (3785 #f 3784 6 ()) (3786 strong #f #f ()) (3787 get-strong 3786 7 ()) (3788 strong #f #f ()) (3789 do-vertex 3788 7 ()) (3790 strong #f #f ()) (3791 make-vertices 3790 7 ()) (3792 maybe-slot 3791 6 ()) (3793 #f 3791 18 ()) (3794 #f 3791 36 ()) (3795 strong #f #f ()) (3796 make-vertex 3795 7 ()) (3797 strong #f #f ()) (3798 vertex? 3797 7 ()) (3799 strong #f #f ()) (3800 vertex-data 3799 7 ()) (3801 strong #f #f ()) (3802 set-vertex-edges! 3801 7 ()) (3803 strong #f #f ()) (3804 vertex-edges 3803 7 ()) (3805 strong #f #f ()) (3806 set-vertex-stack! 3805 7 ()) (3807 strong #f #f ()) (3808 vertex-stack 3807 7 ()) (3809 strong #f #f ()) (3810 set-vertex-index! 3809 7 ()) (3811 strong #f #f ()) (3812 vertex-index 3811 7 ()) (3813 strong #f #f ()) (3814 set-vertex-parent! 3813 7 ()) (3815 strong #f #f ()) (3816 vertex-parent 3815 7 ()) (3817 strong #f #f ()) (3818 set-vertex-lowpoint! 3817 7 ()) (3819 strong #f #f ()) (3820 vertex-lowpoint 3819 7 ()) (3821 strong #f #f ()) (3822 really-make-vertex 3821 7 ()) (3823 strong #f #f ()) (3824 strong #f #f ()) (3825 find-next-vertex 3824 7 ()) (3826 loop##407 3825 11 ()) (3827 strong #f #f ()) (3828 strongly-connected-components 3827 7 ()) (3829 loop 3828 52 ()) (3830 #f 3829 39 ()) (3831 #f 3829 57 ()) (3832 usages #f #f ()) (3833 insert-aliases 3832 7 ()) (3834 loop 3833 22 ()) (3835 usages #f #f ()) (3836 make-form 3835 7 ()) (3837 usages #f #f ()) (3838 #f 3837 11 ()) (3839 usages #f #f ()) (3840 form? 3839 7 ()) (3841 usages #f #f ()) (3842 form-node 3841 7 ()) (3843 usages #f #f ()) (3844 set-form-aliases! 3843 7 ()) (3845 usages #f #f ()) (3846 form-aliases 3845 7 ()) (3847 usages #f #f ()) (3848 set-form-unaliased?! 3847 7 ()) (3849 usages #f #f ()) (3850 form-unaliased? 3849 7 ()) (3851 usages #f #f ()) (3852 set-form-free! 3851 7 ()) (3853 usages #f #f ()) (3854 form-free 3853 7 ()) (3855 usages #f #f ()) (3856 set-form-temp! 3855 7 ()) (3857 usages #f #f ()) (3858 form-temp 3857 7 ()) (3859 usages #f #f ()) (3860 really-make-form 3859 7 ()) (3861 usages #f #f ()) (3862 usages #f #f ()) (3863 topologically-sort 3862 7 ()) (3864 #f 3863 13 ()) (3865 #f 3864 6 ()) (3866 #f 3864 15 ()) (3867 usages #f #f ()) (3868 maybe-make-aliased 3867 7 ()) (3869 usages #f #f ()) (3870 stuff-count 3869 7 ()) (3871 #f 3870 10 ()) (3872 usages #f #f ()) (3873 sort-forms 3872 7 ()) (3874 #f 3873 39 ()) (3875 #f 3873 71 ()) (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 usages #f #f ()) (3885 usages #f #f ()) (3886 usage-incrementator 3885 7 ()) (3887 #f 3886 6 ()) (3888 usages #f #f ()) (3889 package-usage? 3888 7 ()) (3890 usages #f #f ()) (3891 make-package-usage 3890 7 ()) (3892 usages #f #f ()) (3893 make-usage 3892 7 ()) (3894 usages #f #f ()) (3895 usage? 3894 7 ()) (3896 usages #f #f ()) (3897 usage-name-node 3896 7 ()) (3898 usages #f #f ()) (3899 set-reference! 3898 7 ()) (3900 usages #f #f ()) (3901 usage-reference-count 3900 7 ()) (3902 usages #f #f ()) (3903 set-operator! 3902 7 ()) (3904 usages #f #f ()) (3905 usage-operator-count 3904 7 ()) (3906 usages #f #f ()) (3907 set-assignment! 3906 7 ()) (3908 usages #f #f ()) (3909 usage-assignment-count 3908 7 ()) (3910 usages #f #f ()) (3911 really-make-usage 3910 7 ()) (3912 usages #f #f ()) (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 usages #f #f ()) (3926 #f 3925 15 ()) (3927 #f 3926 57 ()) (3928 usages #f #f ()) (3929 #f 3928 15 ()) (3930 #f 3929 41 ()) (3931 usages #f #f ()) (3932 #f 3931 13 ()) (3933 usages #f #f ()) (3934 add-if-free 3933 7 ()) (3935 usages #f #f ()) (3936 #f 3935 13 ()) (3937 usages #f #f ()) (3938 usages #f #f ()) (3939 usages #f #f ()) (3940 usages #f #f ()) (3941 usages #f #f ()) (3942 usages #f #f ()) (3943 nothing 3942 7 ()) (3944 usages #f #f ()) (3945 define-usage-analyzer 3944 7 ()) (3946 usages #f #f ()) (3947 #f 3946 11 ()) (3948 usages #f #f ()) (3949 analyze-nodes 3948 7 ()) (3950 #f 3949 6 ()) (3951 usages #f #f ()) (3952 analyze 3951 7 ()) (3953 usages #f #f ()) (3954 find-node-usages 3953 7 ()) (3955 #f 3954 30 ()) (3956 #f 3954 44 ()) (3957 usages #f #f ()) (3958 maybe-update-known-type 3957 7 ()) (3959 usages #f #f ()) (3960 find-usages 3959 7 ()) (3961 #f 3960 23 ()) (3962 #f 3960 41 ()) (3963 #f 3962 24 ()) (3964 #f 3960 59 ()) (3965 inline #f #f ()) (3966 inline #f #f ()) (3967 inline #f #f ()) (3968 inline #f #f ()) (3969 inline #f #f ()) (3970 inline #f #f ()) (3971 get-qualified-env 3970 7 ()) (3972 inline #f #f ()) (3973 qualified->name 3972 7 ()) (3974 recur 3973 18 ()) (3975 inline #f #f ()) (3976 inline #f #f ()) (3977 inline #f #f ()) (3978 reconstitute-name 3977 7 ()) (3979 inline #f #f ()) (3980 reconstitute 3979 7 ()) (3981 label 3980 18 ()) (3982 inline #f #f ()) (3983 make-substitution 3982 7 ()) (3984 #f 3983 29 ()) (3985 inline #f #f ()) (3986 inline-transform 3985 7 ()) (3987 #f 3986 63 ()) (3988 #f 3986 71 ()) (3989 inline #f #f ()) (3990 unused-name 3989 7 ()) (3991 loop##431 3990 46 ()) (3992 #f 3991 10 ()) (3993 inline #f #f ()) (3994 clean-lookup 3993 7 ()) (3995 inline #f #f ()) (3996 clean-lambda 3995 7 ()) (3997 #f 3996 41 ()) (3998 recur 3996 91 ()) (3999 inline #f #f ()) (4000 clean-node 3999 7 ()) (4001 #f 4000 132 ()) (4002 #f 4000 296 ()) (4003 inline #f #f ()) (4004 make-inline-transform 4003 7 ()) (4005 #f 4004 41 ()) (4006 #f 4004 96 ()) (4007 loop##432 4006 11 ()) (4008 for-reification #f #f ()) (4009 package-define-static! 4008 7 ()) (4010 for-reification #f #f ()) (4011 transform 4010 7 ()) (4012 for-reification #f #f ()) (4013 package 4012 7 ()) (4014 loop##433 4013 73 ()) (4015 for-reification #f #f ()) (4016 simple-interface 4015 7 ()) (4017 #f 4016 12 ()) (4018 for-reification #f #f ()) (4019 primop 4018 7 ()) (4020 for-reification #f #f ()) (4021 operator 4020 7 ()) (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 types #f #f ()) (4043 types #f #f ()) (4044 procedure 4043 7 ()) (4045 types #f #f ()) (4046 types #f #f ()) (4047 types #f #f ()) (4048 types #f #f ()) (4049 defpackage #f #f ()) (4050 note-name! 4049 7 ()) (4051 defpackage #f #f ()) (4052 set-verify-later! 4051 7 ()) (4053 defpackage #f #f ()) (4054 verify-later! 4053 7 ()) (4055 defpackage #f #f ()) (4056 *verify-later!* 4055 7 ()) (4057 defpackage #f #f ()) (4058 defpackage #f #f ()) (4059 loser 4058 7 ()) (4060 defpackage #f #f ()) (4061 make-a-package 4060 7 ()) (4062 optimizer #f #f ()) (4063 apply-optimizers 4062 7 ()) (4064 #f 4063 6 ()) (4065 optimizer #f #f ()) (4066 get-optimizer 4065 7 ()) (4067 #f 4066 6 ()) (4068 #f 4067 10 ()) (4069 #f 4068 55 ()) (4070 optimizer #f #f ()) (4071 set-optimizer! 4070 7 ()) (4072 optimizer #f #f ()) (4073 scan-package #f #f ()) (4074 check-structure 4073 7 ()) (4075 #f 4074 17 ()) (4076 scan-package #f #f ()) (4077 package-optimizer-names 4076 7 ()) (4078 #f 4077 36 ()) (4079 #f 4077 75 ()) (4080 scan-package #f #f ()) (4081 read-files 4080 7 ()) (4082 #f 4081 30 ()) (4083 scan-package #f #f ()) (4084 package-source 4083 7 ()) (4085 #f 4084 46 ()) (4086 scan-package #f #f ()) (4087 collect-packages 4086 7 ()) (4088 recur 4087 26 ()) (4089 #f 4088 150 ()) (4090 compile-packages #f #f ()) (4091 compile-packages #f #f ()) (4092 compile-packages #f #f ()) (4093 make-define-primitive-node 4092 7 ()) (4094 compile-packages #f #f ()) (4095 define-primitives 4094 7 ()) (4096 #f 4095 17 ()) (4097 #f 4095 36 ()) (4098 compile-packages #f #f ()) (4099 define-usual-transform 4098 7 ()) (4100 compile-packages #f #f ()) (4101 expand-package 4100 7 ()) (4102 #f 4101 21 ()) (4103 #f 4102 10 ()) (4104 #f 4102 28 ()) (4105 #f 4102 82 ()) (4106 #f 4105 15 ()) (4107 #f 4106 10 ()) (4108 compile-packages #f #f ()) (4109 compile-package 4108 7 ()) (4110 module-system #f #f ()) (4111 analysis #f #f ()) (4112 analysis #f #f ()) (4113 analysis #f #f ()) (4114 analysis #f #f ()) (4115 analysis #f #f ()) (4116 package-lookup-type 4115 7 ()) (4117 analysis #f #f ()) (4118 analysis #f #f ()) (4119 require 4118 7 ()) (4120 analysis #f #f ()) (4121 simple-literal? 4120 7 ()) (4122 analysis #f #f ()) (4123 analysis #f #f ()) (4124 analysis #f #f ()) (4125 lexical-node? 4124 7 ()) (4126 analysis #f #f ()) (4127 really-simple-call? 4126 7 ()) (4128 analysis #f #f ()) (4129 static-value 4128 7 ()) (4130 analysis #f #f ()) (4131 #f 4130 11 ()) (4132 analysis #f #f ()) (4133 #f 4132 11 ()) (4134 loop 4133 21 ()) (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 #f 4153 11 ()) (4155 analysis #f #f ()) (4156 define-analyzer 4155 7 ()) (4157 analysis #f #f ()) (4158 #f 4157 11 ()) (4159 analysis #f #f ()) (4160 simple-list? 4159 7 ()) (4161 analysis #f #f ()) (4162 simple? 4161 7 ()) (4163 analysis #f #f ()) (4164 analysis #f #f ()) (4165 simple-lambda? 4164 7 ()) (4166 #f 4165 128 ()) (4167 analysis #f #f ()) (4168 inlinable-rhs? 4167 7 ()) (4169 analysis #f #f ()) (4170 analyze-form 4169 7 ()) (4171 analysis #f #f ()) (4172 analyze-forms 4171 7 ()) (4173 #f 4172 17 ()) (4174 analysis #f #f ()) (4175 #f 4174 11 ()) (4176 flat-environments #f #f ()) (4177 set-difference 4176 7 ()) (4178 recur 4177 18 ()) (4179 flat-environments #f #f ()) (4180 union 4179 7 ()) (4181 recur 4180 31 ()) (4182 flat-environments #f #f ()) (4183 cell-set!-primop 4182 7 ()) (4184 flat-environments #f #f ()) (4185 flat-environments #f #f ()) (4186 cell-ref-primop 4185 7 ()) (4187 flat-environments #f #f ()) (4188 flat-environments #f #f ()) (4189 make-cell-primop 4188 7 ()) (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 flat-environments #f #f ()) (4200 flat-environments #f #f ()) (4201 make-primop-call 4200 7 ()) (4202 flat-environments #f #f ()) (4203 make-cell-set! 4202 7 ()) (4204 flat-environments #f #f ()) (4205 make-cell-ref 4204 7 ()) (4206 flat-environments #f #f ()) (4207 make-unassigned-cell 4206 7 ()) (4208 flat-environments #f #f ()) (4209 make-cell 4208 7 ()) (4210 flat-environments #f #f ()) (4211 #f 4210 11 ()) (4212 #f 4211 25 ()) (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 #f 4219 11 ()) (4221 flat-environments #f #f ()) (4222 flat-environments #f #f ()) (4223 flat-environments #f #f ()) (4224 flat-environments #f #f ()) (4225 flat-environments #f #f ()) (4226 flat-environments #f #f ()) (4227 no-sets 4226 7 ()) (4228 flat-environments #f #f ()) (4229 define-set-marker 4228 7 ()) (4230 flat-environments #f #f ()) (4231 #f 4230 11 ()) (4232 flat-environments #f #f ()) (4233 mark-set-variables! 4232 7 ()) (4234 flat-environments #f #f ()) (4235 assigned? 4234 7 ()) (4236 flat-environments #f #f ()) (4237 #f 4236 11 ()) (4238 flat-environments #f #f ()) (4239 #f 4238 11 ()) (4240 #f 4239 85 ()) (4241 #f 4239 99 ()) (4242 #f 4241 119 ()) (4243 flat-environments #f #f ()) (4244 #f 4243 11 ()) (4245 #f 4244 21 ()) (4246 flat-environments #f #f ()) (4247 #f 4246 11 ()) (4248 #f 4247 21 ()) (4249 #f 4248 6 ()) (4250 flat-environments #f #f ()) (4251 #f 4250 11 ()) (4252 #f 4251 37 ()) (4253 flat-environments #f #f ()) (4254 #f 4253 11 ()) (4255 flat-environments #f #f ()) (4256 add-cells 4255 7 ()) (4257 loop##446 4256 11 ()) (4258 flat-environments #f #f ()) (4259 convert-lambda-body 4258 7 ()) (4260 #f 4259 47 ()) (4261 flat-environments #f #f ()) (4262 flatten-lambda 4261 7 ()) (4263 #f 4262 21 ()) (4264 flat-environments #f #f ()) (4265 #f 4264 11 ()) (4266 flat-environments #f #f ()) (4267 flat-environments #f #f ()) (4268 flat-environments #f #f ()) (4269 flat-environments #f #f ()) (4270 flat-environments #f #f ()) (4271 no-free-vars 4270 7 ()) (4272 flat-environments #f #f ()) (4273 flatten-list 4272 7 ()) (4274 loop 4273 26 ()) (4275 #f 4274 39 ()) (4276 flat-environments #f #f ()) (4277 define-flattener 4276 7 ()) (4278 flat-environments #f #f ()) (4279 #f 4278 11 ()) (4280 #f 4279 6 ()) (4281 flat-environments #f #f ()) (4282 flatten-node 4281 7 ()) (4283 flat-environments #f #f ()) (4284 flatten-form 4283 7 ()) (4285 #f 4284 73 ()) (4286 #f 4284 120 ()) (4287 flat-environments #f #f ()) (4288 #f 4287 11 ()) (4289 #f 4288 6 ()) (4290 ensures-loaded #f #f ()) (4291 ensure-loaded 4290 7 ()) (4292 #f 4291 49 ()) (4293 #f 4292 56 ()) (4294 #f 4291 61 ()) (4295 #f #f #f ()) (4296 #f 4295 3 ()) (4297 get-location 4296 3 ()) (4298 #f 4296 10490 ()) (4299 #f 4296 10539 ()) (4300 #f 4296 10652 ()) (4301 #f 4296 10770 ()) (4302 #f 4296 10851 ()) (4303 conc 4302 42 ()) (4304 #f 4303 16 ()) (4305 #f 4296 12161 ()) (4306 loop 4305 115 ()) (4307 #f 4305 202 ()) (4308 #f 4305 233 ()) (4309 #f 4305 413 ()) (4310 #f 4305 471 ()) (4311 #f 4296 12549 ()) (4312 mem? 4311 197 ()) (4313 every? 4311 206 ()) (4314 #f 4311 219 ()) (4315 #f 4311 282 ()) (4316 #f 4296 12745 ()) (4317 loop##451 4316 66 ()) (4318 #f 4296 12794 ()) (4319 #f 4296 14536 ()) (4320 #f 4296 21629 ()) (4321 #f 4320 456 ()) (4322 #f 4296 22563 ()) (4323 loop 4322 95 ()) (4324 #f 4296 22720 ()) (4325 loop 4324 95 ()) (4326 #f 4296 22845 ()) (4327 loop 4326 95 ()) (4328 #f 4296 22938 ()) (4329 loop 4328 95 ()) (4330 #f 4296 23031 ()) (4331 loop 4330 95 ()) (4332 #f 4296 23124 ()) (4333 loop 4332 95 ()) (4334 #f 4296 23217 ()) (4335 loop 4334 95 ()) (4336 #f 4296 23310 ()) (4337 loop 4336 95 ()) (4338 #f 4296 23403 ()) (4339 loop 4338 95 ()) (4340 #f 4296 24099 ()) (4341 loop 4340 95 ()) (4342 #f 4296 26227 ()) (4343 #f 4296 26390 ()) (4344 #f 4296 26439 ()) (4345 #f 4296 26488 ()) (4346 #f 4296 26633 ()) (4347 #f 4296 26851 ()) (4348 #f 4296 29774 ()) (4349 #f 4296 29974 ()) (4350 #f 4296 30023 ()) (4351 #f 4296 30072 ()) (4352 #f 4351 146 ()) (4353 #f 4296 30121 ()) (4354 #f 4353 329 ()) (4355 #f 4353 403 ()) (4356 #f 4296 30500 ()) (4357 #f 4296 30549 ()) (4358 #f 4357 176 ()) (4359 parse-package-clauses 4296 30607 ()) (4360 loop 4359 76 ()) (4361 #f 4296 30616 ()) (4362 #f 4361 35 ()) (4363 #f 4362 146 ()) (4364 #f 4296 30872 ()) (4365 #f 4296 30921 ()) (4366 loop 4365 35 ()) (4367 #f 4296 31034 ()) (4368 #f 4296 31115 ()) (4369 #f 4296 31196 ()) (4370 loop 4369 51 ()) (4371 #f 4369 90 ()) (4372 #f 4369 114 ()) (4373 #f 4296 31277 ()) (4374 #f 4296 32534 ()) (4375 #f 4296 32670 ()) (4376 #f #f #f ()) -