← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mit-scheme/intrepid-updates

« back to all changes in this revision

Viewing changes to src/runtime/runtime.pkg

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2002-03-14 17:04:07 UTC
  • Revision ID: james.westby@ubuntu.com-20020314170407-m5lg1d6bdsl9lv0s
Tags: upstream-7.7.0
Import upstream version 7.7.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/runtime/runtime.pkg
 
1
#| -*-Scheme-*-
 
2
 
 
3
$Id: runtime.pkg,v 14.412 2002/03/01 17:02:46 cph Exp $
 
4
 
 
5
Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
6
 
 
7
This program is free software; you can redistribute it and/or modify
 
8
it under the terms of the GNU General Public License as published by
 
9
the Free Software Foundation; either version 2 of the License, or (at
 
10
your option) any later version.
 
11
 
 
12
This program is distributed in the hope that it will be useful, but
 
13
WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
15
General Public License for more details.
 
16
 
 
17
You should have received a copy of the GNU General Public License
 
18
along with this program; if not, write to the Free Software
 
19
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
20
02111-1307, USA.
 
21
|#
 
22
 
 
23
;;;; Runtime System Packaging
 
24
 
 
25
(define-package ()
 
26
  (files "make"))
 
27
 
 
28
(define-package (package)
 
29
  ;; The information appearing here must be exactly duplicated in the
 
30
  ;; cold load sequence in "make.scm".
 
31
  (files "packag")
 
32
  (parent ())
 
33
  (export ()
 
34
          *allow-package-redefinition?*
 
35
          construct-packages-from-file
 
36
          environment->package
 
37
          find-package
 
38
          load-package-set
 
39
          load-packages-from-file
 
40
          name->package
 
41
          package-set-pathname
 
42
          package/add-child!
 
43
          package/child
 
44
          package/children
 
45
          package/environment
 
46
          package/name
 
47
          package/parent
 
48
          package/reference
 
49
          package/system-loader
 
50
          package?
 
51
          system-global-package)
 
52
  (export (runtime environment)
 
53
          package-name-tag)
 
54
  (initialization (initialize-package!)))
 
55
 
 
56
(define-package (runtime)
 
57
  (files "version")
 
58
  (parent ())
 
59
  (initialization (initialize-package!)))
 
60
 
 
61
(define-package (runtime bit-string)
 
62
  (files "bitstr")
 
63
  (parent (runtime))
 
64
  (export ()
 
65
          bit-string->signed-integer
 
66
          bit-string->unsigned-integer
 
67
          bit-string-allocate
 
68
          bit-string-and
 
69
          bit-string-and!
 
70
          bit-string-andc
 
71
          bit-string-andc!
 
72
          bit-string-append
 
73
          bit-string-append-reversed
 
74
          bit-string-clear!
 
75
          bit-string-copy
 
76
          bit-string-fill!
 
77
          bit-string-length
 
78
          bit-string-move!
 
79
          bit-string-movec!
 
80
          bit-string-not
 
81
          bit-string-or
 
82
          bit-string-or!
 
83
          bit-string-ref
 
84
          bit-string-set!
 
85
          bit-string-xor
 
86
          bit-string-xor!
 
87
          bit-string-zero?
 
88
          bit-string=?
 
89
          bit-string?
 
90
          bit-substring
 
91
          bit-substring-extend
 
92
          bit-substring-find-next-set-bit
 
93
          bit-substring-move-right!
 
94
          make-bit-string
 
95
          read-bits!
 
96
          signed-integer->bit-string
 
97
          unsigned-integer->bit-string
 
98
          write-bits!))
 
99
 
 
100
(define-package (runtime blowfish)
 
101
  (files "blowfish")
 
102
  (parent (runtime))
 
103
  (export ()
 
104
          blowfish-available?
 
105
          blowfish-cbc
 
106
          blowfish-cfb64
 
107
          blowfish-ecb
 
108
          blowfish-encrypt-port
 
109
          blowfish-file?
 
110
          blowfish-ofb64
 
111
          blowfish-set-key
 
112
          compute-blowfish-init-vector
 
113
          read-blowfish-file-header
 
114
          write-blowfish-file-header))
 
115
 
 
116
(define-package (runtime boolean)
 
117
  (files "boole")
 
118
  (parent (runtime))
 
119
  (export ()
 
120
          boolean/and
 
121
          boolean/or
 
122
          boolean=?
 
123
          boolean?
 
124
          false
 
125
          false?
 
126
          for-all?
 
127
          not
 
128
          there-exists?
 
129
          true))
 
130
 
 
131
(define-package (runtime boot-definitions)
 
132
  (files "boot")
 
133
  (parent (runtime))
 
134
  (export ()
 
135
          future?
 
136
          get-next-constant
 
137
          interrupt-bit/after-gc
 
138
          interrupt-bit/gc
 
139
          interrupt-bit/global-1
 
140
          interrupt-bit/global-3
 
141
          interrupt-bit/global-gc
 
142
          interrupt-bit/kbd
 
143
          interrupt-bit/stack
 
144
          interrupt-bit/suspend
 
145
          interrupt-bit/timer
 
146
          interrupt-mask/all
 
147
          interrupt-mask/gc-ok
 
148
          interrupt-mask/no-background
 
149
          interrupt-mask/none
 
150
          interrupt-mask/timer-ok
 
151
          object-constant?
 
152
          object-pure?
 
153
          standard-unparser-method
 
154
          unparser-method?
 
155
          unparser/standard-method
 
156
          with-absolutely-no-interrupts
 
157
          without-background-interrupts
 
158
          without-interrupts))
 
159
 
 
160
(define-package (runtime equality)
 
161
  (files "equals")
 
162
  (parent (runtime))
 
163
  (export ()
 
164
          equal?
 
165
          eqv?))
 
166
 
 
167
(define-package (runtime fixnum-arithmetic)
 
168
  (files "fixart")
 
169
  (parent (runtime))
 
170
  (export ()
 
171
          ->flonum
 
172
          fix:*
 
173
          fix:+
 
174
          fix:-
 
175
          fix:-1+
 
176
          fix:1+
 
177
          fix:<
 
178
          fix:<=
 
179
          fix:=
 
180
          fix:>
 
181
          fix:>=
 
182
          fix:and
 
183
          fix:andc
 
184
          fix:divide
 
185
          fix:fixnum?
 
186
          fix:gcd
 
187
          fix:lsh
 
188
          fix:max
 
189
          fix:min
 
190
          fix:negative?
 
191
          fix:not
 
192
          fix:or
 
193
          fix:positive?
 
194
          fix:quotient
 
195
          fix:remainder
 
196
          fix:xor
 
197
          fix:zero?
 
198
          fixnum?
 
199
          flo:*
 
200
          flo:+
 
201
          flo:-
 
202
          flo:/
 
203
          flo:<
 
204
          flo:<=
 
205
          flo:=
 
206
          flo:>
 
207
          flo:>=
 
208
          flo:abs
 
209
          flo:acos
 
210
          flo:asin
 
211
          flo:atan
 
212
          flo:atan2
 
213
          flo:ceiling
 
214
          flo:ceiling->exact
 
215
          flo:cos
 
216
          flo:exp
 
217
          flo:expt
 
218
          flo:finite?
 
219
          flo:flonum?
 
220
          flo:floor
 
221
          flo:floor->exact
 
222
          flo:log
 
223
          flo:max
 
224
          flo:min
 
225
          flo:negate
 
226
          flo:negative?
 
227
          flo:positive?
 
228
          flo:round
 
229
          flo:round->exact
 
230
          flo:sin
 
231
          flo:sqrt
 
232
          flo:tan
 
233
          flo:truncate
 
234
          flo:truncate->exact
 
235
          flo:vector-cons
 
236
          flo:vector-length
 
237
          flo:vector-ref
 
238
          flo:vector-set!
 
239
          flo:zero?
 
240
          index-fixnum?
 
241
          int:*
 
242
          int:+
 
243
          int:-
 
244
          int:-1+
 
245
          int:->flonum
 
246
          int:1+
 
247
          int:<
 
248
          int:<=
 
249
          int:=
 
250
          int:>
 
251
          int:>=
 
252
          int:divide
 
253
          int:integer?
 
254
          int:negate
 
255
          int:negative?
 
256
          int:positive?
 
257
          int:quotient
 
258
          int:remainder
 
259
          int:zero?))
 
260
 
 
261
(define-package (runtime miscellaneous-global)
 
262
  (files "global")
 
263
  (parent (runtime))
 
264
  (export ()
 
265
          %exit
 
266
          %quit
 
267
          *the-non-printing-object*
 
268
          apply
 
269
          bind-cell-contents!
 
270
          call-with-values
 
271
          cd
 
272
          cell-contents
 
273
          cell?
 
274
          default/exit
 
275
          default/quit
 
276
          enable-interrupts!
 
277
          environment-link-name
 
278
          eq?
 
279
          error-procedure
 
280
          eval
 
281
          exit
 
282
          false-procedure
 
283
          fasdump
 
284
          get-fixed-objects-vector
 
285
          hook/exit
 
286
          hook/quit
 
287
          hook/scode-eval
 
288
          hunk3-cons
 
289
          identity-procedure
 
290
          impurify
 
291
          lexical-assignment
 
292
          lexical-reference
 
293
          lexical-unassigned?
 
294
          lexical-unbound?
 
295
          lexical-unreferenceable?
 
296
          link-variables
 
297
          local-assignment
 
298
          make-cell
 
299
          make-non-pointer-object
 
300
          null-procedure
 
301
          obarray->list
 
302
          object-component-binder
 
303
          object-datum
 
304
          object-gc-type
 
305
          object-new-type
 
306
          object-non-pointer?
 
307
          object-pointer?
 
308
          object-type
 
309
          object-type?
 
310
          pa
 
311
          primitive-procedure-arity
 
312
          primitive-procedure-documentation
 
313
          pwd
 
314
          quit
 
315
          scode-eval
 
316
          set-cell-contents!
 
317
          set-interrupt-enables!
 
318
          show-time
 
319
          system-hunk3-cons
 
320
          system-hunk3-cxr0
 
321
          system-hunk3-cxr1
 
322
          system-hunk3-cxr2
 
323
          system-hunk3-set-cxr0!
 
324
          system-hunk3-set-cxr1!
 
325
          system-hunk3-set-cxr2!
 
326
          system-list->vector
 
327
          system-pair-car
 
328
          system-pair-cdr
 
329
          system-pair-cons
 
330
          system-pair-set-car!
 
331
          system-pair-set-cdr!
 
332
          system-pair?
 
333
          system-subvector->list
 
334
          system-vector-length
 
335
          system-vector-ref
 
336
          system-vector-set!
 
337
          system-vector?
 
338
          true-procedure
 
339
          unbind-variable
 
340
          undefined-value?
 
341
          unspecific
 
342
          user-initial-environment
 
343
          user-initial-prompt
 
344
          values
 
345
          wait-interval
 
346
          with-history-disabled
 
347
          with-interrupt-mask
 
348
          with-values
 
349
          write-to-string))
 
350
 
 
351
(define-package (runtime alternative-lambda)
 
352
  (files "lambdx")
 
353
  (parent (runtime))
 
354
  (export ()
 
355
          lambda-components*
 
356
          lambda-components**
 
357
          lambda-pattern/name
 
358
          lambda-pattern/optional
 
359
          lambda-pattern/required
 
360
          lambda-pattern/rest
 
361
          lambda-pattern?
 
362
          make-lambda*
 
363
          make-lambda**
 
364
          make-lambda-pattern))
 
365
 
 
366
(define-package (runtime merge-sort)
 
367
  (files "msort")
 
368
  (parent (runtime))
 
369
  (export ()
 
370
          merge-sort
 
371
          merge-sort!
 
372
          sort
 
373
          sort!))
 
374
 
 
375
(define-package (runtime quick-sort)
 
376
  (files "qsort")
 
377
  (parent (runtime))
 
378
  (export ()
 
379
          quick-sort
 
380
          quick-sort!))
 
381
 
 
382
(define-package (runtime simple-queue)
 
383
  (files "queue")
 
384
  (parent (runtime))
 
385
  (export ()
 
386
          make-queue
 
387
          queue-empty?
 
388
          queued?/unsafe
 
389
          enqueue!/unsafe
 
390
          dequeue!/unsafe
 
391
          queue-map!/unsafe
 
392
          queue->list/unsafe
 
393
          queued?
 
394
          enqueue!
 
395
          dequeue!
 
396
          queue-map!
 
397
          queue->list))
 
398
 
 
399
(define-package (runtime simple-file-ops)
 
400
  (files "sfile")
 
401
  (parent (runtime))
 
402
  (export ()
 
403
          allocate-temporary-file
 
404
          call-with-temporary-file-pathname
 
405
          call-with-temporary-filename
 
406
          current-file-time
 
407
          deallocate-temporary-file
 
408
          delete-directory
 
409
          delete-file
 
410
          delete-file-no-errors
 
411
          directory-file-names
 
412
          file-access
 
413
          file-directory?
 
414
          file-eq?
 
415
          file-executable?
 
416
          file-exists-direct?
 
417
          file-exists-indirect?
 
418
          file-exists?
 
419
          file-modification-time<?
 
420
          file-processed?
 
421
          file-readable?
 
422
          file-regular?
 
423
          file-soft-link?
 
424
          file-symbolic-link?
 
425
          file-touch
 
426
          file-type-direct
 
427
          file-type-indirect
 
428
          file-writable?
 
429
          file-writeable?
 
430
          guarantee-init-file-directory
 
431
          guarantee-init-file-specifier
 
432
          hard-link-file
 
433
          init-file-specifier?
 
434
          make-directory
 
435
          open-input-init-file
 
436
          open-output-init-file
 
437
          rename-file
 
438
          soft-link-file))
 
439
 
 
440
(define-package (runtime symbol)
 
441
  (files "symbol")
 
442
  (parent (runtime))
 
443
  (export ()
 
444
          intern
 
445
          intern-soft
 
446
          interned-symbol?
 
447
          string->symbol
 
448
          string->uninterned-symbol
 
449
          symbol->string
 
450
          symbol-append
 
451
          symbol-hash
 
452
          symbol-hash-mod
 
453
          symbol-name
 
454
          symbol<?
 
455
          symbol?
 
456
          uninterned-symbol?))
 
457
 
 
458
(define-package (runtime microcode-data)
 
459
  (files "udata")
 
460
  (parent (runtime))
 
461
  (export ()
 
462
          compiled-code-address->block
 
463
          compiled-code-address->offset
 
464
          compiled-code-address?
 
465
          compiled-code-block/bytes-per-object
 
466
          compiled-code-block/code-end
 
467
          compiled-code-block/code-length
 
468
          compiled-code-block/code-start
 
469
          compiled-code-block/constants-end
 
470
          compiled-code-block/constants-start
 
471
          compiled-code-block/debugging-info
 
472
          compiled-code-block/debugging-info?
 
473
          compiled-code-block/environment
 
474
          compiled-code-block/index->offset
 
475
          compiled-code-block/manifest-closure?
 
476
          compiled-code-block/marked-start
 
477
          compiled-code-block/offset->index
 
478
          compiled-code-block/read-file
 
479
          compiled-code-block?
 
480
          compiled-continuation/next-continuation-offset
 
481
          compiled-continuation/reflect-to-interface?
 
482
          compiled-continuation/return-to-interpreter?
 
483
          compiled-entry-type
 
484
          compiled-expression?
 
485
          compiled-return-address?
 
486
          discriminate-compiled-entry
 
487
          environment-extension-aux-list
 
488
          environment-extension-parent
 
489
          environment-extension-procedure
 
490
          environment-extension?
 
491
          force
 
492
          interpreter-return-address?
 
493
          make-return-address
 
494
          microcode-error
 
495
          microcode-return
 
496
          microcode-termination
 
497
          microcode-type
 
498
          promise-environment
 
499
          promise-expression
 
500
          promise-forced?
 
501
          promise-non-expression?
 
502
          promise-value
 
503
          promise?
 
504
          return-address/code
 
505
          return-address/name
 
506
          return-address?
 
507
          set-compiled-code-block/debugging-info!
 
508
          set-environment-extension-parent!
 
509
          stack-address->index
 
510
          stack-address-offset
 
511
          stack-address?))
 
512
 
 
513
(define-package (runtime vector)
 
514
  (files "vector")
 
515
  (parent (runtime))
 
516
  (export ()
 
517
          for-each-vector-element
 
518
          guarantee-subvector
 
519
          guarantee-vector
 
520
          list->vector
 
521
          make-initialized-vector
 
522
          make-vector
 
523
          subvector
 
524
          subvector->list
 
525
          subvector-fill!
 
526
          subvector-filled?
 
527
          subvector-find-next-element
 
528
          subvector-find-next-element-not
 
529
          subvector-find-previous-element
 
530
          subvector-find-previous-element-not
 
531
          subvector-move-left!
 
532
          subvector-move-right!
 
533
          subvector-uniform?
 
534
          vector
 
535
          vector->list
 
536
          vector-append
 
537
          vector-binary-search
 
538
          vector-copy
 
539
          vector-eighth
 
540
          vector-fifth
 
541
          vector-fill!
 
542
          vector-filled?
 
543
          vector-find-next-element
 
544
          vector-find-previous-element
 
545
          vector-first
 
546
          vector-fourth
 
547
          vector-grow
 
548
          vector-head
 
549
          vector-length
 
550
          vector-map
 
551
          vector-move!
 
552
          vector-of-type?
 
553
          vector-ref
 
554
          vector-second
 
555
          vector-set!
 
556
          vector-seventh
 
557
          vector-sixth
 
558
          vector-tail
 
559
          vector-third
 
560
          vector-uniform?
 
561
          vector?))
 
562
 
 
563
(define-package (runtime os-primitives)
 
564
  (parent (runtime))
 
565
  (export ()
 
566
          add-to-select-registry!
 
567
          copy-file
 
568
          current-home-directory
 
569
          current-user-name
 
570
          decode-file-time
 
571
          decoded-time->file-time
 
572
          encode-file-time
 
573
          file-access-time
 
574
          file-access-time-direct
 
575
          file-access-time-indirect
 
576
          file-attributes
 
577
          file-attributes-direct
 
578
          file-attributes-indirect
 
579
          file-attributes/access-time
 
580
          file-attributes/change-time
 
581
          file-attributes/length
 
582
          file-attributes/mode-string
 
583
          file-attributes/modification-time
 
584
          file-attributes/n-links
 
585
          file-attributes/type
 
586
          file-length
 
587
          file-modes
 
588
          file-modification-time
 
589
          file-modification-time-direct
 
590
          file-modification-time-indirect
 
591
          file-time->global-decoded-time
 
592
          file-time->local-decoded-time
 
593
          file-time->universal-time
 
594
          get-environment-variable
 
595
          init-file-specifier->pathname
 
596
          make-select-registry
 
597
          os/default-end-of-line-translation
 
598
          os/exec-path
 
599
          os/executable-pathname-types
 
600
          os/file-end-of-line-translation
 
601
          os/find-program
 
602
          os/form-shell-command
 
603
          os/make-subprocess
 
604
          os/parse-path-string
 
605
          os/shell-file-name
 
606
          remove-from-select-registry!
 
607
          select-descriptor
 
608
          select-registry-test
 
609
          set-file-modes!
 
610
          set-file-times!
 
611
          temporary-directory-pathname
 
612
          temporary-file-pathname
 
613
          universal-time->file-time
 
614
          user-home-directory)
 
615
  (initialization (initialize-system-primitives!)))
 
