scsh-0.5/initial.debug

; 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 bummed-define-record-types)
(18 methods)
(19 number-i/o)
(20 fluids)
(21 wind)
(22 ports)
(23 enumerated)
(24 architecture)
(25 conditions)
(26 templates)
(27 continuations)
(28 more-types)
(29 exceptions)
(30 interrupts)
(31 writing)
(32 reading)
(33 scheme-level-2)
(34 scheme-level-2-internal)
(35 weak)
(36 display-conditions)
(37 tables)
(38 filenames)
(39 meta-types)
(40 interfaces)
(41 syntactic)
(42 usual-macros)
(43 reconstruction)
(44 packages)
(45 scan)
(46 segments)
(47 compiler)
(48 defpackage)
(49 types)
(50 module-system)
(51 inline)
(52 environments)
(53 evaluation)
(54 ensures-loaded)
(55 for-reification)
(56 scheme)
(57 mini-command)
(58 initial-system)
-
; Location uid -> (name . package-uid)
(0 (current-cont . 14))
(1 (closure-template . 14))
(2 (continuation-ref . 14))
(3 (output-port? . 14))
(4 (closure? . 14))
(5 (complex? . 14))
(6 (arithmetic-shift . 14))
(7 (signal-condition . 14))
(8 (integer? . 14))
(9 (make-closure . 14))
(10 (template-ref . 14))
(11 (make-rectangular . 14))
(12 (string=? . 14))
(13 (extended-number? . 14))
(14 (reverse-list->string . 14))
(15 (denominator . 14))
(16 (call-with-values . 14))
(17 (weak-pointer-ref . 14))
(18 (find-all-symbols . 14))
(19 (code-vector? . 14))
(20 (pop . 14))
(21 (exp . 14))
(22 (sin . 14))
(23 (make-extended-number . 14))
(24 (cos . 14))
(25 (collect . 14))
(26 (external-lookup . 14))
(27 (tan . 14))
(28 (log . 14))
(29 (continuation-length . 14))
(30 (make-code-vector . 14))
(31 (cdr . 14))
(32 (bitwise-xor . 14))
(33 (car . 14))
(34 (string? . 14))
(35 (symbol? . 14))
(36 (set-cdr! . 14))
(37 (bitwise-not . 14))
(38 (vector? . 14))
(39 (closure-env . 14))
(40 (set-car! . 14))
(41 (bitwise-ior . 14))
(42 (number? . 14))
(43 (template-length . 14))
(44 (string-hash . 14))
(45 (pop-env . 14))
(46 (primitive-catch . 14))
(47 (make-string . 14))
(48 (input-port? . 14))
(49 (record? . 14))
(50 (make-vector . 14))
(51 (extended-number-set! . 14))
(52 (write-image . 14))
(53 (eq? . 14))
(54 (bitwise-and . 14))
(55 (location-id . 14))
(56 (code-vector-set! . 14))
(57 (set-location-id! . 14))
(58 (make-record . 14))
(59 (intern . 14))
(60 (values . 14))
(61 (string-set! . 14))
(62 (unassigned . 14))
(63 (vector-set! . 14))
(64 (extended-number-ref . 14))
(65 (unspecific . 14))
(66 (code-vector-ref . 14))
(67 (schedule-interrupt . 14))
(68 (find-all-xs . 14))
(69 (char-ready? . 14))
(70 (set-interrupt-handlers! . 14))
(71 (eof-object? . 14))
(72 (record-set! . 14))
(73 (ascii->char . 14))
(74 (char->ascii . 14))
(75 (set-enabled-interrupts! . 14))
(76 (external-value . 14))
(77 (make-immutable! . 14))
(78 (close-port . 14))
(79 (string-ref . 14))
(80 (immutable? . 14))
(81 (vector-ref . 14))
(82 (exact? . 14))
(83 (write-char . 14))
(84 (symbol->string . 14))
(85 (make-polar . 14))
(86 (record-ref . 14))
(87 (numerator . 14))
(88 (extended-number-length . 14))
(89 (error . 14))
(90 (exact->inexact . 14))
(91 (inexact->exact . 14))
(92 (apply . 14))
(93 (memory-status . 14))
(94 (code-vector-length . 14))
(95 (floor . 14))
(96 (with-continuation . 14))
(97 (magnitude . 14))
(98 (nargs . 14))
(99 (char=? . 14))
(100 (char<? . 14))
(101 (continuation? . 14))
(102 (remainder . 14))
(103 (vm-return . 14))
(104 (false . 14))
(105 (angle . 14))
(106 (open-port . 14))
(107 (string-length . 14))
(108 (external? . 14))
(109 (make-continuation . 14))
(110 (vector-length . 14))
(111 (template? . 14))
(112 (rational? . 14))
(113 (location? . 14))
(114 (external-name . 14))
(115 (set-exception-handler! . 14))
(116 (pair? . 14))
(117 (make-external . 14))
(118 (record-length . 14))
(119 (external-call . 14))
(120 (set-dynamic-state! . 14))
(121 (get-cont-from-heap . 14))
(122 (real-part . 14))
(123 (real? . 14))
(124 (make-template . 14))
(125 (imag-part . 14))
(126 (make-location . 14))
(127 (= . 14))
(128 (< . 14))
(129 (char? . 14))
(130 (quotient . 14))
(131 (/ . 14))
(132 (weak-pointer? . 14))
(133 (- . 14))
(134 (continuation-set! . 14))
(135 (peek-char . 14))
(136 (+ . 14))
(137 (* . 14))
(138 (contents . 14))
(139 (sqrt . 14))
(140 (read-char . 14))
(141 (set-contents! . 14))
(142 (push . 14))
(143 (make-weak-pointer . 14))
(144 (get-dynamic-state . 14))
(145 (trap . 14))
(146 (cons . 14))
(147 (template-set! . 14))
(148 (time . 14))
(149 (location-defined? . 14))
(150 (asin . 14))
(151 (write-string . 14))
(152 (vm-extension . 14))
(153 (force-output . 14))
(154 (acos . 14))
(155 (set-location-defined?! . 14))
(156 (atan . 14))
(157 (loophole . 14))
(158 (define-syntax . 14))
(159 (begin . 14))
(160 (letrec-syntax . 14))
(161 (%file-name% . 14))
(162 (structure-ref . 14))
(163 (quote . 14))
(164 (lambda . 14))
(165 (define . 14))
(166 (if . 14))
(167 (let-syntax . 14))
(168 (letrec . 14))
(169 (primitive-procedure . 14))
(170 (set! . 14))
(171 (with-aliases . 14))
(172 (call . 14))
(173 (and . 14))
(174 (cond . 14))
(175 (do . 14))
(176 (let . 14))
(177 (let* . 14))
(178 (or . 14))
(179 (char->integer . 14))
(180 (integer->char . 14))
(181 (ascii-limit . 14))
(182 (ascii-whitespaces . 14))
(183 (procedure? . 14))
(184 (invoke-closure . 14))
(185 (primitive-cwcc . 14))
(186 (make-undefined-location . 14))
(187 (vector-unassigned? . 14))
(188 (string-copy . 14))
(189 (string->symbol . 14))
(190 (*the-symbol-table* . 14))
(191 (flush-the-symbol-table! . 14))
(192 (restore-the-symbol-table! . 14))
(193 (maybe-open-input-file . 14))
(194 (maybe-open-output-file . 14))
(195 (open-input-file . 14))
(196 (open-output-file . 14))
(197 (close-input-port . 14))
(198 (close-output-port . 14))
(199 (make-condition . 14))
(200 (signal . 14))
(201 (warn . 14))
(202 (syntax-error . 14))
(203 (call-error . 14))
(204 (case . 15))
(205 (quasiquote . 15))
(206 (syntax-rules . 15))
(207 (not . 15))
(208 (boolean? . 15))
(209 (eqv? . 15))
(210 (equal? . 15))
(211 (> . 15))
(212 (<= . 15))
(213 (>= . 15))
(214 (max . 15))
(215 (min . 15))
(216 (abs . 15))
(217 (zero? . 15))
(218 (positive? . 15))
(219 (negative? . 15))
(220 (even? . 15))
(221 (odd? . 15))
(222 (caar . 15))
(223 (cadr . 15))
(224 (cdar . 15))
(225 (cddr . 15))
(226 (caaar . 15))
(227 (caadr . 15))
(228 (cadar . 15))
(229 (caddr . 15))
(230 (cdaar . 15))
(231 (cdadr . 15))
(232 (cddar . 15))
(233 (cdddr . 15))
(234 (caaaar . 15))
(235 (caaadr . 15))
(236 (caadar . 15))
(237 (caaddr . 15))
(238 (cadaar . 15))
(239 (cadadr . 15))
(240 (caddar . 15))
(241 (cadddr . 15))
(242 (cdaaar . 15))
(243 (cdaadr . 15))
(244 (cdadar . 15))
(245 (cdaddr . 15))
(246 (cddaar . 15))
(247 (cddadr . 15))
(248 (cdddar . 15))
(249 (cddddr . 15))
(250 (null? . 15))
(251 (list . 15))
(252 (length . 15))
(253 (append . 15))
(254 (reverse . 15))
(255 (append-reverse . 15))
(256 (list-tail . 15))
(257 (list-ref . 15))
(258 (mem . 15))
(259 (memq . 15))
(260 (memv . 15))
(261 (member . 15))
(262 (ass . 15))
(263 (assv . 15))
(264 (assoc . 15))
(265 (assq . 15))
(266 (list? . 15))
(267 (char>? . 15))
(268 (char>=? . 15))
(269 (char<=? . 15))
(270 (char-whitespace? . 15))
(271 (char-lower-case? . 15))
(272 (char-upper-case? . 15))
(273 (char-numeric? . 15))
(274 (char-alphabetic? . 15))
(275 (char-case-delta . 15))
(276 (char-upcase . 15))
(277 (char-downcase . 15))
(278 (char-ci-compare . 15))
(279 (char-ci=? . 15))
(280 (char-ci<? . 15))
(281 (char-ci<=? . 15))
(282 (char-ci>? . 15))
(283 (char-ci>=? . 15))
(284 (string . 15))
(285 (substring . 15))
(286 (string-append . 15))
(287 (string->list . 15))
(288 (list->string . 15))
(289 (string-fill! . 15))
(290 (make-string=? . 15))
(291 (string-ci=? . 15))
(292 (make-string<? . 15))
(293 (string<? . 15))
(294 (string-ci<? . 15))
(295 (string>? . 15))
(296 (string<=? . 15))
(297 (string>=? . 15))
(298 (string-ci>? . 15))
(299 (string-ci<=? . 15))
(300 (string-ci>=? . 15))
(301 (vector . 15))
(302 (vector->list . 15))
(303 (list->vector . 15))
(304 (vector-fill! . 15))
(305 (map . 15))
(306 (map1 . 15))
(307 (map2+ . 15))
(308 (for-each . 15))
(309 (delay . 15))
(310 (make-promise . 15))
(311 (force . 15))
(312 (unspecific . 15))
(313 (reduce . 15))
(314 (filter . 15))
(315 (pos . 15))
(316 (posq . 15))
(317 (posv . 15))
(318 (position . 15))
(319 (any . 15))
(320 (every . 15))
(321 (sublist . 15))
(322 (last . 15))
(323 (insert . 15))
(324 (inexact? . 15))
(325 (modulo . 15))
(326 (ceiling . 15))
(327 (truncate . 15))
(328 (round . 15))
(329 (gcd . 15))
(330 (euclid . 15))
(331 (lcm . 15))
(332 (expt . 15))
(333 (raise-to-integer-power . 15))
(334 (rationalize . 15))
(335 (simplest-rational . 15))
(336 (record-type . 16))
(337 (*record-type-uid* . 16))
(338 (*record-type* . 16))
(339 (make-record-type . 16))
(340 (record-type? . 16))
(341 (record-type-uid . 16))
(342 (record-type-name . 16))
(343 (record-type-field-names . 16))
(344 (record-type-discloser . 16))
(345 (record-field-index . 16))
(346 (record-constructor . 16))
(347 (record-accessor . 16))
(348 (record-modifier . 16))
(349 (record-predicate . 16))
(350 (define-record-discloser . 16))
(351 (disclose-record . 16))
(352 (default-record-discloser . 16))
(353 (:record-type . 16))
(354 (define-record-type . 17))
(355 (define-constructor . 17))
(356 (define-accessors . 17))
(357 (define-accessor . 17))
(358 (:simple-type . 18))
(359 (really-make-simple-type . 18))
(360 (simple-type-id . 18))
(361 (simple-type-priority . 18))
(362 (simple-type-predicate . 18))
(363 (simple-type-superiors . 18))
(364 (simple-type? . 18))
(365 (make-simple-type . 18))
(366 (compute-priority . 18))
(367 (*increment* . 18))
(368 (%type-priority . 18))
(369 (%type-predicate . 18))
(370 (%same-type? . 18))
(371 (define-simple-type . 18))
(372 (:syntax . 18))
(373 (:values . 18))
(374 (value? . 18))
(375 (:value . 18))
(376 (:zero . 18))
(377 (:number . 18))
(378 (:complex . 18))
(379 (:real . 18))
(380 (:rational . 18))
(381 (:integer . 18))
(382 (:exact-integer . 18))
(383 (:boolean . 18))
(384 (:symbol . 18))
(385 (:char . 18))
(386 (:null . 18))
(387 (:pair . 18))
(388 (:vector . 18))
(389 (:string . 18))
(390 (:procedure . 18))
(391 (:input-port . 18))
(392 (:output-port . 18))
(393 (:eof-object . 18))
(394 (:record . 18))
(395 (record-type-priority . 18))
(396 (:method-info . 18))
(397 (really-make-method-info . 18))
(398 (method-info-proc . 18))
(399 (method-info-n-ary? . 18))
(400 (method-info-types . 18))
(401 (method-info? . 18))
(402 (make-method-info . 18))
(403 (empty-method-list . 18))
(404 (insert-method . 18))
(405 (same-applicability? . 18))
(406 (every2 . 18))
(407 (more-specific? . 18))
(408 (more-specific-type? . 18))
(409 (:method-table . 18))
(410 (really-make-method-table . 18))
(411 (method-table-id . 18))
(412 (method-table-set-perform! . 18))
(413 (method-table-get-perform . 18))
(414 (make-generic . 18))
(415 (method-table-prototype . 18))
(416 (method-table-methods . 18))
(417 (set-method-table-methods! . 18))
(418 (method-table? . 18))
(419 (make-method-table . 18))
(420 (make-cell-for-generic . 18))
(421 (add-to-method-table! . 18))
(422 (set-final-method! . 18))
(423 (apply-generic . 18))
(424 (define-generic . 18))
(425 (methods->perform . 18))
(426 (last-action . 18))
(427 (one-action . 18))
(428 (argument-sequence-predicate . 18))
(429 (check-for-next . 18))
(430 (check-next . 18))
(431 (method-info . 18))
(432 (method-internal . 18))
(433 (with-next-method . 18))
(434 (define-method . 18))
(435 (&add-method! . 18))
(436 (add-method! . 18))
(437 (&type-predicate . 18))
(438 (type-predicate . 18))
(439 (&type-priority . 18))
(440 (type-priority . 18))
(441 (&type-superiors . 18))
(442 (type-superiors . 18))
(443 (&same-type? . 18))
(444 (same-type? . 18))
(445 (:singleton . 18))
(446 (singleton . 18))
(447 (singleton-value . 18))
(448 (compare-to . 18))
(449 (&disclose . 18))
(450 (disclose . 18))
(451 (proc->discloser . 18))
(452 (&number->string . 19))
(453 (number->string . 19))
(454 (integer->string . 19))
(455 (string->number . 19))
(456 (&really-string->number . 19))
(457 (really-string->number . 19))
(458 (:integer-string . 19))
(459 (set-exactness . 19))
(460 (string->integer . 19))
(461 (:thread . 20))
(462 (make-thread . 20))
(463 (thread-dynamic-env . 20))
(464 (current-thread . 20))
(465 (set-current-thread! . 20))
(466 (get-dynamic-env . 20))
(467 (set-dynamic-env! . 20))
(468 (initialize-dynamic-state! . 20))
(469 (with-dynamic-env . 20))
(470 (empty-dynamic-env . 20))
(471 (:fluid . 20))
(472 (make-fluid . 20))
(473 (fluid-top-level-value . 20))
(474 (set-fluid-top-level-value! . 20))
(475 (fluid . 20))
(476 (set-fluid! . 20))
(477 (let-fluid . 20))
(478 (let-fluids . 20))
(479 (fluid-lookup . 20))
(480 (dynamic-wind . 21))
(481 (call-with-current-continuation . 21))
(482 (continuation->procedure . 21))
(483 (:point . 21))
(484 (make-point . 21))
(485 (point-parent . 21))
(486 (point-dynamic-env . 21))
(487 (point-out . 21))
(488 (point-in . 21))
(489 (point-depth . 21))
(490 (root-point . 21))
(491 ($dynamic-point . 21))
(492 (get-dynamic-point . 21))
(493 (env-dynamic-point . 21))
(494 (let-dynamic-point . 21))
(495 (travel-to-point! . 21))
(496 ($current-input-port . 22))
(497 ($current-output-port . 22))
(498 ($error-output-port . 22))
(499 (current-input-port . 22))
(500 (current-output-port . 22))
(501 (error-output-port . 22))
(502 (with-initial-ports . 22))
(503 (call-with-mumble-file . 22))
(504 (call-with-input-file . 22))
(505 (call-with-output-file . 22))
(506 (with-input-from-file . 22))
(507 (with-output-to-file . 22))
(508 (newline . 22))
(509 (output-port-option . 22))
(510 (input-port-option . 22))
(511 (write . 31))
(512 (recurring-write . 31))
(513 (write-boolean . 31))
(514 (write-number . 31))
(515 (write-char-literal . 31))
(516 (character-name . 31))
(517 (write-string-literal . 31))
(518 (write-list . 31))
(519 (quotation? . 31))
(520 (write-vector . 31))
(521 (write-other . 31))
(522 (display-type-name . 31))
(523 (display . 31))
(524 (*condition-types* . 25))
(525 (condition-supertypes . 25))
(526 (define-condition-type . 25))
(527 (condition-predicate . 25))
(528 (condition? . 25))
(529 (condition-type . 25))
(530 (condition-stuff . 25))
(531 (error? . 25))
(532 (call-error? . 25))
(533 (read-error? . 25))
(534 (exception? . 25))
(535 (exception-opcode . 25))
(536 (exception-arguments . 25))
(537 (make-exception . 25))
(538 (warning? . 25))
(539 (syntax-error? . 25))
(540 (interrupt? . 25))
(541 (read . 32))
(542 (sub-read-carefully . 32))
(543 (reader-token-marker . 32))
(544 (make-reader-token . 32))
(545 (reader-token? . 32))
(546 (close-paren . 32))
(547 (dot . 32))
(548 (sub-read . 32))
(549 (read-dispatch-vector . 32))
(550 (read-terminating?-vector . 32))
(551 (set-standard-syntax! . 32))
(552 (set-standard-read-macro! . 32))
(553 (sub-read-list . 32))
(554 (gobble-line . 32))
(555 (*sharp-macros* . 32))
(556 (define-sharp-macro . 32))
(557 (sub-read-token . 32))
(558 (parse-token . 32))
(559 (strange-symbol-names . 32))
(560 (preferred-case . 32))
(561 (reading-error . 32))
(562 (script-skip . 32))
(563 (bel . 32))
(564 (bs . 32))
(565 (ff . 32))
(566 (cr . 32))
(567 (ht . 32))
(568 (vt . 32))
(569 (:table . 37))
(570 (really-make-table . 37))
(571 (table-set!-procedure . 37))
(572 (set-table-set!-procedure! . 37))
(573 (table-ref-procedure . 37))
(574 (set-table-ref-procedure! . 37))
(575 (table-data . 37))
(576 (set-table-data! . 37))
(577 (table-size . 37))
(578 (set-table-size! . 37))
(579 (table? . 37))
(580 (table-ref . 37))
(581 (table-set! . 37))
(582 (linear-table-size-limit . 37))
(583 (table-size-limit . 37))
(584 (next-table-size . 37))
(585 (make-table-maker . 37))
(586 (null-entry . 37))
(587 (new-entry . 37))
(588 (make-assoc . 37))
(589 (eq?-assoc . 37))
(590 (make-linear-table-ref . 37))
(591 (make-linear-table-set! . 37))
(592 (make->hash-table . 37))
(593 (make-hash-table-ref . 37))
(594 (make-hash-table-set! . 37))
(595 (expand-hash-table! . 37))
(596 (table-enter-alist! . 37))
(597 (table-expand-table! . 37))
(598 (table-walk . 37))
(599 (really-table-walk . 37))
(600 (alist-walk . 37))
(601 (make-table-immutable! . 37))
(602 (table->entry-list . 37))
(603 (default-table-hash-function . 37))
(604 (symbol-hash . 37))
(605 (make-table . 37))
(606 (make-string-table . 37))
(607 (make-symbol-table . 37))
(608 (make-integer-table . 37))
(609 (:meta-type . 39))
(610 (really-make-type . 39))
(611 (type-info . 39))
(612 (type-more . 39))
(613 (type-mask . 39))
(614 (meta-type? . 39))
(615 (make-type . 39))
(616 (name->type-table . 39))
(617 (mask->name-table . 39))
(618 (name->type . 39))
(619 (set-type-name! . 39))
(620 (*mask* . 39))
(621 (new-type-bit . 39))
(622 (mask->type . 39))
(623 (bottom-type . 39))
(624 (error-type . 39))
(625 (bottom-type? . 39))
(626 (new-atomic-type . 39))
(627 (named-atomic-type . 39))
(628 (syntax-type . 39))
(629 (other-static-type . 39))
(630 (empty-rail-type . 39))
(631 (rail-type . 39))
(632 (make-optional-type . 39))
(633 (make-rest-type . 39))
(634 (head-type . 39))
(635 (head-type-really . 39))
(636 (tail-type . 39))
(637 (empty-rail-type? . 39))
(638 (rest-type? . 39))
(639 (optional-type? . 39))
(640 (mask/no-values . 39))
(641 (mask/two-or-more . 39))
(642 (mask/&rest . 39))
(643 (value-type . 39))
(644 (mask/value . 39))
(645 (value-type? . 39))
(646 (any-values-type . 39))
(647 (any-arguments-type . 39))
(648 (mask/one-or-more . 39))
(649 (same-type? . 39))
(650 (subtype? . 39))
(651 (meet-type . 39))
(652 (other-type-info . 39))
(653 (p . 39))
(654 (meet-rail . 39))
(655 (meet-procedure . 39))
(656 (meet? . 39))
(657 (meet-procedure? . 39))
(658 (join-type . 39))
(659 (join-rail . 39))
(660 (join-procedure . 39))
(661 (number-hierarchy . 39))
(662 (integer-type . 39))
(663 (rational-type . 39))
(664 (real-type . 39))
(665 (complex-type . 39))
(666 (number-type . 39))
(667 (exact-type . 39))
(668 (inexact-type . 39))
(669 (exact-integer-type . 39))
(670 (boolean-type . 39))
(671 (pair-type . 39))
(672 (null-type . 39))
(673 (record-type . 39))
(674 (any-procedure-type . 39))
(675 (other-value-type . 39))
(676 (mask/other . 39))
(677 (make-other-type . 39))
(678 (char-type . 39))
(679 (unspecific-type . 39))
(680 (string-type . 39))
(681 (symbol-type . 39))
(682 (vector-type . 39))
(683 (escape-type . 39))
(684 (structure-type . 39))
(685 (mask/procedure . 39))
(686 (procedure-type . 39))
(687 (make-procedure-type . 39))
(688 (procedure-type-domain . 39))
(689 (procedure-type-codomain . 39))
(690 (restrictive? . 39))
(691 (sexp->type . 39))
(692 (sexp->values-type . 39))
(693 (type->sexp . 39))
(694 (atomic-type->sexp . 39))
(695 (rail-type->sexp . 39))
(696 (disjoin-type . 39))
(697 (disjoin-rest . 39))
(698 (mask/number . 39))
(699 (make-some-values-type . 39))
(700 (proc . 39))
(701 (some-values . 39))
(702 (procedure-type? . 39))
(703 (fixed-arity-procedure-type? . 39))
(704 (procedure-type-arity . 39))
(705 (procedure-type-argument-types . 39))
(706 (usual-operator-type . 41))
(707 (:operator . 41))
(708 (make-operator . 41))
(709 (operator-name . 41))
(710 (operator-uid . 41))
(711 (operator-nargs . 41))
(712 (operator-type . 41))
(713 (set-operator-type! . 41))
(714 (operator? . 41))
(715 (get-operator . 41))
(716 (*operator-uid* . 41))
(717 (operators-table . 41))
(718 (number-of-operators . 41))
(719 (the-operators . 41))
(720 (make-operator-table . 41))
(721 (operator-table-ref . 41))
(722 (operator-lookup . 41))
(723 (operator-define! . 41))
(724 (:node . 41))
(725 (really-make-node . 41))
(726 (node-plist . 41))
(727 (set-node-plist! . 41))
(728 (node-form . 41))
(729 (node-operator-id . 41))
(730 (node? . 41))
(731 (make-node . 41))
(732 (node-ref . 41))
(733 (node-set! . 41))
(734 (node-operator . 41))
(735 (node-predicate . 41))
(736 (make-similar-node . 41))
(737 (:generated . 41))
(738 (make-generated . 41))
(739 (generated-parent-name . 41))
(740 (generated-env . 41))
(741 (generated-token . 41))
(742 (generated-symbol . 41))
(743 (generated? . 41))
(744 (generate-name . 41))
(745 (generated-uid . 41))
(746 (*generated-uid* . 41))
(747 (name->symbol . 41))
(748 (name-hash . 41))
(749 (desyntaxify . 41))
(750 (:transform . 41))
(751 (really-make-transform . 41))
(752 (transform-id . 41))
(753 (transform-source . 41))
(754 (transform-aux-names . 41))
(755 (transform-type . 41))
(756 (transform-env . 41))
(757 (transform-procedure . 41))
(758 (transform? . 41))
(759 (make-transform . 41))
(760 (maybe-transform . 41))
(761 (bind-aliases . 41))
(762 (make-name-generator . 41))
(763 (same-denotation? . 41))
(764 (binding? . 41))
(765 (binding-type . 41))
(766 (binding-place . 41))
(767 (binding-static . 41))
(768 (set-binding-place! . 41))
(769 (make-binding . 41))
(770 (clobber-binding! . 41))
(771 (impose-type . 41))
(772 (forget-integration . 41))
(773 (classify . 41))
(774 (call-node? . 41))
(775 (name-node? . 41))
(776 (classify-literal . 41))
(777 (classify-call . 41))
(778 (classify-name . 41))
(779 (operator/name . 41))
(780 (classify-macro-application . 41))
(781 (classify-transform-application . 41))
(782 (maybe-transform-call . 41))
(783 (classify-operator-form . 41))
(784 (classifiers . 41))
(785 (define-classifier . 41))
(786 (unspecific-node . 41))
(787 (define-node? . 41))
(788 (define-syntax-node? . 41))
(789 (funny-name/source-file-name . 41))
(790 (bind-source-file-name . 41))
(791 (lookup . 41))
(792 (bind1 . 41))
(793 (bind . 41))
(794 (bindrec . 41))
(795 (literal? . 41))
(796 (number-of-required-args . 41))
(797 (n-ary? . 41))
(798 (normalize-formals . 41))
(799 (syntax? . 41))
(800 (name? . 41))
(801 (unbound? . 41))
(802 (define-usual-suspects . 41))
(803 (process-syntax . 41))
(804 (get-funny . 41))
(805 (funny-name/reflective-tower . 41))
(806 (reflective-tower . 41))
(807 (scan-body . 41))
(808 (scan-body-forms . 41))
(809 (body-lossage . 41))
(810 (begin-node? . 41))
(811 (variable-type . 41))
(812 (variable-type? . 41))
(813 (variable-value-type . 41))
(814 (compatible-types? . 41))
(815 (usual-variable-type . 41))
(816 (undeclared-type . 41))
(817 (funny-name/reader . 41))
(818 (environment-reader . 41))
(819 (schemify . 41))
(820 (schemify1 . 41))
(821 (schemifiers . 41))
(822 (define-schemifier . 41))
(823 (name->qualified . 41))
(824 (schemify-sexp . 41))
(825 (make-qualified . 41))
(826 (qualified? . 41))
(827 (qualified-parent-name . 41))
(828 (qualified-symbol . 41))
(829 (make-population . 35))
(830 (add-to-population! . 35))
(831 (weak-memq . 35))
(832 (population-reduce . 35))
(833 (population->list . 35))
(834 (walk-population . 35))
(835 (:interface . 40))
(836 (really-make-interface . 40))
(837 (interface-name . 40))
(838 (set-interface-name! . 40))
(839 (interface-clients . 40))
(840 (walk-method . 40))
(841 (ref-method . 40))
(842 (interface? . 40))
(843 (interface-ref . 40))
(844 (for-each-declaration . 40))
(845 (note-reference-to-interface! . 40))
(846 (make-interface . 40))
(847 (make-simple-interface . 40))
(848 (really-make-simple-interface . 40))
(849 (make-compound-interface . 40))
(850 (note-interface-name! . 40))
(851 (:structure . 44))
(852 (really-make-structure . 44))
(853 (structure-name . 44))
(854 (set-structure-name! . 44))
(855 (structure-clients . 44))
(856 (structure-package . 44))
(857 (structure-interface-really . 44))
(858 (set-structure-interface! . 44))
(859 (structure-interface-thunk . 44))
(860 (structure? . 44))
(861 (structure-interface . 44))
(862 (initialize-structure! . 44))
(863 (make-structure . 44))
(864 (structure-unstable? . 44))
(865 (for-each-export . 44))
(866 (note-structure-name! . 44))
(867 (:package . 44))
(868 (really-make-package . 44))
(869 (package-cached . 44))
(870 (package-clients . 44))
(871 (package-plist . 44))
(872 (set-package-plist! . 44))
(873 (package-accesses-thunk . 44))
(874 (package-opens-thunk . 44))
(875 (set-package-opens-thunk! . 44))
(876 (package->environment . 44))
(877 (set-package->environment! . 44))
(878 (package-loaded? . 44))
(879 (set-package-loaded?! . 44))
(880 (package-clauses . 44))
(881 (package-file-name . 44))
(882 (package-get-location . 44))
(883 (set-package-get-location! . 44))
(884 (package-integrate? . 44))
(885 (set-package-integrate?! . 44))
(886 (package-unstable? . 44))
(887 (package-definitions . 44))
(888 (package-opens-really . 44))
(889 (set-package-opens! . 44))
(890 (package-uid . 44))
(891 (package? . 44))
(892 (make-package . 44))
(893 (really-package->environment . 44))
(894 (new-package-uid . 44))
(895 (*package-uid* . 44))
(896 (package-name-table . 44))
(897 (package-name . 44))
(898 (note-package-name! . 44))
(899 (package-opens . 44))
(900 (initialize-package-if-necessary! . 44))
(901 (package-accesses . 44))
(902 (make-simple-package . 44))
(903 (package-definition . 44))
(904 (package-define! . 44))
(905 (really-package-define! . 44))
(906 (package-lookup . 44))
(907 (really-package-lookup . 44))
(908 (structure-lookup . 44))
(909 (generic-lookup . 44))
(910 (initialize-package! . 44))
(911 (define-funny-names! . 44))
(912 (package-define-funny! . 44))
(913 (funny-name/the-package . 44))
(914 (extract-package-from-environment . 44))
(915 (for-each-definition . 44))
(916 (get-new-location . 44))
(917 (make-new-location . 44))
(918 ($get-location . 44))
(919 (*location-uid* . 44))
(920 (location-info-table . 44))
(921 (flush-location-names . 44))
(922 (package-get . 44))
(923 (package-put! . 44))
(924 (package-note-caching . 44))
(925 (maybe-fix-place . 44))
(926 (follow-forwarding-pointers . 44))
(927 (environment-ref . 52))
(928 (environment-set! . 52))
(929 (environment-define! . 52))
(930 (*structure-ref . 52))
(931 (carefully . 52))
(932 ($interaction-environment . 52))
(933 (interaction-environment . 52))
(934 (set-interaction-environment! . 52))
(935 (with-interaction-environment . 52))
(936 (scheme-report-environment . 52))
(937 (*scheme-report-environment* . 52))
(938 (*scheme-report-number* . 52))
(939 (set-scheme-report-environment! . 52))
(940 (make-reflective-tower . 52))
(941 (set-reflective-tower-maker! . 52))
(942 (the-usual-transforms . 42))
(943 (define-usual-macro . 42))
(944 (usual-transform . 42))
(945 (long-enough? . 42))
(946 (process-rules . 42))
(947 (segment-pattern? . 42))
(948 (segment-template? . 42))
(949 (indicators-for-zero-or-more . 42))
(950 (find-free-names-in-syntax-rules . 42))
(951 (namestring . 38))
(952 (directory-component-separator . 38))
(953 (type-component-separator . 38))
(954 (namestring-component . 38))
(955 (file-name-preferred-case . 38))
(956 (*scheme-file-type* . 38))
(957 (*load-file-type* . 38))
(958 (file-name-directory . 38))
(959 (file-name-nondirectory . 38))
(960 (file-nondirectory-position . 38))
(961 (string-posq . 38))
(962 (*translations* . 38))
(963 (translations . 38))
(964 (set-translation! . 38))
(965 (translate . 38))
(966 ($note-file-package . 45))
(967 (scan-forms . 45))
(968 (scan-file . 45))
(969 (really-scan-file . 45))
(970 (scan-form-list . 45))
(971 (scan-form . 45))
(972 (process-define-syntax . 45))
(973 (scan-structures . 45))
(974 (really-scan-structures . 45))
(975 (scan-package . 45))
(976 (really-scan-package . 45))
(977 (optimize . 45))
(978 (check-structure . 45))
(979 (initialize-usual-transforms! . 45))
(980 (define-all-operators . 45))
(981 (make-define-primitive-node . 45))
(982 (optimizers-table . 45))
(983 (get-optimizer . 45))
(984 (set-optimizer! . 45))
(985 ($note-undefined . 45))
(986 (note-undefined! . 45))
(987 (noting-undefined-variables . 45))
(988 (really-noting-undefined-variables . 45))
(989 (define-enumeration . 23))
(990 (components . 23))
(991 (enum . 23))
(992 (enumerand->name . 23))
(993 (name->enumerand . 23))
(994 (lookup-enumerand . 23))
(995 (bits-used-per-byte . 24))
(996 (maximum-stack-args . 24))
(997 (define-instruction-set . 24))
(998 (op . 24))
(999 (op-enumeration . 24))
(1000 (op-count . 24))
(1001 (opcode-arg-specs . 24))
(1002 (interrupt . 24))
(1003 (interrupt-enumeration . 24))
(1004 (interrupt-count . 24))
(1005 (time-option . 24))
(1006 (time-option-enumeration . 24))
(1007 (time-option-count . 24))
(1008 (memory-status-option . 24))
(1009 (memory-status-option-enumeration . 24))
(1010 (memory-status-option-count . 24))
(1011 (stob . 24))
(1012 (stob-enumeration . 24))
(1013 (stob-count . 24))
(1014 (least-b-vector-type . 24))
(1015 (stob-data . 24))
(1016 (node-type . 43))
(1017 (reconstruct-type . 43))
(1018 (reconstruct . 43))
(1019 (reconstructors . 43))
(1020 (define-reconstructor . 43))
(1021 (careful-codomain . 43))
(1022 (reconstruct-body . 43))
(1023 (operator/name . 43))
(1024 (reconstruct-name . 43))
(1025 (reconstruct-call . 43))
(1026 (fork-constraints . 43))
(1027 (examine . 43))
(1028 (node->type . 43))
(1029 (call-node? . 43))
(1030 (name-node? . 43))
(1031 (begin-node? . 43))
(1032 (reconstruct-apply . 43))
(1033 (declare-operator-type . 43))
(1034 (constant-type . 43))
(1035 (template-overhead . 26))
(1036 (template-code . 26))
(1037 (template-info . 26))
(1038 (set-template-code! . 26))
(1039 (set-template-info! . 26))
(1040 (make-segment . 46))
(1041 (segment-size . 46))
(1042 (segment-emitter . 46))
(1043 (segment->template . 46))
(1044 (segment-data->template . 46))
(1045 (:assembly-state . 46))
(1046 (make-assembly-state . 46))
(1047 (astate-literals . 46))
(1048 (set-astate-literals! . 46))
(1049 (astate-count . 46))
(1050 (set-astate-count! . 46))
(1051 (astate-pc . 46))
(1052 (set-astate-pc! . 46))
(1053 (astate-code-vector . 46))
(1054 (make-astate . 46))
(1055 (emit-byte! . 46))
(1056 (emit-literal! . 46))
(1057 (emit-segment! . 46))
(1058 (empty-segment . 46))
(1059 (instruction . 46))
(1060 (sequentially . 46))
(1061 (sequentially-2 . 46))
(1062 (instruction-with-literal . 46))
(1063 (instruction-with-location . 46))
(1064 (instruction-with-template . 46))
(1065 (make-label . 46))
(1066 (instruction-using-label . 46))
(1067 (attach-label . 46))
(1068 (byte-limit . 46))
(1069 ($debug-data . 46))
(1070 (note-source-code . 46))
(1071 (note-environment . 46))
(1072 (emit-with-environment-maps! . 46))
(1073 ($environment-maps . 46))
(1074 (environment-maps-table . 46))
(1075 (new-template-uid . 46))
(1076 (*template-uid* . 46))
(1077 (template-uid . 46))
(1078 (set-template-uid! . 46))
(1079 (debug-flag-names . 46))
(1080 (type/debug-flags . 46))
(1081 (make-debug-flags . 46))
(1082 ($debug-flags . 46))
(1083 (debug-flag-accessor . 46))
(1084 (debug-flag-modifier . 46))
(1085 (keep-source-code? . 46))
(1086 (keep-environment-maps? . 46))
(1087 (keep-procedure-names? . 46))
(1088 (keep-file-names? . 46))
(1089 (tabulate-debug-data? . 46))
(1090 (debug-data-table . 46))
(1091 (with-fresh-compiler-state . 46))
(1092 (saving-and-restoring . 46))
(1093 (:debug-data . 46))
(1094 (make-debug-data . 46))
(1095 (debug-data-source . 46))
(1096 (set-debug-data-source! . 46))
(1097 (debug-data-env-maps . 46))
(1098 (set-debug-data-env-maps! . 46))
(1099 (debug-data-pc-in-parent . 46))
(1100 (debug-data-parent . 46))
(1101 (debug-data-name . 46))
(1102 (debug-data-uid . 46))
(1103 (debug-data? . 46))
(1104 (new-debug-data . 46))
(1105 (debug-data->info . 46))
(1106 (get-debug-data . 46))
(1107 (note-debug-data! . 46))
(1108 (interesting-debug-data? . 46))
(1109 (debug-data-names . 46))
(1110 (template-debug-data . 46))
(1111 (template-id . 46))
(1112 (template-name . 46))
(1113 (template-names . 46))
(1114 (compile-top . 47))
(1115 (compile . 47))
(1116 (compilators . 47))
(1117 (define-compilator . 47))
(1118 (compile-constant . 47))
(1119 (compile-begin . 47))
(1120 (compile-call . 47))
(1121 (lambda-node? . 47))
(1122 (compile-redex . 47))
(1123 (compile-unknown-call . 47))
(1124 (maybe-push-continuation . 47))
(1125 (push-arguments . 47))
(1126 (push-all-with-names . 47))
(1127 (compile-lambda . 47))
(1128 (compile-lambda-code . 47))
(1129 (compile-letrec . 47))
(1130 (compile-body . 47))
(1131 (operator/letrec . 47))
(1132 (make-cont . 47))
(1133 (cont-segment . 47))
(1134 (cont-source-info . 47))
(1135 (return-cont-segment . 47))
(1136 (return-cont . 47))
(1137 (return-cont? . 47))
(1138 (fall-through-cont . 47))
(1139 (fall-through-cont? . 47))
(1140 (ignore-values-segment . 47))
(1141 (ignore-values-cont . 47))
(1142 (ignore-values-cont? . 47))
(1143 (deliver-value . 47))
(1144 (named-cont . 47))
(1145 (cont-name . 47))
(1146 (bind-vars . 47))
(1147 (initial-cenv . 47))
(1148 (environment-level . 47))
(1149 (funny-name/lexical-level . 47))
(1150 (name-node-binding . 47))
(1151 (generate-trap . 47))
(1152 (careful-sequentially . 47))
(1153 (large-segment-size . 47))
(1154 (shrink-segment . 47))
(1155 (type-check . 47))
(1156 (set-type-check?! . 47))
(1157 (*type-check?* . 47))
(1158 (diagnose-call-error . 47))
(1159 (define-compiler-primitive . 47))
(1160 (closed-compilators . 47))
(1161 (define-closed-compilator . 47))
(1162 (get-closed-compilator . 47))
(1163 (direct-compilator . 47))
(1164 (direct-closed-compilator . 47))
(1165 (nargs->domain . 47))
(1166 (define-simple-primitive . 47))
(1167 (simple-compilator . 47))
(1168 (simple-closed-compilator . 47))
(1169 (symbol-append . 47))
(1170 (define-stob-predicate . 47))
(1171 (define-data-struct-primitives . 47))
(1172 (define-vector-primitives . 47))
(1173 (define-n-ary-compiler-primitive . 47))
(1174 (n-ary-primitive-compilator . 47))
(1175 (push-all-but-last . 47))
(1176 (compile-form . 47))
(1177 (compile-file . 47))
(1178 (compile-and-run-forms . 47))
(1179 (compile-and-run-file . 47))
(1180 (compile-and-run-scanned-forms . 47))
(1181 (compile-scanned-forms . 47))
(1182 (compile-scanned-form . 47))
(1183 (compile-definition . 47))
(1184 (get-location . 47))
(1185 (get-location-for-undefined . 47))
(1186 (get-location-for-unassignable . 47))
(1187 (package-accessor-on-demand . 47))
(1188 (location-on-demand . 47))
(1189 (package-undefineds . 47))
(1190 (location-for-reference . 47))
(1191 (package-undefined-but-assigneds . 47))
(1192 (location-for-assignment . 47))
(1193 (note-caching . 47))
(1194 (grumble . 47))
(1195 (make-startup-procedure . 47))
(1196 (an-ignore-values-cont . 47))
(1197 (eval . 53))
(1198 (load-into . 53))
(1199 (load-quietly . 53))
(1200 (eval-from-file . 53))
(1201 (eval-scanned-forms . 53))
(1202 (really-eval-scanned-forms . 53))
(1203 (invoke-template . 53))
(1204 (load . 53))
(1205 (:closure . 28))
(1206 (:code-vector . 28))
(1207 (:location . 28))
(1208 (:template . 28))
(1209 (continuation-cont . 27))
(1210 (continuation-pc . 27))
(1211 (continuation-template . 27))
(1212 (continuation-env . 27))
(1213 (continuation-overhead . 27))
(1214 (continuation-arg . 27))
(1215 (continuation-arg-count . 27))
(1216 (continuation-parent . 27))
(1217 (:continuation . 27))
(1218 (usual-exception-handler . 29))
(1219 (define-exception-handler . 29))
(1220 (signal-exception . 29))
(1221 (exception-handlers . 29))
(1222 (make-opcode-generic! . 29))
(1223 (really-signal-condition . 29))
(1224 (with-handler . 29))
(1225 ($condition-handlers . 29))
(1226 (initialize-exceptions! . 29))
(1227 (last-resort-condition-handler . 29))
(1228 (report-utter-lossage . 29))
(1229 (continuation-preview . 29))
(1230 (ignore-errors . 29))
(1231 (*wna-handlers* . 29))
(1232 (define-wna-handler . 29))
(1233 (op/check-nargs= . 29))
(1234 (wna-lose . 29))
(1235 (comparison-wna . 29))
(1236 (display-condition . 36))
(1237 (really-display-condition . 36))
(1238 (*depth* . 36))
(1239 (*length* . 36))
(1240 (&disclose-condition . 36))
(1241 (disclose-condition . 36))
(1242 (limited-write . 36))
(1243 (command-processor . 57))
(1244 (mini-load . 57))
(1245 (read-string . 57))
(1246 (interrupt-handlers . 30))
(1247 (initialize-interrupts! . 30))
(1248 (time-option/ticks-per-second . 30))
(1249 (one-second . 30))
(1250 (no-interrupts . 30))
(1251 (all-interrupts . 30))
(1252 (with-interrupts-inhibited . 30))
(1253 (with-interrupts-allowed . 30))
(1254 (with-interrupts . 30))
(1255 (enabled-interrupts . 30))
(1256 (interrupt-before-heap-overflow! . 30))
(1257 (interrupt/memory-shortage . 30))
(1258 (memory-status-option/set-minimum-recovered-space! . 30))
(1259 (memory-status-option/heap-size . 30))
(1260 (usual-resumer . 34))
(1261 (start . 58))
(1262 (make-built-in-structures . 58))
(1263 (initialize-interaction-environment! . 58))
(1264 (make-initial-package . 58))
(1265 (make-tower . 58))
(1266 (inline-transform . 51))
(1267 (make-substitution . 51))
(1268 (substitute . 51))
(1269 (operator/name . 51))
(1270 (qualified->name . 51))
(1271 (get-qualified-env . 51))
(1272 (operator . 55))
(1273 (simple-interface . 55))
(1274 (package . 55))
(1275 (transform . 55))
(1276 (:syntax . 49))
(1277 (:values . 49))
(1278 (:arguments . 49))
(1279 (:value . 49))
(1280 (procedure . 49))
(1281 (:boolean . 49))
(1282 (:char . 49))
(1283 (:null . 49))
(1284 (:unspecific . 49))
(1285 (:number . 49))
(1286 (:complex . 49))
(1287 (:real . 49))
(1288 (:rational . 49))
(1289 (:integer . 49))
(1290 (:exact-integer . 49))
(1291 (:pair . 49))
(1292 (:string . 49))
(1293 (:symbol . 49))
(1294 (:vector . 49))
(1295 (:procedure . 49))
(1296 (:input-port . 49))
(1297 (:output-port . 49))
(1298 (:error . 49))
(1299 (:escape . 49))
(1300 (:structure . 49))
(1301 (:type . 49))
(1302 (def . 48))
(1303 (really-def . 48))
(1304 (define-multiple . 48))
(1305 (define-interface . 48))
(1306 (export . 48))
(1307 (compound-interface . 48))
(1308 (define-structure . 48))
(1309 (define-structures . 48))
(1310 (structure . 48))
(1311 (structures . 48))
(1312 (a-package . 48))
(1313 (receive . 48))
(1314 (define-reflective-tower-maker . 48))
(1315 (export-reflective-tower-maker . 48))
(1316 (define-module . 48))
(1317 (make-a-package . 48))
(1318 (loser . 48))
(1319 (interface-of . 48))
(1320 (*verify-later!* . 48))
(1321 (verify-later! . 48))
(1322 (set-verify-later! . 48))
(1323 (note-name! . 48))
(1324 (ensure-loaded . 54))
(1325 (really-ensure-loaded . 54))
-
; Template uid -> name, parent, pc in parent, env maps
(1 current-cont 0 4 ())
(2 closure-template 0 12 ())
(3 continuation-ref 0 20 ())
(4 output-port? 0 28 ())
(5 closure? 0 36 ())
(6 complex? 0 44 ())
(7 arithmetic-shift 0 52 ())
(8 signal-condition 0 60 ())
(9 integer? 0 68 ())
(10 make-closure 0 76 ())
(11 template-ref 0 84 ())
(12 make-rectangular 0 92 ())
(13 string=? 0 100 ())
(14 extended-number? 0 108 ())
(15 reverse-list->string 0 116 ())
(16 denominator 0 124 ())
(17 call-with-values 0 132 ())
(18 weak-pointer-ref 0 140 ())
(19 find-all-symbols 0 148 ())
(20 code-vector? 0 156 ())
(21 pop 0 164 ())
(22 exp 0 172 ())
(23 sin 0 180 ())
(24 make-extended-number 0 188 ())
(25 cos 0 196 ())
(26 collect 0 204 ())
(27 external-lookup 0 212 ())
(28 tan 0 220 ())
(29 log 0 228 ())
(30 continuation-length 0 236 ())
(31 make-code-vector 0 244 ())
(33 cdr 32 4 ())
(34 bitwise-xor 32 12 ())
(35 car 32 20 ())
(36 string? 32 28 ())
(37 symbol? 32 36 ())
(38 set-cdr! 32 44 ())
(39 bitwise-not 32 52 ())
(40 vector? 32 60 ())
(41 closure-env 32 68 ())
(42 set-car! 32 76 ())
(43 bitwise-ior 32 84 ())
(44 number? 32 92 ())
(45 template-length 32 100 ())
(46 string-hash 32 108 ())
(47 pop-env 32 116 ())
(48 primitive-catch 32 124 ())
(49 make-string 32 132 ())
(50 input-port? 32 140 ())
(51 record? 32 148 ())
(52 make-vector 32 156 ())
(53 extended-number-set! 32 164 ())
(54 write-image 32 172 ())
(55 eq? 32 180 ())
(56 bitwise-and 32 188 ())
(57 location-id 32 196 ())
(58 code-vector-set! 32 204 ())
(59 set-location-id! 32 212 ())
(60 make-record 32 220 ())
(61 intern 32 228 ())
(62 values 32 236 ())
(63 string-set! 32 244 ())
(64 unassigned 32 252 ())
(65 vector-set! 32 260 ())
(66 extended-number-ref 32 268 ())
(67 unspecific 32 276 ())
(68 code-vector-ref 32 284 ())
(69 schedule-interrupt 32 292 ())
(70 find-all-xs 32 300 ())
(71 char-ready? 32 308 ())
(72 set-interrupt-handlers! 32 316 ())
(73 eof-object? 32 324 ())
(74 record-set! 32 332 ())
(75 ascii->char 32 340 ())
(76 char->ascii 32 348 ())
(77 set-enabled-interrupts! 32 356 ())
(78 external-value 32 364 ())
(79 make-immutable! 32 372 ())
(80 close-port 32 380 ())
(81 string-ref 32 388 ())
(82 immutable? 32 396 ())
(83 vector-ref 32 404 ())
(84 exact? 32 412 ())
(85 write-char 32 420 ())
(86 symbol->string 32 428 ())
(87 make-polar 32 436 ())
(88 record-ref 32 444 ())
(89 numerator 32 452 ())
(90 extended-number-length 32 460 ())
(91 error 32 468 ())
(92 exact->inexact 32 476 ())
(93 inexact->exact 32 484 ())
(94 apply 32 492 ())
(95 memory-status 32 500 ())
(97 code-vector-length 96 4 ())
(98 floor 96 12 ())
(99 with-continuation 96 20 ())
(100 magnitude 96 28 ())
(101 nargs 96 36 ())
(102 char=? 96 44 ())
(103 char<? 96 52 ())
(104 continuation? 96 60 ())
(105 remainder 96 68 ())
(106 vm-return 96 76 ())
(107 false 96 84 ())
(108 angle 96 92 ())
(109 open-port 96 100 ())
(110 string-length 96 108 ())
(111 external? 96 116 ())
(112 make-continuation 96 124 ())
(113 vector-length 96 132 ())
(114 template? 96 140 ())
(115 rational? 96 148 ())
(116 location? 96 156 ())
(117 external-name 96 164 ())
(118 set-exception-handler! 96 172 ())
(119 pair? 96 180 ())
(120 make-external 96 188 ())
(121 record-length 96 196 ())
(122 external-call 96 204 ())
(123 set-dynamic-state! 96 212 ())
(124 get-cont-from-heap 96 220 ())
(125 real-part 96 228 ())
(126 real? 96 236 ())
(127 make-template 96 244 ())
(128 imag-part 96 252 ())
(129 make-location 96 260 ())
(130 = 96 268 ())
(131 < 96 276 ())
(132 char? 96 284 ())
(133 quotient 96 292 ())
(134 / 96 300 ())
(135 weak-pointer? 96 308 ())
(136 - 96 316 ())
(137 continuation-set! 96 324 ())
(138 peek-char 96 332 ())
(139 + 96 340 ())
(140 * 96 348 ())
(141 contents 96 356 ())
(142 sqrt 96 364 ())
(143 read-char 96 372 ())
(144 set-contents! 96 380 ())
(145 push 96 388 ())
(146 make-weak-pointer 96 396 ())
(147 get-dynamic-state 96 404 ())
(148 trap 96 412 ())
(149 cons 96 420 ())
(150 template-set! 96 428 ())
(151 time 96 436 ())
(152 location-defined? 96 444 ())
(153 asin 96 452 ())
(154 write-string 96 460 ())
(155 vm-extension 96 468 ())
(156 force-output 96 476 ())
(157 acos 96 484 ())
(158 set-location-defined?! 96 492 ())
(159 atan 96 500 ())
(161 char->integer 160 4 ())
(162 integer->char 160 12 ())
(163 invoke-closure 160 44 ())
(164 primitive-cwcc 160 52 ())
(165 #f 164 7 ())
(166 make-undefined-location 160 60 ())
(167 vector-unassigned? 160 68 ())
(168 string-copy 160 76 ())
(169 loop 168 24 ())
(170 string->symbol 160 84 ())
(171 flush-the-symbol-table! 160 99 ())
(172 restore-the-symbol-table! 160 107 ())
(173 maybe-open-input-file 160 127 ())
(174 maybe-open-output-file 160 135 ())
(175 open-input-file 160 143 ())
(176 open-output-file 160 151 ())
(178 signal 177 12 ())
(179 warn 177 20 ())
(180 syntax-error 177 28 ())
(181 call-error 177 36 ())
(183 not 182 4 ())
(184 boolean? 182 12 ())
(185 eqv? 182 20 ())
(186 equal? 182 28 ())
(187 loop 186 141 ())
(188 > 182 36 ())
(189 <= 182 44 ())
(190 >= 182 52 ())
(191 max 182 60 ())
(192 #f 191 8 ())
(193 min 182 68 ())
(194 #f 193 8 ())
(195 abs 182 76 ())
(196 zero? 182 84 ())
(197 positive? 182 92 ())
(198 negative? 182 100 ())
(199 even? 182 108 ())
(200 odd? 182 116 ())
(201 caar 182 124 ())
(202 cadr 182 132 ())
(203 cdar 182 140 ())
(204 cddr 182 148 ())
(205 caaar 182 156 ())
(206 caadr 182 164 ())
(207 cadar 182 172 ())
(208 caddr 182 180 ())
(209 cdaar 182 188 ())
(210 cdadr 182 196 ())
(211 cddar 182 204 ())
(212 cdddr 182 212 ())
(213 caaaar 182 220 ())
(214 caaadr 182 228 ())
(215 caadar 182 236 ())
(216 caaddr 182 244 ())
(217 cadaar 182 252 ())
(218 cadadr 182 260 ())
(219 caddar 182 268 ())
(220 cadddr 182 276 ())
(221 cdaaar 182 284 ())
(222 cdaadr 182 292 ())
(223 cdadar 182 300 ())
(224 cdaddr 182 308 ())
(225 cddaar 182 316 ())
(226 cddadr 182 324 ())
(227 cdddar 182 332 ())
(228 cddddr 182 340 ())
(229 null? 182 348 ())
(230 list 182 356 ())
(231 length 182 364 ())
(232 #f 231 5 ())
(233 append 182 372 ())
(234 recur 233 22 ())
(235 reverse 182 380 ())
(236 append-reverse 182 388 ())
(237 list-tail 182 396 ())
(238 list-ref 182 404 ())
(239 mem 182 412 ())
(240 #f 239 5 ())
(241 loop 240 9 ())
(243 ass 242 4 ())
(244 #f 243 5 ())
(245 loop 244 9 ())
(246 assq 242 46 ())
(247 list? 242 54 ())
(248 recur 247 9 ())
(249 char>? 242 62 ())
(250 char>=? 242 70 ())
(251 char<=? 242 78 ())
(252 char-whitespace? 242 86 ())
(253 char-lower-case? 242 94 ())
(254 char-upper-case? 242 102 ())
(255 char-numeric? 242 110 ())
(256 char-alphabetic? 242 118 ())
(257 char-upcase 242 140 ())
(258 char-downcase 242 148 ())
(259 char-ci-compare 242 156 ())
(260 #f 259 5 ())
(261 string 242 249 ())
(262 substring 242 257 ())
(263 loop##0 262 22 ())
(264 string-append 242 265 ())
(265 #f 264 10 ())
(266 loop 264 39 ())
(267 loop##1 266 35 ())
(268 string->list 242 273 ())
(269 loop##2 268 15 ())
(270 list->string 242 281 ())
(271 loop##3 270 27 ())
(272 string-fill! 242 289 ())
(273 loop##4 272 15 ())
(274 make-string=? 242 297 ())
(275 #f 274 5 ())
(276 loop 275 25 ())
(277 make-string<? 242 322 ())
(278 #f 277 5 ())
(279 loop 278 36 ())
(280 string>? 242 370 ())
(281 string<=? 242 378 ())
(282 string>=? 242 386 ())
(283 string-ci>? 242 394 ())
(284 string-ci<=? 242 402 ())
(285 string-ci>=? 242 410 ())
(286 vector 242 418 ())
(287 vector->list 242 426 ())
(288 loop##5 287 9 ())
(289 list->vector 242 434 ())
(290 loop##6 289 27 ())
(291 vector-fill! 242 442 ())
(292 loop##7 291 16 ())
(293 map 242 450 ())
(294 map1 242 458 ())
(295 map2+ 242 466 ())
(296 for-each 242 474 ())
(297 loop 296 12 ())
(298 make-promise 242 483 ())
(299 #f 298 11 ())
(300 force 242 491 ())
(302 unspecific 301 4 ())
(303 reduce 301 12 ())
(304 filter 301 20 ())
(305 #f 304 5 ())
(306 pos 301 28 ())
(307 #f 306 5 ())
(308 loop 307 9 ())
(309 any 301 87 ())
(310 every 301 95 ())
(311 sublist 301 103 ())
(312 recur 311 42 ())
(313 last 301 111 ())
(314 insert 301 119 ())
(316 inexact? 315 4 ())
(317 modulo 315 12 ())
(318 ceiling 315 20 ())
(319 truncate 315 28 ())
(320 round 315 36 ())
(321 gcd 315 44 ())
(322 #f 321 6 ())
(323 euclid 315 52 ())
(324 lcm 315 60 ())
(325 #f 324 6 ())
(326 expt 315 68 ())
(327 raise-to-integer-power 315 76 ())
(328 loop 327 21 ())
(330 rationalize 329 4 ())
(331 simplest-rational 329 12 ())
(332 simplest-rational-internal 331 9 ())
(334 record-type 333 4 ())
(335 make-record-type 333 27 ())
(336 record-type? 333 35 ())
(337 record-type-uid 333 43 ())
(338 record-type-name 333 51 ())
(339 record-type-field-names 333 59 ())
(340 record-type-discloser 333 67 ())
(341 record-field-index 333 75 ())
(342 loop 341 9 ())
(343 record-constructor 333 83 ())
(344 #f 343 9 ())
(345 #f 343 43 ())
(346 loop 345 30 ())
(347 record-accessor 333 91 ())
(348 #f 347 55 ())
(349 record-modifier 333 99 ())
(350 #f 349 55 ())
(351 record-predicate 333 107 ())
(352 #f 351 5 ())
(353 define-record-discloser 333 115 ())
(354 disclose-record 333 123 ())
(355 default-record-discloser 333 131 ())
(359 simple-type-id 358 44 ())
(360 simple-type-priority 358 52 ())
(361 simple-type-predicate 358 60 ())
(362 simple-type-superiors 358 68 ())
(364 make-simple-type 358 108 ())
(365 compute-priority 358 116 ())
(366 %type-priority 358 132 ())
(367 %type-predicate 358 140 ())
(368 %same-type? 358 148 ())
(369 value? 358 213 ())
(374 record-type-priority 373 40 ())
(375 method-info-proc 373 89 ())
(376 method-info-n-ary? 373 97 ())
(377 method-info-types 373 105 ())
(378 make-method-info 373 130 ())
(380 empty-method-list 373 153 ())
(381 insert-method 373 161 ())
(382 recur 381 9 ())
(383 same-applicability? 373 169 ())
(384 every2 373 177 ())
(385 more-specific? 373 185 ())
(386 loop 385 106 ())
(387 more-specific-type? 373 193 ())
(388 method-table-id 373 241 ())
(389 method-table-set-perform! 373 249 ())
(390 method-table-get-perform 373 257 ())
(391 make-generic 373 265 ())
(392 method-table-prototype 373 273 ())
(393 method-table-methods 373 281 ())
(394 set-method-table-methods! 373 289 ())
(396 make-method-table 373 329 ())
(397 #f 396 48 ())
(398 #f 396 70 ())
(399 make-cell-for-generic 373 337 ())
(400 #f 399 7 ())
(401 #f 399 10 ())
(402 #f 399 13 ())
(403 add-to-method-table! 373 345 ())
(404 set-final-method! 373 353 ())
(405 apply-generic 373 361 ())
(406 methods->perform 373 370 ())
(407 recur 406 9 ())
(408 last-action 373 378 ())
(409 #f 408 5 ())
(410 one-action 373 386 ())
(411 #f 410 5 ())
(412 #f 411 19 ())
(413 argument-sequence-predicate 373 394 ())
(414 recur 413 9 ())
(415 check-for-next 373 402 ())
(416 #f 415 5 ())
(417 check-next 373 410 ())
(418 #f 417 5 ())
(419 add-method! 373 468 ())
(421 add-method! 420 57 ())
(422 type-predicate 420 130 ())
(423 &type-predicate 420 207 ())
(424 &type-predicate 420 269 ())
(425 type-priority 420 334 ())
(426 &type-priority 420 411 ())
(427 &type-priority 420 473 ())
(429 type-superiors 428 47 ())
(430 &type-superiors 428 124 ())
(431 &type-superiors 428 186 ())
(432 same-type? 428 254 ())
(433 &same-type? 428 334 ())
(434 &same-type? 428 399 ())
(436 singleton-value 435 4 ())
(438 compare-to 435 27 ())
(439 #f 438 5 ())
(440 &type-predicate 435 75 ())
(441 &type-priority 435 137 ())
(442 &same-type? 435 202 ())
(443 disclose 435 267 ())
(444 &disclose 435 344 ())
(445 &disclose 435 406 ())
(446 &add-method! 435 480 ())
(447 proc->discloser 435 502 ())
(448 #f 447 5 ())
(449 #f 448 5 ())
(452 &number->string 451 44 ())
(453 &number->string 451 109 ())
(454 &number->string 451 174 ())
(455 integer->digit 451 226 ())
(456 integer->string 451 231 ())
(457 recur 456 36 ())
(458 string->number 451 245 ())
(459 loop 458 159 ())
(460 radix-is 459 69 ())
(461 exactness-is 459 72 ())
(462 loop 459 233 ())
(463 &really-string->number 451 329 ())
(465 loop 464 16 ())
(466 &really-string->number 451 429 ())
(467 set-exactness 451 451 ())
(468 digit->integer 451 491 ())
(469 do-it 451 496 ())
(470 loop 469 35 ())
(471 string->integer 451 501 ())
(473 thread-dynamic-env 472 44 ())
(474 current-thread 472 52 ())
(475 set-current-thread! 472 60 ())
(476 get-dynamic-env 472 68 ())
(477 set-dynamic-env! 472 76 ())
(478 initialize-dynamic-state! 472 84 ())
(479 with-dynamic-env 472 92 ())
(480 #f 479 27 ())
(481 empty-dynamic-env 472 100 ())
(482 fluid-top-level-value 472 148 ())
(483 set-fluid-top-level-value! 472 156 ())
(484 fluid 472 164 ())
(485 set-fluid! 472 172 ())
(486 let-fluid 472 180 ())
(487 let-fluids 472 188 ())
(488 loop 487 10 ())
(489 fluid-lookup 472 196 ())
(491 dynamic-wind 490 4 ())
(492 #f 491 85 ())
(493 call-with-current-continuation 490 12 ())
(494 #f 493 5 ())
(495 continuation->procedure 490 20 ())
(496 #f 495 5 ())
(497 #f 496 54 ())
(498 point-parent 490 68 ())
(499 point-dynamic-env 490 76 ())
(500 point-out 490 84 ())
(501 point-in 490 92 ())
(502 point-depth 490 100 ())
(505 get-dynamic-point 490 153 ())
(506 env-dynamic-point 490 161 ())
(507 let-dynamic-point 490 169 ())
(508 travel-to-point! 490 177 ())
(510 current-input-port 509 52 ())
(511 current-output-port 509 60 ())
(512 error-output-port 509 68 ())
(513 with-initial-ports 509 76 ())
(514 call-with-mumble-file 509 84 ())
(515 #f 514 5 ())
(516 #f 515 9 ())
(517 #f 515 12 ())
(518 #f 515 15 ())
(519 with-input-from-file 509 132 ())
(520 #f 519 8 ())
(521 with-output-to-file 509 140 ())
(522 #f 521 8 ())
(523 newline 509 148 ())
(524 output-port-option 509 156 ())
(525 input-port-option 509 164 ())
(527 write 526 4 ())
(528 recur 527 26 ())
(529 recurring-write 526 12 ())
(530 write-boolean 526 20 ())
(531 write-number 526 28 ())
(532 write-char-literal 526 36 ())
(533 character-name 526 44 ())
(534 write-string-literal 526 52 ())
(535 loop##8 534 21 ())
(536 write-list 526 60 ())
(537 loop 536 67 ())
(538 quotation? 526 68 ())
(539 write-vector 526 76 ())
(540 loop 539 52 ())
(541 write-other 526 84 ())
(542 #f 541 57 ())
(543 display-type-name 526 92 ())
(544 loop##9 543 80 ())
(545 display 526 100 ())
(546 recur 545 26 ())
(548 condition-supertypes 547 12 ())
(549 define-condition-type 547 20 ())
(550 #f 549 19 ())
(551 condition-predicate 547 28 ())
(552 #f 551 5 ())
(553 condition? 547 36 ())
(554 make-exception 547 204 ())
(556 read 555 4 ())
(557 loop 556 24 ())
(558 sub-read-carefully 555 12 ())
(559 make-reader-token 555 37 ())
(560 reader-token? 555 45 ())
(561 sub-read 555 81 ())
(563 set-standard-syntax! 555 115 ())
(564 sub-read-whitespace 555 124 ())
(566 sub-read-constituent 555 144 ())
(568 set-standard-read-macro! 555 184 ())
(569 sub-read-list 555 192 ())
(575 loop 574 11 ())
(577 gobble-line 555 326 ())
(578 loop 577 9 ())
(579 define-sharp-macro 555 342 ())
(585 number-sharp-macro 555 432 ())
(587 sub-read-token 555 451 ())
(588 loop 587 9 ())
(589 parse-token 555 459 ())
(590 reading-error 555 504 ())
(592 script-skip 591 4 ())
(593 lp 592 12 ())
(594 advance-if 593 5 ())
(595 preferred-case 591 28 ())
(596 parse-token 591 36 ())
(599 readc 598 7 ())
(600 read-digit 598 12 ())
(601 loop 598 21 ())
(603 table-set!-procedure 602 44 ())
(604 set-table-set!-procedure! 602 52 ())
(605 table-ref-procedure 602 60 ())
(606 set-table-ref-procedure! 602 68 ())
(607 table-data 602 76 ())
(608 set-table-data! 602 84 ())
(609 table-size 602 92 ())
(610 set-table-size! 602 100 ())
(611 table-ref 602 125 ())
(612 table-set! 602 133 ())
(613 next-table-size 602 157 ())
(614 make-table-maker 602 165 ())
(615 #f 614 67 ())
(616 new-entry 602 180 ())
(617 make-assoc 602 188 ())
(618 #f 617 17 ())
(619 loop 618 9 ())
(620 eq?-assoc 602 196 ())
(621 loop 620 9 ())
(622 make-linear-table-ref 602 204 ())
(623 #f 622 5 ())
(624 make-linear-table-set! 602 212 ())
(625 #f 624 5 ())
(626 make->hash-table 602 220 ())
(627 #f 626 37 ())
(628 make-hash-table-ref 602 228 ())
(629 #f 628 5 ())
(630 make-hash-table-set! 602 236 ())
(631 #f 630 5 ())
(632 expand-hash-table! 602 244 ())
(633 loop##10 632 43 ())
(634 table-enter-alist! 602 252 ())
(635 loop##11 634 19 ())
(636 table-expand-table! 602 260 ())
(637 table-walk 602 268 ())
(638 #f 637 5 ())
(639 really-table-walk 602 276 ())
(640 loop##12 639 62 ())
(641 alist-walk 602 284 ())
(642 loop##13 641 9 ())
(643 make-table-immutable! 602 292 ())
(644 table->entry-list 602 300 ())
(645 #f 644 14 ())
(646 default-table-hash-function 602 308 ())
(647 symbol-hash 602 316 ())
(648 make-table 602 345 ())
(651 type-info 650 44 ())
(652 type-more 650 52 ())
(653 type-mask 650 60 ())
(655 make-type 650 100 ())
(656 name->type 650 136 ())
(657 set-type-name! 650 144 ())
(658 new-type-bit 650 160 ())
(659 mask->type 650 168 ())
(660 bottom-type? 650 205 ())
(662 new-atomic-type 661 19 ())
(663 named-atomic-type 661 27 ())
(664 rail-type 661 80 ())
(665 make-optional-type 661 88 ())
(666 make-rest-type 661 96 ())
(667 head-type 661 104 ())
(668 head-type-really 661 112 ())
(669 tail-type 661 120 ())
(670 empty-rail-type? 661 128 ())
(671 rest-type? 661 136 ())
(672 optional-type? 661 144 ())
(673 value-type? 661 268 ())
(674 same-type? 661 328 ())
(675 subtype? 661 336 ())
(676 meet-type 661 344 ())
(677 other-type-info 661 352 ())
(678 p 661 360 ())
(679 meet-rail 661 368 ())
(680 meet-procedure 661 376 ())
(681 meet? 661 384 ())
(682 meet-procedure? 661 392 ())
(683 join-type 661 400 ())
(684 join-rail 661 408 ())
(685 join-procedure 661 416 ())
(686 loop 661 437 ())
(688 make-other-type 687 222 ())
(689 procedure-type 687 362 ())
(690 make-procedure-type 687 370 ())
(691 procedure-type-domain 687 378 ())
(692 procedure-type-codomain 687 386 ())
(693 restrictive? 687 394 ())
(694 sexp->type 687 402 ())
(695 #f 694 234 ())
(696 #f 694 282 ())
(697 sexp->values-type 687 410 ())
(698 type->sexp 687 418 ())
(699 #f 698 122 ())
(700 atomic-type->sexp 687 426 ())
(701 rail-type->sexp 687 434 ())
(702 recur 701 9 ())
(703 disjoin-type 687 442 ())
(704 loop##14 703 228 ())
(705 disjoin-rest 687 450 ())
(706 make-some-values-type 687 471 ())
(707 procedure-type? 687 481 ())
(708 fixed-arity-procedure-type? 687 489 ())
(709 loop 708 23 ())
(710 procedure-type-arity 687 497 ())
(711 loop##15 710 9 ())
(712 procedure-type-argument-types 687 505 ())
(713 recur 712 9 ())
(716 operator-name 715 4 ())
(717 operator-uid 715 12 ())
(718 operator-nargs 715 20 ())
(719 operator-type 715 28 ())
(720 set-operator-type! 715 36 ())
(722 get-operator 715 76 ())
(723 make-operator-table 715 126 ())
(724 operator-lookup 715 142 ())
(725 operator-define! 715 150 ())
(726 node-plist 715 198 ())
(727 set-node-plist! 715 206 ())
(728 node-form 715 214 ())
(729 node-operator-id 715 222 ())
(731 make-node 715 262 ())
(732 node-ref 715 270 ())
(733 node-set! 715 278 ())
(734 loop 733 78 ())
(735 node-operator 715 286 ())
(736 node-predicate 715 294 ())
(737 #f 736 30 ())
(738 make-similar-node 715 302 ())
(739 generated-parent-name 715 350 ())
(740 generated-env 715 358 ())
(741 generated-token 715 366 ())
(742 generated-symbol 715 374 ())
(744 generate-name 715 414 ())
(745 generated-uid 715 422 ())
(746 name->symbol 715 438 ())
(747 name-hash 715 446 ())
(748 desyntaxify 715 454 ())
(749 loop 748 237 ())
(751 transform-id 750 4 ())
(752 transform-source 750 12 ())
(753 transform-aux-names 750 20 ())
(754 transform-type 750 28 ())
(755 transform-env 750 36 ())
(756 transform-procedure 750 44 ())
(757 make-transform 750 69 ())
(759 maybe-transform 750 92 ())
(760 compare 759 67 ())
(761 bind-aliases 750 100 ())
(762 #f 761 22 ())
(763 make-name-generator 750 108 ())
(764 #f 763 10 ())
(765 same-denotation? 750 116 ())
(766 binding-type 750 132 ())
(767 binding-place 750 140 ())
(768 binding-static 750 148 ())
(769 set-binding-place! 750 156 ())
(770 make-binding 750 164 ())
(771 clobber-binding! 750 172 ())
(772 impose-type 750 180 ())
(773 forget-integration 750 188 ())
(774 classify 750 196 ())
(775 classify-literal 750 265 ())
(776 classify-call 750 295 ())
(777 classify-name 750 304 ())
(778 classify-macro-application 750 332 ())
(779 #f 778 14 ())
(780 classify-transform-application 750 361 ())
(781 #f 780 5 ())
(782 maybe-transform-call 750 370 ())
(783 #f 782 108 ())
(784 classify-operator-form 750 378 ())
(786 define-classifier 750 403 ())
(789 unspecific-node 750 492 ())
(793 lose 792 26 ())
(795 bind-source-file-name 790 198 ())
(796 lookup 790 206 ())
(797 bind1 790 214 ())
(798 #f 797 5 ())
(799 bind 790 222 ())
(800 bindrec 790 230 ())
(801 #f 800 16 ())
(802 literal? 790 238 ())
(803 number-of-required-args 790 246 ())
(804 loop##16 803 9 ())
(805 n-ary? 790 254 ())
(806 normalize-formals 790 262 ())
(807 syntax? 790 270 ())
(808 name? 790 278 ())
(809 define-usual-suspects 790 294 ())
(810 #f 809 22 ())
(811 #f 810 61 ())
(812 #f 809 52 ())
(813 #f 812 57 ())
(814 #f 813 5 ())
(815 #f 809 78 ())
(816 process-syntax 790 302 ())
(817 get-funny 790 310 ())
(818 reflective-tower 790 335 ())
(819 scan-body 790 343 ())
(820 #f 819 58 ())
(821 scan-body-forms 790 351 ())
(822 #f 821 171 ())
(823 body-lossage 790 359 ())
(824 variable-type 790 387 ())
(825 variable-type? 790 395 ())
(826 compatible-types? 790 411 ())
(827 environment-reader 790 464 ())
(829 schemify 828 4 ())
(830 schemify1 828 12 ())
(833 define-schemifier 828 37 ())
(836 name->qualified 828 87 ())
(837 recur 836 83 ())
(841 schemify-sexp 828 116 ())
(842 loop 841 136 ())
(843 make-qualified 828 124 ())
(844 qualified? 828 132 ())
(845 qualified-parent-name 828 140 ())
(846 qualified-symbol 828 148 ())
(848 make-population 847 4 ())
(849 add-to-population! 847 12 ())
(850 weak-memq 847 20 ())
(851 population-reduce 847 28 ())
(852 loop##17 851 9 ())
(853 population->list 847 36 ())
(854 walk-population 847 44 ())
(855 #f 854 5 ())
(857 interface-name 856 44 ())
(858 set-interface-name! 856 52 ())
(859 interface-clients 856 60 ())
(860 walk-method 856 68 ())
(861 ref-method 856 76 ())
(863 interface-ref 856 116 ())
(864 for-each-declaration 856 124 ())
(865 note-reference-to-interface! 856 132 ())
(866 make-interface 856 140 ())
(867 make-simple-interface 856 148 ())
(868 #f 867 23 ())
(869 #f 868 58 ())
(870 really-make-simple-interface 856 156 ())
(871 #f 870 5 ())
(872 #f 870 8 ())
(873 make-compound-interface 856 164 ())
(874 #f 873 12 ())
(875 loop 874 9 ())
(876 #f 873 15 ())
(877 #f 876 5 ())
(878 #f 873 32 ())
(879 note-interface-name! 856 172 ())
(881 structure-name 880 44 ())
(882 set-structure-name! 880 52 ())
(883 structure-clients 880 60 ())
(884 structure-package 880 68 ())
(885 structure-interface-really 880 76 ())
(886 set-structure-interface! 880 84 ())
(887 structure-interface-thunk 880 92 ())
(889 structure-interface 880 132 ())
(890 initialize-structure! 880 140 ())
(891 make-structure 880 148 ())
(892 #f 891 75 ())
(893 structure-unstable? 880 156 ())
(894 for-each-export 880 164 ())
(895 #f 894 19 ())
(896 note-structure-name! 880 172 ())
(897 package-cached 880 220 ())
(899 package-clients 898 4 ())
(900 package-plist 898 12 ())
(901 set-package-plist! 898 20 ())
(902 package-accesses-thunk 898 28 ())
(903 package-opens-thunk 898 36 ())
(904 set-package-opens-thunk! 898 44 ())
(905 package->environment 898 52 ())
(906 set-package->environment! 898 60 ())
(907 package-loaded? 898 68 ())
(908 set-package-loaded?! 898 76 ())
(909 package-clauses 898 84 ())
(910 package-file-name 898 92 ())
(911 package-get-location 898 100 ())
(912 set-package-get-location! 898 108 ())
(913 package-integrate? 898 116 ())
(914 set-package-integrate?! 898 124 ())
(915 package-unstable? 898 132 ())
(916 package-definitions 898 140 ())
(917 package-opens-really 898 148 ())
(918 set-package-opens! 898 156 ())
(919 package-uid 898 164 ())
(921 make-package 898 204 ())
(922 really-package->environment 898 212 ())
(923 #f 922 5 ())
(924 new-package-uid 898 220 ())
(925 package-name 898 250 ())
(926 note-package-name! 898 258 ())
(927 package-opens 898 266 ())
(928 initialize-package-if-necessary! 898 274 ())
(929 package-accesses 898 282 ())
(930 make-simple-package 898 290 ())
(931 #f 930 60 ())
(932 #f 930 63 ())
(933 package-definition 898 298 ())
(934 package-define! 898 306 ())
(935 really-package-define! 898 314 ())
(936 package-lookup 898 322 ())
(937 really-package-lookup 898 330 ())
(938 loop 937 80 ())
(939 structure-lookup 898 338 ())
(940 generic-lookup 898 346 ())
(941 initialize-package! 898 354 ())
(942 #f 941 35 ())
(943 #f 941 46 ())
(944 define-funny-names! 898 362 ())
(945 package-define-funny! 898 370 ())
(946 extract-package-from-environment 898 395 ())
(947 for-each-definition 898 403 ())
(948 #f 947 5 ())
(949 get-new-location 898 411 ())
(950 make-new-location 898 419 ())
(951 flush-location-names 898 466 ())
(952 package-get 898 474 ())
(953 package-put! 898 482 ())
(954 package-note-caching 898 490 ())
(955 loop 954 54 ())
(956 maybe-fix-place 898 498 ())
(957 follow-forwarding-pointers 898 506 ())
(959 environment-ref 958 4 ())
(960 environment-set! 958 12 ())
(961 #f 960 98 ())
(962 environment-define! 958 20 ())
(963 *structure-ref 958 28 ())
(964 carefully 958 36 ())
(965 interaction-environment 958 60 ())
(966 set-interaction-environment! 958 68 ())
(967 with-interaction-environment 958 76 ())
(968 scheme-report-environment 958 84 ())
(969 set-scheme-report-environment! 958 107 ())
(970 make-reflective-tower 958 115 ())
(971 recur 970 9 ())
(972 #f 971 5 ())
(973 set-reflective-tower-maker! 958 141 ())
(975 define-usual-macro 974 18 ())
(976 #f 975 11 ())
(977 usual-transform 974 26 ())
(978 long-enough? 974 34 ())
(981 recur 980 16 ())
(990 interesting-to-quasiquote? 989 33 ())
(991 descend-quasiquote-vector 989 38 ())
(992 #f 991 20 ())
(993 descend-quasiquote-pair 989 43 ())
(994 #f 993 14 ())
(995 #f 994 14 ())
(996 descend-quasiquote 989 48 ())
(997 finalize-quasiquote 989 53 ())
(998 expand-quasiquote 989 58 ())
(1001 process-rules 999 25 ())
(1002 free-meta-variables 1001 63 ())
(1003 meta-variables 1001 68 ())
(1004 process-template 1001 73 ())
(1005 process-pattern 1001 78 ())
(1006 #f 1005 90 ())
(1007 process-segment-match 1001 83 ())
(1008 process-match 1001 88 ())
(1009 process-rule 1001 93 ())
(1010 #f 1009 99 ())
(1011 make-transformer 1001 98 ())
(1012 segment-pattern? 999 33 ())
(1013 segment-template? 999 41 ())
(1014 find-free-names-in-syntax-rules 999 75 ())
(1015 free-names 1014 11 ())
(1016 meta-variables 1014 16 ())
(1017 loop##18 1014 25 ())
(1019 namestring 1018 4 ())
(1020 #f 1019 173 ())
(1021 namestring-component 1018 28 ())
(1022 file-name-directory 1018 60 ())
(1023 file-name-nondirectory 1018 68 ())
(1024 file-nondirectory-position 1018 76 ())
(1025 loop 1024 9 ())
(1026 string-posq 1018 84 ())
(1027 loop 1026 9 ())
(1028 translations 1018 100 ())
(1029 set-translation! 1018 108 ())
(1030 translate 1018 116 ())
(1031 loop 1030 15 ())
(1033 scan-forms 1032 21 ())
(1034 scan-file 1032 29 ())
(1035 really-scan-file 1032 37 ())
(1036 #f 1035 71 ())
(1037 recur 1036 108 ())
(1038 scan-form-list 1032 45 ())
(1039 loop 1038 9 ())
(1040 scan-form 1032 74 ())
(1041 process-define-syntax 1032 83 ())
(1042 scan-structures 1032 91 ())
(1043 really-scan-structures 1032 99 ())
(1044 recur 1043 17 ())
(1045 #f 1044 198 ())
(1046 #f 1044 249 ())
(1047 scan-package 1032 107 ())
(1048 really-scan-package 1032 115 ())
(1049 #f 1048 77 ())
(1050 #f 1049 22 ())
(1051 optimize 1032 123 ())
(1052 #f 1051 33 ())
(1053 #f 1051 124 ())
(1054 #f 1051 137 ())
(1055 check-structure 1032 131 ())
(1056 #f 1055 14 ())
(1057 initialize-usual-transforms! 1032 139 ())
(1058 #f 1057 5 ())
(1059 define-all-operators 1032 147 ())
(1060 #f 1059 14 ())
(1061 #f 1059 60 ())
(1062 make-define-primitive-node 1032 191 ())
(1063 get-optimizer 1032 214 ())
(1064 set-optimizer! 1032 222 ())
(1066 note-undefined! 1065 20 ())
(1067 noting-undefined-variables 1065 28 ())
(1068 really-noting-undefined-variables 1065 36 ())
(1069 foo 1068 10 ())
(1070 #f 1068 18 ())
(1071 #f 1068 34 ())
(1072 #f 1071 3 ())
(1073 #f 1071 9 ())
(1074 #f 1073 3 ())
(1075 #f 1074 17 ())
(1076 #f 1074 169 ())
(1078 lookup-enumerand 1077 9 ())
(1079 loop 1078 16 ())
(1082 node-type 1081 4 ())
(1083 reconstruct-type 1081 12 ())
(1084 reconstruct 1081 20 ())
(1086 define-reconstructor 1081 45 ())
(1090 careful-codomain 1081 71 ())
(1091 reconstruct-body 1081 79 ())
(1094 reconstruct-name 1092 22 ())
(1095 reconstruct-call 1092 30 ())
(1096 lose 1095 63 ())
(1097 #f 1096 3 ())
(1098 loop 1095 104 ())
(1103 fork-constraints 1092 92 ())
(1104 #f 1103 12 ())
(1106 loop##19 1105 9 ())
(1107 examine 1092 118 ())
(1113 node->type 1092 198 ())
(1119 reconstruct-apply 1092 376 ())
(1120 #f 1119 45 ())
(1121 declare-operator-type 1092 494 ())
(1122 #f 1121 19 ())
(1125 constant-type 1124 463 ())
(1127 template-code 1126 12 ())
(1128 template-info 1126 20 ())
(1129 set-template-code! 1126 28 ())
(1130 set-template-info! 1126 36 ())
(1132 segment->template 1131 28 ())
(1133 #f 1132 169 ())
(1134 segment-data->template 1131 36 ())
(1135 loop##20 1134 52 ())
(1136 astate-literals 1131 84 ())
(1137 set-astate-literals! 1131 92 ())
(1138 astate-count 1131 100 ())
(1139 set-astate-count! 1131 108 ())
(1140 astate-pc 1131 116 ())
(1141 set-astate-pc! 1131 124 ())
(1142 astate-code-vector 1131 132 ())
(1143 make-astate 1131 140 ())
(1144 emit-byte! 1131 148 ())
(1145 emit-literal! 1131 156 ())
(1146 emit-segment! 1131 164 ())
(1148 instruction 1131 186 ())
(1149 #f 1148 24 ())
(1150 #f 1149 20 ())
(1151 sequentially 1131 194 ())
(1152 sequentially-2 1131 202 ())
(1153 #f 1152 42 ())
(1154 instruction-with-literal 1131 210 ())
(1155 #f 1154 8 ())
(1156 instruction-with-location 1131 218 ())
(1157 #f 1156 8 ())
(1158 instruction-with-template 1131 226 ())
(1159 #f 1158 8 ())
(1160 make-label 1131 234 ())
(1161 instruction-using-label 1131 242 ())
(1162 #f 1161 37 ())
(1163 attach-label 1131 250 ())
(1164 #f 1163 11 ())
(1165 #f 1164 27 ())
(1166 note-source-code 1131 294 ())
(1167 #f 1166 22 ())
(1168 note-environment 1131 302 ())
(1169 #f 1168 22 ())
(1170 emit-with-environment-maps! 1131 310 ())
(1171 #f 1170 24 ())
(1173 new-template-uid 1172 4 ())
(1174 template-uid 1172 20 ())
(1175 set-template-uid! 1172 28 ())
(1176 debug-flag-accessor 1172 127 ())
(1177 #f 1176 22 ())
(1178 debug-flag-modifier 1172 135 ())
(1179 #f 1178 22 ())
(1180 with-fresh-compiler-state 1172 245 ())
(1181 #f 1180 51 ())
(1182 #f 1181 3 ())
(1183 #f 1181 6 ())
(1184 saving-and-restoring 1172 253 ())
(1185 swap 1184 5 ())
(1187 debug-data-source 1186 44 ())
(1188 set-debug-data-source! 1186 52 ())
(1189 debug-data-env-maps 1186 60 ())
(1190 set-debug-data-env-maps! 1186 68 ())
(1191 debug-data-pc-in-parent 1186 76 ())
(1192 debug-data-parent 1186 84 ())
(1193 debug-data-name 1186 92 ())
(1194 debug-data-uid 1186 100 ())
(1195 new-debug-data 1186 125 ())
(1197 debug-data->info 1186 148 ())
(1198 get-debug-data 1186 156 ())
(1199 note-debug-data! 1186 164 ())
(1200 interesting-debug-data? 1186 172 ())
(1201 debug-data-names 1186 180 ())
(1202 template-debug-data 1186 188 ())
(1203 template-id 1186 196 ())
(1204 template-name 1186 204 ())
(1205 template-names 1186 212 ())
(1207 compile-top 1206 4 ())
(1208 compile 1206 12 ())
(1213 define-compilator 1206 40 ())
(1216 compile-constant 1206 89 ())
(1221 compile-begin 1206 198 ())
(1222 loop 1221 59 ())
(1224 compile-call 1223 4 ())
(1225 compile-redex 1223 49 ())
(1226 compile-unknown-call 1223 57 ())
(1227 maybe-push-continuation 1223 65 ())
(1228 push-arguments 1223 73 ())
(1229 recur 1228 9 ())
(1230 push-all-with-names 1223 81 ())
(1232 compile-lambda 1223 110 ())
(1233 compile-lambda-code 1223 118 ())
(1234 compile-letrec 1223 186 ())
(1235 #f 1234 76 ())
(1236 #f 1234 179 ())
(1237 compile-body 1223 216 ())
(1238 #f 1237 11 ())
(1239 #f 1238 49 ())
(1240 make-cont 1223 241 ())
(1241 return-cont 1223 282 ())
(1242 return-cont? 1223 290 ())
(1243 fall-through-cont 1223 298 ())
(1244 fall-through-cont? 1223 306 ())
(1245 ignore-values-cont 1223 331 ())
(1246 ignore-values-cont? 1223 339 ())
(1247 deliver-value 1223 347 ())
(1248 named-cont 1223 355 ())
(1249 cont-name 1223 363 ())
(1250 bind-vars 1223 371 ())
(1251 #f 1250 23 ())
(1252 loop 1251 21 ())
(1253 initial-cenv 1223 379 ())
(1254 environment-level 1223 387 ())
(1255 name-node-binding 1223 412 ())
(1256 generate-trap 1223 420 ())
(1257 careful-sequentially 1223 428 ())
(1258 shrink-segment 1223 448 ())
(1259 type-check 1223 456 ())
(1260 #f 1259 107 ())
(1261 #f 1259 139 ())
(1262 set-type-check?! 1223 464 ())
(1263 diagnose-call-error 1223 480 ())
(1264 #f 1263 151 ())
(1267 define-compiler-primitive 1266 4 ())
(1269 define-closed-compilator 1266 29 ())
(1271 get-closed-compilator 1266 58 ())
(1272 direct-compilator 1266 66 ())
(1273 #f 1272 5 ())
(1274 direct-closed-compilator 1266 74 ())
(1275 #f 1274 5 ())
(1276 nargs->domain 1266 82 ())
(1277 loop##21 1276 9 ())
(1278 loop##22 1266 95 ())
(1279 define-simple-primitive 1266 111 ())
(1280 simple-compilator 1266 119 ())
(1281 #f 1280 5 ())
(1282 simple-closed-compilator 1266 127 ())
(1283 #f 1282 5 ())
(1284 symbol-append 1266 135 ())
(1285 define-stob-predicate 1266 143 ())
(1286 define-data-struct-primitives 1266 181 ())
(1287 def-prim 1286 8 ())
(1288 loop##23 1286 175 ())
(1290 define-vector-primitives 1266 204 ())
(1291 def-prim 1290 22 ())
(1297 define-n-ary-compiler-primitive 1266 312 ())
(1298 n-ary-primitive-compilator 1266 320 ())
(1299 #f 1298 5 ())
(1308 push-all-but-last 1266 441 ())
(1309 recur 1308 9 ())
(1311 compile-form 1310 4 ())
(1312 compile-file 1310 12 ())
(1313 compile-and-run-forms 1310 20 ())
(1314 compile-and-run-file 1310 28 ())
(1315 compile-and-run-scanned-forms 1310 36 ())
(1316 do-it 1315 5 ())
(1317 do-them 1315 10 ())
(1318 loop##24 1317 34 ())
(1319 #f 1315 20 ())
(1320 compile-scanned-forms 1310 44 ())
(1321 recur 1320 95 ())
(1322 compile-scanned-form 1310 52 ())
(1323 compile-definition 1310 69 ())
(1324 #f 1323 52 ())
(1325 get-location 1310 78 ())
(1326 win 1325 12 ())
(1327 get-location-for-undefined 1310 86 ())
(1328 #f 1327 82 ())
(1329 #f 1327 85 ())
(1330 get-location-for-unassignable 1310 94 ())
(1331 #f 1330 82 ())
(1332 #f 1330 85 ())
(1333 package-accessor-on-demand 1310 102 ())
(1334 #f 1333 5 ())
(1335 location-on-demand 1310 110 ())
(1336 #f 1335 5 ())
(1338 location-for-reference 1310 156 ())
(1339 loop 1338 9 ())
(1341 note-caching 1310 202 ())
(1342 grumble 1310 210 ())
(1343 make-startup-procedure 1310 218 ())
(1344 #f 1343 14 ())
(1346 eval 1345 4 ())
(1347 #f 1346 22 ())
(1348 load-into 1345 12 ())
(1349 #f 1348 11 ())
(1350 load-quietly 1345 20 ())
(1351 #f 1350 11 ())
(1352 eval-from-file 1345 28 ())
(1353 #f 1352 14 ())
(1354 eval-scanned-forms 1345 36 ())
(1355 really-eval-scanned-forms 1345 44 ())
(1356 #f 1355 14 ())
(1357 invoke-template 1345 52 ())
(1358 load 1345 60 ())
(1359 #f 1358 39 ())
(1362 continuation-cont 1361 4 ())
(1363 continuation-pc 1361 12 ())
(1364 continuation-template 1361 20 ())
(1365 continuation-env 1361 28 ())
(1366 continuation-arg 1361 44 ())
(1367 continuation-arg-count 1361 52 ())
(1368 continuation-parent 1361 60 ())
(1369 loop 1368 68 ())
(1370 &disclose 1361 136 ())
(1372 usual-exception-handler 1371 4 ())
(1373 define-exception-handler 1371 12 ())
(1374 signal-exception 1371 20 ())
(1376 except 1371 60 ())
(1377 #f 1376 5 ())
(1378 handler 1371 63 ())
(1379 #f 1378 5 ())
(1380 make-opcode-generic! 1371 68 ())
(1381 really-signal-condition 1371 77 ())
(1382 loop 1381 9 ())
(1383 #f 1382 8 ())
(1384 with-handler 1371 85 ())
(1385 initialize-exceptions! 1371 109 ())
(1386 #f 1385 5 ())
(1387 last-resort-condition-handler 1371 117 ())
(1388 #f 1387 12 ())
(1389 #f 1388 21 ())
(1390 report-utter-lossage 1371 125 ())
(1391 #f 1390 76 ())
(1392 continuation-preview 1371 133 ())
(1393 ignore-errors 1371 141 ())
(1394 #f 1393 5 ())
(1395 #f 1394 5 ())
(1396 &disclose 1371 189 ())
(1397 &disclose 1371 247 ())
(1400 define-wna-handler 1398 27 ())
(1401 wna-lose 1398 43 ())
(1409 recur 1408 47 ())
(1415 comparison-wna 1398 231 ())
(1416 #f 1415 5 ())
(1417 loop 1416 52 ())
(1419 display-condition 1418 16 ())
(1420 #f 1419 9 ())
(1421 really-display-condition 1418 25 ())
(1422 #f 1421 220 ())
(1423 &disclose-condition 1418 119 ())
(1424 limited-write 1418 141 ())
(1425 recur 1424 9 ())
(1426 #f 1425 134 ())
(1427 #f 1426 21 ())
(1429 command-processor 1428 4 ())
(1430 loop 1429 50 ())
(1431 #f 1430 7 ())
(1432 #f 1431 5 ())
(1433 #f 1432 63 ())
(1434 #f 1431 8 ())
(1435 #f 1434 69 ())
(1436 #f 1434 164 ())
(1437 #f 1434 200 ())
(1438 #f 1437 10 ())
(1439 mini-load 1428 12 ())
(1440 read-string 1428 20 ())
(1441 loop 1440 9 ())
(1443 loop##25 1442 22 ())
(1444 #f 1443 28 ())
(1445 initialize-interrupts! 1442 38 ())
(1446 with-interrupts-inhibited 1442 85 ())
(1447 with-interrupts-allowed 1442 93 ())
(1448 with-interrupts 1442 101 ())
(1449 #f 1448 11 ())
(1450 enabled-interrupts 1442 109 ())
(1451 interrupt-before-heap-overflow! 1442 117 ())
(1452 #f 1451 42 ())
(1454 usual-resumer 1453 4 ())
(1455 #f 1454 5 ())
(1456 #f 1455 20 ())
(1457 #f 1456 3 ())
(1459 start 1458 4 ())
(1460 #f 1459 5 ())
(1461 #f 1460 5 ())
(1462 #f 1461 58 ())
(1463 make-built-in-structures 1458 12 ())
(1464 #f 1463 33 ())
(1465 #f 1463 50 ())
(1466 initialize-interaction-environment! 1458 20 ())
(1467 make-initial-package 1458 28 ())
(1468 #f 1467 16 ())
(1469 make-tower 1458 36 ())
(1471 inline-transform 1470 4 ())
(1472 #f 1471 55 ())
(1473 #f 1471 61 ())
(1474 make-substitution 1470 12 ())
(1475 #f 1474 25 ())
(1476 substitute 1470 20 ())
(1477 #f 1476 186 ())
(1478 #f 1476 270 ())
(1479 qualified->name 1470 45 ())
(1480 recur 1479 9 ())
(1481 get-qualified-env 1470 53 ())
(1483 operator 1482 4 ())
(1484 simple-interface 1482 12 ())
(1485 #f 1484 11 ())
(1486 package 1482 20 ())
(1487 loop##26 1486 60 ())
(1488 transform 1482 28 ())
(1490 procedure 1489 36 ())
(1493 make-a-package 1492 4 ())
(1494 loser 1492 12 ())
(1495 *verify-later!* 1492 28 ())
(1496 verify-later! 1492 36 ())
(1497 set-verify-later! 1492 44 ())
(1498 note-name! 1492 52 ())
(1500 ensure-loaded 1499 4 ())
(1501 really-ensure-loaded 1499 12 ())
(1502 #f 1501 14 ())
(1503 #f 1501 17 ())
(1504 #f 1503 11 ())
(1505 #f 1504 6 ())
(1506 #f 1505 7 ())
(1509 get-location 1508 3 ())
(1558 conc 1557 35 ())
(1559 #f 1558 17 ())
(1562 loop 1561 97 ())
(1568 loop 1567 48 ())
(1572 loop##27 1571 53 ())
(1576 loop 1575 75 ())
(1578 loop 1577 75 ())
(1580 loop 1579 75 ())
(1582 loop 1581 75 ())
(1585 loop 1584 75 ())
(1614 parse-package-clauses 1610 220 ())
(1615 loop 1614 47 ())
(1622 loop 1621 17 ())
(1626 loop 1625 37 ())
-