From afa727d06439dcbb50b819eed5e4b61b2f464b39 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 13 Jun 1988 12:07:50 +0000
Subject: [PATCH] First checkin for version 14.

---
 v7/src/runtime/runtime.pkg | 1546 ++++++++++++++++++++++++++++++++++++
 v7/src/runtime/runtime.sf  |   37 +
 v8/src/runtime/runtime.pkg | 1546 ++++++++++++++++++++++++++++++++++++
 3 files changed, 3129 insertions(+)
 create mode 100644 v7/src/runtime/runtime.pkg
 create mode 100644 v7/src/runtime/runtime.sf
 create mode 100644 v8/src/runtime/runtime.pkg

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
new file mode 100644
index 000000000..fabf1abb8
--- /dev/null
+++ b/v7/src/runtime/runtime.pkg
@@ -0,0 +1,1546 @@
+#| -*-Scheme-*-
+
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.1 1988/06/13 12:07:50 cph Exp $
+
+Copyright (c) 1988 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+;;;; Runtime System Packaging
+
+(define-package ()
+  (files "bitstr"
+	 "boole"
+	 "boot"
+	 "equals"
+	 "fixart"
+	 "global"
+	 "lambdx"
+	 "queue"
+	 "sfile"
+	 "string"
+	 "udata"
+	 "vector")
+  (file-case sort-type
+    ((merge-sort) "msort")
+    ((quick-sort) "qsort")
+    (else))
+  (file-case os-type
+    ((unix) "unxpth")
+    ((vms) "vmspth")
+    (else "unkpth")))
+
+(define-package (package)
+  ;; The information appearing here must be duplicated in the cold load
+  ;; sequence.  If you change this package make sure to edit that also.
+  (files "packag")
+  (parent ())
+  (export ()
+	  find-package
+	  name->package
+	  package/add-child!
+	  package/child
+	  package/children
+	  package/environment
+	  package/name
+	  package/parent
+	  package/reference
+	  package/system-loader
+	  package?
+	  system-global-package)
+  (initialization (initialize-package!)))
+
+(define-package (runtime)
+  (files "version")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime 1d-property)
+  (files "prop1d")
+  (parent ())
+  (export ()	  1d-table/get
+	  1d-table/lookup
+	  1d-table/put!
+	  1d-table/remove!
+	  1d-table?
+	  make-1d-table)
+  (initialization (initialize-package!)))
+
+(define-package (runtime 2d-property)
+  (files "prop2d")
+  (parent ())
+  (export ()
+	  2d-get
+	  2d-get-alist-x
+	  2d-get-alist-y
+	  2d-put!
+	  2d-remove!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime advice)
+  (files "advice")
+  (parent ())
+  (export ()
+	  *args*
+	  *proc*
+	  *result*
+	  advice
+	  advise-entry
+	  advise-exit
+	  break
+	  break-both
+	  break-entry
+	  break-exit
+	  entry-advice
+	  exit-advice
+	  trace
+	  trace-both
+	  trace-entry
+	  trace-exit
+	  unadvise
+	  unadvise-entry
+	  unadvise-exit
+	  unbreak
+	  unbreak-entry
+	  unbreak-exit
+	  untrace
+	  untrace-entry
+	  untrace-exit)
+  (initialization (initialize-package!)))
+
+(define-package (runtime character)
+  (files "char")
+  (parent ())
+  (export ()
+	  ascii->char
+	  char->ascii
+	  char->digit
+	  char->integer
+	  char->name
+	  char-ascii?
+	  char-bits
+	  char-bits-limit
+	  char-ci<=?
+	  char-ci<?
+	  char-ci=?
+	  char-ci>=?
+	  char-ci>?
+	  char-code
+	  char-code-limit
+	  char-downcase
+	  char-integer-limit
+	  char-upcase
+	  char<=?
+	  char<?
+	  char=?
+	  char>=?
+	  char>?
+	  char?
+	  chars->ascii
+	  code->char
+	  digit->char
+	  integer->char
+	  make-char
+	  name->char)
+  (initialization (initialize-package!)))
+
+(define-package (runtime character-set)
+  (files "chrset")
+  (parent ())
+  (export ()
+	  ascii-range->char-set
+	  char-alphabetic?
+	  char-alphanumeric?
+	  char-graphic?
+	  char-lower-case?
+	  char-numeric?
+	  char-set
+	  char-set-difference
+	  char-set-intersection
+	  char-set-invert
+	  char-set-member?
+	  char-set-members
+	  char-set-union
+	  char-set:alphabetic
+	  char-set:alphanumeric
+	  char-set:graphic
+	  char-set:lower-case
+	  char-set:not-whitespace
+	  char-set:numeric
+	  char-set:standard
+	  char-set:upper-case
+	  char-set:whitespace
+	  char-set?
+	  char-standard?
+	  char-upper-case?
+	  char-whitespace?
+	  chars->char-set
+	  predicate->char-set)
+  (initialization (initialize-package!)))
+
+(define-package (runtime console-input)
+  (files "ttyin")
+  (parent ())
+  (export ()
+	  console-input-port)
+  (export (runtime emacs-interface)
+	  hook/read-char-immediate
+	  hook/read-finish
+	  hook/read-start)
+  (initialization (initialize-package!)))
+
+(define-package (runtime console-output)
+  (files "ttyout")
+  (parent ())
+  (export ()
+	  console-output-port)
+  (initialization (initialize-package!)))
+
+(define-package (runtime continuation)
+  (files "contin")
+  (parent ())
+  (export ()
+	  call-with-current-continuation
+	  continuation/control-point
+	  continuation/dynamic-state
+	  continuation/fluid-bindings
+	  continuation/type
+	  continuation?
+	  guarantee-continuation
+	  make-continuation
+	  non-reentrant-call-with-current-continuation
+	  within-continuation))
+
+(define-package (runtime continuation-parser)
+  (files "conpar")
+  (parent ())
+  (export ()
+	  continuation->stack-frame
+	  continuation/first-subproblem
+	  microcode-return/code->type
+	  stack-frame->continuation
+	  stack-frame-type/code
+	  stack-frame-type/properties
+	  stack-frame-type/subproblem?
+	  stack-frame-type?
+	  stack-frame/dynamic-state
+	  stack-frame/elements
+	  stack-frame/fluid-bindings
+	  stack-frame/interrupt-mask
+	  stack-frame/length
+	  stack-frame/next
+	  stack-frame/next-subproblem
+	  stack-frame/properties
+	  stack-frame/reductions
+	  stack-frame/ref
+	  stack-frame/return-code
+	  stack-frame/skip-non-subproblems
+	  stack-frame/subproblem?
+	  stack-frame/type
+	  stack-frame?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime control-point)
+  (files "cpoint")
+  (parent ())
+  (export ()
+	  control-point/element-stream
+	  control-point/history
+	  control-point/interrupt-mask
+	  control-point/next-control-point
+	  control-point/previous-history-control-point
+	  control-point/previous-history-offset
+	  control-point/reusable?
+	  control-point/unused-length
+	  control-point?
+	  make-control-point))
+
+(define-package (runtime date/time)
+  (files "datime")
+  (parent ())
+  (export ()
+	  decoded-time/date-string
+	  decoded-time/day
+	  decoded-time/hour
+	  decoded-time/minute
+	  decoded-time/month
+	  decoded-time/second
+	  decoded-time/time-string
+	  decoded-time/year
+	  get-decoded-time))
+
+(define-package (runtime debugger)
+  (files "debug")
+  (parent (runtime debugger-command-loop))
+  (export ()
+	  debug)
+  (initialization (initialize-package!)))
+
+(define-package (runtime debugger-command-loop)
+  (files "dbgcmd")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime debugger-utilities)
+  (files "dbgutl")
+  (parent (runtime debugger-command-loop))
+  (export (runtime debugger-command-loop)
+	  debug/read-eval-print-1
+	  environment-name
+	  print-user-friendly-name
+	  show-frame
+	  special-name?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime debugging-info)
+  (files "framex")
+  (parent ())
+  (export ()
+	  debugging-info/compiled-code?
+	  debugging-info/evaluated-object-value
+	  debugging-info/evaluated-object?
+	  debugging-info/undefined-environment?
+	  debugging-info/undefined-expression?
+	  stack-frame/debugging-info)
+  (initialization (initialize-package!)))
+
+(define-package (runtime defstruct)
+  (files "defstr")
+  (parent ())
+  (export ()
+	  named-structure/description
+	  named-structure?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime directory)
+  (file-case os-type
+    ((unix) "unxdir")
+    (else "unkdir"))
+  (parent ())
+  (export ()
+	  directory-read)
+  (initialization (initialize-package!)))
+
+(define-package (runtime emacs-interface)
+  (files "emacs")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime environment)
+  (files "uenvir")
+  (parent ())
+  (export ()
+	  environment-arguments
+	  environment-bindings
+	  environment-has-parent?
+	  environment-parent
+	  environment-procedure
+	  environment?
+	  remove-environment-parent!
+	  set-environment-parent!))
+
+(define-package (runtime environment-inspector)
+  (files "where")
+  (parent (runtime debugger-command-loop))
+  (export ()
+	  where)
+  (initialization (initialize-package!)))
+
+(define-package (runtime error-handler)
+  (files "error")
+  (parent ())
+  (export ()
+	  bind-condition-handler
+	  cmdl-message/error
+	  condition-type/dependencies
+	  condition-type/error?
+	  condition-type/message
+	  condition-type/properties
+	  condition-type:error
+	  condition-type?
+	  condition/continuation
+	  condition/dependencies
+	  condition/error?
+	  condition/irritants
+	  condition/message
+	  condition/properties
+	  condition/type
+	  condition?
+	  error-condition
+	  error-continuation
+	  error-irritant
+	  error-irritant/noise
+	  error-irritant/noise-value
+	  error-irritant/noise?
+	  error-irritants
+	  error-irritants/sans-noise
+	  error-message
+	  error-type:vanilla
+	  error-type?
+	  error?
+	  format-error-message
+	  guarantee-condition
+	  guarantee-condition-type
+	  make-condition
+	  make-condition-type
+	  make-error-type
+	  signal-condition
+	  signal-error
+	  standard-error-handler
+	  warn)
+  (export (runtime rep)
+	  default/error-handler
+	  hook/error-handler)
+  (export (runtime emacs-interface)
+	  hook/error-decision)
+  (initialization (initialize-package!)))
+
+(define-package (runtime event-distributor)
+  (files "events")
+  (parent ())
+  (export ()
+	  add-event-receiver!
+	  event-distributor/invoke!
+	  event-distributor?
+	  make-event-distributor
+	  remove-event-receiver!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime file-input)
+  (files "filein")
+  (parent ())
+  (export ()
+	  open-input-file)
+  (export (runtime load)
+	  open-input-file/internal)
+  (initialization (initialize-package!)))
+
+(define-package (runtime file-output)
+  (files "filout")
+  (parent ())
+  (export ()
+	  open-output-file)
+  (initialization (initialize-package!)))
+
+(define-package (runtime garbage-collector)
+  (files "gc")
+  (parent ())
+  (export ()
+	  constant-space/in-use	  gc-flip
+	  purify
+	  set-gc-safety-margin!)
+  (export (runtime gc-statistics)
+	  hook/gc-finish
+	  hook/gc-start)
+  (export (runtime emacs-interface)
+	  hook/gc-finish
+	  hook/gc-start)
+  (initialization (initialize-package!)))
+
+(define-package (runtime gc-daemons)
+  (files "gcdemn")
+  (parent ())
+  (export ()
+	  add-gc-daemon!
+	  add-secondary-gc-daemon!
+	  trigger-secondary-gc-daemons!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime gc-notification)
+  (files "gcnote")
+  (parent ())
+  (export ()
+	  gc-statistic->string
+	  print-gc-statistics
+	  toggle-gc-notification!))
+(define-package (runtime gc-statistics)
+  (files "gcstat")
+  (parent ())
+  (export ()
+	  gc-history-mode
+	  gc-statistic/heap-left
+	  gc-statistic/last-gc-end
+	  gc-statistic/last-gc-start
+	  gc-statistic/meter
+	  gc-statistic/this-gc-end
+	  gc-statistic/this-gc-start
+	  gc-statistics
+	  gctime)
+  (export (runtime gc-notification)
+	  default/record-statistic!
+	  hook/record-statistic!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime gensym)
+  (files "gensym")
+  (parent ())
+  (export ()
+	  generate-uninterned-symbol)
+  (initialization (initialize-package!)))
+
+(define-package (runtime global-database)
+  (files "gdatab")
+  (parent ())
+  (export ()
+	  add-unparser-special-object!
+	  add-unparser-special-pair!
+	  event:after-restart
+	  event:after-restore
+	  unparse-with-brackets
+	  unparser/set-tagged-pair-method!
+	  unparser/set-tagged-vector-method!
+	  unparser/tagged-pair-method
+	  unparser/tagged-vector-method)
+  (initialization (initialize-package!)))
+
+(define-package (runtime hash)
+  (files "hash")
+  (parent ())
+  (export ()
+	  hash
+	  object-hash
+	  object-unhash
+	  unhash
+	  valid-hash-number?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime history)
+  (files "histry")
+  (parent ())
+  (export ()
+	  with-new-history)
+  (export (runtime continuation-parser)
+	  history-reductions
+	  history-superproblem
+	  history-transform
+	  history-untransform)
+  (initialization (initialize-package!)))
+
+(define-package (runtime input-port)
+  (files "input")
+  (parent ())
+  (export ()
+	  call-with-input-file
+	  char-ready?
+	  close-input-port
+	  current-input-port
+	  eof-object?
+	  guarantee-input-port
+	  input-port/char-ready?
+	  input-port/copy
+	  input-port/custom-operation
+	  input-port/discard-char
+	  input-port/discard-chars
+	  input-port/operation/char-ready?
+	  input-port/operation/discard-char
+	  input-port/operation/discard-chars
+	  input-port/operation/peek-char
+	  input-port/operation/peek-char-immediate
+	  input-port/operation/read-char
+	  input-port/operation/read-char-immediate
+	  input-port/operation/read-finish!
+	  input-port/operation/read-start!
+	  input-port/operation/read-string
+	  input-port/peek-char
+	  input-port/peek-char-immediate
+	  input-port/read-char
+	  input-port/read-char-immediate
+	  input-port/read-finish!
+	  input-port/read-start!
+	  input-port/read-string
+	  input-port/state
+	  input-port?
+	  make-eof-object
+	  make-input-port
+	  peek-char
+	  read
+	  read-char
+	  read-char-no-hang
+	  read-string
+	  set-input-port/state!
+	  with-input-from-file
+	  with-input-from-port)
+  (initialization (initialize-package!)))
+
+(define-package (runtime interrupt-handler)
+  (files "intrpt")
+  (parent ())
+  (export ()
+	  timer-interrupt
+	  with-external-interrupts-handler)
+  (export (runtime emacs-interface)
+	  hook/^g-interrupt)
+  (initialization (initialize-package!)))
+
+(define-package (runtime lambda-abstraction)
+  (files "lambda")
+  (parent ())
+  (export ()
+	  block-declaration?
+	  block-declaration-text
+	  lambda?
+	  lambda-body
+	  lambda-bound
+	  lambda-components
+	  make-block-declaration
+	  make-lambda
+	  set-lambda-body!)
+  (export (runtime advice)
+	  lambda-unwrap-body!
+	  lambda-wrap-body!
+	  lambda-wrapper-components)
+  (export (runtime environment)
+	  internal-lambda?)
+  (export (runtime syntaxer)
+	  make-block-declaration)
+  (export (runtime debugger-utilities)
+	  lambda-tag:internal-lambda
+	  lambda-tag:internal-lexpr)
+  (initialization (initialize-package!)))
+
+(define-package (runtime list)
+  (files "list")
+  (parent ())
+  (export ()
+	  alist-copy
+	  alist?
+	  append
+	  append!
+	  assoc
+	  association-procedure
+	  assq
+	  assv
+	  caaaar
+	  caaadr
+	  caaar
+	  caadar
+	  caaddr
+	  caadr
+	  caar
+	  cadaar
+	  cadadr
+	  cadar
+	  caddar
+	  cadddr
+	  caddr
+	  cadr
+	  car
+	  cdaaar
+	  cdaadr
+	  cdaar
+	  cdadar
+	  cdaddr
+	  cdadr
+	  cdar
+	  cddaar
+	  cddadr
+	  cddar
+	  cdddar
+	  cddddr
+	  cdddr
+	  cddr
+	  cdr
+	  circular-list
+	  cons
+	  cons*
+	  del-assoc
+	  del-assoc!
+	  del-assq
+	  del-assq!
+	  del-assv
+	  del-assv!
+	  delete
+	  delete!
+	  delete-association-procedure
+	  delete-member-procedure
+	  delq
+	  delq!
+	  delv
+	  delv!
+	  eighth
+	  except-last-pair
+	  except-last-pair!
+	  fifth
+	  first
+	  for-each
+	  fourth
+	  general-car-cdr
+	  last-pair
+	  length
+	  list
+	  list-copy
+	  list-deletor
+	  list-deletor!
+	  list-head
+	  list-ref
+	  list-search-negative
+	  list-search-positive
+	  list-tail
+	  list-transform-negative
+	  list-transform-positive
+	  list?
+	  make-list
+	  make-circular-list
+	  map
+	  map*
+	  mapcan
+	  mapcan*
+	  member
+	  member-procedure
+	  memq
+	  memv
+	  ninth
+	  null?
+	  pair?
+	  reduce
+	  reverse
+	  reverse!
+	  second
+	  set-car!
+	  set-cdr!
+	  seventh
+	  sixth
+	  sublist
+	  tenth
+	  third
+	  tree-copy
+	  weak-car
+	  weak-cdr
+	  weak-cons
+	  weak-pair/car?
+	  weak-pair?
+	  weak-set-car!
+	  weak-set-cdr!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime load)
+  (files "load")
+  (parent ())
+  (export ()
+	  fasload
+	  fasload/default-types
+	  load
+	  load-noisily
+	  load-noisily?
+	  load/default-types
+	  read-file)
+  (initialization (initialize-package!)))
+
+(define-package (runtime macros)
+  (files "macros")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime microcode-errors)
+  (files "uerror")
+  (parent (runtime error-handler))
+  (export ()
+	  error-type:anomalous
+	  error-type:bad-range-argument
+	  error-type:failed-argument-coercion
+	  error-type:fasdump
+	  error-type:fasload
+	  error-type:illegal-argument
+	  error-type:missing-handler
+	  error-type:open-file
+	  error-type:random-internal
+	  error-type:wrong-type-argument
+	  microcode-error-type)
+  (initialization (initialize-package!)))
+
+(define-package (runtime microcode-tables)
+  (files "utabs")
+  (parent ())
+  (export ()
+	  char:newline
+	  fixed-object/code->name
+	  fixed-object/code-limit
+	  fixed-object/name->code
+	  fixed-objects-item
+	  fixed-objects-vector-slot
+	  microcode-error/code->name
+	  microcode-error/code-limit
+	  microcode-error/name->code
+	  microcode-id/floating-exponent-bits	  microcode-id/floating-mantissa-bits
+	  microcode-id/modification
+	  microcode-id/operating-system-name
+	  microcode-id/operating-system-variant
+	  microcode-id/release-string
+	  microcode-id/stack-type
+	  microcode-id/tty-x-size
+	  microcode-id/tty-y-size
+	  microcode-id/version
+	  microcode-identification-item
+	  microcode-identification-vector-slot
+	  microcode-object/unassigned
+	  microcode-return/code->name
+	  microcode-return/code-limit
+	  microcode-return/name->code
+	  microcode-termination/code->name
+	  microcode-termination/code-limit
+	  microcode-termination/name->code
+	  microcode-type/code->name
+	  microcode-type/code-limit
+	  microcode-type/name->code)
+  (export (runtime save/restore)
+	  read-microcode-tables!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime number)
+  (files "narith")
+  (parent ())
+  (export ()
+	  *
+	  +
+	  -
+	  -1+
+	  /
+	  1+
+	  <
+	  <=
+	  =
+	  >
+	  >=
+	  abs
+	  acos
+	  angle
+	  asin
+	  atan
+	  ceiling
+	  complex?
+	  cos	  even?
+	  exact->inexact
+	  exact?
+	  exp
+	  expt
+	  floor
+	  gcd
+	  imag-part
+	  inexact->exact
+	  inexact?
+	  integer-divide
+	  integer-divide-quotient
+	  integer-divide-remainder
+	  integer-expt	  integer?
+	  lcm
+	  log
+	  magnitude
+	  make-polar
+	  make-rectangular
+	  max
+	  min
+	  modulo
+	  negative?
+	  number?
+	  odd?
+	  positive?
+	  quotient
+	  rational?
+	  real-part
+	  real?
+	  remainder
+	  round
+	  sin
+	  sqrt
+	  tan
+	  truncate
+	  zero?)
+  (initialization (initialize-package!)))
+(define-package (runtime number-parser)
+  (files "numpar")
+  (parent ())
+  (export ()
+	  string->number))
+
+(define-package (runtime number-unparser)
+  (files "numunp")
+  (parent ())
+  (export ()
+	  number->string)
+  (initialization (initialize-package!)))
+(define-package (runtime output-port)
+  (files "output")
+  (parent ())
+  (export ()
+	  beep
+	  call-with-output-file
+	  clear
+	  close-output-port
+	  current-output-port
+	  display
+	  guarantee-output-port
+	  make-output-port
+	  newline
+	  output-port/copy
+	  output-port/custom-operation
+	  output-port/flush-output
+	  output-port/operation/flush-output
+	  output-port/operation/write-char
+	  output-port/operation/write-string
+	  output-port/state
+	  output-port/write-char
+	  output-port/write-string
+	  output-port/x-size
+	  output-port?
+	  set-output-port/state!
+	  with-output-to-file
+	  with-output-to-port
+	  write
+	  write-char
+	  write-line
+	  write-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime parser)
+  (files "parse")
+  (parent ())
+  (export ()
+	  *parser-radix*
+	  parse-object
+	  parse-objects
+	  system-global-parser-table)
+  (export (runtime character)
+	  char-set/atom-delimiters)
+  (export (runtime input-port)
+	  parse-object/internal)
+  (export (runtime syntaxer)
+	  lambda-optional-tag
+	  lambda-rest-tag)
+  (export (runtime macros)
+	  lambda-optional-tag)
+  (export (runtime unsyntaxer)
+	  lambda-optional-tag)
+  (initialization (initialize-package!)))
+
+(define-package (runtime parser-table)
+  (files "partab")
+  (parent ())
+  (export ()
+	  current-parser-table
+	  guarantee-parser-table
+	  make-parser-table
+	  parser-table/copy
+	  parser-table/entry
+	  parser-table/set-entry!
+	  parser-table?
+	  set-current-parser-table!
+	  with-current-parser-table)
+  (export (runtime parser)
+	  parser-table/collect-list
+	  parser-table/collect-list-special
+	  parser-table/parse-object
+	  parser-table/parse-object-special)
+  (initialization (initialize-package!)))
+
+(define-package (runtime pathname)
+  (files "pathnm")
+  (parent ())
+  (export ()
+	  ->pathname
+	  canonicalize-input-filename
+	  canonicalize-output-filename
+	  file-exists?
+	  init-file-truename
+	  make-pathname
+	  merge-pathnames
+	  pathname->absolute-pathname
+	  pathname->input-truename
+	  pathname->output-truename
+	  pathname->string
+	  pathname-absolute?
+	  pathname-components
+	  pathname-copy
+	  pathname-default
+	  pathname-default-device
+	  pathname-default-directory
+	  pathname-default-host
+	  pathname-default-name
+	  pathname-default-type
+	  pathname-default-version
+	  pathname-device
+	  pathname-directory
+	  pathname-directory-path
+	  pathname-directory-string
+	  pathname-host
+	  pathname-name
+	  pathname-name-path
+	  pathname-name-string
+	  pathname-new-device
+	  pathname-new-directory
+	  pathname-new-host
+	  pathname-new-name
+	  pathname-new-type
+	  pathname-new-version	  pathname-type
+	  pathname-version
+	  pathname?
+	  string->pathname)  (export (runtime pathname-parser)
+	  simplify-directory))
+
+(define-package (runtime pathname-parser)
+  (file-case os-type
+    ((unix) "unxpar")
+    ((vms) "vmspar")
+    (else))
+  (parent ())
+  (export ()
+	  parse-pathname
+	  pathname-as-directory))
+
+(define-package (runtime pathname-unparser)
+  (file-case os-type
+    ((unix) "unxunp")
+    ((vms) "vmsunp")
+    (else))
+  (parent ())
+  (export ()
+	  pathname-unparse
+	  pathname-unparse-name))
+
+(define-package (runtime population)
+  (files "poplat")
+  (parent ())
+  (export ()
+	  add-to-population!
+	  exists-an-inhabitant?
+	  for-all-inhabitants?
+	  make-population
+	  map-over-population
+	  map-over-population!
+	  population?
+	  remove-from-population!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime pretty-printer)
+  (files "pp")
+  (parent ())
+  (export ()
+	  pp)  (initialization (initialize-package!)))
+
+(define-package (runtime primitive-io)
+  (files "io")
+  (parent ())
+  (export ()
+	  close-all-open-files)
+  (export (runtime file-input)
+	  channel-name
+	  close-physical-channel
+	  open-input-channel)
+  (export (runtime file-output)
+	  channel-name
+	  close-physical-channel
+	  open-output-channel)
+  (initialization (initialize-package!)))
+
+(define-package (runtime random-number)
+  (files "random")
+  (parent ())
+  (export ()
+	  random
+	  randomize)
+  (initialization (initialize-package!)))
+
+(define-package (runtime reference-trap)
+  (files "urtrap")
+  (parent ())
+  (export ()
+	  make-unassigned-reference-trap
+	  make-unbound-reference-trap
+	  map-reference-trap
+	  reference-trap-kind
+	  reference-trap-kind-name
+	  reference-trap?
+	  unassigned-reference-trap?
+	  unbound-reference-trap?
+	  unmap-reference-trap))
+
+(define-package (runtime rep)
+  (files "rep")
+  (parent ())
+  (export ()
+	  %ge
+	  %gst
+	  %in
+	  %out
+	  %ve
+	  %vst
+	  ->environment
+	  abort->nearest
+	  abort->previous
+	  abort->top-level
+	  abort-to-nearest-driver
+	  abort-to-previous-driver
+	  abort-to-top-level-driver
+	  breakpoint
+	  breakpoint-procedure
+	  cmdl-interrupt/abort-nearest
+	  cmdl-interrupt/abort-previous
+	  cmdl-interrupt/abort-top-level
+	  cmdl-interrupt/abort-top-level/reset?
+	  cmdl-interrupt/breakpoint
+	  cmdl-message/active
+	  cmdl-message/append
+	  cmdl-message/null
+	  cmdl-message/standard
+	  cmdl-message/strings
+	  cmdl-message/value
+	  cmdl/base
+	  cmdl/continuation
+	  cmdl/driver
+	  cmdl/input-port
+	  cmdl/level
+	  cmdl/output-port
+	  cmdl/parent
+	  cmdl/proceed-continuation
+	  cmdl/state
+	  cmdl?
+	  current-proceed-continuation
+	  ge
+	  gst
+	  in
+	  initial-top-level-repl
+	  make-cmdl
+	  make-repl
+	  nearest-cmdl
+	  nearest-repl
+	  out
+	  proceed
+	  prompt-for-command-char
+	  prompt-for-confirmation
+	  prompt-for-expression
+	  push-cmdl
+	  push-repl
+	  re
+	  read-eval-print
+	  repl-history/read
+	  repl-history/record!
+	  repl-history/size
+	  repl/base
+	  repl/environment
+	  repl/parent
+	  repl/printer-history
+	  repl/prompt
+	  repl/reader-history
+	  repl/syntax-table
+	  repl?
+	  set-cmdl/continuation!
+	  set-cmdl/input-port!
+	  set-cmdl/output-port!
+	  set-cmdl/state!
+	  set-repl/environment!
+	  set-repl/printer-history!
+	  set-repl/prompt!
+	  set-repl/reader-history!
+	  set-repl/syntax-table!
+	  standard-repl-environment
+	  standard-repl-syntax-table
+	  ve
+	  vst
+	  with-proceed-point
+	  with-standard-proceed-point)
+  (export (runtime load)
+	  hook/repl-eval
+	  hook/repl-write)
+  (export (runtime emacs-interface)
+	  hook/cmdl-message
+	  hook/cmdl-prompt
+	  hook/prompt-for-confirmation
+	  hook/prompt-for-expression
+	  hook/read-command-char
+	  hook/repl-environment
+	  hook/repl-read
+	  hook/repl-write)
+  (export (runtime debugger-command-loop)
+	  hook/repl-environment)
+  (initialization (initialize-package!)))
+
+(define-package (runtime save/restore)
+  (files "savres")
+  (parent ())
+  (export ()
+	  disk-restore
+	  disk-save
+	  dump-world
+	  identify-world)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode)
+  (files "scode")
+  (parent ())
+  (export ()
+	  absolute-reference-name
+	  absolute-reference-to?
+	  absolute-reference?
+	  access-components
+	  access-environment
+	  access-name
+	  access?
+	  assignment-components
+	  assignment-components-with-variable
+	  assignment-name
+	  assignment-value
+	  assignment-variable
+	  assignment?
+	  comment-components
+	  comment-expression
+	  comment-text
+	  comment?
+	  declaration-components
+	  declaration-expression
+	  declaration-text
+	  declaration?
+	  definition-components
+	  definition-name
+	  definition-value
+	  definition?
+	  delay-components
+	  delay-expression
+	  delay?
+	  in-package-components
+	  in-package-environment
+	  in-package-expression
+	  in-package?
+	  intern
+	  make-absolute-reference
+	  make-access
+	  make-assignment
+	  make-assignment-from-variable
+	  make-comment
+	  make-declaration
+	  make-definition
+	  make-delay
+	  make-in-package
+	  make-named-tag
+	  make-quotation
+	  make-the-environment
+	  make-variable
+	  quotation-expression
+	  quotation?
+	  scode-constant?
+	  set-comment-expression!
+	  set-comment-text!
+	  set-declaration-expression!
+	  set-declaration-text!
+	  string->symbol
+	  string->uninterned-symbol
+	  symbol->string
+	  symbol?
+	  the-environment?
+	  variable-components
+	  variable-name
+	  variable?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode-combinator)
+  (files "scomb")
+  (parent ())
+  (export ()
+	  combination-components
+	  combination-operands
+	  combination-operator
+	  combination-size
+	  combination?
+	  conditional-alternative
+	  conditional-components
+	  conditional-consequent
+	  conditional-predicate
+	  conditional?
+	  disjunction-alternative
+	  disjunction-components
+	  disjunction-predicate
+	  disjunction?
+	  make-combination
+	  make-conditional
+	  make-disjunction
+	  make-sequence
+	  make-unassigned?
+	  sequence-actions
+	  sequence-components
+	  sequence?
+	  unassigned?-components
+	  unassigned?-name
+	  unassigned??
+	  undefined-conditional-branch)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode-data)
+  (files "sdata")
+  (parent ())
+  (export (runtime lambda-abstraction)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &triple-first
+	  &triple-second
+	  &triple-set-first!
+	  &triple-set-second!
+	  &triple-set-third!
+	  &triple-third
+	  &typed-pair-cons
+	  &typed-triple-cons)
+  (export (runtime scode)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &singleton-element
+	  &typed-pair-cons
+	  &typed-singleton-cons)
+  (export (runtime scode-combinator)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &subvector->list
+	  &triple-first
+	  &triple-second
+	  &triple-set-first!
+	  &triple-set-second!
+	  &triple-set-third!
+	  &triple-third
+	  &typed-pair-cons
+	  &typed-triple-cons
+	  &typed-vector-cons
+	  &vector-length
+	  &vector-ref)
+  (export (runtime scode-scan)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &triple-first
+	  &triple-second
+	  &triple-set-first!
+	  &triple-set-second!
+	  &triple-set-third!
+	  &triple-third
+	  &typed-pair-cons
+	  &typed-triple-cons))
+
+(define-package (runtime scode-scan)
+  (files "scan")
+  (parent ())
+  (export ()
+	  make-open-block
+	  open-block-components
+	  open-block?
+	  scan-defines
+	  unscan-defines)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode-walker)
+  (files "codwlk")
+  (parent ())
+  (export ()
+	  make-scode-walker
+	  scode-walk
+	  scode-walker?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime state-space)
+  (files "wind")
+  (parent ())
+  (export ()
+	  current-dynamic-state
+	  dynamic-wind
+	  execute-at-new-state-point
+	  get-fluid-bindings
+	  make-state-space
+	  set-current-dynamic-state!
+	  set-fluid-bindings!
+	  translate-to-state-point)
+  (initialization (initialize-package!)))
+
+(define-package (runtime stream)
+  (files "stream")
+  (parent ())
+  (export ()
+	  empty-stream?
+	  head
+	  list->stream
+	  prime-numbers-stream
+	  stream
+	  stream->list
+	  stream-car
+	  stream-cdr
+	  stream-length
+	  stream-map
+	  stream-null?
+	  stream-pair?
+	  stream-ref
+	  stream-tail
+	  tail
+	  the-empty-stream)
+  (initialization (initialize-package!)))
+
+(define-package (runtime string-input)
+  (files "strnin")
+  (parent ())
+  (export ()
+	  string->input-port
+	  with-input-from-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime string-output)
+  (files "strout")
+  (parent ())
+  (export ()
+	  with-output-to-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime syntax-table)
+  (files "syntab")
+  (parent ())
+  (export ()
+	  guarantee-syntax-table
+	  make-syntax-table
+	  syntax-table-define
+	  syntax-table-ref
+	  syntax-table/copy
+	  syntax-table/define
+	  syntax-table/extend
+	  syntax-table/parent
+	  syntax-table/ref
+	  syntax-table?))
+
+(define-package (runtime syntaxer)
+  (files "syntax")
+  (parent ())
+  (export ()
+	  lambda-tag:fluid-let
+	  lambda-tag:let
+	  lambda-tag:make-environment
+	  lambda-tag:unnamed
+	  make-syntax-closure
+	  syntax
+	  syntax*
+	  syntax-closure/expression
+	  syntax-closure?
+	  system-global-syntax-table
+	  user-initial-syntax-table)
+  (export (runtime defstruct)
+	  parse-lambda-list)
+  (initialization (initialize-package!)))
+
+(define-package (runtime system)
+  (files "system")
+  (parent ())
+  (export ()
+	  add-system!
+	  for-each-system!
+	  load-system!
+	  make-system
+	  system/identification-string
+	  system/modification
+	  system/name
+	  system/version))
+
+(define-package (runtime system-clock)
+  (files "sysclk")
+  (parent ())
+  (export ()
+	  internal-time/seconds->ticks
+	  internal-time/ticks->seconds
+	  measure-interval
+	  process-time-clock
+	  real-time-clock
+	  runtime
+	  system-clock)
+  (export (runtime gc-statistics)
+	  increment-non-runtime!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime system-macros)
+  (files "sysmac")
+  (parent ())
+  (export ()
+	  syntax-table/system-internal)
+  (initialization (initialize-package!)))
+
+(define-package (runtime truncated-string-output)
+  (files "strott")
+  (parent ())
+  (export ()
+	  with-output-to-truncated-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime unparser)
+  (files "unpars")
+  (parent ())
+  (export ()	  *unparser-list-breadth-limit*
+	  *unparser-list-depth-limit*
+	  *unparser-radix*
+	  current-unparser-table
+	  guarantee-unparser-state
+	  guarantee-unparser-table
+	  make-unparser-state
+	  make-unparser-table
+	  system-global-unparser-table
+	  unparse-char
+	  unparse-object
+	  unparse-string
+	  unparser-state/list-depth
+	  unparser-state/port
+	  unparser-state/slashify?
+	  unparser-state/unparser-table
+	  unparser-state?
+	  unparser-table/copy
+	  unparser-table/entry
+	  unparser-table/set-entry!
+	  unparser-table?
+	  user-object-type)
+  (export (runtime output-port)
+	  unparse-object/internal)
+  (export (runtime pretty-printer)
+	  unparse-list/unparser
+	  unparse-vector/unparser)
+  (initialization (initialize-package!)))
+
+(define-package (runtime unsyntaxer)
+  (files "unsyn")
+  (parent ())
+  (export ()
+	  unsyntax
+	  unsyntax-lambda-list)
+  (initialization (initialize-package!)))
+
+(define-package (runtime working-directory)
+  (file-case os-type
+    ((unix) "unxcwd")
+    ((vms) "vmscwd")
+    (else "unkcwd"))
+  (files "wrkdir")
+  (parent ())
+  (export ()
+	  set-working-directory-pathname!
+	  with-working-directory-pathname
+	  working-directory-pathname)
+  (export (runtime emacs-interface)
+	  hook/set-working-directory-pathname!)
+  (initialization (initialize-package!)))
\ No newline at end of file
diff --git a/v7/src/runtime/runtime.sf b/v7/src/runtime/runtime.sf
new file mode 100644
index 000000000..5c1122506
--- /dev/null
+++ b/v7/src/runtime/runtime.sf
@@ -0,0 +1,37 @@
+#| -*-Scheme-*-
+
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.sf,v 14.1 1988/06/13 12:07:03 cph Exp $
+
+Copyright (c) 1988 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+(sf/set-default-syntax-table! syntax-table/system-internal)
+(sf-directory ".")(cref/generate-all "runtim")(sf "runtim.con" "runtim.bcon")
+(sf "runtim.ldr" "runtim.bldr")
\ No newline at end of file
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
new file mode 100644
index 000000000..509ce6674
--- /dev/null
+++ b/v8/src/runtime/runtime.pkg
@@ -0,0 +1,1546 @@
+#| -*-Scheme-*-
+
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.1 1988/06/13 12:07:50 cph Exp $
+
+Copyright (c) 1988 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+;;;; Runtime System Packaging
+
+(define-package ()
+  (files "bitstr"
+	 "boole"
+	 "boot"
+	 "equals"
+	 "fixart"
+	 "global"
+	 "lambdx"
+	 "queue"
+	 "sfile"
+	 "string"
+	 "udata"
+	 "vector")
+  (file-case sort-type
+    ((merge-sort) "msort")
+    ((quick-sort) "qsort")
+    (else))
+  (file-case os-type
+    ((unix) "unxpth")
+    ((vms) "vmspth")
+    (else "unkpth")))
+
+(define-package (package)
+  ;; The information appearing here must be duplicated in the cold load
+  ;; sequence.  If you change this package make sure to edit that also.
+  (files "packag")
+  (parent ())
+  (export ()
+	  find-package
+	  name->package
+	  package/add-child!
+	  package/child
+	  package/children
+	  package/environment
+	  package/name
+	  package/parent
+	  package/reference
+	  package/system-loader
+	  package?
+	  system-global-package)
+  (initialization (initialize-package!)))
+
+(define-package (runtime)
+  (files "version")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime 1d-property)
+  (files "prop1d")
+  (parent ())
+  (export ()	  1d-table/get
+	  1d-table/lookup
+	  1d-table/put!
+	  1d-table/remove!
+	  1d-table?
+	  make-1d-table)
+  (initialization (initialize-package!)))
+
+(define-package (runtime 2d-property)
+  (files "prop2d")
+  (parent ())
+  (export ()
+	  2d-get
+	  2d-get-alist-x
+	  2d-get-alist-y
+	  2d-put!
+	  2d-remove!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime advice)
+  (files "advice")
+  (parent ())
+  (export ()
+	  *args*
+	  *proc*
+	  *result*
+	  advice
+	  advise-entry
+	  advise-exit
+	  break
+	  break-both
+	  break-entry
+	  break-exit
+	  entry-advice
+	  exit-advice
+	  trace
+	  trace-both
+	  trace-entry
+	  trace-exit
+	  unadvise
+	  unadvise-entry
+	  unadvise-exit
+	  unbreak
+	  unbreak-entry
+	  unbreak-exit
+	  untrace
+	  untrace-entry
+	  untrace-exit)
+  (initialization (initialize-package!)))
+
+(define-package (runtime character)
+  (files "char")
+  (parent ())
+  (export ()
+	  ascii->char
+	  char->ascii
+	  char->digit
+	  char->integer
+	  char->name
+	  char-ascii?
+	  char-bits
+	  char-bits-limit
+	  char-ci<=?
+	  char-ci<?
+	  char-ci=?
+	  char-ci>=?
+	  char-ci>?
+	  char-code
+	  char-code-limit
+	  char-downcase
+	  char-integer-limit
+	  char-upcase
+	  char<=?
+	  char<?
+	  char=?
+	  char>=?
+	  char>?
+	  char?
+	  chars->ascii
+	  code->char
+	  digit->char
+	  integer->char
+	  make-char
+	  name->char)
+  (initialization (initialize-package!)))
+
+(define-package (runtime character-set)
+  (files "chrset")
+  (parent ())
+  (export ()
+	  ascii-range->char-set
+	  char-alphabetic?
+	  char-alphanumeric?
+	  char-graphic?
+	  char-lower-case?
+	  char-numeric?
+	  char-set
+	  char-set-difference
+	  char-set-intersection
+	  char-set-invert
+	  char-set-member?
+	  char-set-members
+	  char-set-union
+	  char-set:alphabetic
+	  char-set:alphanumeric
+	  char-set:graphic
+	  char-set:lower-case
+	  char-set:not-whitespace
+	  char-set:numeric
+	  char-set:standard
+	  char-set:upper-case
+	  char-set:whitespace
+	  char-set?
+	  char-standard?
+	  char-upper-case?
+	  char-whitespace?
+	  chars->char-set
+	  predicate->char-set)
+  (initialization (initialize-package!)))
+
+(define-package (runtime console-input)
+  (files "ttyin")
+  (parent ())
+  (export ()
+	  console-input-port)
+  (export (runtime emacs-interface)
+	  hook/read-char-immediate
+	  hook/read-finish
+	  hook/read-start)
+  (initialization (initialize-package!)))
+
+(define-package (runtime console-output)
+  (files "ttyout")
+  (parent ())
+  (export ()
+	  console-output-port)
+  (initialization (initialize-package!)))
+
+(define-package (runtime continuation)
+  (files "contin")
+  (parent ())
+  (export ()
+	  call-with-current-continuation
+	  continuation/control-point
+	  continuation/dynamic-state
+	  continuation/fluid-bindings
+	  continuation/type
+	  continuation?
+	  guarantee-continuation
+	  make-continuation
+	  non-reentrant-call-with-current-continuation
+	  within-continuation))
+
+(define-package (runtime continuation-parser)
+  (files "conpar")
+  (parent ())
+  (export ()
+	  continuation->stack-frame
+	  continuation/first-subproblem
+	  microcode-return/code->type
+	  stack-frame->continuation
+	  stack-frame-type/code
+	  stack-frame-type/properties
+	  stack-frame-type/subproblem?
+	  stack-frame-type?
+	  stack-frame/dynamic-state
+	  stack-frame/elements
+	  stack-frame/fluid-bindings
+	  stack-frame/interrupt-mask
+	  stack-frame/length
+	  stack-frame/next
+	  stack-frame/next-subproblem
+	  stack-frame/properties
+	  stack-frame/reductions
+	  stack-frame/ref
+	  stack-frame/return-code
+	  stack-frame/skip-non-subproblems
+	  stack-frame/subproblem?
+	  stack-frame/type
+	  stack-frame?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime control-point)
+  (files "cpoint")
+  (parent ())
+  (export ()
+	  control-point/element-stream
+	  control-point/history
+	  control-point/interrupt-mask
+	  control-point/next-control-point
+	  control-point/previous-history-control-point
+	  control-point/previous-history-offset
+	  control-point/reusable?
+	  control-point/unused-length
+	  control-point?
+	  make-control-point))
+
+(define-package (runtime date/time)
+  (files "datime")
+  (parent ())
+  (export ()
+	  decoded-time/date-string
+	  decoded-time/day
+	  decoded-time/hour
+	  decoded-time/minute
+	  decoded-time/month
+	  decoded-time/second
+	  decoded-time/time-string
+	  decoded-time/year
+	  get-decoded-time))
+
+(define-package (runtime debugger)
+  (files "debug")
+  (parent (runtime debugger-command-loop))
+  (export ()
+	  debug)
+  (initialization (initialize-package!)))
+
+(define-package (runtime debugger-command-loop)
+  (files "dbgcmd")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime debugger-utilities)
+  (files "dbgutl")
+  (parent (runtime debugger-command-loop))
+  (export (runtime debugger-command-loop)
+	  debug/read-eval-print-1
+	  environment-name
+	  print-user-friendly-name
+	  show-frame
+	  special-name?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime debugging-info)
+  (files "framex")
+  (parent ())
+  (export ()
+	  debugging-info/compiled-code?
+	  debugging-info/evaluated-object-value
+	  debugging-info/evaluated-object?
+	  debugging-info/undefined-environment?
+	  debugging-info/undefined-expression?
+	  stack-frame/debugging-info)
+  (initialization (initialize-package!)))
+
+(define-package (runtime defstruct)
+  (files "defstr")
+  (parent ())
+  (export ()
+	  named-structure/description
+	  named-structure?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime directory)
+  (file-case os-type
+    ((unix) "unxdir")
+    (else "unkdir"))
+  (parent ())
+  (export ()
+	  directory-read)
+  (initialization (initialize-package!)))
+
+(define-package (runtime emacs-interface)
+  (files "emacs")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime environment)
+  (files "uenvir")
+  (parent ())
+  (export ()
+	  environment-arguments
+	  environment-bindings
+	  environment-has-parent?
+	  environment-parent
+	  environment-procedure
+	  environment?
+	  remove-environment-parent!
+	  set-environment-parent!))
+
+(define-package (runtime environment-inspector)
+  (files "where")
+  (parent (runtime debugger-command-loop))
+  (export ()
+	  where)
+  (initialization (initialize-package!)))
+
+(define-package (runtime error-handler)
+  (files "error")
+  (parent ())
+  (export ()
+	  bind-condition-handler
+	  cmdl-message/error
+	  condition-type/dependencies
+	  condition-type/error?
+	  condition-type/message
+	  condition-type/properties
+	  condition-type:error
+	  condition-type?
+	  condition/continuation
+	  condition/dependencies
+	  condition/error?
+	  condition/irritants
+	  condition/message
+	  condition/properties
+	  condition/type
+	  condition?
+	  error-condition
+	  error-continuation
+	  error-irritant
+	  error-irritant/noise
+	  error-irritant/noise-value
+	  error-irritant/noise?
+	  error-irritants
+	  error-irritants/sans-noise
+	  error-message
+	  error-type:vanilla
+	  error-type?
+	  error?
+	  format-error-message
+	  guarantee-condition
+	  guarantee-condition-type
+	  make-condition
+	  make-condition-type
+	  make-error-type
+	  signal-condition
+	  signal-error
+	  standard-error-handler
+	  warn)
+  (export (runtime rep)
+	  default/error-handler
+	  hook/error-handler)
+  (export (runtime emacs-interface)
+	  hook/error-decision)
+  (initialization (initialize-package!)))
+
+(define-package (runtime event-distributor)
+  (files "events")
+  (parent ())
+  (export ()
+	  add-event-receiver!
+	  event-distributor/invoke!
+	  event-distributor?
+	  make-event-distributor
+	  remove-event-receiver!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime file-input)
+  (files "filein")
+  (parent ())
+  (export ()
+	  open-input-file)
+  (export (runtime load)
+	  open-input-file/internal)
+  (initialization (initialize-package!)))
+
+(define-package (runtime file-output)
+  (files "filout")
+  (parent ())
+  (export ()
+	  open-output-file)
+  (initialization (initialize-package!)))
+
+(define-package (runtime garbage-collector)
+  (files "gc")
+  (parent ())
+  (export ()
+	  constant-space/in-use	  gc-flip
+	  purify
+	  set-gc-safety-margin!)
+  (export (runtime gc-statistics)
+	  hook/gc-finish
+	  hook/gc-start)
+  (export (runtime emacs-interface)
+	  hook/gc-finish
+	  hook/gc-start)
+  (initialization (initialize-package!)))
+
+(define-package (runtime gc-daemons)
+  (files "gcdemn")
+  (parent ())
+  (export ()
+	  add-gc-daemon!
+	  add-secondary-gc-daemon!
+	  trigger-secondary-gc-daemons!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime gc-notification)
+  (files "gcnote")
+  (parent ())
+  (export ()
+	  gc-statistic->string
+	  print-gc-statistics
+	  toggle-gc-notification!))
+(define-package (runtime gc-statistics)
+  (files "gcstat")
+  (parent ())
+  (export ()
+	  gc-history-mode
+	  gc-statistic/heap-left
+	  gc-statistic/last-gc-end
+	  gc-statistic/last-gc-start
+	  gc-statistic/meter
+	  gc-statistic/this-gc-end
+	  gc-statistic/this-gc-start
+	  gc-statistics
+	  gctime)
+  (export (runtime gc-notification)
+	  default/record-statistic!
+	  hook/record-statistic!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime gensym)
+  (files "gensym")
+  (parent ())
+  (export ()
+	  generate-uninterned-symbol)
+  (initialization (initialize-package!)))
+
+(define-package (runtime global-database)
+  (files "gdatab")
+  (parent ())
+  (export ()
+	  add-unparser-special-object!
+	  add-unparser-special-pair!
+	  event:after-restart
+	  event:after-restore
+	  unparse-with-brackets
+	  unparser/set-tagged-pair-method!
+	  unparser/set-tagged-vector-method!
+	  unparser/tagged-pair-method
+	  unparser/tagged-vector-method)
+  (initialization (initialize-package!)))
+
+(define-package (runtime hash)
+  (files "hash")
+  (parent ())
+  (export ()
+	  hash
+	  object-hash
+	  object-unhash
+	  unhash
+	  valid-hash-number?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime history)
+  (files "histry")
+  (parent ())
+  (export ()
+	  with-new-history)
+  (export (runtime continuation-parser)
+	  history-reductions
+	  history-superproblem
+	  history-transform
+	  history-untransform)
+  (initialization (initialize-package!)))
+
+(define-package (runtime input-port)
+  (files "input")
+  (parent ())
+  (export ()
+	  call-with-input-file
+	  char-ready?
+	  close-input-port
+	  current-input-port
+	  eof-object?
+	  guarantee-input-port
+	  input-port/char-ready?
+	  input-port/copy
+	  input-port/custom-operation
+	  input-port/discard-char
+	  input-port/discard-chars
+	  input-port/operation/char-ready?
+	  input-port/operation/discard-char
+	  input-port/operation/discard-chars
+	  input-port/operation/peek-char
+	  input-port/operation/peek-char-immediate
+	  input-port/operation/read-char
+	  input-port/operation/read-char-immediate
+	  input-port/operation/read-finish!
+	  input-port/operation/read-start!
+	  input-port/operation/read-string
+	  input-port/peek-char
+	  input-port/peek-char-immediate
+	  input-port/read-char
+	  input-port/read-char-immediate
+	  input-port/read-finish!
+	  input-port/read-start!
+	  input-port/read-string
+	  input-port/state
+	  input-port?
+	  make-eof-object
+	  make-input-port
+	  peek-char
+	  read
+	  read-char
+	  read-char-no-hang
+	  read-string
+	  set-input-port/state!
+	  with-input-from-file
+	  with-input-from-port)
+  (initialization (initialize-package!)))
+
+(define-package (runtime interrupt-handler)
+  (files "intrpt")
+  (parent ())
+  (export ()
+	  timer-interrupt
+	  with-external-interrupts-handler)
+  (export (runtime emacs-interface)
+	  hook/^g-interrupt)
+  (initialization (initialize-package!)))
+
+(define-package (runtime lambda-abstraction)
+  (files "lambda")
+  (parent ())
+  (export ()
+	  block-declaration?
+	  block-declaration-text
+	  lambda?
+	  lambda-body
+	  lambda-bound
+	  lambda-components
+	  make-block-declaration
+	  make-lambda
+	  set-lambda-body!)
+  (export (runtime advice)
+	  lambda-unwrap-body!
+	  lambda-wrap-body!
+	  lambda-wrapper-components)
+  (export (runtime environment)
+	  internal-lambda?)
+  (export (runtime syntaxer)
+	  make-block-declaration)
+  (export (runtime debugger-utilities)
+	  lambda-tag:internal-lambda
+	  lambda-tag:internal-lexpr)
+  (initialization (initialize-package!)))
+
+(define-package (runtime list)
+  (files "list")
+  (parent ())
+  (export ()
+	  alist-copy
+	  alist?
+	  append
+	  append!
+	  assoc
+	  association-procedure
+	  assq
+	  assv
+	  caaaar
+	  caaadr
+	  caaar
+	  caadar
+	  caaddr
+	  caadr
+	  caar
+	  cadaar
+	  cadadr
+	  cadar
+	  caddar
+	  cadddr
+	  caddr
+	  cadr
+	  car
+	  cdaaar
+	  cdaadr
+	  cdaar
+	  cdadar
+	  cdaddr
+	  cdadr
+	  cdar
+	  cddaar
+	  cddadr
+	  cddar
+	  cdddar
+	  cddddr
+	  cdddr
+	  cddr
+	  cdr
+	  circular-list
+	  cons
+	  cons*
+	  del-assoc
+	  del-assoc!
+	  del-assq
+	  del-assq!
+	  del-assv
+	  del-assv!
+	  delete
+	  delete!
+	  delete-association-procedure
+	  delete-member-procedure
+	  delq
+	  delq!
+	  delv
+	  delv!
+	  eighth
+	  except-last-pair
+	  except-last-pair!
+	  fifth
+	  first
+	  for-each
+	  fourth
+	  general-car-cdr
+	  last-pair
+	  length
+	  list
+	  list-copy
+	  list-deletor
+	  list-deletor!
+	  list-head
+	  list-ref
+	  list-search-negative
+	  list-search-positive
+	  list-tail
+	  list-transform-negative
+	  list-transform-positive
+	  list?
+	  make-list
+	  make-circular-list
+	  map
+	  map*
+	  mapcan
+	  mapcan*
+	  member
+	  member-procedure
+	  memq
+	  memv
+	  ninth
+	  null?
+	  pair?
+	  reduce
+	  reverse
+	  reverse!
+	  second
+	  set-car!
+	  set-cdr!
+	  seventh
+	  sixth
+	  sublist
+	  tenth
+	  third
+	  tree-copy
+	  weak-car
+	  weak-cdr
+	  weak-cons
+	  weak-pair/car?
+	  weak-pair?
+	  weak-set-car!
+	  weak-set-cdr!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime load)
+  (files "load")
+  (parent ())
+  (export ()
+	  fasload
+	  fasload/default-types
+	  load
+	  load-noisily
+	  load-noisily?
+	  load/default-types
+	  read-file)
+  (initialization (initialize-package!)))
+
+(define-package (runtime macros)
+  (files "macros")
+  (parent ())
+  (initialization (initialize-package!)))
+
+(define-package (runtime microcode-errors)
+  (files "uerror")
+  (parent (runtime error-handler))
+  (export ()
+	  error-type:anomalous
+	  error-type:bad-range-argument
+	  error-type:failed-argument-coercion
+	  error-type:fasdump
+	  error-type:fasload
+	  error-type:illegal-argument
+	  error-type:missing-handler
+	  error-type:open-file
+	  error-type:random-internal
+	  error-type:wrong-type-argument
+	  microcode-error-type)
+  (initialization (initialize-package!)))
+
+(define-package (runtime microcode-tables)
+  (files "utabs")
+  (parent ())
+  (export ()
+	  char:newline
+	  fixed-object/code->name
+	  fixed-object/code-limit
+	  fixed-object/name->code
+	  fixed-objects-item
+	  fixed-objects-vector-slot
+	  microcode-error/code->name
+	  microcode-error/code-limit
+	  microcode-error/name->code
+	  microcode-id/floating-exponent-bits	  microcode-id/floating-mantissa-bits
+	  microcode-id/modification
+	  microcode-id/operating-system-name
+	  microcode-id/operating-system-variant
+	  microcode-id/release-string
+	  microcode-id/stack-type
+	  microcode-id/tty-x-size
+	  microcode-id/tty-y-size
+	  microcode-id/version
+	  microcode-identification-item
+	  microcode-identification-vector-slot
+	  microcode-object/unassigned
+	  microcode-return/code->name
+	  microcode-return/code-limit
+	  microcode-return/name->code
+	  microcode-termination/code->name
+	  microcode-termination/code-limit
+	  microcode-termination/name->code
+	  microcode-type/code->name
+	  microcode-type/code-limit
+	  microcode-type/name->code)
+  (export (runtime save/restore)
+	  read-microcode-tables!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime number)
+  (files "narith")
+  (parent ())
+  (export ()
+	  *
+	  +
+	  -
+	  -1+
+	  /
+	  1+
+	  <
+	  <=
+	  =
+	  >
+	  >=
+	  abs
+	  acos
+	  angle
+	  asin
+	  atan
+	  ceiling
+	  complex?
+	  cos	  even?
+	  exact->inexact
+	  exact?
+	  exp
+	  expt
+	  floor
+	  gcd
+	  imag-part
+	  inexact->exact
+	  inexact?
+	  integer-divide
+	  integer-divide-quotient
+	  integer-divide-remainder
+	  integer-expt	  integer?
+	  lcm
+	  log
+	  magnitude
+	  make-polar
+	  make-rectangular
+	  max
+	  min
+	  modulo
+	  negative?
+	  number?
+	  odd?
+	  positive?
+	  quotient
+	  rational?
+	  real-part
+	  real?
+	  remainder
+	  round
+	  sin
+	  sqrt
+	  tan
+	  truncate
+	  zero?)
+  (initialization (initialize-package!)))
+(define-package (runtime number-parser)
+  (files "numpar")
+  (parent ())
+  (export ()
+	  string->number))
+
+(define-package (runtime number-unparser)
+  (files "numunp")
+  (parent ())
+  (export ()
+	  number->string)
+  (initialization (initialize-package!)))
+(define-package (runtime output-port)
+  (files "output")
+  (parent ())
+  (export ()
+	  beep
+	  call-with-output-file
+	  clear
+	  close-output-port
+	  current-output-port
+	  display
+	  guarantee-output-port
+	  make-output-port
+	  newline
+	  output-port/copy
+	  output-port/custom-operation
+	  output-port/flush-output
+	  output-port/operation/flush-output
+	  output-port/operation/write-char
+	  output-port/operation/write-string
+	  output-port/state
+	  output-port/write-char
+	  output-port/write-string
+	  output-port/x-size
+	  output-port?
+	  set-output-port/state!
+	  with-output-to-file
+	  with-output-to-port
+	  write
+	  write-char
+	  write-line
+	  write-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime parser)
+  (files "parse")
+  (parent ())
+  (export ()
+	  *parser-radix*
+	  parse-object
+	  parse-objects
+	  system-global-parser-table)
+  (export (runtime character)
+	  char-set/atom-delimiters)
+  (export (runtime input-port)
+	  parse-object/internal)
+  (export (runtime syntaxer)
+	  lambda-optional-tag
+	  lambda-rest-tag)
+  (export (runtime macros)
+	  lambda-optional-tag)
+  (export (runtime unsyntaxer)
+	  lambda-optional-tag)
+  (initialization (initialize-package!)))
+
+(define-package (runtime parser-table)
+  (files "partab")
+  (parent ())
+  (export ()
+	  current-parser-table
+	  guarantee-parser-table
+	  make-parser-table
+	  parser-table/copy
+	  parser-table/entry
+	  parser-table/set-entry!
+	  parser-table?
+	  set-current-parser-table!
+	  with-current-parser-table)
+  (export (runtime parser)
+	  parser-table/collect-list
+	  parser-table/collect-list-special
+	  parser-table/parse-object
+	  parser-table/parse-object-special)
+  (initialization (initialize-package!)))
+
+(define-package (runtime pathname)
+  (files "pathnm")
+  (parent ())
+  (export ()
+	  ->pathname
+	  canonicalize-input-filename
+	  canonicalize-output-filename
+	  file-exists?
+	  init-file-truename
+	  make-pathname
+	  merge-pathnames
+	  pathname->absolute-pathname
+	  pathname->input-truename
+	  pathname->output-truename
+	  pathname->string
+	  pathname-absolute?
+	  pathname-components
+	  pathname-copy
+	  pathname-default
+	  pathname-default-device
+	  pathname-default-directory
+	  pathname-default-host
+	  pathname-default-name
+	  pathname-default-type
+	  pathname-default-version
+	  pathname-device
+	  pathname-directory
+	  pathname-directory-path
+	  pathname-directory-string
+	  pathname-host
+	  pathname-name
+	  pathname-name-path
+	  pathname-name-string
+	  pathname-new-device
+	  pathname-new-directory
+	  pathname-new-host
+	  pathname-new-name
+	  pathname-new-type
+	  pathname-new-version	  pathname-type
+	  pathname-version
+	  pathname?
+	  string->pathname)  (export (runtime pathname-parser)
+	  simplify-directory))
+
+(define-package (runtime pathname-parser)
+  (file-case os-type
+    ((unix) "unxpar")
+    ((vms) "vmspar")
+    (else))
+  (parent ())
+  (export ()
+	  parse-pathname
+	  pathname-as-directory))
+
+(define-package (runtime pathname-unparser)
+  (file-case os-type
+    ((unix) "unxunp")
+    ((vms) "vmsunp")
+    (else))
+  (parent ())
+  (export ()
+	  pathname-unparse
+	  pathname-unparse-name))
+
+(define-package (runtime population)
+  (files "poplat")
+  (parent ())
+  (export ()
+	  add-to-population!
+	  exists-an-inhabitant?
+	  for-all-inhabitants?
+	  make-population
+	  map-over-population
+	  map-over-population!
+	  population?
+	  remove-from-population!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime pretty-printer)
+  (files "pp")
+  (parent ())
+  (export ()
+	  pp)  (initialization (initialize-package!)))
+
+(define-package (runtime primitive-io)
+  (files "io")
+  (parent ())
+  (export ()
+	  close-all-open-files)
+  (export (runtime file-input)
+	  channel-name
+	  close-physical-channel
+	  open-input-channel)
+  (export (runtime file-output)
+	  channel-name
+	  close-physical-channel
+	  open-output-channel)
+  (initialization (initialize-package!)))
+
+(define-package (runtime random-number)
+  (files "random")
+  (parent ())
+  (export ()
+	  random
+	  randomize)
+  (initialization (initialize-package!)))
+
+(define-package (runtime reference-trap)
+  (files "urtrap")
+  (parent ())
+  (export ()
+	  make-unassigned-reference-trap
+	  make-unbound-reference-trap
+	  map-reference-trap
+	  reference-trap-kind
+	  reference-trap-kind-name
+	  reference-trap?
+	  unassigned-reference-trap?
+	  unbound-reference-trap?
+	  unmap-reference-trap))
+
+(define-package (runtime rep)
+  (files "rep")
+  (parent ())
+  (export ()
+	  %ge
+	  %gst
+	  %in
+	  %out
+	  %ve
+	  %vst
+	  ->environment
+	  abort->nearest
+	  abort->previous
+	  abort->top-level
+	  abort-to-nearest-driver
+	  abort-to-previous-driver
+	  abort-to-top-level-driver
+	  breakpoint
+	  breakpoint-procedure
+	  cmdl-interrupt/abort-nearest
+	  cmdl-interrupt/abort-previous
+	  cmdl-interrupt/abort-top-level
+	  cmdl-interrupt/abort-top-level/reset?
+	  cmdl-interrupt/breakpoint
+	  cmdl-message/active
+	  cmdl-message/append
+	  cmdl-message/null
+	  cmdl-message/standard
+	  cmdl-message/strings
+	  cmdl-message/value
+	  cmdl/base
+	  cmdl/continuation
+	  cmdl/driver
+	  cmdl/input-port
+	  cmdl/level
+	  cmdl/output-port
+	  cmdl/parent
+	  cmdl/proceed-continuation
+	  cmdl/state
+	  cmdl?
+	  current-proceed-continuation
+	  ge
+	  gst
+	  in
+	  initial-top-level-repl
+	  make-cmdl
+	  make-repl
+	  nearest-cmdl
+	  nearest-repl
+	  out
+	  proceed
+	  prompt-for-command-char
+	  prompt-for-confirmation
+	  prompt-for-expression
+	  push-cmdl
+	  push-repl
+	  re
+	  read-eval-print
+	  repl-history/read
+	  repl-history/record!
+	  repl-history/size
+	  repl/base
+	  repl/environment
+	  repl/parent
+	  repl/printer-history
+	  repl/prompt
+	  repl/reader-history
+	  repl/syntax-table
+	  repl?
+	  set-cmdl/continuation!
+	  set-cmdl/input-port!
+	  set-cmdl/output-port!
+	  set-cmdl/state!
+	  set-repl/environment!
+	  set-repl/printer-history!
+	  set-repl/prompt!
+	  set-repl/reader-history!
+	  set-repl/syntax-table!
+	  standard-repl-environment
+	  standard-repl-syntax-table
+	  ve
+	  vst
+	  with-proceed-point
+	  with-standard-proceed-point)
+  (export (runtime load)
+	  hook/repl-eval
+	  hook/repl-write)
+  (export (runtime emacs-interface)
+	  hook/cmdl-message
+	  hook/cmdl-prompt
+	  hook/prompt-for-confirmation
+	  hook/prompt-for-expression
+	  hook/read-command-char
+	  hook/repl-environment
+	  hook/repl-read
+	  hook/repl-write)
+  (export (runtime debugger-command-loop)
+	  hook/repl-environment)
+  (initialization (initialize-package!)))
+
+(define-package (runtime save/restore)
+  (files "savres")
+  (parent ())
+  (export ()
+	  disk-restore
+	  disk-save
+	  dump-world
+	  identify-world)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode)
+  (files "scode")
+  (parent ())
+  (export ()
+	  absolute-reference-name
+	  absolute-reference-to?
+	  absolute-reference?
+	  access-components
+	  access-environment
+	  access-name
+	  access?
+	  assignment-components
+	  assignment-components-with-variable
+	  assignment-name
+	  assignment-value
+	  assignment-variable
+	  assignment?
+	  comment-components
+	  comment-expression
+	  comment-text
+	  comment?
+	  declaration-components
+	  declaration-expression
+	  declaration-text
+	  declaration?
+	  definition-components
+	  definition-name
+	  definition-value
+	  definition?
+	  delay-components
+	  delay-expression
+	  delay?
+	  in-package-components
+	  in-package-environment
+	  in-package-expression
+	  in-package?
+	  intern
+	  make-absolute-reference
+	  make-access
+	  make-assignment
+	  make-assignment-from-variable
+	  make-comment
+	  make-declaration
+	  make-definition
+	  make-delay
+	  make-in-package
+	  make-named-tag
+	  make-quotation
+	  make-the-environment
+	  make-variable
+	  quotation-expression
+	  quotation?
+	  scode-constant?
+	  set-comment-expression!
+	  set-comment-text!
+	  set-declaration-expression!
+	  set-declaration-text!
+	  string->symbol
+	  string->uninterned-symbol
+	  symbol->string
+	  symbol?
+	  the-environment?
+	  variable-components
+	  variable-name
+	  variable?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode-combinator)
+  (files "scomb")
+  (parent ())
+  (export ()
+	  combination-components
+	  combination-operands
+	  combination-operator
+	  combination-size
+	  combination?
+	  conditional-alternative
+	  conditional-components
+	  conditional-consequent
+	  conditional-predicate
+	  conditional?
+	  disjunction-alternative
+	  disjunction-components
+	  disjunction-predicate
+	  disjunction?
+	  make-combination
+	  make-conditional
+	  make-disjunction
+	  make-sequence
+	  make-unassigned?
+	  sequence-actions
+	  sequence-components
+	  sequence?
+	  unassigned?-components
+	  unassigned?-name
+	  unassigned??
+	  undefined-conditional-branch)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode-data)
+  (files "sdata")
+  (parent ())
+  (export (runtime lambda-abstraction)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &triple-first
+	  &triple-second
+	  &triple-set-first!
+	  &triple-set-second!
+	  &triple-set-third!
+	  &triple-third
+	  &typed-pair-cons
+	  &typed-triple-cons)
+  (export (runtime scode)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &singleton-element
+	  &typed-pair-cons
+	  &typed-singleton-cons)
+  (export (runtime scode-combinator)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &subvector->list
+	  &triple-first
+	  &triple-second
+	  &triple-set-first!
+	  &triple-set-second!
+	  &triple-set-third!
+	  &triple-third
+	  &typed-pair-cons
+	  &typed-triple-cons
+	  &typed-vector-cons
+	  &vector-length
+	  &vector-ref)
+  (export (runtime scode-scan)
+	  &pair-car
+	  &pair-cdr
+	  &pair-set-car!
+	  &pair-set-cdr!
+	  &triple-first
+	  &triple-second
+	  &triple-set-first!
+	  &triple-set-second!
+	  &triple-set-third!
+	  &triple-third
+	  &typed-pair-cons
+	  &typed-triple-cons))
+
+(define-package (runtime scode-scan)
+  (files "scan")
+  (parent ())
+  (export ()
+	  make-open-block
+	  open-block-components
+	  open-block?
+	  scan-defines
+	  unscan-defines)
+  (initialization (initialize-package!)))
+
+(define-package (runtime scode-walker)
+  (files "codwlk")
+  (parent ())
+  (export ()
+	  make-scode-walker
+	  scode-walk
+	  scode-walker?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime state-space)
+  (files "wind")
+  (parent ())
+  (export ()
+	  current-dynamic-state
+	  dynamic-wind
+	  execute-at-new-state-point
+	  get-fluid-bindings
+	  make-state-space
+	  set-current-dynamic-state!
+	  set-fluid-bindings!
+	  translate-to-state-point)
+  (initialization (initialize-package!)))
+
+(define-package (runtime stream)
+  (files "stream")
+  (parent ())
+  (export ()
+	  empty-stream?
+	  head
+	  list->stream
+	  prime-numbers-stream
+	  stream
+	  stream->list
+	  stream-car
+	  stream-cdr
+	  stream-length
+	  stream-map
+	  stream-null?
+	  stream-pair?
+	  stream-ref
+	  stream-tail
+	  tail
+	  the-empty-stream)
+  (initialization (initialize-package!)))
+
+(define-package (runtime string-input)
+  (files "strnin")
+  (parent ())
+  (export ()
+	  string->input-port
+	  with-input-from-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime string-output)
+  (files "strout")
+  (parent ())
+  (export ()
+	  with-output-to-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime syntax-table)
+  (files "syntab")
+  (parent ())
+  (export ()
+	  guarantee-syntax-table
+	  make-syntax-table
+	  syntax-table-define
+	  syntax-table-ref
+	  syntax-table/copy
+	  syntax-table/define
+	  syntax-table/extend
+	  syntax-table/parent
+	  syntax-table/ref
+	  syntax-table?))
+
+(define-package (runtime syntaxer)
+  (files "syntax")
+  (parent ())
+  (export ()
+	  lambda-tag:fluid-let
+	  lambda-tag:let
+	  lambda-tag:make-environment
+	  lambda-tag:unnamed
+	  make-syntax-closure
+	  syntax
+	  syntax*
+	  syntax-closure/expression
+	  syntax-closure?
+	  system-global-syntax-table
+	  user-initial-syntax-table)
+  (export (runtime defstruct)
+	  parse-lambda-list)
+  (initialization (initialize-package!)))
+
+(define-package (runtime system)
+  (files "system")
+  (parent ())
+  (export ()
+	  add-system!
+	  for-each-system!
+	  load-system!
+	  make-system
+	  system/identification-string
+	  system/modification
+	  system/name
+	  system/version))
+
+(define-package (runtime system-clock)
+  (files "sysclk")
+  (parent ())
+  (export ()
+	  internal-time/seconds->ticks
+	  internal-time/ticks->seconds
+	  measure-interval
+	  process-time-clock
+	  real-time-clock
+	  runtime
+	  system-clock)
+  (export (runtime gc-statistics)
+	  increment-non-runtime!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime system-macros)
+  (files "sysmac")
+  (parent ())
+  (export ()
+	  syntax-table/system-internal)
+  (initialization (initialize-package!)))
+
+(define-package (runtime truncated-string-output)
+  (files "strott")
+  (parent ())
+  (export ()
+	  with-output-to-truncated-string)
+  (initialization (initialize-package!)))
+
+(define-package (runtime unparser)
+  (files "unpars")
+  (parent ())
+  (export ()	  *unparser-list-breadth-limit*
+	  *unparser-list-depth-limit*
+	  *unparser-radix*
+	  current-unparser-table
+	  guarantee-unparser-state
+	  guarantee-unparser-table
+	  make-unparser-state
+	  make-unparser-table
+	  system-global-unparser-table
+	  unparse-char
+	  unparse-object
+	  unparse-string
+	  unparser-state/list-depth
+	  unparser-state/port
+	  unparser-state/slashify?
+	  unparser-state/unparser-table
+	  unparser-state?
+	  unparser-table/copy
+	  unparser-table/entry
+	  unparser-table/set-entry!
+	  unparser-table?
+	  user-object-type)
+  (export (runtime output-port)
+	  unparse-object/internal)
+  (export (runtime pretty-printer)
+	  unparse-list/unparser
+	  unparse-vector/unparser)
+  (initialization (initialize-package!)))
+
+(define-package (runtime unsyntaxer)
+  (files "unsyn")
+  (parent ())
+  (export ()
+	  unsyntax
+	  unsyntax-lambda-list)
+  (initialization (initialize-package!)))
+
+(define-package (runtime working-directory)
+  (file-case os-type
+    ((unix) "unxcwd")
+    ((vms) "vmscwd")
+    (else "unkcwd"))
+  (files "wrkdir")
+  (parent ())
+  (export ()
+	  set-working-directory-pathname!
+	  with-working-directory-pathname
+	  working-directory-pathname)
+  (export (runtime emacs-interface)
+	  hook/set-working-directory-pathname!)
+  (initialization (initialize-package!)))
\ No newline at end of file
-- 
2.25.1