616
 
 
617
(os-type-case
 
618
 ((unix)
 
619
  (extend-package (runtime os-primitives)
 
620
    (files "unxprm")
 
621
    (export ()
 
622
            delete-environment-variable!
 
623
            file-attributes/gid
 
624
            file-attributes/inode-number
 
625
            file-attributes/uid
 
626
            set-environment-variable!
 
627
            unix/current-gid
 
628
            unix/current-pid
 
629
            unix/current-uid
 
630
            unix/gid->string
 
631
            unix/system
 
632
            unix/uid->string)))
 
633
 ((nt)
 
634
  (extend-package (runtime os-primitives)
 
635
    (files "ntprm")
 
636
    (export ()
 
637
            console-channel-descriptor
 
638
            delete-environment-variable!
 
639
            dos/fs-drive-type
 
640
            dos/fs-long-filenames?
 
641
            file-attributes/gid
 
642
            file-attributes/inode-number
 
643
            file-attributes/modes
 
644
            file-attributes/uid
 
645
            nt-file-mode/archive
 
646
            nt-file-mode/compressed
 
647
            nt-file-mode/directory
 
648
            nt-file-mode/hidden
 
649
            nt-file-mode/normal
 
650
            nt-file-mode/read-only
 
651
            nt-file-mode/system
 
652
            nt-file-mode/temporary
 
653
            nt-fs-flag/case-preserved-names
 
654
            nt-fs-flag/case-sensitive-search
 
655
            nt-fs-flag/file-compression
 
656
            nt-fs-flag/persistent-acls
 
657
            nt-fs-flag/unicode-on-disk
 
658
            nt-fs-flag/volume-is-compressed
 
659
            nt-volume-info
 
660
            nt-volume-info/file-system-flags
 
661
            nt-volume-info/file-system-name
 
662
            nt-volume-info/max-component-length
 
663
            nt-volume-info/name
 
664
            nt-volume-info/serial-number
 
665
            nt/hide-subprocess-windows?
 
666
            nt/scheme-executable-pathname
 
667
            nt/subprocess-argument-escape-char
 
668
            nt/subprocess-argument-quote-char
 
669
            nt/system-root-directory
 
670
            nt/windows-type
 
671
            set-environment-variable!
 
672
            set-environment-variable-default!)))
 
673
 ((os/2)
 
674
  (extend-package (runtime os-primitives)
 
675
    (files "os2prm")
 
676
    (export ()
 
677
            dos/fs-drive-type
 
678
            dos/fs-long-filenames?
 
679
            file-attributes/allocated-length
 
680
            file-attributes/modes
 
681
            os2-file-mode/archived
 
682
            os2-file-mode/directory
 
683
            os2-file-mode/hidden
 
684
            os2-file-mode/read-only
 
685
            os2-file-mode/system
 
686
            os2/current-pid
 
687
            os2/system-root-directory))))
 
688
 
 
689
(define-package (runtime string)
 
690
  (files "string")
 
691
  (parent (runtime))
 
692
  (export ()
 
693
          allocate-external-string
 
694
          burst-string
 
695
          char->string
 
696
          decorated-string-append
 
697
          external-string-length
 
698
          external-string?
 
699
          guarantee-string
 
700
          guarantee-substring
 
701
          list->string
 
702
          make-string
 
703
          reverse-string
 
704
          reverse-string!
 
705
          reverse-substring
 
706
          reverse-substring!
 
707
          set-string-length!
 
708
          set-string-maximum-length!
 
709
          string
 
710
          string->list
 
711
          string-allocate
 
712
          string-append
 
713
          string-capitalize
 
714
          string-capitalize!
 
715
          string-capitalized?
 
716
          string-ci<=?
 
717
          string-ci<?
 
718
          string-ci=?
 
719
          string-ci>=?
 
720
          string-ci>?
 
721
          string-compare
 
722
          string-compare-ci
 
723
          string-copy
 
724
          string-downcase
 
725
          string-downcase!
 
726
          string-fill!
 
727
          string-find-next-char
 
728
          string-find-next-char-ci
 
729
          string-find-next-char-in-set
 
730
          string-find-previous-char
 
731
          string-find-previous-char-ci
 
732
          string-find-previous-char-in-set
 
733
          string-hash
 
734
          string-hash-mod
 
735
          string-head
 
736
          string-length
 
737
          string-lower-case?
 
738
          string-match-backward
 
739
          string-match-backward-ci
 
740
          string-match-forward
 
741
          string-match-forward-ci
 
742
          string-maximum-length
 
743
          string-move!
 
744
          string-null?
 
745
          string-pad-left
 
746
          string-pad-right
 
747
          string-prefix-ci?
 
748
          string-prefix?
 
749
          string-ref
 
750
          string-replace
 
751
          string-replace!
 
752
          string-search-all
 
753
          string-search-backward
 
754
          string-search-forward
 
755
          string-set!
 
756
          string-suffix-ci?
 
757
          string-suffix?
 
758
          string-tail
 
759
          string-trim
 
760
          string-trim-left
 
761
          string-trim-right
 
762
          string-upcase
 
763
          string-upcase!
 
764
          string-upper-case?
 
765
          string<=?
 
766
          string<?
 
767
          string=?
 
768
          string>=?
 
769
          string>?
 
770
          string?
 
771
          substring
 
772
          substring->list
 
773
          substring-capitalize!
 
774
          substring-capitalized?
 
775
          substring-ci<?
 
776
          substring-ci=?
 
777
          substring-downcase!
 
778
          substring-fill!
 
779
          substring-find-next-char
 
780
          substring-find-next-char-ci
 
781
          substring-find-next-char-in-set
 
782
          substring-find-previous-char
 
783
          substring-find-previous-char-ci
 
784
          substring-find-previous-char-in-set
 
785
          substring-lower-case?
 
786
          substring-match-backward
 
787
          substring-match-backward-ci
 
788
          substring-match-forward
 
789
          substring-match-forward-ci
 
790
          substring-move!
 
791
          substring-move-left!
 
792
          substring-move-right!
 
793
          substring-prefix-ci?
 
794
          substring-prefix?
 
795
          substring-replace
 
796
          substring-replace!
 
797
          substring-search-all
 
798
          substring-search-backward
 
799
          substring-search-forward
 
800
          substring-suffix-ci?
 
801
          substring-suffix?
 
802
          substring-upcase!
 
803
          substring-upper-case?
 
804
          substring<?
 
805
          substring=?
 
806
          substring?
 
807
          vector-8b-fill!
 
808
          vector-8b-find-next-char
 
809
          vector-8b-find-next-char-ci
 
810
          vector-8b-find-previous-char
 
811
          vector-8b-find-previous-char-ci
 
812
          vector-8b-ref
 
813
          vector-8b-set!
 
814
          xstring-length
 
815
          xstring-move!
 
816
          xstring?
 
817
          xsubstring-move!)
 
818
  (export (runtime primitive-io)
 
819
          external-string-descriptor)
 
820
  (initialization (initialize-package!)))
 
821
 
 
822
(define-package (runtime 1d-property)
 
823
  (files "prop1d")
 
824
  (parent (runtime))
 
825
  (export ()
 
826
          1d-table/for-each
 
827
          1d-table/alist
 
828
          1d-table/get
 
829
          1d-table/lookup
 
830
          1d-table/put!
 
831
          1d-table/remove!
 
832
          1d-table?
 
833
          make-1d-table)
 
834
  (initialization (initialize-package!)))
 
835
 
 
836
(define-package (runtime 2d-property)
 
837
  (files "prop2d")
 
838
  (parent (runtime))
 
839
  (export ()
 
840
          2d-get
 
841
          2d-get-alist-x
 
842
          2d-get-alist-y
 
843
          2d-put!
 
844
          2d-remove!)
 
845
  (initialization (initialize-package!)))
 
846
 
 
847
(define-package (runtime advice)
 
848
  (files "advice")
 
849
  (parent (runtime))
 
850
  (export ()
 
851
          *args*
 
852
          *proc*
 
853
          *result*
 
854
          advice
 
855
          advise-entry
 
856
          advise-exit
 
857
          break
 
858
          break-both
 
859
          break-entry
 
860
          break-exit
 
861
          entry-advice
 
862
          exit-advice
 
863
          trace
 
864
          trace-both
 
865
          trace-entry
 
866
          trace-exit
 
867
          unadvise
 
868
          unadvise-entry
 
869
          unadvise-exit
 
870
          unbreak
 
871
          unbreak-entry
 
872
          unbreak-exit
 
873
          untrace
 
874
          untrace-entry
 
875
          untrace-exit)
 
876
  (initialization (initialize-package!)))
 
877
 
 
878
(define-package (runtime apply)
 
879
  (files "apply")
 
880
  (parent (runtime))
 
881
  (initialization (initialize-package!)))
 
882
 
 
883
(define-package (runtime character)
 
884
  (files "char")
 
885
  (parent (runtime))
 
886
  (export ()
 
887
          ascii->char
 
888
          char->ascii
 
889
          char->digit
 
890
          char->integer
 
891
          char->name
 
892
          char-ascii?
 
893
          char-bits
 
894
          char-bits-limit
 
895
          char-ci<=?
 
896
          char-ci<?
 
897
          char-ci=?
 
898
          char-ci>=?
 
899
          char-ci>?
 
900
          char-code
 
901
          char-code-limit
 
902
          char-downcase
 
903
          char-integer-limit
 
904
          char-upcase
 
905
          char<=?
 
906
          char<?
 
907
          char=?
 
908
          char>=?
 
909
          char>?
 
910
          char?
 
911
          chars->ascii
 
912
          code->char
 
913
          digit->char
 
914
          guarantee-char
 
915
          integer->char
 
916
          make-char
 
917
          name->char)
 
918
  (export (runtime string)
 
919
          %char<?
 
920
          downcase-table
 
921
          upcase-table)
 
922
  (initialization (initialize-package!)))
 
923
 
 
924
(define-package (runtime character-set)
 
925
  (files "chrset")
 
926
  (parent (runtime))
 
927
  (export ()
 
928
          ascii-range->char-set
 
929
          char-alphabetic?
 
930
          char-alphanumeric?
 
931
          char-graphic?
 
932
          char-lower-case?
 
933
          char-numeric?
 
934
          char-set
 
935
          char-set-difference
 
936
          char-set-intersection
 
937
          char-set-invert
 
938
          char-set-member?
 
939
          char-set-members
 
940
          char-set-union
 
941
          char-set:alphabetic
 
942
          char-set:alphanumeric
 
943
          char-set:graphic
 
944
          char-set:lower-case
 
945
          char-set:newline
 
946
          char-set:not-alphabetic
 
947
          char-set:not-alphanumeric
 
948
          char-set:not-graphic
 
949
          char-set:not-lower-case
 
950
          char-set:not-numeric
 
951
          char-set:not-standard
 
952
          char-set:not-upper-case
 
953
          char-set:not-whitespace
 
954
          char-set:numeric
 
955
          char-set:standard
 
956
          char-set:upper-case
 
957
          char-set:whitespace
 
958
          char-set?
 
959
          char-standard?
 
960
          char-upper-case?
 
961
          char-whitespace?
 
962
          chars->char-set
 
963
          guarantee-char-set
 
964
          predicate->char-set
 
965
          string->char-set)
 
966
  (export (runtime string)
 
967
          %char-set-member?
 
968
          char-set-table)
 
969
  (export (runtime regular-expression-compiler)
 
970
          make-char-set)
 
971
  (initialization (initialize-package!)))
 
972
 
 
973
(define-package (runtime compiler-info)
 
974
  (files "infstr" "infutl")
 
975
  (parent (runtime))
 
976
  (export ()
 
977
          *save-uncompressed-files?*
 
978
          *uncompressed-file-lifetime*
 
979
          compiled-code-block/filename-and-index
 
980
          compiled-entry/filename-and-index
 
981
          compiled-entry/block
 
982
          compiled-entry/dbg-object
 
983
          compiled-entry/offset
 
984
          compiled-expression/scode
 
985
          compiled-procedure/name
 
986
          compiled-procedure/lambda
 
987
          discard-debugging-info!
 
988
          load-debugging-info-on-demand?
 
989
          uncompress-ports)
 
990
  (export (runtime load)
 
991
          dbg-info-vector/purification-root
 
992
          dbg-info-vector?
 
993
          fasload/update-debugging-info!)
 
994
  (export (runtime program-copier)
 
995
          dbg-info-vector?)
 
996
  (export (runtime debugger-command-loop)
 
997
          special-form-procedure-name?)
 
998
  (export (runtime environment)
 
999
          dbg-block/find-name
 
1000
          dbg-block/ic-parent-index
 
1001
          dbg-block/layout
 
1002
          dbg-block/layout-first-offset
 
1003
          dbg-block/layout-vector
 
1004
          dbg-block/normal-closure-index
 
1005
          dbg-block/original-parent
 
1006
          dbg-block/parent
 
1007
          dbg-block/procedure
 
1008
          dbg-block/stack-link
 
1009
          dbg-block/static-link-index
 
1010
          dbg-block/type
 
1011
          dbg-continuation?
 
1012
          dbg-continuation/block
 
1013
          dbg-continuation/offset
 
1014
          dbg-expression?
 
1015
          dbg-procedure?
 
1016
          dbg-procedure/block
 
1017
          dbg-procedure/name
 
1018
          dbg-procedure/required
 
1019
          dbg-procedure/optional
 
1020
          dbg-procedure/rest
 
1021
          dbg-procedure/source-code
 
1022
          dbg-variable/name
 
1023
          dbg-variable/type
 
1024
          dbg-variable/value
 
1025
          dbg-variable?)
 
1026
  (export (runtime debugging-info)
 
1027
          dbg-continuation?
 
1028
          dbg-continuation/source-code
 
1029
          dbg-procedure?
 
1030
          dbg-procedure/block
 
1031
          dbg-procedure/source-code
 
1032
          dbg-expression?)
 
1033
  (export (runtime compress)
 
1034
          uncompress-internal)
 
1035
  (export (runtime options)
 
1036
          with-directory-rewriting-rule)
 
1037
  (export (runtime continuation-parser)
 
1038
          )
 
1039
  (initialization (initialize-package!)))
 
1040
 
 
1041
(define-package (runtime console-i/o-port)
 
1042
  (files "ttyio")
 
1043
  (parent (runtime))
 
1044
  (export ()
 
1045
          console-i/o-port
 
1046
          console-input-port
 
1047
          console-output-port
 
1048
          set-console-i/o-port!)
 
1049
  (export (runtime emacs-interface)
 
1050
          the-console-port
 
1051
          the-console-port-type)
 
1052
  (initialization (initialize-package!)))
 
1053
 
 
1054
(define-package (runtime continuation)
 
1055
  (files "contin")
 
1056
  (parent (runtime))
 
1057
  (export ()
 
1058
          call-with-current-continuation
 
1059
          continuation/block-thread-events?
 
1060
          continuation/control-point
 
1061
          continuation/dynamic-state
 
1062
          continuation/type
 
1063
          continuation?
 
1064
          guarantee-continuation
 
1065
          make-continuation
 
1066
          non-reentrant-call-with-current-continuation
 
1067
          within-continuation)
 
1068
  (export (runtime thread)
 
1069
          %within-continuation))
 
1070
 
 
1071
(define-package (runtime continuation-parser)
 
1072
  (files "conpar")
 
1073
  (parent (runtime))
 
1074
  (export ()
 
1075
          continuation->stack-frame
 
1076
          continuation/first-subproblem
 
1077
          hardware-trap-frame?
 
1078
          hardware-trap-frame/describe
 
1079
          hardware-trap-frame/print-registers
 
1080
          hardware-trap-frame/print-stack
 
1081
          hardware-trap-frame/code
 
1082
          microcode-return/code->type
 
1083
          microcode-return/name->type
 
1084
          stack-frame->continuation
 
1085
          stack-frame-type/code
 
1086
          stack-frame-type/compiled-return-address
 
1087
          stack-frame-type/properties
 
1088
          stack-frame-type/subproblem?
 
1089
          stack-frame-type?
 
1090
          stack-frame/block-thread-events?
 
1091
          stack-frame/compiled-code?
 
1092
          stack-frame/dynamic-state
 
1093
          stack-frame/elements
 
1094
          stack-frame/interrupt-mask
 
1095
          stack-frame/length
 
1096
          stack-frame/next
 
1097
          stack-frame/next-subproblem
 
1098
          stack-frame/offset
 
1099
          stack-frame/previous-type
 
1100
          stack-frame/properties
 
1101
          stack-frame/reductions
 
1102
          stack-frame/ref
 
1103
          stack-frame/repl-eval-boundary?
 
1104
          stack-frame/resolve-stack-address
 
1105
          stack-frame/return-address
 
1106
          stack-frame/return-code
 
1107
          stack-frame/skip-non-subproblems
 
1108
          stack-frame/subproblem?
 
1109
          stack-frame/type
 
1110
          stack-frame?)
 
1111
  (export (runtime debugging-info)
 
1112
          stack-frame-type/interrupt-compiled-procedure
 
1113
          stack-frame-type/interrupt-compiled-expression)
 
1114
  (initialization (initialize-package!)))
 
1115
 
 
1116
(define-package (runtime control-point)
 
1117
  (files "cpoint")
 
1118
  (parent (runtime))
 
1119
  (export ()
 
1120
          control-point/element-stream
 
1121
          control-point/history
 
1122
          control-point/interrupt-mask
 
1123
          control-point/n-elements
 
1124
          control-point/next-control-point
 
1125
          control-point/previous-history-control-point
 
1126
          control-point/previous-history-offset
 
1127
          control-point/reusable?
 
1128
          control-point/unused-length
 
1129
          control-point?
 
1130
          make-control-point))
 
1131
 
 
1132
(define-package (runtime date/time)
 
1133
  (files "datime")
 
1134
  (parent (runtime))
 
1135
  (export ()
 
1136
          ctime-string->decoded-time
 
1137
          ctime-string->file-time
 
1138
          ctime-string->universal-time
 
1139
          day-of-week/long-string
 
1140
          day-of-week/short-string
 
1141
          decode-universal-time
 
1142
          decoded-time->ctime-string
 
1143
          decoded-time->string
 
1144
          decoded-time->universal-time
 
1145
          decoded-time/date-string
 
1146
          decoded-time/day
 
1147
          decoded-time/day-of-week
 
1148
          decoded-time/daylight-savings-time?
 
1149
          decoded-time/hour
 
1150
          decoded-time/minute
 
1151
          decoded-time/month
 
1152
          decoded-time/second
 
1153
          decoded-time/time-string
 
1154
          decoded-time/year
 
1155
          decoded-time/zone
 
1156
          encode-universal-time
 
1157
          epoch
 
1158
          file-time->global-ctime-string
 
1159
          file-time->global-time-string
 
1160
          file-time->local-ctime-string
 
1161
          file-time->local-time-string
 
1162
          file-time->string
 
1163
          get-decoded-time
 
1164
          get-universal-time
 
1165
          global-decoded-time
 
1166
          local-decoded-time
 
1167
          make-decoded-time
 
1168
          month/long-string
 
1169
          month/max-days
 
1170
          month/short-string
 
1171
          string->day-of-week
 
1172
          string->decoded-time
 
1173
          string->file-time
 
1174
          string->month
 
1175
          string->time-zone
 
1176
          string->universal-time
 
1177
          time-zone->string
 
1178
          time-zone?
 
1179
          universal-time->global-ctime-string
 
1180
          universal-time->global-decoded-time
 
1181
          universal-time->global-time-string
 
1182
          universal-time->local-ctime-string
 
1183
          universal-time->local-decoded-time
 
1184
          universal-time->local-time-string
 
1185
          universal-time->string))
 
1186
 
 
1187
(define-package (runtime debugger)
 
1188
  (files "debug")
 
1189
  (parent (runtime debugger-command-loop))
 
1190
  (export ()
 
1191
          debug
 
1192
          debugger:auto-toggle?
 
1193
          debugger:count-subproblems-limit
 
1194
          debugger:list-breadth-limit
 
1195
          debugger:list-depth-limit
 
1196
          debugger:print-return-values?
 
1197
          debugger:string-length-limit
 
1198
          debugger:student-walk?
 
1199
          debugger:use-history?)
 
1200
  (initialization (initialize-package!)))
 
1201
 
 
1202
(define-package (runtime debugger-command-loop)
 
1203
  (files "dbgcmd")
 
1204
  (parent (runtime))
 
1205
  (initialization (initialize-package!)))
 
1206
 
 
1207
(define-package (runtime debugger-utilities)
 
1208
  (files "dbgutl")
 
1209
  (parent (runtime debugger-command-loop))
 
1210
  (export (runtime debugger-command-loop)
 
1211
          debug/read-eval-print-1
 
1212
          debugger-failure
 
1213
          debugger-message
 
1214
          debugger-presentation
 
1215
          output-to-string
 
1216
          print-user-friendly-name
 
1217
          show-environment-bindings
 
1218
          show-environment-name
 
1219
          show-environment-procedure
 
1220
          show-frame
 
1221
          show-frames
 
1222
          write-dbg-name)
 
1223
  (initialization (initialize-package!)))
 
1224
 
 
1225
(define-package (runtime debugging-info)
 
1226
  (files "framex")
 
1227
  (parent (runtime))
 
1228
  (export ()
 
1229
          debugging-info/compiled-code?
 
1230
          debugging-info/evaluated-object-value
 
1231
          debugging-info/evaluated-object?
 
1232
          debugging-info/undefined-environment?
 
1233
          debugging-info/undefined-expression?
 
1234
          debugging-info/unknown-expression?
 
1235
          debugging-info/noise
 
1236
          debugging-info/noise?
 
1237
          stack-frame/debugging-info)
 
1238
  (initialization (initialize-package!)))
 
1239
 
 
1240
(define-package (runtime directory)
 
1241
  (parent (runtime))
 
1242
  (export (runtime pathname)
 
1243
          *expand-directory-prefixes?*)
 
1244
  (export ()
 
1245
          directory-read))
 
1246
 
 
1247
(os-type-case
 
1248
 ((unix)
 
1249
  (extend-package (runtime directory)
 
1250
    (files "unxdir")))
 
1251
 ((nt)
 
1252
  (extend-package (runtime directory)
 
1253
    (files "ntdir")))
 
1254
 ((os/2)
 
1255
  (extend-package (runtime directory)
 
1256
    (files "os2dir"))))
 
1257
 
 
1258
(define-package (runtime emacs-interface)
 
1259
  (files "emacs")
 
1260
  (parent (runtime))
 
1261
  (initialization (initialize-package!)))
 
1262
 
 
1263
(define-package (runtime procedure)
 
1264
  (files "uproc")
 
1265
  (parent (runtime))
 
1266
  (export ()
 
1267
          apply-hook-extra
 
1268
          apply-hook-procedure
 
1269
          apply-hook?
 
1270
          arity-dispatched-procedure?
 
1271
          compiled-closure->entry
 
1272
          compiled-closure/ref
 
1273
          compiled-closure/set!
 
1274
          compiled-closure?
 
1275
          compiled-procedure?
 
1276
          compound-procedure?
 
1277
          entity-extra
 
1278
          entity-procedure
 
1279
          entity?
 
1280
          implemented-primitive-procedure?
 
1281
          make-apply-hook
 
1282
          make-arity-dispatched-procedure
 
1283
          make-entity
 
1284
          make-primitive-procedure
 
1285
          primitive-procedure-name
 
1286
          primitive-procedure?
 
1287
          procedure-arity
 
1288
          procedure-arity-valid?
 
1289
          procedure-components
 
1290
          procedure-environment
 
1291
          procedure-lambda
 
1292
          procedure?
 
1293
          set-apply-hook-extra!
 
1294
          set-apply-hook-procedure!
 
1295
          set-entity-extra!
 
1296
          set-entity-procedure!)
 
1297
  (export (runtime continuation-parser)
 
1298
          compiled-procedure-frame-size))
 
1299
 
 
1300
(define-package (runtime environment)
 
1301
  (files "uenvir")
 
1302
  (parent (runtime))
 
1303
  (export ()
 
1304
          compiled-procedure/environment
 
1305
          environment-arguments
 
1306
          environment-assign!
 
1307
          environment-assignable?
 
1308
          environment-assigned?
 
1309
          environment-bindings
 
1310
          environment-bound-names
 
1311
          environment-bound?
 
1312
          environment-definable?
 
1313
          environment-define
 
1314
          environment-define-macro
 
1315
          environment-has-parent?
 
1316
          environment-lambda
 
1317
          environment-lookup
 
1318
          environment-lookup-macro
 
1319
          environment-macro-names
 
1320
          environment-parent
 
1321
          environment-procedure-name
 
1322
          environment-reference-type
 
1323
          environment-safe-lookup
 
1324
          environment?
 
1325
          (extend-ic-environment extend-top-level-environment)
 
1326
          extend-top-level-environment
 
1327
          guarantee-environment
 
1328
          ic-environment?
 
1329
          interpreter-environment?
 
1330
          (make-null-interpreter-environment make-root-top-level-environment)
 
1331
          make-root-top-level-environment
 
1332
          system-global-environment?
 
1333
          (top-level-environment? interpreter-environment?))
 
1334
  (export (runtime advice)
 
1335
          ic-environment/arguments
 
1336
          ic-environment/procedure)
 
1337
  (export (runtime debugging-info)
 
1338
          stack-frame/environment)
 
1339
  (initialization (initialize-package!)))
 
1340
 
 
1341
(define-package (runtime environment-inspector)
 
1342
  (files "where")
 
1343
  (parent (runtime debugger-command-loop))
 
1344
  (export ()
 
1345
          where)
 
1346
  (initialization (initialize-package!)))
 
1347
 
 
1348
(define-package (runtime error-handler)
 
1349
  (files "error")
 
1350
  (parent (runtime))
 
1351
  (export ()
 
1352
          abort
 
1353
          access-condition
 
1354
          bind-condition-handler
 
1355
          bind-default-condition-handler
 
1356
          bind-restart
 
1357
          bound-restarts
 
1358
          break-on-signals
 
1359
          condition-accessor
 
1360
          condition-constructor
 
1361
          condition-predicate
 
1362
          condition-signaller
 
1363
          condition-type/error?
 
1364
          condition-type/field-names
 
1365
          condition-type/generalizations
 
1366
          condition-type/get
 
1367
          condition-type/properties
 
1368
          condition-type/put!
 
1369
          condition-type:arithmetic-error
 
1370
          condition-type:bad-range-argument
 
1371
          condition-type:cell-error
 
1372
          condition-type:control-error
 
1373
          condition-type:datum-out-of-range
 
1374
          condition-type:derived-file-error
 
1375
          condition-type:derived-port-error
 
1376
          condition-type:derived-thread-error
 
1377
          condition-type:divide-by-zero
 
1378
          condition-type:error
 
1379
          condition-type:file-error
 
1380
          condition-type:file-operation-error
 
1381
          condition-type:floating-point-overflow
 
1382
          condition-type:floating-point-underflow
 
1383
          condition-type:illegal-datum
 
1384
          condition-type:illegal-pathname-component
 
1385
          condition-type:macro-binding
 
1386
          condition-type:no-such-restart
 
1387
          condition-type:port-error
 
1388
          condition-type:serious-condition
 
1389
          condition-type:simple-condition
 
1390
          condition-type:simple-error
 
1391
          condition-type:simple-warning
 
1392
          condition-type:thread-error
 
1393
          condition-type:unassigned-variable
 
1394
          condition-type:unbound-variable
 
1395
          condition-type:variable-error
 
1396
          condition-type:warning
 
1397
          condition-type:wrong-number-of-arguments
 
1398
          condition-type:wrong-type-argument
 
1399
          condition-type:wrong-type-datum
 
1400
          condition-type?
 
1401
          condition/continuation
 
1402
          condition/derived-thread?
 
1403
          condition/error?
 
1404
          condition/get
 
1405
          condition/other-thread
 
1406
          condition/properties
 
1407
          condition/put!
 
1408
          condition/report-string
 
1409
          condition/restarts
 
1410
          condition/type
 
1411
          condition?
 
1412
          continue
 
1413
          default/invoke-condition-handler
 
1414
          error
 
1415
          error-irritant/noise
 
1416
          error:bad-range-argument
 
1417
          error:datum-out-of-range
 
1418
          error:derived-file
 
1419
          error:derived-port
 
1420
          error:derived-thread
 
1421
          error:divide-by-zero
 
1422
          error:file-operation
 
1423
          error:illegal-pathname-component
 
1424
          error:no-such-restart
 
1425
          error:wrong-number-of-arguments
 
1426
          error:wrong-type-argument
 
1427
          error:wrong-type-datum
 
1428
          find-restart
 
1429
          first-bound-restart
 
1430
          format-error-message
 
1431
          hook/invoke-condition-handler
 
1432
          ignore-errors
 
1433
          invoke-restart
 
1434
          invoke-restart-interactively
 
1435
          make-condition
 
1436
          make-condition-type
 
1437
          muffle-warning
 
1438
          restart/effector
 
1439
          restart/get
 
1440
          restart/interactor
 
1441
          restart/name
 
1442
          restart/properties
 
1443
          restart/put!
 
1444
          restart?
 
1445
          retry
 
1446
          signal-condition
 
1447
          standard-error-handler
 
1448
          standard-error-hook
 
1449
          standard-warning-handler
 
1450
          standard-warning-hook
 
1451
          store-value
 
1452
          use-value
 
1453
          warn
 
1454
          with-restart
 
1455
          with-simple-restart
 
1456
          write-condition-report
 
1457
          write-restart-report)
 
1458
  (export (runtime microcode-errors)
 
1459
          write-operator)
 
1460
  (export (runtime rep)
 
1461
          *bound-restarts*
 
1462
          dynamic-handler-frames)
 
1463
  (export (runtime debugger)
 
1464
          continue-from-derived-thread-error)
 
1465
  (export (runtime stream)
 
1466
          ordinal-number-string
 
1467
          write-operator)
 
1468
  (export (runtime environment)
 
1469
          error:macro-binding
 
1470
          error:unassigned-variable
 
1471
          error:unbound-variable)
 
1472
  (initialization (initialize-package!)))
 
1473
 
 
1474
(define-package (runtime event-distributor)
 
1475
  (files "events")
 
1476
  (parent (runtime))
 
1477
  (export ()
 
1478
          add-event-receiver!
 
1479
          event-distributor/invoke!
 
1480
          event-distributor/receivers
 
1481
          event-distributor?
 
1482
          make-event-distributor
 
1483
          remove-event-receiver!)
 
1484
  (initialization (initialize-package!)))
 
1485
 
 
1486
(define-package (runtime extended-scode-eval)
 
1487
  (files "xeval")
 
1488
  (parent (runtime))
 
1489
  (export ()
 
1490
          extended-scode-eval
 
1491
          hook/extended-scode-eval)
 
1492
  (initialization (initialize-package!)))
 
1493
 
 
1494
(define-package (runtime file-i/o-port)
 
1495
  (files "fileio")
 
1496
  (parent (runtime))
 
1497
  (export ()
 
1498
          call-with-append-file
 
1499
          call-with-binary-append-file
 
1500
          call-with-binary-input-file
 
1501
          call-with-binary-output-file
 
1502
          call-with-input-file
 
1503
          call-with-output-file
 
1504
          open-binary-i/o-file
 
1505
          open-binary-input-file
 
1506
          open-binary-output-file
 
1507
          open-i/o-file
 
1508
          open-input-file
 
1509
          open-output-file
 
1510
          pathname-newline-translation
 
1511
          with-input-from-binary-file
 
1512
          with-input-from-file
 
1513
          with-output-to-binary-file
 
1514
          with-output-to-file)
 
1515
  (initialization (initialize-package!)))
 
1516
 
 
1517
(define-package (runtime transcript)
 
1518
  (files "tscript")
 
1519
  (parent (runtime))
 
1520
  (export ()
 
1521
          transcript-off
 
1522
          transcript-on)
 
1523
  (export (runtime rep)
 
1524
          make-transcriptable-port)
 
1525
  (export (runtime emacs-interface)
 
1526
          make-transcriptable-port
 
1527
          transcriptable-port?)
 
1528
  (initialization (initialize-package!)))
 
1529
 
 
1530
(define-package (runtime format)
 
1531
  (file-case options
 
1532
    ((load) "format")
 
1533
    (else))
 
1534
  (parent (runtime))
 
1535
  (export ()
 
1536
          format)
 
1537
  (initialization (initialize-package!)))
 
1538
 
 
1539
(define-package (runtime garbage-collector)
 
1540
  (files "gc")
 
1541
  (parent (runtime))
 
1542
  (export ()
 
1543
          constant-space/in-use
 
1544
          flush-purification-queue!
 
1545
          gc-flip
 
1546
          purify
 
1547
          set-gc-safety-margin!)
 
1548
  (export (runtime gc-statistics)
 
1549
          hook/gc-finish
 
1550
          hook/gc-start)
 
1551
  (export (runtime error-handler)
 
1552
          hook/hardware-trap)
 
1553
  (initialization (initialize-package!)))
 
1554
 
 
1555
(define-package (runtime gc-daemons)
 
1556
  (files "gcdemn")
 
1557
  (parent (runtime))
 
1558
  (export ()
 
1559
          add-gc-daemon!
 
1560
          add-gc-daemon!/no-restore
 
1561
          add-secondary-gc-daemon!
 
1562
          gc-clean
 
1563
          trigger-secondary-gc-daemons!)
 
1564
  (export (runtime hash)
 
1565
          add-primitive-gc-daemon!)
 
1566
  (export (runtime hash-table)
 
1567
          add-primitive-gc-daemon!)
 
1568
  (export (runtime generic-procedure eqht)
 
1569
          add-primitive-gc-daemon!)
 
1570
  (export (runtime interrupt-handler)
 
1571
          trigger-gc-daemons!)
 
1572
  (initialization (initialize-package!)))
 
1573
 
 
1574
(define-package (runtime gc-finalizer)
 
1575
  (files "gcfinal")
 
1576
  (parent (runtime))
 
1577
  (export ()
 
1578
          add-to-gc-finalizer!
 
1579
          gc-finalizer-elements
 
1580
          gc-finalizer?
 
1581
          make-gc-finalizer
 
1582
          remove-all-from-gc-finalizer!
 
1583
          remove-from-gc-finalizer!
 
1584
          search-gc-finalizer)
 
1585
  (initialization (initialize-package!)))
 
1586
 
 
1587
(define-package (runtime gc-notification)
 
1588
  (files "gcnote")
 
1589
  (parent (runtime))
 
1590
  (export ()
 
1591
          gc-statistic->string
 
1592
          print-gc-statistics
 
1593
          set-gc-notification!
 
1594
          toggle-gc-notification!
 
1595
          with-gc-notification!))
 
1596
 
 
1597
(define-package (runtime gc-statistics)
 
1598
  (files "gcstat")
 
1599
  (parent (runtime))
 
1600
  (export ()
 
1601
          gc-history-mode
 
1602
          gc-statistic/heap-left
 
1603
          gc-statistic/last-gc-end
 
1604
          gc-statistic/last-gc-start
 
1605
          gc-statistic/last-gc-end-clock
 
1606
          gc-statistic/last-gc-start-clock
 
1607
          gc-statistic/meter
 
1608
          gc-statistic/this-gc-end
 
1609
          gc-statistic/this-gc-start
 
1610
          gc-statistic/this-gc-end-clock
 
1611
          gc-statistic/this-gc-start-clock
 
1612
          gc-statistics
 
1613
          gc-timestamp
 
1614
          gctime)
 
1615
  (export (runtime gc-notification)
 
1616
          default/record-statistic!
 
1617
          hook/record-statistic!)
 
1618
  (initialization (initialize-package!)))
 
1619
 
 
1620
(define-package (runtime generic-i/o-port)
 
1621
  (files "genio")
 
1622
  (parent (runtime))
 
1623
  (export ()
 
1624
          make-generic-i/o-port
 
1625
          make-generic-input-port
 
1626
          make-generic-output-port)
 
1627
  (export (runtime console-i/o-port)
 
1628
          generic-i/o-type
 
1629
          operation/flush-output)
 
1630
  (export (runtime file-i/o-port)
 
1631
          generic-i/o-type
 
1632
          generic-input-type
 
1633
          generic-output-type)
 
1634
  (initialization (initialize-package!)))
 
1635
 
 
1636
(define-package (runtime gensym)
 
1637
  (files "gensym")
 
1638
  (parent (runtime))
 
1639
  (export ()
 
1640
          generate-uninterned-symbol)
 
1641
  (initialization (initialize-package!)))
 
1642
 
 
1643
(define-package (runtime global-database)
 
1644
  (files "gdatab")
 
1645
  (parent (runtime))
 
1646
  (export ()
 
1647
          add-unparser-special-object!
 
1648
          add-unparser-special-pair!
 
1649
          event:after-restart
 
1650
          event:after-restore
 
1651
          event:before-exit
 
1652
          named-structure/get-tag-description
 
1653
          named-structure/set-tag-description!
 
1654
          unparse-with-brackets
 
1655
          unparser/set-tagged-pair-method!
 
1656
          unparser/set-tagged-vector-method!
 
1657
          unparser/tagged-pair-method
 
1658
          unparser/tagged-vector-method)
 
1659
  (initialization (initialize-package!)))
 
1660
 
 
1661
(define-package (runtime hash)
 
1662
  (files "hash")
 
1663
  (parent (runtime))
 
1664
  (export ()
 
1665
          hash
 
1666
          hash-table/make
 
1667
          object-hash
 
1668
          object-hashed?
 
1669
          object-unhash
 
1670
          unhash
 
1671
          valid-hash-number?)
 
1672
  (initialization (initialize-package!)))
 
1673
 
 
1674
(define-package (runtime hash-table)
 
1675
  (files "hashtb")
 
1676
  (parent (runtime))
 
1677
  (export ()
 
1678
          eq-hash
 
1679
          eq-hash-mod
 
1680
          equal-hash
 
1681
          equal-hash-mod
 
1682
          eqv-hash
 
1683
          eqv-hash-mod
 
1684
          hash-table->alist
 
1685
          hash-table/clean!
 
1686
          hash-table/clear!
 
1687
          hash-table/constructor
 
1688
          hash-table/count
 
1689
          hash-table/datum-list
 
1690
          hash-table/entries-list
 
1691
          hash-table/entries-vector
 
1692
          hash-table/entry-datum
 
1693
          hash-table/entry-key
 
1694
          hash-table/entry-value
 
1695
          hash-table/for-each
 
1696
          hash-table/get
 
1697
          hash-table/key-hash
 
1698
          hash-table/key-list
 
1699
          hash-table/key=?
 
1700
          hash-table/lookup
 
1701
          hash-table/make-entry
 
1702
          hash-table/put!
 
1703
          hash-table/rehash-size
 
1704
          hash-table/rehash-threshold
 
1705
          hash-table/remove!
 
1706
          hash-table/set-entry-datum!
 
1707
          hash-table/set-entry-value!
 
1708
          hash-table/size
 
1709
          hash-table?
 
1710
          make-eq-hash-table
 
1711
          make-equal-hash-table
 
1712
          make-eqv-hash-table
 
1713
          make-object-hash-table
 
1714
          make-string-hash-table
 
1715
          make-symbol-hash-table
 
1716
          set-hash-table/rehash-size!
 
1717
          set-hash-table/rehash-threshold!
 
1718
          strong-hash-table/constructor
 
1719
          weak-hash-table/constructor)
 
1720
  (initialization (initialize-package!)))
 
1721
 
 
1722
(define-package (runtime history)
 
1723
  (files "histry")
 
1724
  (parent (runtime))
 
1725
  (export ()
 
1726
          with-new-history)
 
1727
  (export (runtime continuation-parser)
 
1728
          history-reductions
 
1729
          history-superproblem
 
1730
          history-transform
 
1731
          history-untransform)
 
1732
  (initialization (initialize-package!)))
 
1733
 
 
1734
(define-package (runtime krypt)
 
1735
  (file-case options
 
1736
    ((load) "krypt")
 
1737
    (else))
 
1738
  (parent (runtime))
 
1739
  (export ()
 
1740
          encrypt
 
1741
          decrypt))
 
1742
 
 
1743
(define-package (runtime compress)
 
1744
  (file-case options
 
1745
    ((load) "cpress")
 
1746
    (else))
 
1747
  (parent (runtime))
 
1748
  (export ()
 
1749
          compress
 
1750
          uncompress
 
1751
          compress-ports))
 
1752
 
 
1753
(define-package (runtime port)
 
1754
  (files "port")
 
1755
  (parent (runtime))
 
1756
  (export ()
 
1757
          close-input-port
 
1758
          close-output-port
 
1759
          close-port
 
1760
          current-input-port
 
1761
          current-output-port
 
1762
          encapsulated-port/port
 
1763
          encapsulated-port/state
 
1764
          encapsulated-port?
 
1765
          guarantee-encapsulated-port
 
1766
          guarantee-i/o-port
 
1767
          guarantee-input-port
 
1768
          guarantee-output-port
 
1769
          guarantee-port
 
1770
          guarantee-port-type
 
1771
          i/o-port-type?
 
1772
          i/o-port?
 
1773
          input-port-type?
 
1774
          input-port/channel
 
1775
          input-port/copy
 
1776
          input-port/custom-operation
 
1777
          input-port/operation
 
1778
          input-port/operation-names
 
1779
          input-port/state
 
1780
          input-port?
 
1781
          interaction-i/o-port
 
1782
          make-encapsulated-port
 
1783
          make-i/o-port
 
1784
          make-input-port
 
1785
          make-output-port
 
1786
          make-port
 
1787
          make-port-type
 
1788
          notification-output-port
 
1789
          output-port-type?
 
1790
          output-port/channel
 
1791
          output-port/copy
 
1792
          output-port/custom-operation
 
1793
          output-port/operation
 
1794
          output-port/operation-names
 
1795
          output-port/state
 
1796
          output-port?
 
1797
          port-type/operation
 
1798
          port-type/operation-names
 
1799
          port-type/operations
 
1800
          port-type?
 
1801
          port/copy
 
1802
          port/input-blocking-mode
 
1803
          port/input-channel
 
1804
          port/input-terminal-mode
 
1805
          port/operation
 
1806
          port/operation-names
 
1807
          port/output-blocking-mode
 
1808
          port/output-channel
 
1809
          port/output-terminal-mode
 
1810
          port/set-input-blocking-mode
 
1811
          port/set-input-terminal-mode
 
1812
          port/set-output-blocking-mode
 
1813
          port/set-output-terminal-mode
 
1814
          port/state
 
1815
          port/thread-mutex
 
1816
          port/type
 
1817
          port/with-input-blocking-mode
 
1818
          port/with-input-terminal-mode
 
1819
          port/with-output-blocking-mode
 
1820
          port/with-output-terminal-mode
 
1821
          port?
 
1822
          set-current-input-port!
 
1823
          set-current-output-port!
 
1824
          set-encapsulated-port/state!
 
1825
          set-input-port/state!
 
1826
          set-interaction-i/o-port!
 
1827
          set-notification-output-port!
 
1828
          set-output-port/state!
 
1829
          set-port/state!
 
1830
          set-trace-output-port!
 
1831
          trace-output-port
 
1832
          with-input-from-port
 
1833
          with-interaction-i/o-port
 
1834
          with-notification-output-port
 
1835
          with-output-to-port
 
1836
          with-trace-output-port)
 
1837
  (export (runtime input-port)
 
1838
          input-port/operation/char-ready?
 
1839
          input-port/operation/discard-char
 
1840
          input-port/operation/discard-chars
 
1841
          input-port/operation/peek-char
 
1842
          input-port/operation/read-char
 
1843
          input-port/operation/read-string
 
1844
          input-port/operation/read-substring)
 
1845
  (export (runtime output-port)
 
1846
          output-port/operation/discretionary-flush
 
1847
          output-port/operation/flush-output
 
1848
          output-port/operation/fresh-line
 
1849
          output-port/operation/write-char
 
1850
          output-port/operation/write-substring)
 
1851
  (export (runtime rep)
 
1852
          *current-input-port*
 
1853
          *current-output-port*
 
1854
          *interaction-i/o-port*
 
1855
          *notification-output-port*
 
1856
          *trace-output-port*)
 
1857
  (export (runtime emacs-interface)
 
1858
          set-port/thread-mutex!
 
1859
          standard-port-accessors))
 
1860
 
 
1861
(define-package (runtime input-port)
 
1862
  (files "input")
 
1863
  (parent (runtime))
 
1864
  (export ()
 
1865
          char-ready?
 
1866
          eof-object?
 
1867
          input-port/char-ready?
 
1868
          input-port/discard-char
 
1869
          input-port/discard-chars
 
1870
          input-port/peek-char
 
1871
          input-port/read-char
 
1872
          input-port/read-line
 
1873
          input-port/read-string
 
1874
          input-port/read-string!
 
1875
          input-port/read-substring!
 
1876
          make-eof-object
 
1877
          peek-char
 
1878
          read
 
1879
          read-char
 
1880
          read-char-no-hang
 
1881
          read-line
 
1882
          read-string
 
1883
          read-string!
 
1884
          read-substring!)
 
1885
  (export (runtime primitive-io)
 
1886
          eof-object))
 
1887
 
 
1888
(define-package (runtime output-port)
 
1889
  (files "output")
 
1890
  (parent (runtime))
 
1891
  (export ()
 
1892
          beep
 
1893
          clear
 
1894
          display
 
1895
          flush-output
 
1896
          fresh-line
 
1897
          newline
 
1898
          output-port/discretionary-flush
 
1899
          output-port/flush-output
 
1900
          output-port/fresh-line
 
1901
          output-port/write-char
 
1902
          output-port/write-object
 
1903
          output-port/write-string
 
1904
          output-port/write-substring
 
1905
          output-port/x-size
 
1906
          output-port/y-size
 
1907
          write
 
1908
          write-char
 
1909
          write-line
 
1910
          write-string
 
1911
          write-substring))
 
1912
 
 
1913
(define-package (runtime interrupt-handler)
 
1914
  (files "intrpt")
 
1915
  (parent (runtime))
 
1916
  (export (runtime emacs-interface)
 
1917
          hook/^G-interrupt
 
1918
          hook/clean-input/flush-typeahead)
 
1919
  (export (runtime load)
 
1920
          generate-suspend-file?)
 
1921
  (initialization (initialize-package!)))
 
1922
 
 
1923
(define-package (runtime lambda-abstraction)
 
1924
  (files "lambda")
 
1925
  (parent (runtime))
 
1926
  (export ()
 
1927
          block-declaration?
 
1928
          block-declaration-text
 
1929
          lambda?
 
1930
          lambda-body
 
1931
          lambda-bound
 
1932
          lambda-components
 
1933
          lambda-name
 
1934
          make-block-declaration
 
1935
          make-lambda
 
1936
          set-lambda-body!)
 
1937
  (export (runtime advice)
 
1938
          lambda-unwrap-body!
 
1939
          lambda-wrap-body!
 
1940
          lambda-wrapper-components)
 
1941
  (export (runtime environment)
 
1942
          internal-lambda?)
 
1943
  (export (runtime compiler-info)
 
1944
          lambda-tag:internal-lambda
 
1945
          lambda-tag:internal-lexpr)
 
1946
  (initialization (initialize-package!)))
 
1947
 
 
1948
(define-package (runtime list)
 
1949
  (files "list")
 
1950
  (parent (runtime))
 
1951
  (export ()
 
1952
          add-member-procedure
 
1953
          alist-copy
 
1954
          alist?
 
1955
          append
 
1956
          append!
 
1957
          append-map
 
1958
          append-map!
 
1959
          append-map*
 
1960
          append-map*!
 
1961
          assoc
 
1962
          association-procedure
 
1963
          assq
 
1964
          assv
 
1965
          caaaar
 
1966
          caaadr
 
1967
          caaar
 
1968
          caadar
 
1969
          caaddr
 
1970
          caadr
 
1971
          caar
 
1972
          cadaar
 
1973
          cadadr
 
1974
          cadar
 
1975
          caddar
 
1976
          cadddr
 
1977
          caddr
 
1978
          cadr
 
1979
          car
 
1980
          cdaaar
 
1981
          cdaadr
 
1982
          cdaar
 
1983
          cdadar
 
1984
          cdaddr
 
1985
          cdadr
 
1986
          cdar
 
1987
          cddaar
 
1988
          cddadr
 
1989
          cddar
 
1990
          cdddar
 
1991
          cddddr
 
1992
          cdddr
 
1993
          cddr
 
1994
          cdr
 
1995
          circular-list
 
1996
          cons
 
1997
          cons*
 
1998
          del-assoc
 
1999
          del-assoc!
 
2000
          del-assq
 
2001
          del-assq!
 
2002
          del-assv
 
2003
          del-assv!
 
2004
          delete
 
2005
          delete!
 
2006
          delete-association-procedure
 
2007
          delete-matching-items
 
2008
          delete-matching-items!
 
2009
          delete-member-procedure
 
2010
          delq
 
2011
          delq!
 
2012
          delv
 
2013
          delv!
 
2014
          eighth
 
2015
          except-last-pair
 
2016
          except-last-pair!
 
2017
          fifth
 
2018
          find-matching-item
 
2019
          first
 
2020
          fold-left
 
2021
          fold-right
 
2022
          for-each
 
2023
          fourth
 
2024
          general-car-cdr
 
2025
          keep-matching-items
 
2026
          last-pair
 
2027
          length
 
2028
          list
 
2029
          list->weak-list
 
2030
          list-copy
 
2031
          list-deletor
 
2032
          list-deletor!
 
2033
          list-head
 
2034
          list-of-type?
 
2035
          list-ref
 
2036
          list-search-negative
 
2037
          list-search-positive
 
2038
          list-tail
 
2039
          list-transform-negative
 
2040
          list-transform-positive
 
2041
          list?
 
2042
          make-list
 
2043
          make-circular-list
 
2044
          make-initialized-list
 
2045
          map
 
2046
          map*
 
2047
          mapcan
 
2048
          mapcan*
 
2049
          member
 
2050
          member-procedure
 
2051
          memq
 
2052
          memv
 
2053
          ninth
 
2054
          null?
 
2055
          pair?
 
2056
          reduce
 
2057
          reduce-right
 
2058
          reverse
 
2059
          reverse!
 
2060
          second
 
2061
          set-car!
 
2062
          set-cdr!
 
2063
          seventh
 
2064
          sixth
 
2065
          sublist
 
2066
          tenth
 
2067
          third
 
2068
          tree-copy
 
2069
          weak-car
 
2070
          weak-cdr
 
2071
          weak-cons
 
2072
          weak-delq!
 
2073
          weak-list->list
 
2074
          weak-memq
 
2075
          weak-pair/car?
 
2076
          weak-pair?
 
2077
          weak-set-car!
 
2078
          weak-set-cdr!)
 
2079
  (initialization (initialize-package!)))
 
2080
 
 
2081
(define-package (runtime load)
 
2082
  (files "load")
 
2083
  (parent (runtime))
 
2084
  (export ()
 
2085
          argument-command-line-parser
 
2086
          condition-type:not-loading
 
2087
          current-load-pathname
 
2088
          fasload
 
2089
          fasload-latest
 
2090
          fasload/default-types
 
2091
          load
 
2092
          load-latest
 
2093
          load-library-object-file
 
2094
          load-noisily
 
2095
          load-noisily?
 
2096
          load/default-find-pathname-with-type
 
2097
          load/default-types
 
2098
          load/loading?
 
2099
          load/purification-root
 
2100
          load/push-hook!
 
2101
          load/suppress-loading-message?
 
2102
          read-file
 
2103
          set-command-line-parser!
 
2104
          simple-command-line-parser)
 
2105
  (initialization (initialize-package!)))
 
2106
 
 
2107
(define-package (runtime microcode-errors)
 
2108
  (files "uerror")
 
2109
  (parent (runtime error-handler))
 
2110
  (export ()
 
2111
          condition-type:anomalous-microcode-error
 
2112
          condition-type:compiled-code-error
 
2113
          condition-type:fasdump-environment
 
2114
          condition-type:fasl-file-bad-data
 
2115
          condition-type:fasl-file-compiled-mismatch
 
2116
          condition-type:fasl-file-too-big
 
2117
          condition-type:fasload-band
 
2118
          condition-type:fasload-error
 
2119
          condition-type:hardware-trap
 
2120
          condition-type:impurify-object-too-large
 
2121
          condition-type:inapplicable-object
 
2122
          condition-type:out-of-file-handles
 
2123
          condition-type:primitive-io-error
 
2124
          condition-type:primitive-procedure-error
 
2125
          condition-type:system-call-error
 
2126
          condition-type:unimplemented-primitive
 
2127
          condition-type:unimplemented-primitive-for-os
 
2128
          condition-type:unlinkable-variable
 
2129
          condition-type:user-microcode-reset
 
2130
          condition-type:wrong-arity-primitives)
 
2131
  (initialization (initialize-package!)))
 
2132
 
 
2133
(define-package (runtime microcode-tables)
 
2134
  (files "utabs")
 
2135
  (parent (runtime))
 
2136
  (export ()
 
2137
          char:newline
 
2138
          fixed-object/code->name
 
2139
          fixed-object/code-limit
 
2140
          fixed-object/name->code
 
2141
          fixed-objects-item
 
2142
          fixed-objects-vector-slot
 
2143
          microcode-error/code->name
 
2144
          microcode-error/code-limit
 
2145
          microcode-error/name->code
 
2146
          microcode-id/floating-epsilon
 
2147
          microcode-id/floating-mantissa-bits
 
2148
          microcode-id/modification
 
2149
          microcode-id/operating-system
 
2150
          microcode-id/operating-system-name
 
2151
          microcode-id/operating-system-variant
 
2152
          microcode-id/release-string
 
2153
          microcode-id/stack-type
 
2154
          microcode-id/tty-x-size
 
2155
          microcode-id/tty-y-size
 
2156
          microcode-id/version
 
2157
          microcode-identification-item
 
2158
          microcode-identification-vector-slot
 
2159
          microcode-object/unassigned
 
2160
          microcode-return/code->name
 
2161
          microcode-return/code-limit
 
2162
          microcode-return/name->code
 
2163
          microcode-system-call-error/code->name
 
2164
          microcode-system-call-error/name->code
 
2165
          microcode-system-call/code->name
 
2166
          microcode-system-call/name->code
 
2167
          microcode-termination/code->name
 
2168
          microcode-termination/code-limit
 
2169
          microcode-termination/name->code
 
2170
          microcode-type/code->name
 
2171
          microcode-type/code-limit
 
2172
          microcode-type/name->code)
 
2173
  (export (runtime save/restore)
 
2174
          re-read-microcode-tables!)
 
2175
  (initialization (initialize-package!)))
 
2176
 
 
2177
(define-package (runtime number)
 
2178
  (files "arith" "dragon4")
 
2179
  (parent (runtime))
 
2180
  (export ()
 
2181
          *
 
2182
          +
 
2183
          -
 
2184
          -1+
 
2185
          /
 
2186
          1+
 
2187
          <
 
2188
          <=
 
2189
          =
 
2190
          >
 
2191
          >=
 
2192
          abs
 
2193
          acos
 
2194
          angle
 
2195
          asin
 
2196
          atan
 
2197
          ceiling
 
2198
          ceiling->exact
 
2199
          complex?
 
2200
          conjugate
 
2201
          cos
 
2202
          denominator
 
2203
          even?
 
2204
          exact->inexact
 
2205
          exact-integer?
 
2206
          exact-nonnegative-integer?
 
2207
          exact-rational?
 
2208
          exact?
 
2209
          exp
 
2210
          expt
 
2211
          flonum-unparser-cutoff
 
2212
          flonum-unparser:engineering-output
 
2213
          flonum-unparser:normal-output
 
2214
          flonum-unparser:scientific-output
 
2215
          floor
 
2216
          floor->exact
 
2217
          gcd
 
2218
          imag-part
 
2219
          inexact->exact
 
2220
          inexact?
 
2221
          integer-ceiling
 
2222
          integer-divide
 
2223
          integer-divide-quotient
 
2224
          integer-divide-remainder
 
2225
          integer-floor
 
2226
          integer-round
 
2227
          integer-truncate
 
2228
          integer?
 
2229
          lcm
 
2230
          log
 
2231
          magnitude
 
2232
          make-polar
 
2233
          make-rectangular
 
2234
          max
 
2235
          min
 
2236
          modulo
 
2237
          negative?
 
2238
          number->string
 
2239
          number?
 
2240
          numerator
 
2241
          odd?
 
2242
          positive?
 
2243
          quotient
 
2244
          rational?
 
2245
          rationalize
 
2246
          rationalize->exact
 
2247
          real-part
 
2248
          real?
 
2249
          remainder
 
2250
          round
 
2251
          round->exact
 
2252
          simplest-exact-rational
 
2253
          simplest-rational
 
2254
          sin
 
2255
          square
 
2256
          sqrt
 
2257
          tan
 
2258
          truncate
 
2259
          truncate->exact
 
2260
          zero?)
 
2261
  (initialization
 
2262
   (begin
 
2263
     (initialize-package!)
 
2264
     (initialize-dragon4!))))
 
2265
 
 
2266
(define-package (runtime number interface)
 
2267
  (file-case options
 
2268
    ((load) "numint")
 
2269
    (else))
 
2270
  (parent (runtime number))
 
2271
  (export ()
 
2272
          complex-package
 
2273
          integer-package
 
2274
          make-accumulation-operator
 
2275
          make-arithmetic-package
 
2276
          make-inverse-accumulation-operator
 
2277
          rational-package
 
2278
          real-package))
 
2279
 
 
2280
(define-package (runtime number-parser)
 
2281
  (files "numpar")
 
2282
  (parent (runtime))
 
2283
  (export ()
 
2284
          flonum-parser-fast?
 
2285
          string->number
 
2286
          substring->number))
 
2287
 
 
2288
(define-package (runtime options)
 
2289
  (files "option")
 
2290
  (parent (runtime))
 
2291
  (export ()
 
2292
          *initial-options-file*
 
2293
          declare-shared-library
 
2294
          define-load-option
 
2295
          dummy-option-loader
 
2296
          further-load-options
 
2297
          load-option
 
2298
          local-load-options
 
2299
          standard-load-options
 
2300
          standard-option-loader))
 
2301
 
 
2302
(define-package (runtime parser)
 
2303
  (files "parse")
 
2304
  (parent (runtime))
 
2305
  (export ()
 
2306
          *parser-canonicalize-symbols?*
 
2307
          *parser-radix*
 
2308
          parse-object
 
2309
          parse-objects
 
2310
          system-global-parser-table)
 
2311
  (export (runtime character)
 
2312
          char-set/atom-delimiters)
 
2313
  (export (runtime syntactic-closures)
 
2314
          lambda-optional-tag
 
2315
          lambda-rest-tag)
 
2316
  (export (runtime unparser)
 
2317
          lambda-auxiliary-tag
 
2318
          lambda-optional-tag
 
2319
          lambda-rest-tag)
 
2320
  (export (runtime unsyntaxer)
 
2321
          lambda-auxiliary-tag
 
2322
          lambda-optional-tag
 
2323
          lambda-rest-tag)
 
2324
  (export (runtime parser-table)
 
2325
          collect-list-wrapper)
 
2326
  (initialization (initialize-package!)))
 
2327
 
 
2328
(define-package (runtime parser-table)
 
2329
  (files "partab")
 
2330
  (parent (runtime))
 
2331
  (export ()
 
2332
          current-parser-table
 
2333
          guarantee-parser-table
 
2334
          make-parser-table
 
2335
          parser-table/copy
 
2336
          parser-table/entry
 
2337
          parser-table/set-entry!
 
2338
          parser-table?
 
2339
          set-current-parser-table!
 
2340
          with-current-parser-table)
 
2341
  (export (runtime parser)
 
2342
          parser-table/collect-list
 
2343
          parser-table/collect-list-special
 
2344
          parser-table/parse-object
 
2345
          parser-table/parse-object-special)
 
2346
  (initialization (initialize-package!)))
 
2347
 
 
2348
(define-package (runtime pathname)
 
2349
  (files "pathnm")
 
2350
  (parent (runtime))
 
2351
  (export ()
 
2352
          *default-pathname-defaults*
 
2353
          ->namestring
 
2354
          ->pathname
 
2355
          ->truename
 
2356
          directory-namestring
 
2357
          directory-pathname
 
2358
          directory-pathname-as-file
 
2359
          directory-pathname?
 
2360
          enough-namestring
 
2361
          enough-pathname
 
2362
          file-namestring
 
2363
          file-pathname
 
2364
          host-namestring
 
2365
          host/type-name
 
2366
          host=?
 
2367
          host?
 
2368
          init-file-pathname
 
2369
          local-host
 
2370
          make-pathname
 
2371
          merge-pathnames
 
2372
          parse-namestring
 
2373
          pathname-absolute?
 
2374
          pathname-as-directory
 
2375
          pathname-default
 
2376
          pathname-default-device
 
2377
          pathname-default-directory
 
2378
          pathname-default-name
 
2379
          pathname-default-type
 
2380
          pathname-default-version
 
2381
          pathname-device
 
2382
          pathname-directory
 
2383
          pathname-end-of-line-string
 
2384
          pathname-host
 
2385
          pathname-name
 
2386
          pathname-new-device
 
2387
          pathname-new-directory
 
2388
          pathname-new-name
 
2389
          pathname-new-type
 
2390
          pathname-new-version
 
2391
          pathname-simplify
 
2392
          pathname-type
 
2393
          pathname-version
 
2394
          pathname-wild?
 
2395
          pathname=?
 
2396
          pathname?
 
2397
          system-library-directory-pathname
 
2398
          system-library-pathname
 
2399
          user-homedir-pathname)
 
2400
  (initialization (initialize-package!)))
 
2401
 
 
2402
(define-package (runtime pathname unix)
 
2403
  (files "unxpth")
 
2404
  (parent (runtime pathname))
 
2405
  (initialization (initialize-package!)))
 
2406
 
 
2407
(define-package (runtime pathname dos)
 
2408
  (files "dospth")
 
2409
  (parent (runtime pathname))
 
2410
  (initialization (initialize-package!)))
 
2411
 
 
2412
(define-package (runtime population)
 
2413
  (files "poplat")
 
2414
  (parent (runtime))
 
2415
  (export ()
 
2416
          add-to-population!
 
2417
          exists-an-inhabitant?
 
2418
          for-all-inhabitants?
 
2419
          make-population
 
2420
          map-over-population
 
2421
          map-over-population!
 
2422
          population?
 
2423
          remove-from-population!)
 
2424
  (initialization (initialize-package!)))
 
2425
 
 
2426
(define-package (runtime pretty-printer)
 
2427
  (files "pp")
 
2428
  (parent (runtime))
 
2429
  (export ()
 
2430
          *pp-arity-dispatched-procedure-style*
 
2431
          *pp-auto-highlighter*
 
2432
          *pp-avoid-circularity?*
 
2433
          *pp-default-as-code?*
 
2434
          *pp-forced-x-size*
 
2435
          *pp-lists-as-tables?*
 
2436
          *pp-named-lambda->define?*
 
2437
          *pp-no-highlights?*
 
2438
          *pp-primitives-by-name*
 
2439
          *pp-save-vertical-space?*
 
2440
          *pp-uninterned-symbols-by-name*
 
2441
          make-pretty-printer-highlight
 
2442
          pp
 
2443
          pp-description
 
2444
          pretty-print)
 
2445
  (initialization (initialize-package!)))
 
2446
 
 
2447
(define-package (runtime primitive-io)
 
2448
  (files "io") 
 
2449
  (parent (runtime))
 
2450
  (export ()
 
2451
          all-open-channels
 
2452
          channel-blocking
 
2453
          channel-blocking?
 
2454
          channel-close
 
2455
          channel-closed?
 
2456
          channel-descriptor-for-select
 
2457
          channel-file-length
 
2458
          channel-file-position
 
2459
          channel-file-set-position
 
2460
          channel-nonblocking
 
2461
          channel-open?
 
2462
          channel-port
 
2463
          channel-read
 
2464
          channel-read-block
 
2465
          channel-table
 
2466
          channel-type
 
2467
          channel-type=directory?
 
2468
          channel-type=file?
 
2469
          channel-type=terminal?
 
2470
          channel-type=unknown?
 
2471
          channel-write
 
2472
          channel-write-block
 
2473
          channel-write-char-block
 
2474
          channel-write-string-block
 
2475
          channel?
 
2476
          close-all-open-channels
 
2477
          close-all-open-files
 
2478
          directory-channel-close
 
2479
          directory-channel-open
 
2480
          directory-channel-read
 
2481
          directory-channel-read-matching
 
2482
          directory-channel?
 
2483
          file-open-append-channel
 
2484
          file-open-input-channel
 
2485
          file-open-io-channel
 
2486
          file-open-output-channel
 
2487
          make-pipe
 
2488
          open-pty-master
 
2489
          pty-master-continue
 
2490
          pty-master-hangup
 
2491
          pty-master-interrupt
 
2492
          pty-master-kill
 
2493
          pty-master-quit
 
2494
          pty-master-send-signal
 
2495
          pty-master-stop
 
2496
          set-terminal-input-baud-rate!
 
2497
          set-terminal-output-baud-rate!
 
2498
          terminal-cooked-input
 
2499
          terminal-cooked-input?
 
2500
          terminal-cooked-output
 
2501
          terminal-cooked-output?
 
2502
          terminal-drain-output
 
2503
          terminal-flush-input
 
2504
          terminal-flush-output
 
2505
          terminal-get-state
 
2506
          terminal-input-baud-rate
 
2507
          terminal-output-baud-rate
 
2508
          terminal-raw-input
 
2509
          terminal-raw-output
 
2510
          terminal-set-state
 
2511
          test-for-input-on-channel
 
2512
          test-for-input-on-descriptor
 
2513
          tty-input-channel
 
2514
          tty-output-channel
 
2515
          with-channel-blocking)
 
2516
  (export (runtime load)
 
2517
          channel-descriptor)
 
2518
  (export (runtime socket)
 
2519
          channel-descriptor
 
2520
          open-channel)
 
2521
  (export (runtime subprocess)
 
2522
          channel-descriptor)
 
2523
  (export (runtime generic-i/o-port)
 
2524
          input-buffer/buffered-chars
 
2525
          input-buffer/channel
 
2526
          input-buffer/char-ready?
 
2527
          input-buffer/chars-remaining
 
2528
          input-buffer/close
 
2529
          input-buffer/discard-char
 
2530
          input-buffer/discard-until-delimiter
 
2531
          input-buffer/eof?
 
2532
          input-buffer/open?
 
2533
          input-buffer/peek-char
 
2534
          input-buffer/read-char
 
2535
          input-buffer/read-substring
 
2536
          input-buffer/read-until-delimiter
 
2537
          input-buffer/set-size
 
2538
          input-buffer/size
 
2539
          make-input-buffer
 
2540
          make-output-buffer
 
2541
          output-buffer/buffered-chars
 
2542
          output-buffer/channel
 
2543
          output-buffer/close
 
2544
          output-buffer/drain-block
 
2545
          output-buffer/line-start?
 
2546
          output-buffer/open?
 
2547
          output-buffer/set-size
 
2548
          output-buffer/size
 
2549
          output-buffer/write-char-block
 
2550
          output-buffer/write-substring
 
2551
          output-buffer/write-substring-block
 
2552
          set-channel-port!)
 
2553
  (export (runtime file-i/o-port)
 
2554
          input-buffer/chars-remaining
 
2555
          input-buffer/read-substring
 
2556
          make-input-buffer
 
2557
          make-output-buffer
 
2558
          set-channel-port!)
 
2559
  (export (runtime console-i/o-port)
 
2560
          input-buffer/buffer-contents
 
2561
          input-buffer/buffered-chars
 
2562
          input-buffer/channel
 
2563
          input-buffer/char-ready?
 
2564
          input-buffer/eof?
 
2565
          input-buffer/peek-char
 
2566
          input-buffer/read-char
 
2567
          input-buffer/set-buffer-contents
 
2568
          input-buffer/set-size
 
2569
          input-buffer/size
 
2570
          make-input-buffer
 
2571
          make-output-buffer
 
2572
          output-buffer/buffered-chars
 
2573
          output-buffer/channel
 
2574
          output-buffer/drain-block
 
2575
          output-buffer/line-start?
 
2576
          output-buffer/set-size
 
2577
          output-buffer/size
 
2578
          output-buffer/write-char-block
 
2579
          output-buffer/write-substring-block
 
2580
          set-channel-port!)
 
2581
  (export (runtime microcode-errors)
 
2582
          port-error-test)
 
2583
  (export (runtime x-graphics)
 
2584
          have-select?)
 
2585
  (export (runtime thread)
 
2586
          have-select?)
 
2587
  (export (runtime directory)
 
2588
          directory-channel/descriptor)
 
2589
  (initialization (initialize-package!)))
 
2590
 
 
2591
(define-package (runtime program-copier)
 
2592
  (files "prgcop")
 
2593
  (parent (runtime))
 
2594
  (export ()
 
2595
          copy-program)
 
2596
  (initialization (initialize-package!)))
 
2597
 
 
2598
(define-package (runtime random-number)
 
2599
  (files "random")
 
2600
  (parent (runtime))
 
2601
  (export ()
 
2602
          *random-state*
 
2603
          flo:random-unit
 
2604
          make-random-state
 
2605
          random
 
2606
          random-byte-vector
 
2607
          random-state?)
 
2608
  (initialization (initialize-package!)))
 
2609
 
 
2610
(define-package (runtime record)
 
2611
  (files "record")
 
2612
  (parent (runtime))
 
2613
  (export ()
 
2614
          %make-record
 
2615
          %record
 
2616
          %record-copy
 
2617
          %record-length
 
2618
          %record-ref
 
2619
          %record-set!
 
2620
          %record?
 
2621
          define-structure/keyword-parser
 
2622
          define-structure/list-accessor
 
2623
          define-structure/list-modifier
 
2624
          define-structure/vector-accessor
 
2625
          define-structure/vector-modifier
 
2626
          make-define-structure-type
 
2627
          make-record-type
 
2628
          named-structure/description
 
2629
          named-structure?
 
2630
          record-accessor
 
2631
          record-constructor
 
2632
          record-copy
 
2633
          record-description
 
2634
          record-modifier
 
2635
          record-predicate
 
2636
          record-type-descriptor
 
2637
          record-type-dispatch-tag
 
2638
          record-type-field-names
 
2639
          record-type-name
 
2640
          record-type?
 
2641
          record-updater
 
2642
          record?
 
2643
          set-record-type-unparser-method!
 
2644
          unparse-record)
 
2645
  (export (runtime record-slot-access)
 
2646
          record-type-field-index)
 
2647
  (export (runtime unparser)
 
2648
          structure-tag/unparser-method)
 
2649
  (initialization (initialize-package!)))
 
2650
 
 
2651
(define-package (runtime reference-trap)
 
2652
  (files "urtrap")
 
2653
  (parent (runtime))
 
2654
  (export ()
 
2655
          cached-reference-trap-value
 
2656
          cached-reference-trap?
 
2657
          macro-reference-trap-transformer
 
2658
          macro-reference-trap?
 
2659
          make-macro-reference-trap
 
2660
          make-unassigned-reference-trap
 
2661
          make-unbound-reference-trap
 
2662
          make-unmapped-macro-reference-trap
 
2663
          make-unmapped-unassigned-reference-trap
 
2664
          make-unmapped-unbound-reference-trap
 
2665
          map-reference-trap
 
2666
          map-reference-trap-value
 
2667
          reference-trap-kind
 
2668
          reference-trap-kind-name
 
2669
          reference-trap?
 
2670
          unassigned-reference-trap?
 
2671
          unbound-reference-trap?
 
2672
          unmap-reference-trap
 
2673
          unmapped-macro-reference-trap?
 
2674
          unmapped-unassigned-reference-trap?
 
2675
          unmapped-unbound-reference-trap?)
 
2676
  (export (runtime syntactic-closures)
 
2677
          make-macro-reference-trap-expression)
 
2678
  (export (runtime unsyntaxer)
 
2679
          macro-reference-trap-expression-transformer
 
2680
          macro-reference-trap-expression?))
 
2681
 
 
2682
(define-package (runtime rep)
 
2683
  (files "rep")
 
2684
  (parent (runtime))
 
2685
  (export ()
 
2686
          ->environment
 
2687
          abort->nearest
 
2688
          abort->previous
 
2689
          abort->top-level
 
2690
          bkpt
 
2691
          breakpoint
 
2692
          breakpoint-procedure
 
2693
          breakpoint/environment
 
2694
          cmdl-interrupt/abort-nearest
 
2695
          cmdl-interrupt/abort-previous
 
2696
          cmdl-interrupt/abort-top-level
 
2697
          cmdl-interrupt/breakpoint
 
2698
          cmdl-message/active
 
2699
          cmdl-message/append
 
2700
          cmdl-message/null
 
2701
          cmdl-message/strings
 
2702
          cmdl/base
 
2703
          cmdl/driver
 
2704
          cmdl/level
 
2705
          cmdl/operation
 
2706
          cmdl/operation-names
 
2707
          cmdl/parent
 
2708
          cmdl/port
 
2709
          cmdl/properties
 
2710
          cmdl/start
 
2711
          cmdl/state
 
2712
          cmdl?
 
2713
          condition-type:breakpoint
 
2714
          condition/breakpoint?
 
2715
          ge
 
2716
          in
 
2717
          initial-top-level-repl
 
2718
          make-cmdl
 
2719
          make-repl
 
2720
          make-repl-history
 
2721
          make-repl-message
 
2722
          nearest-cmdl
 
2723
          nearest-cmdl/level
 
2724
          nearest-cmdl/port
 
2725
          nearest-repl
 
2726
          nearest-repl/condition
 
2727
          nearest-repl/environment
 
2728
          out
 
2729
          pe
 
2730
          proceed
 
2731
          push-cmdl
 
2732
          push-repl
 
2733
          re
 
2734
          read-eval-print
 
2735
          repl-history/read
 
2736
          repl-history/record!
 
2737
          repl-history/size
 
2738
          repl-printer-history-size
 
2739
          repl-reader-history-size
 
2740
          repl-scode-eval
 
2741
          repl/base
 
2742
          repl/condition
 
2743
          repl/environment
 
2744
          repl/parent
 
2745
          repl/printer-history
 
2746
          repl/prompt
 
2747
          repl/reader-history
 
2748
          repl/start
 
2749
          repl:allow-restart-notifications?
 
2750
          repl:write-result-hash-numbers?
 
2751
          repl?
 
2752
          restart
 
2753
          set-cmdl/state!
 
2754
          set-repl/environment!
 
2755
          set-repl/printer-history!
 
2756
          set-repl/prompt!
 
2757
          set-repl/reader-history!
 
2758
          signal-breakpoint
 
2759
          standard-breakpoint-handler
 
2760
          standard-breakpoint-hook
 
2761
          ve
 
2762
          with-repl-eval-boundary)
 
2763
  (export (runtime load)
 
2764
          hook/repl-eval
 
2765
          hook/repl-write)
 
2766
  (export (runtime emacs-interface)
 
2767
          hook/error-decision
 
2768
          set-cmdl/port!)
 
2769
  (export (runtime user-interface)
 
2770
          hook/repl-eval)
 
2771
  (export (runtime debugger)
 
2772
          write-restarts)
 
2773
  (export (runtime working-directory)
 
2774
          cmdl/set-default-directory)
 
2775
  (initialization (initialize-package!)))
 
2776
 
 
2777
(define-package (runtime save/restore)
 
2778
  (files "savres")
 
2779
  (parent (runtime))
 
2780
  (export ()
 
2781
          disk-restore
 
2782
          disk-save
 
2783
          dump-world
 
2784
          identify-world)
 
2785
  (export (runtime gc-daemons)
 
2786
          *within-restore-window?*)
 
2787
  (export (runtime user-interface)
 
2788
          *within-restore-window?*)
 
2789
  (initialization (initialize-package!)))
 
2790
 
 
2791
(define-package (runtime scode)
 
2792
  (files "scode")
 
2793
  (parent (runtime))
 
2794
  (export ()
 
2795
          absolute-reference-name
 
2796
          absolute-reference-to?
 
2797
          absolute-reference?
 
2798
          access-components
 
2799
          access-environment
 
2800
          access-name
 
2801
          access?
 
2802
          assignment-components
 
2803
          assignment-components-with-variable
 
2804
          assignment-name
 
2805
          assignment-value
 
2806
          assignment-variable
 
2807
          assignment?
 
2808
          comment-components
 
2809
          comment-expression
 
2810
          comment-text
 
2811
          comment?
 
2812
          declaration-components
 
2813
          declaration-expression
 
2814
          declaration-text
 
2815
          declaration?
 
2816
          definition-components
 
2817
          definition-name
 
2818
          definition-value
 
2819
          definition?
 
2820
          delay-components
 
2821
          delay-expression
 
2822
          delay?
 
2823
          make-absolute-reference
 
2824
          make-access
 
2825
          make-assignment
 
2826
          make-assignment-from-variable
 
2827
          make-comment
 
2828
          make-declaration
 
2829
          make-definition
 
2830
          make-delay
 
2831
          make-quotation
 
2832
          make-the-environment
 
2833
          make-variable
 
2834
          quotation-expression
 
2835
          quotation?
 
2836
          scode-constant?
 
2837
          set-comment-expression!
 
2838
          set-comment-text!
 
2839
          set-declaration-expression!
 
2840
          set-declaration-text!
 
2841
          the-environment?
 
2842
          variable-components
 
2843
          variable-name
 
2844
          variable?)
 
2845
  (initialization (initialize-package!)))
 
2846
 
 
2847
(define-package (runtime scode-combinator)
 
2848
  (files "scomb")
 
2849
  (parent (runtime))
 
2850
  (export ()
 
2851
          combination-components
 
2852
          combination-operands
 
2853
          combination-operator
 
2854
          combination-size
 
2855
          combination-subexpressions
 
2856
          combination?
 
2857
          conditional-alternative
 
2858
          conditional-components
 
2859
          conditional-consequent
 
2860
          conditional-predicate
 
2861
          conditional-subexpressions
 
2862
          conditional?
 
2863
          disjunction-alternative
 
2864
          disjunction-components
 
2865
          disjunction-predicate
 
2866
          disjunction-subexpressions
 
2867
          disjunction?
 
2868
          make-combination
 
2869
          make-conditional
 
2870
          make-disjunction
 
2871
          make-sequence
 
2872
          make-unassigned?
 
2873
          sequence-actions
 
2874
          sequence-components
 
2875
          sequence-immediate-actions
 
2876
          sequence?
 
2877
          unassigned?-components
 
2878
          unassigned?-name
 
2879
          unassigned??
 
2880
          undefined-conditional-branch)
 
2881
  (export (runtime debugging-info)
 
2882
          %make-combination)
 
2883
  (initialization (initialize-package!)))
 
2884
 
 
2885
(define-package (runtime scode-data)
 
2886
  (files "sdata")
 
2887
  (parent (runtime))
 
2888
  (export (runtime lambda-abstraction)
 
2889
          &pair-car
 
2890
          &pair-cdr
 
2891
          &pair-set-car!
 
2892
          &pair-set-cdr!
 
2893
          &triple-first
 
2894
          &triple-second
 
2895
          &triple-set-first!
 
2896
          &triple-set-second!
 
2897
          &triple-set-third!
 
2898
          &triple-third
 
2899
          &typed-pair-cons
 
2900
          &typed-triple-cons)
 
2901
  (export (runtime scode)
 
2902
          &pair-car
 
2903
          &pair-cdr
 
2904
          &pair-set-car!
 
2905
          &pair-set-cdr!
 
2906
          &singleton-element
 
2907
          &typed-pair-cons
 
2908
          &typed-singleton-cons)
 
2909
  (export (runtime scode-combinator)
 
2910
          &pair-car
 
2911
          &pair-cdr
 
2912
          &pair-set-car!
 
2913
          &pair-set-cdr!
 
2914
          &subvector->list
 
2915
          &triple-first
 
2916
          &triple-second
 
2917
          &triple-set-first!
 
2918
          &triple-set-second!
 
2919
          &triple-set-third!
 
2920
          &triple-third
 
2921
          &typed-pair-cons
 
2922
          &typed-triple-cons
 
2923
          &typed-vector-cons
 
2924
          &vector-length
 
2925
          &vector-ref)
 
2926
  (export (runtime scode-scan)
 
2927
          &pair-car
 
2928
          &pair-cdr
 
2929
          &pair-set-car!
 
2930
          &pair-set-cdr!
 
2931
          &triple-first
 
2932
          &triple-second
 
2933
          &triple-set-first!
 
2934
          &triple-set-second!
 
2935
          &triple-set-third!
 
2936
          &triple-third
 
2937
          &typed-pair-cons
 
2938
          &typed-triple-cons)
 
2939
  (export (runtime debugging-info)
 
2940
          &pair-car
 
2941
          &pair-cdr
 
2942
          &triple-first
 
2943
          &triple-second
 
2944
          &triple-third
 
2945
          &vector-ref))
 
2946
 
 
2947
(define-package (runtime scode-scan)
 
2948
  (files "scan")
 
2949
  (parent (runtime))
 
2950
  (export ()
 
2951
          make-open-block
 
2952
          open-block-components
 
2953
          open-block?
 
2954
          scan-defines
 
2955
          unscan-defines))
 
2956
 
 
2957
(define-package (runtime scode-walker)
 
2958
  (files "codwlk")
 
2959
  (parent (runtime))
 
2960
  (export ()
 
2961
          make-scode-walker
 
2962
          scode-walk
 
2963
          scode-walker?)
 
2964
  (initialization (initialize-package!)))
 
2965
 
 
2966
(define-package (runtime socket)
 
2967
  (files "socket")
 
2968
  (parent (runtime))
 
2969
  (export ()
 
2970
          allocate-host-address
 
2971
          canonical-host-name
 
2972
          close-tcp-server-socket
 
2973
          get-host-by-address
 
2974
          get-host-by-name
 
2975
          get-host-name
 
2976
          host-address-any
 
2977
          host-address-loopback
 
2978
          open-tcp-server-socket
 
2979
          open-tcp-stream-socket
 
2980
          open-tcp-stream-socket-channel
 
2981
          open-unix-stream-socket
 
2982
          open-unix-stream-socket-channel
 
2983
          os/hostname
 
2984
          tcp-server-connection-accept))
 
2985
 
 
2986
(define-package (runtime subprocess)
 
2987
  (file-case options
 
2988
    ((load) "process")
 
2989
    (else))
 
2990
  (parent (runtime))
 
2991
  (export ()
 
2992
          make-subprocess
 
2993
          process-environment-bind
 
2994
          run-subprocess-in-foreground
 
2995
          scheme-subprocess-environment
 
2996
          start-batch-subprocess
 
2997
          start-pipe-subprocess
 
2998
          start-pty-subprocess
 
2999
          start-subprocess-in-background
 
3000
          subprocess-arguments
 
3001
          subprocess-continue-background
 
3002
          subprocess-continue-foreground
 
3003
          subprocess-delete
 
3004
          subprocess-exit-reason
 
3005
          subprocess-filename
 
3006
          subprocess-get
 
3007
          subprocess-global-status-tick
 
3008
          subprocess-hangup
 
3009
          subprocess-i/o-port
 
3010
          subprocess-id
 
3011
          subprocess-input-channel
 
3012
          subprocess-input-port
 
3013
          subprocess-interrupt
 
3014
          subprocess-job-control-available?
 
3015
          subprocess-job-control-status
 
3016
          subprocess-kill
 
3017
          subprocess-list
 
3018
          subprocess-output-channel
 
3019
          subprocess-output-port
 
3020
          subprocess-properties
 
3021
          subprocess-pty-master
 
3022
          subprocess-put!
 
3023
          subprocess-quit
 
3024
          subprocess-remove!
 
3025
          subprocess-signal
 
3026
          subprocess-status
 
3027
          subprocess-status-tick
 
3028
          subprocess-stop
 
3029
          subprocess-wait
 
3030
          subprocess?)
 
3031
  (export (runtime primitive-io)
 
3032
          handle-subprocess-status-change)
 
3033
  (export (runtime socket)
 
3034
          handle-subprocess-status-change)
 
3035
  (initialization (initialize-package!)))
 
3036
 
 
3037
(define-package (runtime synchronous-subprocess)
 
3038
  (file-case options
 
3039
    ((load) "syncproc")
 
3040
    (else))
 
3041
  (parent (runtime))
 
3042
  (export ()
 
3043
          condition-type:subprocess-abnormal-termination
 
3044
          condition-type:subprocess-signalled
 
3045
          condition-type:subprocess-stopped
 
3046
          run-shell-command
 
3047
          run-synchronous-subprocess))
 
3048
 
 
3049
(define-package (runtime graphics)
 
3050
  (files "graphics")
 
3051
  (parent (runtime))
 
3052
  (export ()
 
3053
          enumerate-graphics-types
 
3054
          graphics-bind-drawing-mode
 
3055
          graphics-bind-line-style
 
3056
          graphics-clear
 
3057
          graphics-close
 
3058
          graphics-coordinate-limits
 
3059
          graphics-device-coordinate-limits
 
3060
          graphics-device/descriptor
 
3061
          graphics-device/properties
 
3062
          graphics-device?
 
3063
          graphics-disable-buffering
 
3064
          graphics-drag-cursor
 
3065
          graphics-draw-line
 
3066
          graphics-draw-point
 
3067
          graphics-draw-text
 
3068
          graphics-enable-buffering
 
3069
          graphics-erase-point
 
3070
          graphics-flush
 
3071
          graphics-move-cursor
 
3072
          graphics-operation
 
3073
          graphics-reset-clip-rectangle
 
3074
          graphics-set-clip-rectangle
 
3075
          graphics-set-coordinate-limits
 
3076
          graphics-set-drawing-mode
 
3077
          graphics-set-line-style
 
3078
          graphics-type
 
3079
          graphics-type-available?
 
3080
          graphics-type-name
 
3081
          graphics-type-properties
 
3082
          image-type
 
3083
          image/create
 
3084
          image/descriptor
 
3085
          image/destroy
 
3086
          image/draw
 
3087
          image/draw-subimage
 
3088
          image/fill-from-byte-vector
 
3089
          image/height
 
3090
          image/width
 
3091
          image?
 
3092
          make-graphics-device
 
3093
          make-graphics-device-type)
 
3094
  (export (runtime x-graphics)
 
3095
          make-image-type)
 
3096
  (export (runtime os2-graphics)
 
3097
          graphics-device/buffer?
 
3098
          make-image-type))
 
3099
 
 
3100
(define-package (runtime x-graphics)
 
3101
  (file-case os-type
 
3102
    ((unix) "x11graph")
 
3103
    (else))
 
3104
  (parent (runtime))
 
3105
  (export ()
 
3106
          create-x-colormap
 
3107
          create-x-image
 
3108
          x-character-bounds/ascent
 
3109
          x-character-bounds/descent
 
3110
          x-character-bounds/lbearing
 
3111
          x-character-bounds/rbearing
 
3112
          x-character-bounds/width
 
3113
          x-close-all-displays
 
3114
          x-colormap/allocate-color
 
3115
          x-colormap/free
 
3116
          x-colormap/query-color
 
3117
          x-colormap/store-color
 
3118
          x-colormap/store-colors
 
3119
          x-colormap?
 
3120
          x-display/name
 
3121
          x-display/properties
 
3122
          x-font-structure/all-chars-exist?
 
3123
          x-font-structure/character-bounds
 
3124
          x-font-structure/default-char
 
3125
          x-font-structure/direction
 
3126
          x-font-structure/max-ascent
 
3127
          x-font-structure/max-bounds
 
3128
          x-font-structure/max-descent
 
3129
          x-font-structure/min-bounds
 
3130
          x-font-structure/name
 
3131
          x-font-structure/start-index
 
3132
          x-geometry-string
 
3133
          x-graphics-default-display-name
 
3134
          x-graphics-default-geometry
 
3135
          x-graphics-device-type
 
3136
          x-graphics/available?
 
3137
          x-graphics/clear
 
3138
          x-graphics/close-display
 
3139
          x-graphics/close-window
 
3140
          x-graphics/color?
 
3141
          x-graphics/coordinate-limits
 
3142
          x-graphics/copy-area
 
3143
          x-graphics/device-coordinate-limits
 
3144
          x-graphics/disable-keyboard-focus
 
3145
          x-graphics/discard-events
 
3146
          x-graphics/display
 
3147
          x-graphics/drag-cursor
 
3148
          x-graphics/draw-arc
 
3149
          x-graphics/draw-circle
 
3150
          x-graphics/draw-line
 
3151
          x-graphics/draw-lines
 
3152
          x-graphics/draw-point
 
3153
          x-graphics/draw-points
 
3154
          x-graphics/draw-text
 
3155
          x-graphics/enable-keyboard-focus
 
3156
          x-graphics/fill-circle
 
3157
          x-graphics/flush
 
3158
          x-graphics/font-structure
 
3159
          x-graphics/get-colormap
 
3160
          x-graphics/get-default
 
3161
          x-graphics/iconify-window
 
3162
          x-graphics/image-depth
 
3163
          x-graphics/lower-window
 
3164
          x-graphics/map-window
 
3165
          x-graphics/move-cursor
 
3166
          x-graphics/move-window
 
3167
          x-graphics/open-display
 
3168
          x-graphics/query-pointer
 
3169
          x-graphics/raise-window
 
3170
          x-graphics/read-button
 
3171
          x-graphics/read-user-event
 
3172
          x-graphics/reset-clip-rectangle
 
3173
          x-graphics/resize-window
 
3174
          x-graphics/select-user-events
 
3175
          x-graphics/set-background-color
 
3176
          x-graphics/set-border-color
 
3177
          x-graphics/set-border-width
 
3178
          x-graphics/set-clip-rectangle
 
3179
          x-graphics/set-colormap
 
3180
          x-graphics/set-coordinate-limits
 
3181
          x-graphics/set-drawing-mode
 
3182
          x-graphics/set-font
 
3183
          x-graphics/set-foreground-color
 
3184
          x-graphics/set-icon-name
 
3185
          x-graphics/set-input-hint
 
3186
          x-graphics/set-internal-border-width
 
3187
          x-graphics/set-line-style
 
3188
          x-graphics/set-mouse-color
 
3189
          x-graphics/set-mouse-shape
 
3190
          x-graphics/set-window-name
 
3191
          x-graphics/starbase-filename
 
3192
          x-graphics/visual-info
 
3193
          x-graphics/window-id
 
3194
          x-graphics/withdraw-window
 
3195
          x-graphics:auto-raise?
 
3196
          x-image/destroy
 
3197
          x-image/draw
 
3198
          x-image/draw-subimage
 
3199
          x-image/fill-from-byte-vector
 
3200
          x-image/get-pixel
 
3201
          x-image/height
 
3202
          x-image/set-pixel
 
3203
          x-image/width
 
3204
          x-image?
 
3205
          x-visual-class:direct-color
 
3206
          x-visual-class:gray-scale
 
3207
          x-visual-class:pseudo-color
 
3208
          x-visual-class:static-color
 
3209
          x-visual-class:static-gray
 
3210
          x-visual-class:true-color
 
3211
          x-visual-info/bits-per-rgb
 
3212
          x-visual-info/blue-mask
 
3213
          x-visual-info/class
 
3214
          x-visual-info/colormap-size
 
3215
          x-visual-info/depth
 
3216
          x-visual-info/green-mask
 
3217
          x-visual-info/red-mask
 
3218
          x-visual-info/screen
 
3219
          x-visual-info/visual
 
3220
          x-visual-info/visual-id)
 
3221
  (initialization (initialize-package!)))
 
3222
 
 
3223
(define-package (runtime starbase-graphics)
 
3224
  (file-case os-type
 
3225
    ((unix) "starbase")
 
3226
    (else))
 
3227
  (parent (runtime))
 
3228
  (export ()
 
3229
          starbase-graphics-device-type)
 
3230
  (initialization (initialize-package!)))
 
3231
 
 
3232
(define-package (runtime os2-graphics)
 
3233
  (file-case os-type
 
3234
    ((os/2) "os2graph" "os2ctype")
 
3235
    (else))
 
3236
  (parent (runtime))
 
3237
  (export ()
 
3238
          os2-console/color?
 
3239
          os2-console/get-font-metrics
 
3240
          os2-console/get-frame-position
 
3241
          os2-console/get-frame-size
 
3242
          os2-console/get-pel-size
 
3243
          os2-console/get-size
 
3244
          os2-console/set-colors!
 
3245
          os2-console/set-font!
 
3246
          os2-console/set-frame-position!
 
3247
          os2-console/set-pel-size!
 
3248
          os2-console/set-size!
 
3249
          os2-graphics-device-type
 
3250
          os2-image/set-colormap
 
3251
          os2/define-color
 
3252
          os2/find-color)
 
3253
  (initialization (initialize-package!)))
 
3254
 
 
3255
(define-package (runtime os2-window-primitives)
 
3256
  (file-case os-type
 
3257
    ((os/2) "os2winp")
 
3258
    (else))
 
3259
  (parent (runtime))
 
3260
  (export (runtime os2-graphics)
 
3261
          bbo_and
 
3262
          bbo_ignore
 
3263
          bbo_no_color_info
 
3264
          bbo_or
 
3265
          bbo_pal_colors
 
3266
          button-event-type:click
 
3267
          button-event-type:double-click
 
3268
          button-event-type:down
 
3269
          button-event-type:up
 
3270
          button-event/flags
 
3271
          button-event/number
 
3272
          button-event/type
 
3273
          button-event/x
 
3274
          button-event/y
 
3275
          caps_additional_graphics
 
3276
          caps_background_mix_support
 
3277
          caps_bitmap_formats
 
3278
          caps_bm_and
 
3279
          caps_bm_desttransparent
 
3280
          caps_bm_general_boolean
 
3281
          caps_bm_leavealone
 
3282
          caps_bm_or
 
3283
          caps_bm_overpaint
 
3284
          caps_bm_srctransparent
 
3285
          caps_bm_xor
 
3286
          caps_byte_align_not_required
 
3287
          caps_byte_align_recommended
 
3288
          caps_byte_align_required
 
3289
          caps_char_height
 
3290
          caps_char_width
 
3291
          caps_clip_fills
 
3292
          caps_color_bitcount
 
3293
          caps_color_cursor_support
 
3294
          caps_color_index
 
3295
          caps_color_planes
 
3296
          caps_color_table_support
 
3297
          caps_colors
 
3298
          caps_coltabl_realize
 
3299
          caps_coltabl_rgb_8
 
3300
          caps_coltabl_rgb_8_plus
 
3301
          caps_coltabl_true_mix
 
3302
          caps_cosmetic_wideline_support
 
3303
          caps_dev_windowing_support
 
3304
          caps_device_font_sim
 
3305
          caps_device_fonts
 
3306
          caps_device_polyset_points
 
3307
          caps_device_windowing
 
3308
          caps_direct_fill
 
3309
          caps_driver_version
 
3310
          caps_enhanced_fontmetrics
 
3311
          caps_family
 
3312
          caps_fm_and
 
3313
          caps_fm_general_boolean
 
3314
          caps_fm_leavealone
 
3315
          caps_fm_or
 
3316
          caps_fm_overpaint
 
3317
          caps_fm_xor
 
3318
          caps_font_image_default
 
3319
          caps_font_outline_default
 
3320
          caps_foreground_mix_support
 
3321
          caps_graphics_char_height
 
3322
          caps_graphics_char_width
 
3323
          caps_graphics_kerning_support
 
3324
          caps_graphics_subset
 
3325
          caps_graphics_vector_subset
 
3326
          caps_graphics_version
 
3327
          caps_height                   ;pels
 
3328
          caps_height_in_chars
 
3329
          caps_horizontal_font_res
 
3330
          caps_horizontal_resolution
 
3331
          caps_io_caps
 
3332
          caps_io_dummy
 
3333
          caps_io_supports_io
 
3334
          caps_io_supports_ip
 
3335
          caps_io_supports_op
 
3336
          caps_linewidth_thick
 
3337
          caps_marker_height
 
3338
          caps_marker_width
 
3339
          caps_mouse_buttons
 
3340
          caps_palette_manager
 
3341
          caps_phys_colors
 
3342
          caps_raster_banding
 
3343
          caps_raster_bitblt
 
3344
          caps_raster_bitblt_scaling
 
3345
          caps_raster_caps
 
3346
          caps_raster_flood_fill
 
3347
          caps_raster_fonts
 
3348
          caps_raster_set_pel
 
3349
          caps_rebuild_fills
 
3350
          caps_scaled_default_markers
 
3351
          caps_small_char_height
 
3352
          caps_small_char_width
 
3353
          caps_tech_postscript
 
3354
          caps_tech_raster_camera
 
3355
          caps_tech_raster_display
 
3356
          caps_tech_raster_printer
 
3357
          caps_tech_unknown
 
3358
          caps_tech_vector_plotter
 
3359
          caps_technology
 
3360
          caps_transform_support
 
3361
          caps_vdd_ddb_transfer
 
3362
          caps_vertical_font_res
 
3363
          caps_vertical_resolution
 
3364
          caps_vio_loadable_fonts
 
3365
          caps_width                    ;pels
 
3366
          caps_width_in_chars
 
3367
          caps_window_byte_alignment
 
3368
          command-event/code
 
3369
          cursor_flash
 
3370
          cursor_frame
 
3371
          cursor_halftone
 
3372
          cursor_solid
 
3373
          event-type
 
3374
          event-type:button
 
3375
          event-type:close
 
3376
          event-type:command
 
3377
          event-type:focus
 
3378
          event-type:help
 
3379
          event-type:key
 
3380
          event-type:paint
 
3381
          event-type:resize
 
3382
          event-type:visibility
 
3383
          event-wid
 
3384
          fcf_acceltable
 
3385
          fcf_autoicon
 
3386
          fcf_border
 
3387
          fcf_dlgborder
 
3388
          fcf_hidebutton
 
3389
          fcf_hidemax
 
3390
          fcf_horzscroll
 
3391
          fcf_icon
 
3392
          fcf_maxbutton
 
3393
          fcf_menu
 
3394
          fcf_minbutton
 
3395
          fcf_minmax
 
3396
          fcf_mousealign
 
3397
          fcf_nobytealign
 
3398
          fcf_nomovewithowner
 
3399
          fcf_screenalign
 
3400
          fcf_shellposition
 
3401
          fcf_sizeborder
 
3402
          fcf_standard
 
3403
          fcf_sysmenu
 
3404
          fcf_sysmodal
 
3405
          fcf_tasklist
 
3406
          fcf_titlebar
 
3407
          fcf_vertscroll
 
3408
          fid_client
 
3409
          fid_horzscroll
 
3410
          fid_menu
 
3411
          fid_minmax
 
3412
          fid_sysmenu
 
3413
          fid_titlebar
 
3414
          fid_vertscroll
 
3415
          fm_and
 
3416
          fm_default
 
3417
          fm_invert
 
3418
          fm_leavealone
 
3419
          fm_masksrcnot
 
3420
          fm_mergenotsrc
 
3421
          fm_mergesrcnot
 
3422
          fm_notcopysrc
 
3423
          fm_notmasksrc
 
3424
          fm_notmergesrc
 
3425
          fm_notxorsrc
 
3426
          fm_one
 
3427
          fm_or
 
3428
          fm_overpaint
 
3429
          fm_subtract
 
3430
          fm_xor
 
3431
          fm_zero
 
3432
          focus-event/gained?
 
3433
          font-metrics/descender
 
3434
          font-metrics/height
 
3435
          font-metrics/width
 
3436
          help-event/code
 
3437
          hwnd_desktop
 
3438
          idi_graphics
 
3439
          kc_alt
 
3440
          kc_char
 
3441
          kc_composite
 
3442
          kc_ctrl
 
3443
          kc_deadkey
 
3444
          kc_invalidchar
 
3445
          kc_invalidcomp
 
3446
          kc_keyup
 
3447
          kc_lonekey
 
3448
          kc_none
 
3449
          kc_prevdown
 
3450
          kc_scancode
 
3451
          kc_shift
 
3452
          kc_toggle
 
3453
          kc_virtualkey
 
3454
          key-event/code
 
3455
          key-event/flags
 
3456
          key-event/repeat
 
3457
          linetype_alternate
 
3458
          linetype_dashdot
 
3459
          linetype_dashdoubledot
 
3460
          linetype_default
 
3461
          linetype_dot
 
3462
          linetype_doubledot
 
3463
          linetype_invisible
 
3464
          linetype_longdash
 
3465
          linetype_shortdash
 
3466
          linetype_solid
 
3467
          mia_checked
 
3468
          mia_disabled
 
3469
          mia_framed
 
3470
          mia_hilited
 
3471
          mia_nodismiss
 
3472
          mis_bitmap
 
3473
          mis_break
 
3474
          mis_breakseparator
 
3475
          mis_buttonseparator
 
3476
          mis_group
 
3477
          mis_help
 
3478
          mis_multmenu
 
3479
          mis_ownerdraw
 
3480
          mis_separator
 
3481
          mis_single
 
3482
          mis_static
 
3483
          mis_submenu
 
3484
          mis_syscommand
 
3485
          mis_text
 
3486
          mit_end
 
3487
          mit_error
 
3488
          mit_first
 
3489
          mit_last
 
3490
          mit_memerror
 
3491
          mit_none
 
3492
          ms_actionbar
 
3493
          ms_conditionalcascade
 
3494
          ms_titlebutton
 
3495
          ms_verticalflip
 
3496
          nullhandle
 
3497
          number-of-event-types
 
3498
          os2menu-create
 
3499
          os2menu-destroy
 
3500
          os2menu-get-item-attributes
 
3501
          os2menu-insert-item
 
3502
          os2menu-n-items
 
3503
          os2menu-nth-item
 
3504
          os2menu-remove-item
 
3505
          os2menu-set-item-attributes
 
3506
          os2pm-synchronize
 
3507
          os2ps-bitblt
 
3508
          os2ps-clear
 
3509
          os2ps-create-bitmap
 
3510
          os2ps-create-memory-ps
 
3511
          os2ps-destroy-bitmap
 
3512
          os2ps-destroy-memory-ps
 
3513
          os2ps-draw-point
 
3514
          os2ps-get-bitmap
 
3515
          os2ps-get-bitmap-bits
 
3516
          os2ps-get-bitmap-parameters
 
3517
          os2ps-get-font-metrics
 
3518
          os2ps-line
 
3519
          os2ps-move-graphics-cursor
 
3520
          os2ps-poly-line
 
3521
          os2ps-poly-line-disjoint
 
3522
          os2ps-query-capabilities
 
3523
          os2ps-query-capability
 
3524
          os2ps-reset-clip-rectangle
 
3525
          os2ps-set-bitmap
 
3526
          os2ps-set-bitmap-bits
 
3527
          os2ps-set-clip-rectangle
 
3528
          os2ps-set-colors
 
3529
          os2ps-set-font
 
3530
          os2ps-set-line-type
 
3531
          os2ps-set-mix
 
3532
          os2ps-text-width
 
3533
          os2ps-write
 
3534
          os2win-activate
 
3535
          os2win-beep
 
3536
          os2win-close
 
3537
          os2win-close-event-qid
 
3538
          os2win-console-wid
 
3539
          os2win-desktop-height
 
3540
          os2win-desktop-width
 
3541
          os2win-destroy-pointer
 
3542
          os2win-event-ready?
 
3543
          os2win-focus?
 
3544
          os2win-frame-handle
 
3545
          os2win-get-event
 
3546
          os2win-get-frame-size
 
3547
          os2win-get-pos
 
3548
          os2win-get-size
 
3549
          os2win-invalidate
 
3550
          os2win-load-pointer
 
3551
          os2win-move-cursor
 
3552
          os2win-open
 
3553
          os2win-open-event-qid
 
3554
          os2win-ps
 
3555
          os2win-scroll
 
3556
          os2win-set-grid
 
3557
          os2win-set-icon
 
3558
          os2win-set-pos
 
3559
          os2win-set-size
 
3560
          os2win-set-state
 
3561
          os2win-set-title
 
3562
          os2win-shape-cursor
 
3563
          os2win-show
 
3564
          os2win-show-cursor
 
3565
          os2win-update-frame
 
3566
          paint-event/xh
 
3567
          paint-event/xl
 
3568
          paint-event/yh
 
3569
          paint-event/yl
 
3570
          resize-event/height
 
3571
          resize-event/width
 
3572
          rop_dstinvert
 
3573
          rop_mergecopy
 
3574
          rop_mergepaint
 
3575
          rop_notsrccopy
 
3576
          rop_notsrcerase
 
3577
          rop_one
 
3578
          rop_patcopy
 
3579
          rop_patinvert
 
3580
          rop_patpaint
 
3581
          rop_srcand
 
3582
          rop_srccopy
 
3583
          rop_srcerase
 
3584
          rop_srcinvert
 
3585
          rop_srcpaint
 
3586
          rop_zero
 
3587
          set-event-wid!
 
3588
          virtual-key-supremum
 
3589
          visibility-event/shown?
 
3590
          vk_alt
 
3591
          vk_altgraf
 
3592
          vk_backspace
 
3593
          vk_backtab
 
3594
          vk_break
 
3595
          vk_button1
 
3596
          vk_button2
 
3597
          vk_button3
 
3598
          vk_capslock
 
3599
          vk_clear
 
3600
          vk_ctrl
 
3601
          vk_delete
 
3602
          vk_down
 
3603
          vk_end
 
3604
          vk_enddrag
 
3605
          vk_enter
 
3606
          vk_ereof
 
3607
          vk_esc
 
3608
          vk_f1
 
3609
          vk_f10
 
3610
          vk_f11
 
3611
          vk_f12
 
3612
          vk_f13
 
3613
          vk_f14
 
3614
          vk_f15
 
3615
          vk_f16
 
3616
          vk_f17
 
3617
          vk_f18
 
3618
          vk_f19
 
3619
          vk_f2
 
3620
          vk_f20
 
3621
          vk_f21
 
3622
          vk_f22
 
3623
          vk_f23
 
3624
          vk_f24
 
3625
          vk_f3
 
3626
          vk_f4
 
3627
          vk_f5
 
3628
          vk_f6
 
3629
          vk_f7
 
3630
          vk_f8
 
3631
          vk_f9
 
3632
          vk_home
 
3633
          vk_insert
 
3634
          vk_left
 
3635
          vk_newline
 
3636
          vk_numlock
 
3637
          vk_pa1
 
3638
          vk_pagedown
 
3639
          vk_pageup
 
3640
          vk_pause
 
3641
          vk_printscrn
 
3642
          vk_right
 
3643
          vk_scrllock
 
3644
          vk_shift
 
3645
          vk_space
 
3646
          vk_sysrq
 
3647
          vk_tab
 
3648
          vk_up
 
3649
          window-state:activate
 
3650
          window-state:bottom
 
3651
          window-state:deactivate
 
3652
          window-state:hide
 
3653
          window-state:maximize
 
3654
          window-state:minimize
 
3655
          window-state:restore
 
3656
          window-state:show
 
3657
          window-state:top
 
3658
          ws_animate
 
3659
          ws_clipchildren
 
3660
          ws_clipsiblings
 
3661
          ws_disabled
 
3662
          ws_maximized
 
3663
          ws_minimized
 
3664
          ws_parentclip
 
3665
          ws_savebits
 
3666
          ws_syncpaint
 
3667
          ws_visible
 
3668
          ))
 
3669
 
 
3670
(define-package (runtime state-space)
 
3671
  (files "wind")
 
3672
  (parent (runtime))
 
3673
  (export ()
 
3674
          dynamic-wind
 
3675
          shallow-fluid-bind)
 
3676
  (export (runtime continuation)
 
3677
          get-dynamic-state
 
3678
          set-dynamic-state!)
 
3679
  (export (runtime continuation-parser)
 
3680
          %translate-to-state-point
 
3681
          merge-dynamic-state)
 
3682
  (export (runtime thread)
 
3683
          current-state-point
 
3684
          make-state-space
 
3685
          state-space:local
 
3686
          translate-to-state-point)
 
3687
  (initialization (initialize-package!)))
 
3688
 
 
3689
(define-package (runtime stream)
 
3690
  (files "stream")
 
3691
  (parent (runtime))
 
3692
  (export ()
 
3693
          condition-type:illegal-stream-element
 
3694
          empty-stream?
 
3695
          head
 
3696
          list->stream
 
3697
          make-prime-numbers-stream
 
3698
          prime-numbers-stream
 
3699
          stream
 
3700
          stream->list
 
3701
          stream-accumulate
 
3702
          stream-append
 
3703
          stream-car
 
3704
          stream-cdr
 
3705
          stream-filter
 
3706
          stream-first
 
3707
          stream-for-each
 
3708
          stream-head
 
3709
          stream-length
 
3710
          stream-map
 
3711
          stream-null?
 
3712
          stream-pair?
 
3713
          stream-ref
 
3714
          stream-rest
 
3715
          stream-tail
 
3716
          stream-write
 
3717
          tail
 
3718
          the-empty-stream)
 
3719
  (initialization (initialize-package!)))
 
3720
 
 
3721
(define-package (runtime string-input)
 
3722
  (files "strnin")
 
3723
  (parent (runtime))
 
3724
  (export ()
 
3725
          string->input-port
 
3726
          with-input-from-string)
 
3727
  (initialization (initialize-package!)))
 
3728
 
 
3729
(define-package (runtime string-output)
 
3730
  (files "strout")
 
3731
  (parent (runtime))
 
3732
  (export ()
 
3733
          get-output-from-accumulator
 
3734
          make-accumulator-output-port
 
3735
          with-string-output-port
 
3736
          with-output-to-string)
 
3737
  (initialization (initialize-package!)))
 
3738
 
 
3739
(define-package (runtime syntactic-closures)
 
3740
  (files "syntactic-closures"
 
3741
         "syntax-output"
 
3742
         "syntax-transforms"
 
3743
         "mit-syntax"
 
3744
         "syntax-rules"
 
3745
         "syntax-check")
 
3746
  (parent (runtime))
 
3747
  (export ()
 
3748
          call-with-syntax-error-procedure
 
3749
          capture-syntactic-environment
 
3750
          close-syntax
 
3751
          er-macro-transformer->expander
 
3752
          identifier->symbol
 
3753
          identifier=?
 
3754
          identifier?
 
3755
          ill-formed-syntax
 
3756
          lambda-tag:fluid-let
 
3757
          lambda-tag:let
 
3758
          lambda-tag:unnamed
 
3759
          make-syntactic-closure
 
3760
          make-synthetic-identifier
 
3761
          mit-lambda-list?
 
3762
          non-hygienic-macro-transformer->expander
 
3763
          parse-mit-lambda-list
 
3764
          r4rs-lambda-list?
 
3765
          sc-macro-transformer->expander
 
3766
          reverse-syntactic-environments
 
3767
          rsc-macro-transformer->expander
 
3768
          strip-syntactic-closures
 
3769
          syntactic-closure-rtd
 
3770
          syntactic-closure/environment
 
3771
          syntactic-closure/free-names
 
3772
          syntactic-closure/form
 
3773
          syntactic-closure?
 
3774
          synthetic-identifier?
 
3775
          syntax
 
3776
          syntax*
 
3777
          syntax-match?)
 
3778
  (export (runtime defstruct)
 
3779
          define-expander
 
3780
          parse-mit-lambda-list))
 
3781
 
 
3782
(define-package (runtime defstruct)
 
3783
  (files "defstr")
 
3784
  (parent (runtime))
 
3785
  (export ()
 
3786
          ;;define-structure
 
3787
          ))
 
3788
 
 
3789
(define-package (runtime system-macros)
 
3790
  (files "sysmac")
 
3791
  (parent (runtime))
 
3792
  (export (runtime)
 
3793
          define-primitives
 
3794
          ucode-primitive
 
3795
          ucode-return-address
 
3796
          ucode-type))
 
3797
 
 
3798
(define-package (runtime system)
 
3799
  (files "system")
 
3800
  (parent (runtime))
 
3801
  (export ()
 
3802
          add-identification!
 
3803
          add-subsystem-identification!
 
3804
          get-subsystem-identification-string
 
3805
          get-subsystem-names
 
3806
          get-subsystem-version
 
3807
          get-subsystem-version-string
 
3808
          remove-subsystem-identification!))
 
3809
 
 
3810
(define-package (runtime system-clock)
 
3811
  (files "sysclk")
 
3812
  (parent (runtime))
 
3813
  (export ()
 
3814
          internal-time/seconds->ticks
 
3815
          internal-time/ticks->seconds
 
3816
          measure-interval
 
3817
          process-time-clock
 
3818
          real-time-clock
 
3819
          runtime
 
3820
          system-clock
 
3821
          with-timings)
 
3822
  (export (runtime gc-statistics)
 
3823
          increment-non-runtime!)
 
3824
  (initialization (initialize-package!)))
 
3825
 
 
3826
(define-package (runtime truncated-string-output)
 
3827
  (files "strott")
 
3828
  (parent (runtime))
 
3829
  (export ()
 
3830
          with-output-to-truncated-string)
 
3831
  (initialization (initialize-package!)))
 
3832
 
 
3833
(define-package (runtime unparser)
 
3834
  (files "unpars")
 
3835
  (parent (runtime))
 
3836
  (export ()
 
3837
          *unparse-abbreviate-quotations?*
 
3838
          *unparse-compound-procedure-names?*
 
3839
          *unparse-disambiguate-null-as-itself?*
 
3840
          *unparse-disambiguate-null-lambda-list?*
 
3841
          *unparse-primitives-by-name?*
 
3842
          *unparse-uninterned-symbols-by-name?*
 
3843
          *unparse-with-datum?*
 
3844
          *unparse-with-maximum-readability?*
 
3845
          *unparser-list-breadth-limit*
 
3846
          *unparser-list-depth-limit*
 
3847
          *unparser-radix*
 
3848
          *unparser-string-length-limit*
 
3849
          current-unparser-table
 
3850
          guarantee-unparser-state
 
3851
          guarantee-unparser-table
 
3852
          make-unparser-state
 
3853
          make-unparser-table
 
3854
          system-global-unparser-table
 
3855
          unparse-char
 
3856
          unparse-object
 
3857
          unparse-string
 
3858
          unparser-state/list-depth
 
3859
          unparser-state/port
 
3860
          unparser-state/slashify?
 
3861
          unparser-state/unparser-table
 
3862
          unparser-state?
 
3863
          unparser-table/copy
 
3864
          unparser-table/entry
 
3865
          unparser-table/set-entry!
 
3866
          unparser-table?
 
3867
          user-object-type
 
3868
          with-current-unparser-state)
 
3869
  (export (runtime output-port)
 
3870
          unparse-object/top-level)
 
3871
  (export (runtime pretty-printer)
 
3872
          unparse-list/prefix-pair?
 
3873
          unparse-list/unparser
 
3874
          unparse-vector/unparser)
 
3875
  (initialization (initialize-package!)))
 
3876
 
 
3877
(define-package (runtime unsyntaxer)
 
3878
  (files "unsyn")
 
3879
  (parent (runtime))
 
3880
  (export ()
 
3881
          unsyntax
 
3882
          unsyntax-lambda-list
 
3883
          unsyntax-with-substitutions)
 
3884
  (initialization (initialize-package!)))
 
3885
 
 
3886
(define-package (runtime working-directory)
 
3887
  (files "wrkdir")
 
3888
  (parent (runtime))
 
3889
  (export ()
 
3890
          set-working-directory-pathname!
 
3891
          with-working-directory-pathname
 
3892
          working-directory-pathname)
 
3893
  (export (runtime rep)
 
3894
          *working-directory-pathname*)
 
3895
  (initialization (initialize-package!)))
 
3896
 
 
3897
(define-package (runtime user-interface)
 
3898
  (files "usrint")
 
3899
  (parent (runtime))
 
3900
  (export ()
 
3901
          prompt-for-command-char
 
3902
          prompt-for-command-expression
 
3903
          prompt-for-confirmation
 
3904
          prompt-for-evaluated-expression
 
3905
          prompt-for-expression)
 
3906
  (export (runtime rep)
 
3907
          port/set-default-environment
 
3908
          port/write-result)
 
3909
  (export (runtime rep)
 
3910
          port/set-default-directory)
 
3911
  (export (runtime debugger-command-loop)
 
3912
          port/debugger-failure
 
3913
          port/debugger-message
 
3914
          port/debugger-presentation)
 
3915
  (export (runtime gc-statistics)
 
3916
          port/gc-finish
 
3917
          port/gc-start)
 
3918
  (export (runtime emacs-interface)
 
3919
          port/read-finish
 
3920
          port/read-start))
 
3921
 
 
3922
(define-package (runtime thread)
 
3923
  (files "thread")
 
3924
  (parent (runtime))
 
3925
  (export ()
 
3926
          block-thread-events
 
3927
          condition-type:no-current-thread
 
3928
          condition-type:thread-dead
 
3929
          condition-type:thread-deadlock
 
3930
          condition-type:thread-detached
 
3931
          condition-type:thread-control-error
 
3932
          console-thread
 
3933
          create-thread
 
3934
          create-thread-continuation
 
3935
          current-thread
 
3936
          deregister-all-events
 
3937
          deregister-input-descriptor-events
 
3938
          deregister-input-thread-event
 
3939
          deregister-timer-event
 
3940
          detach-thread
 
3941
          exit-current-thread
 
3942
          join-thread
 
3943
          lock-thread-mutex
 
3944
          make-thread-mutex
 
3945
          other-running-threads?
 
3946
          permanently-register-input-thread-event
 
3947
          register-input-thread-event
 
3948
          register-timer-event
 
3949
          restart-thread
 
3950
          set-thread-timer-interval!
 
3951
          signal-thread-event
 
3952
          sleep-current-thread
 
3953
          start-thread-timer
 
3954
          stop-current-thread
 
3955
          stop-thread-timer
 
3956
          suspend-current-thread
 
3957
          thread-continuation
 
3958
          thread-dead?
 
3959
          thread-execution-state
 
3960
          thread-mutex-owner
 
3961
          thread-mutex?
 
3962
          thread-timer-interval
 
3963
          thread?
 
3964
          threads-list
 
3965
          try-lock-thread-mutex
 
3966
          unblock-thread-events
 
3967
          unlock-thread-mutex
 
3968
          with-create-thread-continuation
 
3969
          with-thread-events-blocked
 
3970
          with-thread-mutex-locked
 
3971
          with-thread-timer-stopped
 
3972
          yield-current-thread)
 
3973
  (export (runtime interrupt-handler)
 
3974
          thread-timer-interrupt-handler)
 
3975
  (export (runtime primitive-io)
 
3976
          block-on-input-descriptor)
 
3977
  (export (runtime continuation)
 
3978
          get-thread-event-block
 
3979
          set-thread-event-block!)
 
3980
  (initialization (initialize-package!)))
 
3981
 
 
3982
(define-package (runtime rb-tree)
 
3983
  (file-case options
 
3984
    ((load) "rbtree")
 
3985
    (else))
 
3986
  (parent (runtime))
 
3987
  (export ()
 
3988
          alist->rb-tree
 
3989
          make-rb-tree
 
3990
          rb-tree->alist
 
3991
          rb-tree/copy
 
3992
          rb-tree/datum-list
 
3993
          rb-tree/delete!
 
3994
          rb-tree/delete-max!
 
3995
          rb-tree/delete-max-datum!
 
3996
          rb-tree/delete-max-pair!
 
3997
          rb-tree/delete-min!
 
3998
          rb-tree/delete-min-datum!
 
3999
          rb-tree/delete-min-pair!
 
4000
          rb-tree/empty?
 
4001
          rb-tree/equal?
 
4002
          rb-tree/height
 
4003
          rb-tree/insert!
 
4004
          rb-tree/key-list
 
4005
          rb-tree/lookup
 
4006
          rb-tree/max
 
4007
          rb-tree/max-datum
 
4008
          rb-tree/max-pair
 
4009
          rb-tree/min
 
4010
          rb-tree/min-datum
 
4011
          rb-tree/min-pair
 
4012
          rb-tree/size
 
4013
          rb-tree?))
 
4014
 
 
4015
(define-package (runtime wt-tree)
 
4016
  (file-case options
 
4017
    ((load) "wttree")
 
4018
    (else))
 
4019
  (parent (runtime))
 
4020
  (export ()
 
4021
          number-wt-type
 
4022
          string-wt-type
 
4023
          wt-tree/empty?
 
4024
          alist->wt-tree
 
4025
          make-wt-tree
 
4026
          make-wt-tree-type
 
4027
          singleton-wt-tree
 
4028
          wt-tree/add
 
4029
          wt-tree/add!
 
4030
          wt-tree/delete
 
4031
          wt-tree/delete!
 
4032
          wt-tree/delete-min
 
4033
          wt-tree/delete-min!
 
4034
          wt-tree/difference
 
4035
          wt-tree/fold
 
4036
          wt-tree/for-each
 
4037
          wt-tree/index
 
4038
          wt-tree/index-datum
 
4039
          wt-tree/index-pair
 
4040
          wt-tree/intersection
 
4041
          wt-tree/lookup
 
4042
          wt-tree/member?
 
4043
          wt-tree/min
 
4044
          wt-tree/min-datum
 
4045
          wt-tree/min-pair
 
4046
          wt-tree/rank
 
4047
          wt-tree/set-equal?
 
4048
          wt-tree/size
 
4049
          wt-tree/split<
 
4050
          wt-tree/split>
 
4051
          wt-tree/subset?
 
4052
          wt-tree/union
 
4053
          wt-tree/union-merge
 
4054
          wt-tree?))
 
4055
 
 
4056
(define-package (runtime apropos)
 
4057
  (files "apropos")
 
4058
  (parent (runtime))
 
4059
  (export ()
 
4060
          apropos
 
4061
          apropos-list))
 
4062
 
 
4063
(define-package (runtime stepper)
 
4064
  (file-case options
 
4065
    ((load) "ystep")
 
4066
    (else))
 
4067
  (parent (runtime))
 
4068
  (export ()
 
4069
          step
 
4070
          step-form
 
4071
          step-n
 
4072
          step-over
 
4073
          step-proceed
 
4074
          step-quit
 
4075
          step-run
 
4076
          step-until
 
4077
          step-until-visibly))
 
4078
 
 
4079
(define-package (runtime ordered-vector)
 
4080
  (file-case options
 
4081
    ((load) "ordvec")
 
4082
    (else))
 
4083
  (parent (runtime))
 
4084
  (export ()
 
4085
          match-ordered-subvector
 
4086
          match-ordered-vector
 
4087
          ordered-subvector-matches
 
4088
          ordered-subvector-minimum-match
 
4089
          ordered-vector-matches
 
4090
          ordered-vector-minimum-match
 
4091
          search-ordered-subvector
 
4092
          search-ordered-vector))
 
4093
 
 
4094
(define-package (runtime gdbm)
 
4095
  (file-case options
 
4096
    ((load) "gdbm")
 
4097
    (else))
 
4098
  (parent (runtime))
 
4099
  (export ()
 
4100
          gdbm-available?
 
4101
          gdbm-close
 
4102
          gdbm-delete
 
4103
          gdbm-exists?
 
4104
          gdbm-fetch
 
4105
          gdbm-firstkey
 
4106
          gdbm-nextkey
 
4107
          gdbm-open
 
4108
          gdbm-reorganize
 
4109
          gdbm-setopt
 
4110
          gdbm-store
 
4111
          gdbm-sync
 
4112
          gdbm-version
 
4113
          gdbm_cachesize
 
4114
          gdbm_fast
 
4115
          gdbm_fastmode
 
4116
          gdbm_insert
 
4117
          gdbm_newdb
 
4118
          gdbm_reader
 
4119
          gdbm_replace
 
4120
          gdbm_wrcreat
 
4121
          gdbm_writer))
 
4122
 
 
4123
(define-package (runtime generic-procedure)
 
4124
  (files "gentag" "gencache" "generic")
 
4125
  (parent (runtime))
 
4126
  (export ()
 
4127
          ;; tag.scm:
 
4128
          dispatch-tag-contents
 
4129
          dispatch-tag?
 
4130
          guarantee-dispatch-tag
 
4131
          make-dispatch-tag
 
4132
          set-dispatch-tag-contents!
 
4133
 
 
4134
          ;; generic.scm:
 
4135
          arity-max
 
4136
          arity-min
 
4137
          built-in-dispatch-tag
 
4138
          built-in-dispatch-tags
 
4139
          condition-type:no-applicable-methods
 
4140
          dispatch-tag
 
4141
          error:no-applicable-methods
 
4142
          generic-procedure-applicable?
 
4143
          generic-procedure-arity
 
4144
          generic-procedure-name
 
4145
          generic-procedure?
 
4146
          guarantee-generic-procedure
 
4147
          make-generic-procedure
 
4148
          purge-generic-procedure-cache
 
4149
          standard-generic-procedure-tag)
 
4150
  (export (runtime generic-procedure multiplexer)
 
4151
          generic-procedure-generator
 
4152
          set-generic-procedure-generator!))
 
4153
 
 
4154
(define-package (runtime generic-procedure multiplexer)
 
4155
  (files "genmult")
 
4156
  (parent (runtime))
 
4157
  (export ()
 
4158
          add-generic-procedure-generator
 
4159
          condition-type:extra-applicable-methods
 
4160
          error:extra-applicable-methods
 
4161
          generic-procedure-default-generator
 
4162
          generic-procedure-generator-list
 
4163
          remove-generic-procedure-generator
 
4164
          remove-generic-procedure-generators
 
4165
          set-generic-procedure-default-generator!))
 
4166
 
 
4167
(define-package (runtime tagged-vector)
 
4168
  (files "tvector")
 
4169
  (parent (runtime))
 
4170
  (export ()
 
4171
          guarantee-tagged-vector
 
4172
          make-tagged-vector
 
4173
          record-slot-uninitialized
 
4174
          set-tagged-vector-element!
 
4175
          set-tagged-vector-tag!
 
4176
          tagged-vector
 
4177
          tagged-vector-element
 
4178
          tagged-vector-element-initialized?
 
4179
          tagged-vector-length
 
4180
          tagged-vector-tag
 
4181
          tagged-vector?))
 
4182
 
 
4183
(define-package (runtime record-slot-access)
 
4184
  (files "recslot")
 
4185
  (parent (runtime))
 
4186
  (export ()
 
4187
          condition-type:no-such-slot
 
4188
          condition-type:slot-error
 
4189
          condition-type:uninitialized-slot
 
4190
          %record-accessor
 
4191
          %record-accessor-generator
 
4192
          %record-initpred
 
4193
          %record-initpred-generator
 
4194
          %record-modifier
 
4195
          %record-modifier-generator
 
4196
          %record-slot-index
 
4197
          %record-slot-name
 
4198
          %record-slot-names)
 
4199
  (export (runtime record)
 
4200
          error:no-such-slot))
 
4201
 
 
4202
(define-package (runtime generic-procedure eqht)
 
4203
  (files "geneqht")
 
4204
  (parent (runtime))
 
4205
  (export (runtime generic-procedure)
 
4206
          eqht/for-each
 
4207
          eqht/get
 
4208
          eqht/put!
 
4209
          make-eqht))
 
4210
 
 
4211
(define-package (runtime crypto)
 
4212
  (files "crypto")
 
4213
  (parent (runtime))
 
4214
  (export ()
 
4215
          make-mhash-keygen-type
 
4216
          mcrypt-algorithm-name
 
4217
          mcrypt-algorithm-names
 
4218
          mcrypt-available?
 
4219
          mcrypt-block-algorithm-mode?
 
4220
          mcrypt-block-algorithm?
 
4221
          mcrypt-block-mode?
 
4222
          mcrypt-context?
 
4223
          mcrypt-encrypt
 
4224
          mcrypt-encrypt-port
 
4225
          mcrypt-end
 
4226
          mcrypt-init
 
4227
          mcrypt-init-vector-size
 
4228
          mcrypt-key-size
 
4229
          mcrypt-mode-name
 
4230
          mcrypt-mode-names
 
4231
          mcrypt-open-module
 
4232
          mcrypt-self-test
 
4233
          mcrypt-supported-key-sizes
 
4234
          md5-available?
 
4235
          md5-file
 
4236
          md5-string
 
4237
          md5-substring
 
4238
          md5-sum->hexadecimal
 
4239
          md5-sum->number
 
4240
          mhash-available?
 
4241
          mhash-context?
 
4242
          mhash-end
 
4243
          mhash-file
 
4244
          mhash-get-block-size
 
4245
          mhash-hmac-end
 
4246
          mhash-hmac-init
 
4247
          mhash-init
 
4248
          mhash-keygen
 
4249
          mhash-keygen-max-key-size
 
4250
          mhash-keygen-salt-size
 
4251
          mhash-keygen-type-names
 
4252
          mhash-keygen-type?
 
4253
          mhash-keygen-uses-count?
 
4254
          mhash-keygen-uses-hash-algorithm
 
4255
          mhash-keygen-uses-salt?
 
4256
          mhash-string
 
4257
          mhash-substring
 
4258
          mhash-sum->hexadecimal
 
4259
          mhash-sum->number
 
4260
          mhash-type-names
 
4261
          mhash-update)
 
4262
  (initialization (initialize-package!)))
 
4263
 
 
4264
(define-package (runtime regular-expression)
 
4265
  (file-case options
 
4266
    ((load) "regexp")
 
4267
    (else))
 
4268
  (parent (runtime))
 
4269
  (export ()
 
4270
          char-set->regexp
 
4271
          guarantee-re-register
 
4272
          guarantee-re-registers
 
4273
          preserving-re-registers
 
4274
          re-match-end-index
 
4275
          re-match-extract
 
4276
          re-match-start-index
 
4277
          re-registers
 
4278
          re-registers?
 
4279
          re-string-match
 
4280
          re-string-search-backward
 
4281
          re-string-search-forward
 
4282
          re-substring-match
 
4283
          re-substring-search-backward
 
4284
          re-substring-search-forward
 
4285
          regexp-group
 
4286
          set-re-registers!)
 
4287
  (initialization (initialize-package!)))
 
4288
 
 
4289
(define-package (runtime regular-expression-compiler)
 
4290
  (file-case options
 
4291
    ((load) "rgxcmp")
 
4292
    (else))
 
4293
  (parent (runtime))
 
4294
  (export ()
 
4295
          compiled-regexp?
 
4296
          compiled-regexp/byte-stream
 
4297
          compiled-regexp/translation-table
 
4298
          condition-type:re-compile-pattern
 
4299
          re-compile-char
 
4300
          re-compile-char-set
 
4301
          re-compile-pattern
 
4302
          re-compile-string
 
4303
          re-disassemble-pattern
 
4304
          re-quote-string
 
4305
          re-translation-table))
 
4306
 
 
4307
(define-package (runtime rexp)
 
4308
  (file-case options
 
4309
    ((load) "rexp")
 
4310
    (else))
 
4311
  (parent (runtime))
 
4312
  (export ()
 
4313
          rexp*
 
4314
          rexp+
 
4315
          rexp->regexp
 
4316
          rexp-alternatives
 
4317
          rexp-any-char
 
4318
          rexp-case-fold
 
4319
          rexp-compile
 
4320
          rexp-group
 
4321
          rexp-line-end
 
4322
          rexp-line-start
 
4323
          rexp-not-syntax-char
 
4324
          rexp-not-word-char
 
4325
          rexp-not-word-edge
 
4326
          rexp-optional
 
4327
          rexp-sequence
 
4328
          rexp-string-end
 
4329
          rexp-string-start
 
4330
          rexp-syntax-char
 
4331
          rexp-word-char
 
4332
          rexp-word-edge
 
4333
          rexp-word-end
 
4334
          rexp-word-start
 
4335
          rexp?))
 
4336
 
 
4337
(define-package (runtime char-syntax)
 
4338
  (file-case options
 
4339
    ((load) "chrsyn")
 
4340
    (else))
 
4341
  (parent (runtime))
 
4342
  (export ()
 
4343
          char->syntax-code
 
4344
          char-syntax->string
 
4345
          char-syntax-table?
 
4346
          get-char-syntax
 
4347
          make-char-syntax-table
 
4348
          set-char-syntax!
 
4349
          standard-char-syntax-table
 
4350
          string->char-syntax
 
4351
          substring-find-next-char-not-of-syntax
 
4352
          substring-find-next-char-of-syntax)
 
4353
  (export (runtime regular-expression)
 
4354
          char-syntax-table/entries)
 
4355
  (initialization (initialize-package!)))
 
4356
 
 
4357
(define-package (runtime mime-codec)
 
4358
  (file-case options
 
4359
    ((load) "mime-codec")
 
4360
    (else))
 
4361
  (parent (runtime))
 
4362
  (export ()
 
4363
          call-with-decode-base64-output-port
 
4364
          call-with-decode-binhex40-output-port
 
4365
          call-with-decode-quoted-printable-output-port
 
4366
          decode-base64:finalize
 
4367
          decode-base64:initialize
 
4368
          decode-base64:update
 
4369
          decode-binhex40:finalize
 
4370
          decode-binhex40:initialize
 
4371
          decode-binhex40:update
 
4372
          decode-quoted-printable:finalize
 
4373
          decode-quoted-printable:initialize
 
4374
          decode-quoted-printable:update
 
4375
          encode-base64:finalize
 
4376
          encode-base64:initialize
 
4377
          encode-base64:update
 
4378
          encode-quoted-printable:finalize
 
4379
          encode-quoted-printable:initialize
 
4380
          encode-quoted-printable:update
 
4381
          make-decode-base64-port
 
4382
          make-decode-binhex40-port
 
4383
          make-decode-quoted-printable-port))
 
4384
 
 
4385
(define-package (runtime parser-buffer)
 
4386
  (files "parser-buffer")
 
4387
  (parent (runtime))
 
4388
  (export ()
 
4389
          discard-parser-buffer-head!
 
4390
          get-parser-buffer-pointer
 
4391
          get-parser-buffer-tail
 
4392
          input-port->parser-buffer
 
4393
          match-parser-buffer-char
 
4394
          match-parser-buffer-char-ci
 
4395
          match-parser-buffer-char-ci-no-advance
 
4396
          match-parser-buffer-char-in-set
 
4397
          match-parser-buffer-char-in-set-no-advance
 
4398
          match-parser-buffer-char-no-advance
 
4399
          match-parser-buffer-not-char
 
4400
          match-parser-buffer-not-char-ci
 
4401
          match-parser-buffer-not-char-ci-no-advance
 
4402
          match-parser-buffer-not-char-no-advance
 
4403
          match-parser-buffer-string
 
4404
          match-parser-buffer-string-ci
 
4405
          match-parser-buffer-string-ci-no-advance
 
4406
          match-parser-buffer-string-no-advance
 
4407
          match-parser-buffer-substring
 
4408
          match-parser-buffer-substring-ci
 
4409
          match-parser-buffer-substring-ci-no-advance
 
4410
          match-parser-buffer-substring-no-advance
 
4411
          match-utf8-char-in-alphabet
 
4412
          parser-buffer-line
 
4413
          parser-buffer-pointer-index
 
4414
          parser-buffer-pointer-line
 
4415
          parser-buffer-pointer?
 
4416
          parser-buffer-position-string
 
4417
          parser-buffer-ref
 
4418
          parser-buffer?
 
4419
          peek-parser-buffer-char
 
4420
          read-parser-buffer-char
 
4421
          set-parser-buffer-pointer!
 
4422
          source->parser-buffer
 
4423
          string->parser-buffer
 
4424
          substring->parser-buffer))
 
4425
 
 
4426
(define-package (runtime unicode)
 
4427
  (files "unicode")
 
4428
  (parent (runtime))
 
4429
  (export ()
 
4430
          8-bit-alphabet?
 
4431
          alphabet+
 
4432
          alphabet-
 
4433
          alphabet->char-set
 
4434
          alphabet->code-points
 
4435
          alphabet->string
 
4436
          alphabet?
 
4437
          char-in-alphabet?
 
4438
          char-set->alphabet
 
4439
          code-point->utf8-string
 
4440
          code-point-in-alphabet?
 
4441
          code-points->alphabet
 
4442
          read-utf8-code-point
 
4443
          read-utf8-code-point-from-source
 
4444
          string->alphabet
 
4445
          unicode-code-point?
 
4446
          utf8-string->code-point
 
4447
          well-formed-code-points-list?
 
4448
          write-utf8-code-point))
 
 
b'\\ No newline at end of file'