; -*- Mode:TEXT -*-
; This is the UNFASL for DJ: L.SYS; SYSDCL.QFASL#350



(SI::FASL-OP-VERSION-INFO
  (SYSTEM:FASL-OP-PACKAGE-SYMBOL
    (SYSTEM:FASL-OP-STRING "")
    (SYSTEM:FASL-OP-STRING "LAMBDA")
    <:LAMBDA>)
  (SYSTEM:FASL-OP-FIXED 2))

(SYSTEM:FASL-OP-END-OF-WHACK)

(SYSTEM:FASL-OP-FILE-PROPERTY-LIST
  (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "")
      (SYSTEM:FASL-OP-STRING "COMPILE-DATA")
      <:COMPILE-DATA>)
    (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-STRING "keith")
      (SYSTEM:FASL-OP-STRING "Djinn")
      (SYSTEM:FASL-OP-FIXED 2803503328)
      (SYSTEM:FASL-OP-FIXED 128)
      (SYSTEM:FASL-OP-FIXED 0)
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "COMPILER")
          (SYSTEM:FASL-OP-STRING "NEW-DESTINATIONS")
          <COMPILER:NEW-DESTINATIONS>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "GLOBAL")
          (SYSTEM:FASL-OP-STRING "T")
          <GLOBAL:T>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "SITE")
          <:SITE>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "LMI")
          <:LMI>)
       => (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>))
     => ("keith" "Djinn" 2803503328 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID")
      <:QFASL-SOURCE-FILE-UNIQUE-ID>)
    (SYSTEM:FASL-OP-EVAL1
      (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "FS")
          (SYSTEM:FASL-OP-STRING "MAKE-FASLOAD-PATHNAME")
          <FS:MAKE-FASLOAD-PATHNAME>)
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"})
            (SYSTEM:FASL-OP-STRING "QUOTE")
            <GLOBAL:QUOTE>)
          (SYSTEM:FASL-OP-STRING "DJ")
         => (<GLOBAL:QUOTE> "DJ"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "DSK")
         => (<GLOBAL:QUOTE> "DSK"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "L")
            (SYSTEM:FASL-OP-STRING "SYS")
           => ("L" "SYS"))
         => (<GLOBAL:QUOTE> ("L" "SYS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "SYSDCL")
         => (<GLOBAL:QUOTE> "SYSDCL"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "LISP")
         => (<GLOBAL:QUOTE> "LISP"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-FIXED 350)
         => (<GLOBAL:QUOTE> 350))
       => (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 350)))
      (EVAL '(<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 350))))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "PACKAGE")
      <:PACKAGE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "SYSTEM-INTERNALS")
      <:SYSTEM-INTERNALS>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "BASE")
      <:BASE>)
    (SYSTEM:FASL-OP-FIXED 10)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "READTABLE")
      <:READTABLE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "CL")
      <:CL>)
   => (<:COMPILE-DATA> ("keith" "Djinn" 2803503328 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (SI::**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 350)))) <:PACKAGE> <:SYSTEM-INTERNALS> <:BASE> 10 <:READTABLE> <:CL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFSYSTEM-1>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "SYSTEM")
        <:SYSTEM>)
     => (<GLOBAL:QUOTE> <:SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "NAME")
            <:NAME>)
          (SYSTEM:FASL-OP-STRING "System")
         => (<:NAME> "System"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "SHORT-NAME")
            <:SHORT-NAME>)
          (SYSTEM:FASL-OP-STRING "SYS")
         => (<:SHORT-NAME> "SYS"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "PATCHABLE")
            <:PATCHABLE>)
          (SYSTEM:FASL-OP-STRING "SYS: PATCH;")
         => (<:PATCHABLE> "SYS: PATCH;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "WARNINGS-PATHNAME-DEFAULT")
            <:WARNINGS-PATHNAME-DEFAULT>)
          (SYSTEM:FASL-OP-STRING "SYS:PATCH;SYSTEM-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "MODULE")
            <:MODULE>)
          (SYSTEM:FASL-OP-SYMBOL <ALLDEFS>)
          (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; DEFMAC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; LMMAC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; SETF")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; STRUCT")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; TYPES")
            (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; ERRMAC")
           => ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))
         => (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")))
        (SYSTEM:FASL-OP-LIST [20] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "COMPONENT-SYSTEMS")
            <:COMPONENT-SYSTEMS>)
          (SYSTEM:FASL-OP-SYMBOL <FONTS>)
          (SYSTEM:FASL-OP-SYMBOL <SYSTEM-INTERNALS>)
          (SYSTEM:FASL-OP-SYMBOL <GARBAGE-COLLECTOR>)
          (SYSTEM:FASL-OP-SYMBOL <FORMAT>)
          (SYSTEM:FASL-OP-SYMBOL <COMPILER>)
          (SYSTEM:FASL-OP-SYMBOL <SHARE>)
          (SYSTEM:FASL-OP-SYMBOL <FILE-SYSTEM>)
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-STRING "LISP")
            (SYSTEM:FASL-OP-STRING "TIME")
            <LISP:TIME>)
          (SYSTEM:FASL-OP-SYMBOL <TV>)
          (SYSTEM:FASL-OP-SYMBOL <FANCY-LANDSCAPE>)
          (SYSTEM:FASL-OP-SYMBOL <FONT-UTILITIES>)
          (SYSTEM:FASL-OP-SYMBOL <PEEK>)
          (SYSTEM:FASL-OP-SYMBOL <NETWORK>)
          (SYSTEM:FASL-OP-SYMBOL <SUPDUP>)
          (SYSTEM:FASL-OP-SYMBOL <EH>)
          (SYSTEM:FASL-OP-SYMBOL <MATH>)
          (SYSTEM:FASL-OP-SYMBOL <METER>)
          (SYSTEM:FASL-OP-SYMBOL <SRCCOM>)
          (SYSTEM:FASL-OP-SYMBOL <SERIAL>)
         => (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <LAST>)
          (SYSTEM:FASL-OP-STRING "SYS: SYS; LAST")
         => (<:MODULE> <LAST> "SYS: SYS; LAST"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "COMPILE-LOAD")
            <:COMPILE-LOAD>)
          (SYSTEM:FASL-OP-INDEX [109] {<ALLDEFS>})
         => (<:COMPILE-LOAD> <ALLDEFS>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "DO-COMPONENTS")
            <:DO-COMPONENTS>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-PACKAGE-SYMBOL
              (SYSTEM:FASL-OP-INDEX [32] {""})
              (SYSTEM:FASL-OP-STRING "FASLOAD")
              <:FASLOAD>)
            (SYSTEM:FASL-OP-INDEX [109] {<ALLDEFS>})
           => (<:FASLOAD> <ALLDEFS>))
         => (<:DO-COMPONENTS> (<:FASLOAD> <ALLDEFS>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [142] {<LAST>})
         => (<:COMPILE-LOAD> <LAST>))
       => ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<:MODULE> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <ALLDEFS>) (<:DO-COMPONENTS> (<:FASLOAD> <ALLDEFS>)) (<:COMPILE-LOAD> <LAST>)))
     => (<GLOBAL:QUOTE> ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<:MODULE> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <ALLDEFS>) (<:DO-COMPONENTS> (<:FASLOAD> <ALLDEFS>)) (<:COMPILE-LOAD> <LAST>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<:MODULE> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <ALLDEFS>) (<:DO-COMPONENTS> (<:FASLOAD> <ALLDEFS>)) (<:COMPILE-LOAD> <LAST>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<:MODULE> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <ALLDEFS>) (<:DO-COMPONENTS> (<:FASLOAD> <ALLDEFS>)) (<:COMPILE-LOAD> <LAST>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [78] {<:SYSTEM-INTERNALS>})
     => (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "NICKNAMES")
            <:NICKNAMES>)
          (SYSTEM:FASL-OP-STRING "SI")
         => (<:NICKNAMES> "SI"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <DEFS>)
          (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; PRODEF")
            (SYSTEM:FASL-OP-STRING "SYS: IO; RDDEFS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; SGDEFS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; NUMDEF")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE-DEFS")
           => ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS"))
         => (<:MODULE> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <METH>)
          (SYSTEM:FASL-OP-STRING "SYS: SYS2; METH")
         => (<:MODULE> <METH> "SYS: SYS2; METH"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <CLASS>)
          (SYSTEM:FASL-OP-STRING "SYS: SYS2; CLASS")
         => (<:MODULE> <CLASS> "SYS: SYS2; CLASS"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <MAIN>)
          (SYSTEM:FASL-OP-LIST [67] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; ADVISE")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; BAND")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; CHARACTER")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; CLPACK")
            (SYSTEM:FASL-OP-STRING "SYS: WINDOW; COLD")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; DEFSEL")
            (SYSTEM:FASL-OP-STRING "SYS: IO; NEW-DISK")
            (SYSTEM:FASL-OP-STRING "SYS: IO; DISK")
            (SYSTEM:FASL-OP-STRING "SYS: IO; UDISK")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; DESCRIBE")
            (SYSTEM:FASL-OP-STRING "SYS: IO; DLEDIT")
            (SYSTEM:FASL-OP-STRING "SYS: IO; DRIBBL")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; ENCAPS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; EVAL")
            (SYSTEM:FASL-OP-STRING "sys: sys; special-forms")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; FLAVOR")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; GENRIC")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; GLOBAL")
            (SYSTEM:FASL-OP-STRING "SYS: IO; GRIND")
            (SYSTEM:FASL-OP-STRING "SYS: IO1; HARDCOPY")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; HASH")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; HASHFL")
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; PACKAGES")
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; HOST")
            (SYSTEM:FASL-OP-STRING "SYS: IO1; INC")
            (SYSTEM:FASL-OP-STRING "SYS: IO1; INFIX")
            (SYSTEM:FASL-OP-STRING "SYS: IO; INPUT-READERS")
            (SYSTEM:FASL-OP-STRING "SYS: LAMBDA-DIAG; LAM-PACKAGE")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; LISP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; LOGIN")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; LOOP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; LTOP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; MACARRAY")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; MAKSYS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; NUMER")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; PATCH")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; PLANE")
            (SYSTEM:FASL-OP-STRING "SYS: IO; PRINT")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; PROCES")
            (SYSTEM:FASL-OP-STRING "SYS: IO; QIO")
            (SYSTEM:FASL-OP-STRING "sys: sys; qccold")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QFASL")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QFCTNS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QMISC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QNEW")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QRAND")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; QTRACE")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; RAT")
            (SYSTEM:FASL-OP-STRING "SYS: IO; READ")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; REP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; RESOUR")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; SELEV")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; SGFCTN")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; SORT")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; SPDWIM")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; STEP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE")
            (SYSTEM:FASL-OP-STRING "SYS: IO; STREAM")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; STRING")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; SYSDCL")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; SYSTEM")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; UNFASL")
            (SYSTEM:FASL-OP-STRING "SYS: IO; UNIBUS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; CLMAC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; ANALYZE")
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; TABLE")
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; TRANSPARENT")
           => ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT"))
         => (<:MODULE> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <RDTBL>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: IO; RDTBL")
            (SYSTEM:FASL-OP-STRING "SYS: IO; CRDTBL")
           => ("SYS: IO; RDTBL" "SYS: IO; CRDTBL"))
         => (<:MODULE> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <EXPORT>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: COLD; EXPORT")
           => ("SYS: COLD; EXPORT"))
         => (<:MODULE> <EXPORT> ("SYS: COLD; EXPORT")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "READFILE")
            <:READFILE>)
          (SYSTEM:FASL-OP-INDEX [253] {<EXPORT>})
         => (<:READFILE> <EXPORT>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [172] {<METH>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <METH> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [175] {<CLASS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [172] {<METH>})
           => (<:FASLOAD> <METH>))
         => (<:COMPILE-LOAD> <CLASS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <METH>)))
       => ((<:NICKNAMES> "SI") (<:MODULE> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<:MODULE> <METH> "SYS: SYS2; METH") (<:MODULE> <CLASS> "SYS: SYS2; CLASS") (<:MODULE> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<:MODULE> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<:MODULE> <EXPORT> ("SYS: COLD; EXPORT")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> <EXPORT>) (<:COMPILE-LOAD> <METH> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <CLASS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <METH>))))
     => (<GLOBAL:QUOTE> ((<:NICKNAMES> "SI") (<:MODULE> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<:MODULE> <METH> "SYS: SYS2; METH") (<:MODULE> <CLASS> "SYS: SYS2; CLASS") (<:MODULE> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<:MODULE> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<:MODULE> <EXPORT> ("SYS: COLD; EXPORT")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> <EXPORT>) (<:COMPILE-LOAD> <METH> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <CLASS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <METH>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "SI") (<:MODULE> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<:MODULE> <METH> "SYS: SYS2; METH") (<:MODULE> <CLASS> "SYS: SYS2; CLASS") (<:MODULE> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<:MODULE> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<:MODULE> <EXPORT> ("SYS: COLD; EXPORT")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> <EXPORT>) (<:COMPILE-LOAD> <METH> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <CLASS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <METH>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "SI") (<:MODULE> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<:MODULE> <METH> "SYS: SYS2; METH") (<:MODULE> <CLASS> "SYS: SYS2; CLASS") (<:MODULE> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<:MODULE> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<:MODULE> <EXPORT> ("SYS: COLD; EXPORT")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> <EXPORT>) (<:COMPILE-LOAD> <METH> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <CLASS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <METH>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FONTS")
        <:FONTS>)
     => (<GLOBAL:QUOTE> <:FONTS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [76] {<:PACKAGE>})
          (SYSTEM:FASL-OP-INDEX [120] {<FONTS>})
         => (<:PACKAGE> <FONTS>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "PATHNAME-DEFAULT")
            <:PATHNAME-DEFAULT>)
          (SYSTEM:FASL-OP-STRING "SYS: FONTS;")
         => (<:PATHNAME-DEFAULT> "SYS: FONTS;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
          (SYSTEM:FASL-OP-LIST [36] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TVFONT")
            (SYSTEM:FASL-OP-STRING "CPTFONTB")
            (SYSTEM:FASL-OP-STRING "CPTFONT")
            (SYSTEM:FASL-OP-STRING "CPTFONTSH")
            (SYSTEM:FASL-OP-STRING "BIGFNT")
            (SYSTEM:FASL-OP-STRING "TINY")
            (SYSTEM:FASL-OP-STRING "5X5")
            (SYSTEM:FASL-OP-STRING "MEDFNT")
            (SYSTEM:FASL-OP-STRING "MEDFNB")
            (SYSTEM:FASL-OP-STRING "METS")
            (SYSTEM:FASL-OP-STRING "METSI")
            (SYSTEM:FASL-OP-STRING "43VXMS")
            (SYSTEM:FASL-OP-STRING "HL6")
            (SYSTEM:FASL-OP-STRING "HL7")
            (SYSTEM:FASL-OP-STRING "HL10")
            (SYSTEM:FASL-OP-STRING "HL10B")
            (SYSTEM:FASL-OP-STRING "HL12")
            (SYSTEM:FASL-OP-STRING "HL12I")
            (SYSTEM:FASL-OP-STRING "HL12B")
            (SYSTEM:FASL-OP-STRING "HL12BI")
            (SYSTEM:FASL-OP-STRING "TR8")
            (SYSTEM:FASL-OP-STRING "TR8I")
            (SYSTEM:FASL-OP-STRING "TR8B")
            (SYSTEM:FASL-OP-STRING "TR10")
            (SYSTEM:FASL-OP-STRING "TR10I")
            (SYSTEM:FASL-OP-STRING "TR10B")
            (SYSTEM:FASL-OP-STRING "TR10BI")
            (SYSTEM:FASL-OP-STRING "TR12")
            (SYSTEM:FASL-OP-STRING "TR12B")
            (SYSTEM:FASL-OP-STRING "TR12I")
            (SYSTEM:FASL-OP-STRING "TR12BI")
            (SYSTEM:FASL-OP-STRING "MOUSE")
            (SYSTEM:FASL-OP-STRING "SEARCH")
            (SYSTEM:FASL-OP-STRING "TOG")
            (SYSTEM:FASL-OP-STRING "ABACUS")
            (SYSTEM:FASL-OP-STRING "NARROW")
           => ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW"))
         => (<:FASLOAD> ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW")))
       => ((<:PACKAGE> <FONTS>) (<:PATHNAME-DEFAULT> "SYS: FONTS;") (<:FASLOAD> ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW"))))
     => (<GLOBAL:QUOTE> ((<:PACKAGE> <FONTS>) (<:PATHNAME-DEFAULT> "SYS: FONTS;") (<:FASLOAD> ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FONTS>) (<GLOBAL:QUOTE> ((<:PACKAGE> <FONTS>) (<:PATHNAME-DEFAULT> "SYS: FONTS;") (<:FASLOAD> ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FONTS>) (<GLOBAL:QUOTE> ((<:PACKAGE> <FONTS>) (<:PATHNAME-DEFAULT> "SYS: FONTS;") (<:FASLOAD> ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "NETWORK")
        <:NETWORK>)
     => (<GLOBAL:QUOTE> <:NETWORK>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [23] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "Network System")
         => (<:NAME> "Network System"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "Network")
         => (<:SHORT-NAME> "Network"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys: network; kernel;")
         => (<:PATHNAME-DEFAULT> "sys: network; kernel;"))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [119] {<:COMPONENT-SYSTEMS>})
          (SYSTEM:FASL-OP-SYMBOL <NETWORK-DRIVERS>)
          (SYSTEM:FASL-OP-SYMBOL <CHAOS>)
          (SYSTEM:FASL-OP-SYMBOL <IP-TCP>)
         => (<:COMPONENT-SYSTEMS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-STRING "DEFS")
         => (<:MODULE> <DEFS> "DEFS"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <LIBRARY>)
          (SYSTEM:FASL-OP-STRING "LIBRARY")
         => (<:MODULE> <LIBRARY> "LIBRARY"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <NETWORK-INTERFACE>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "NETWORK-INTERFACE")
           => ("NETWORK-INTERFACE"))
         => (<:MODULE> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <PACKETS>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "PACKETS")
           => ("PACKETS"))
         => (<:MODULE> <PACKETS> ("PACKETS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <NETWORK-PROTOCOL>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "NETWORK-PROTOCOL")
           => ("NETWORK-PROTOCOL"))
         => (<:MODULE> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <ARP>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "ARP")
           => ("ARP"))
         => (<:MODULE> <ARP> ("ARP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TRANSPORT-PROTOCOL>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TRANSPORT-PROTOCOL")
           => ("TRANSPORT-PROTOCOL"))
         => (<:MODULE> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <CONFIGURATION>)
          (SYSTEM:FASL-OP-STRING "CONFIGURE")
         => (<:MODULE> <CONFIGURATION> "CONFIGURE"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <NETSPY>)
          (SYSTEM:FASL-OP-STRING "NETSPY")
         => (<:MODULE> <NETSPY> "NETSPY"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "COMPILE-LOAD-INIT")
            <:COMPILE-LOAD-INIT>)
          (SYSTEM:FASL-OP-INDEX [337] {<LIBRARY>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD-INIT> <LIBRARY> <DEFS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [337] {<LIBRARY>})
           => (<:FASLOAD> <DEFS> <LIBRARY>))
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [337] {<LIBRARY>})
           => (<:FASLOAD> <DEFS> <LIBRARY>))
         => (<:COMPILE-LOAD-INIT> <NETWORK-INTERFACE> <DEFS> (<:FASLOAD> <DEFS> <LIBRARY>) (<:FASLOAD> <DEFS> <LIBRARY>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [344] {<PACKETS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
           => (<DEFS> <NETWORK-INTERFACE>))
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [337] {<LIBRARY>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
           => (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>))
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [337] {<LIBRARY>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
           => (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>))
         => (<:COMPILE-LOAD-INIT> <PACKETS> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [348] {<NETWORK-PROTOCOL>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
           => (<DEFS> <NETWORK-INTERFACE>))
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
            (SYSTEM:FASL-OP-INDEX [344] {<PACKETS>})
           => (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>))
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
            (SYSTEM:FASL-OP-INDEX [344] {<PACKETS>})
           => (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>))
         => (<:COMPILE-LOAD-INIT> <NETWORK-PROTOCOL> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [352] {<ARP>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
            (SYSTEM:FASL-OP-INDEX [348] {<NETWORK-PROTOCOL>})
           => (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>))
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [348] {<NETWORK-PROTOCOL>})
           => (<:FASLOAD> <DEFS> <NETWORK-PROTOCOL>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [348] {<NETWORK-PROTOCOL>})
           => (<:FASLOAD> <NETWORK-PROTOCOL>))
         => (<:COMPILE-LOAD-INIT> <ARP> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <NETWORK-PROTOCOL>) (<:FASLOAD> <NETWORK-PROTOCOL>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [356] {<TRANSPORT-PROTOCOL>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
            (SYSTEM:FASL-OP-INDEX [348] {<NETWORK-PROTOCOL>})
           => (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>))
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [352] {<ARP>})
           => (<:FASLOAD> <DEFS> <ARP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [352] {<ARP>})
           => (<:FASLOAD> <ARP>))
         => (<:COMPILE-LOAD-INIT> <TRANSPORT-PROTOCOL> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <ARP>) (<:FASLOAD> <ARP>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [149] {<:DO-COMPONENTS>})
          (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [337] {<LIBRARY>})
            (SYSTEM:FASL-OP-INDEX [340] {<NETWORK-INTERFACE>})
            (SYSTEM:FASL-OP-INDEX [344] {<PACKETS>})
            (SYSTEM:FASL-OP-INDEX [348] {<NETWORK-PROTOCOL>})
            (SYSTEM:FASL-OP-INDEX [352] {<ARP>})
            (SYSTEM:FASL-OP-INDEX [356] {<TRANSPORT-PROTOCOL>})
           => (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE> <PACKETS> <NETWORK-PROTOCOL> <ARP> <TRANSPORT-PROTOCOL>))
         => (<:DO-COMPONENTS> (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE> <PACKETS> <NETWORK-PROTOCOL> <ARP> <TRANSPORT-PROTOCOL>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [363] {<NETSPY>})
         => (<:COMPILE-LOAD> <NETSPY>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [360] {<CONFIGURATION>})
         => (<:COMPILE-LOAD> <CONFIGURATION>))
       => ((<:NAME> "Network System") (<:SHORT-NAME> "Network") (<:PATHNAME-DEFAULT> "sys: network; kernel;") (<:COMPONENT-SYSTEMS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<:MODULE> <DEFS> "DEFS") (<:MODULE> <LIBRARY> "LIBRARY") (<:MODULE> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<:MODULE> <PACKETS> ("PACKETS")) (<:MODULE> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<:MODULE> <ARP> ("ARP")) (<:MODULE> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<:MODULE> <CONFIGURATION> "CONFIGURE") (<:MODULE> <NETSPY> "NETSPY") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <LIBRARY> <DEFS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <NETWORK-INTERFACE> <DEFS> (<:FASLOAD> <DEFS> <LIBRARY>) (<:FASLOAD> <DEFS> <LIBRARY>)) (<:COMPILE-LOAD-INIT> <PACKETS> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>)) (<:COMPILE-LOAD-INIT> <NETWORK-PROTOCOL> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>)) (<:COMPILE-LOAD-INIT> <ARP> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <NETWORK-PROTOCOL>) (<:FASLOAD> <NETWORK-PROTOCOL>)) (<:COMPILE-LOAD-INIT> <TRANSPORT-PROTOCOL> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <ARP>) (<:FASLOAD> <ARP>)) (<:DO-COMPONENTS> (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE> <PACKETS> <NETWORK-PROTOCOL> <ARP> <TRANSPORT-PROTOCOL>)) (<:COMPILE-LOAD> <NETSPY>) (<:COMPILE-LOAD> <CONFIGURATION>)))
     => (<GLOBAL:QUOTE> ((<:NAME> "Network System") (<:SHORT-NAME> "Network") (<:PATHNAME-DEFAULT> "sys: network; kernel;") (<:COMPONENT-SYSTEMS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<:MODULE> <DEFS> "DEFS") (<:MODULE> <LIBRARY> "LIBRARY") (<:MODULE> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<:MODULE> <PACKETS> ("PACKETS")) (<:MODULE> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<:MODULE> <ARP> ("ARP")) (<:MODULE> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<:MODULE> <CONFIGURATION> "CONFIGURE") (<:MODULE> <NETSPY> "NETSPY") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <LIBRARY> <DEFS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <NETWORK-INTERFACE> <DEFS> (<:FASLOAD> <DEFS> <LIBRARY>) (<:FASLOAD> <DEFS> <LIBRARY>)) (<:COMPILE-LOAD-INIT> <PACKETS> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>)) (<:COMPILE-LOAD-INIT> <NETWORK-PROTOCOL> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>)) (<:COMPILE-LOAD-INIT> <ARP> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <NETWORK-PROTOCOL>) (<:FASLOAD> <NETWORK-PROTOCOL>)) (<:COMPILE-LOAD-INIT> <TRANSPORT-PROTOCOL> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <ARP>) (<:FASLOAD> <ARP>)) (<:DO-COMPONENTS> (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE> <PACKETS> <NETWORK-PROTOCOL> <ARP> <TRANSPORT-PROTOCOL>)) (<:COMPILE-LOAD> <NETSPY>) (<:COMPILE-LOAD> <CONFIGURATION>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:NETWORK>) (<GLOBAL:QUOTE> ((<:NAME> "Network System") (<:SHORT-NAME> "Network") (<:PATHNAME-DEFAULT> "sys: network; kernel;") (<:COMPONENT-SYSTEMS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<:MODULE> <DEFS> "DEFS") (<:MODULE> <LIBRARY> "LIBRARY") (<:MODULE> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<:MODULE> <PACKETS> ("PACKETS")) (<:MODULE> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<:MODULE> <ARP> ("ARP")) (<:MODULE> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<:MODULE> <CONFIGURATION> "CONFIGURE") (<:MODULE> <NETSPY> "NETSPY") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <LIBRARY> <DEFS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <NETWORK-INTERFACE> <DEFS> (<:FASLOAD> <DEFS> <LIBRARY>) (<:FASLOAD> <DEFS> <LIBRARY>)) (<:COMPILE-LOAD-INIT> <PACKETS> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>)) (<:COMPILE-LOAD-INIT> <NETWORK-PROTOCOL> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>)) (<:COMPILE-LOAD-INIT> <ARP> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <NETWORK-PROTOCOL>) (<:FASLOAD> <NETWORK-PROTOCOL>)) (<:COMPILE-LOAD-INIT> <TRANSPORT-PROTOCOL> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <ARP>) (<:FASLOAD> <ARP>)) (<:DO-COMPONENTS> (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE> <PACKETS> <NETWORK-PROTOCOL> <ARP> <TRANSPORT-PROTOCOL>)) (<:COMPILE-LOAD> <NETSPY>) (<:COMPILE-LOAD> <CONFIGURATION>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:NETWORK>) (<GLOBAL:QUOTE> ((<:NAME> "Network System") (<:SHORT-NAME> "Network") (<:PATHNAME-DEFAULT> "sys: network; kernel;") (<:COMPONENT-SYSTEMS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<:MODULE> <DEFS> "DEFS") (<:MODULE> <LIBRARY> "LIBRARY") (<:MODULE> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<:MODULE> <PACKETS> ("PACKETS")) (<:MODULE> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<:MODULE> <ARP> ("ARP")) (<:MODULE> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<:MODULE> <CONFIGURATION> "CONFIGURE") (<:MODULE> <NETSPY> "NETSPY") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <LIBRARY> <DEFS> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <NETWORK-INTERFACE> <DEFS> (<:FASLOAD> <DEFS> <LIBRARY>) (<:FASLOAD> <DEFS> <LIBRARY>)) (<:COMPILE-LOAD-INIT> <PACKETS> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE>)) (<:COMPILE-LOAD-INIT> <NETWORK-PROTOCOL> (<DEFS> <NETWORK-INTERFACE>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>) (<:FASLOAD> <DEFS> <NETWORK-INTERFACE> <PACKETS>)) (<:COMPILE-LOAD-INIT> <ARP> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <NETWORK-PROTOCOL>) (<:FASLOAD> <NETWORK-PROTOCOL>)) (<:COMPILE-LOAD-INIT> <TRANSPORT-PROTOCOL> (<DEFS> <NETWORK-INTERFACE> <NETWORK-PROTOCOL>) (<:FASLOAD> <DEFS> <ARP>) (<:FASLOAD> <ARP>)) (<:DO-COMPONENTS> (<:FASLOAD> <DEFS> <LIBRARY> <NETWORK-INTERFACE> <PACKETS> <NETWORK-PROTOCOL> <ARP> <TRANSPORT-PROTOCOL>)) (<:COMPILE-LOAD> <NETSPY>) (<:COMPILE-LOAD> <CONFIGURATION>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "NETWORK-DRIVERS")
        <:NETWORK-DRIVERS>)
     => (<GLOBAL:QUOTE> <:NETWORK-DRIVERS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "Network Device Drivers")
         => (<:NAME> "Network Device Drivers"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "Network-Drivers")
         => (<:SHORT-NAME> "Network-Drivers"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS;")
         => (<:PATHNAME-DEFAULT> "SYS: NETWORK; DRIVERS;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <DRIVERS>)
          (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "LOOPBACK")
            (SYSTEM:FASL-OP-STRING "3COM")
            (SYSTEM:FASL-OP-STRING "EXCELAN")
            (SYSTEM:FASL-OP-STRING "SHARE")
            (SYSTEM:FASL-OP-STRING "DRIVER-PROCESS")
           => ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS"))
         => (<:MODULE> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [408] {<DRIVERS>})
         => (<:COMPILE-LOAD> <DRIVERS>))
       => ((<:NAME> "Network Device Drivers") (<:SHORT-NAME> "Network-Drivers") (<:PATHNAME-DEFAULT> "SYS: NETWORK; DRIVERS;") (<:MODULE> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) (<:COMPILE-LOAD> <DRIVERS>)))
     => (<GLOBAL:QUOTE> ((<:NAME> "Network Device Drivers") (<:SHORT-NAME> "Network-Drivers") (<:PATHNAME-DEFAULT> "SYS: NETWORK; DRIVERS;") (<:MODULE> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) (<:COMPILE-LOAD> <DRIVERS>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:NETWORK-DRIVERS>) (<GLOBAL:QUOTE> ((<:NAME> "Network Device Drivers") (<:SHORT-NAME> "Network-Drivers") (<:PATHNAME-DEFAULT> "SYS: NETWORK; DRIVERS;") (<:MODULE> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) (<:COMPILE-LOAD> <DRIVERS>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:NETWORK-DRIVERS>) (<GLOBAL:QUOTE> ((<:NAME> "Network Device Drivers") (<:SHORT-NAME> "Network-Drivers") (<:PATHNAME-DEFAULT> "SYS: NETWORK; DRIVERS;") (<:MODULE> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) (<:COMPILE-LOAD> <DRIVERS>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "IP-TCP")
        <:IP-TCP>)
     => (<GLOBAL:QUOTE> <:IP-TCP>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [22] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "IP-TCP")
         => (<:NAME> "IP-TCP"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; IP-TCP; KERNEL;")
         => (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; KERNEL;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [119] {<:COMPONENT-SYSTEMS>})
          (SYSTEM:FASL-OP-SYMBOL <TCP-USER>)
          (SYSTEM:FASL-OP-SYMBOL <TCP-SERVER>)
         => (<:COMPONENT-SYSTEMS> <TCP-USER> <TCP-SERVER>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <IP>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "IP")
           => ("IP"))
         => (<:MODULE> <IP> ("IP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <ICMP>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "ICMP")
           => ("ICMP"))
         => (<:MODULE> <ICMP> ("ICMP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <UDP>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "UDP")
           => ("UDP"))
         => (<:MODULE> <UDP> ("UDP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <UDP-STREAM>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "UDP-STREAM")
           => ("UDP-STREAM"))
         => (<:MODULE> <UDP-STREAM> ("UDP-STREAM")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TCP>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TCP")
           => ("TCP"))
         => (<:MODULE> <TCP> ("TCP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TCP-STREAM>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TCP-STREAM")
           => ("TCP-STREAM"))
         => (<:MODULE> <TCP-STREAM> ("TCP-STREAM")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <PORTS>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "PORTS")
           => ("PORTS"))
         => (<:MODULE> <PORTS> ("PORTS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <EASY>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "EASY")
           => ("EASY"))
         => (<:MODULE> <EASY> ("EASY")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TCP-UDP-SERVER>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "GENERIC-SERVER")
           => ("GENERIC-SERVER"))
         => (<:MODULE> <TCP-UDP-SERVER> ("GENERIC-SERVER")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [431] {<IP>})
         => (<:COMPILE-LOAD> <IP>))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [435] {<ICMP>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<IP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<:FASLOAD> <IP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<:FASLOAD> <IP>))
         => (<:COMPILE-LOAD-INIT> <ICMP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [439] {<UDP>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<IP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<:FASLOAD> <IP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<:FASLOAD> <IP>))
         => (<:COMPILE-LOAD-INIT> <UDP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [447] {<TCP>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<IP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<:FASLOAD> <IP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
           => (<:FASLOAD> <IP>))
         => (<:COMPILE-LOAD-INIT> <TCP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [439] {<UDP>})
           => (<UDP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [439] {<UDP>})
           => (<:FASLOAD> <UDP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [439] {<UDP>})
           => (<:FASLOAD> <UDP>))
         => (<:COMPILE-LOAD-INIT> <UDP-STREAM> (<UDP>) (<:FASLOAD> <UDP>) (<:FASLOAD> <UDP>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [447] {<TCP>})
           => (<TCP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [447] {<TCP>})
           => (<:FASLOAD> <TCP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [447] {<TCP>})
           => (<:FASLOAD> <TCP>))
         => (<:COMPILE-LOAD-INIT> <TCP-STREAM> (<TCP>) (<:FASLOAD> <TCP>) (<:FASLOAD> <TCP>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [455] {<PORTS>})
         => (<:COMPILE-LOAD> <PORTS>))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [459] {<EASY>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [455] {<PORTS>})
           => (<TCP-STREAM> <UDP-STREAM> <PORTS>))
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [455] {<PORTS>})
           => (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>))
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [455] {<PORTS>})
           => (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>))
         => (<:COMPILE-LOAD-INIT> <EASY> (<TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>)))
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [463] {<TCP-UDP-SERVER>})
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [447] {<TCP>})
            (SYSTEM:FASL-OP-INDEX [439] {<UDP>})
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
           => (<TCP> <UDP> <TCP-STREAM> <UDP-STREAM>))
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
           => (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>))
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
           => (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>))
         => (<:COMPILE-LOAD-INIT> <TCP-UDP-SERVER> (<TCP> <UDP> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [149] {<:DO-COMPONENTS>})
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [431] {<IP>})
            (SYSTEM:FASL-OP-INDEX [435] {<ICMP>})
            (SYSTEM:FASL-OP-INDEX [439] {<UDP>})
            (SYSTEM:FASL-OP-INDEX [443] {<UDP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [447] {<TCP>})
            (SYSTEM:FASL-OP-INDEX [451] {<TCP-STREAM>})
            (SYSTEM:FASL-OP-INDEX [455] {<PORTS>})
            (SYSTEM:FASL-OP-INDEX [459] {<EASY>})
            (SYSTEM:FASL-OP-INDEX [463] {<TCP-UDP-SERVER>})
           => (<:FASLOAD> <IP> <ICMP> <UDP> <UDP-STREAM> <TCP> <TCP-STREAM> <PORTS> <EASY> <TCP-UDP-SERVER>))
         => (<:DO-COMPONENTS> (<:FASLOAD> <IP> <ICMP> <UDP> <UDP-STREAM> <TCP> <TCP-STREAM> <PORTS> <EASY> <TCP-UDP-SERVER>)))
       => ((<:NAME> "IP-TCP") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; KERNEL;") (<:COMPONENT-SYSTEMS> <TCP-USER> <TCP-SERVER>) (<:MODULE> <IP> ("IP")) (<:MODULE> <ICMP> ("ICMP")) (<:MODULE> <UDP> ("UDP")) (<:MODULE> <UDP-STREAM> ("UDP-STREAM")) (<:MODULE> <TCP> ("TCP")) (<:MODULE> <TCP-STREAM> ("TCP-STREAM")) (<:MODULE> <PORTS> ("PORTS")) (<:MODULE> <EASY> ("EASY")) (<:MODULE> <TCP-UDP-SERVER> ("GENERIC-SERVER")) (<:COMPILE-LOAD> <IP>) (<:COMPILE-LOAD-INIT> <ICMP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <TCP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP-STREAM> (<UDP>) (<:FASLOAD> <UDP>) (<:FASLOAD> <UDP>)) (<:COMPILE-LOAD-INIT> <TCP-STREAM> (<TCP>) (<:FASLOAD> <TCP>) (<:FASLOAD> <TCP>)) (<:COMPILE-LOAD> <PORTS>) (<:COMPILE-LOAD-INIT> <EASY> (<TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>)) (<:COMPILE-LOAD-INIT> <TCP-UDP-SERVER> (<TCP> <UDP> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>)) (<:DO-COMPONENTS> (<:FASLOAD> <IP> <ICMP> <UDP> <UDP-STREAM> <TCP> <TCP-STREAM> <PORTS> <EASY> <TCP-UDP-SERVER>))))
     => (<GLOBAL:QUOTE> ((<:NAME> "IP-TCP") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; KERNEL;") (<:COMPONENT-SYSTEMS> <TCP-USER> <TCP-SERVER>) (<:MODULE> <IP> ("IP")) (<:MODULE> <ICMP> ("ICMP")) (<:MODULE> <UDP> ("UDP")) (<:MODULE> <UDP-STREAM> ("UDP-STREAM")) (<:MODULE> <TCP> ("TCP")) (<:MODULE> <TCP-STREAM> ("TCP-STREAM")) (<:MODULE> <PORTS> ("PORTS")) (<:MODULE> <EASY> ("EASY")) (<:MODULE> <TCP-UDP-SERVER> ("GENERIC-SERVER")) (<:COMPILE-LOAD> <IP>) (<:COMPILE-LOAD-INIT> <ICMP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <TCP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP-STREAM> (<UDP>) (<:FASLOAD> <UDP>) (<:FASLOAD> <UDP>)) (<:COMPILE-LOAD-INIT> <TCP-STREAM> (<TCP>) (<:FASLOAD> <TCP>) (<:FASLOAD> <TCP>)) (<:COMPILE-LOAD> <PORTS>) (<:COMPILE-LOAD-INIT> <EASY> (<TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>)) (<:COMPILE-LOAD-INIT> <TCP-UDP-SERVER> (<TCP> <UDP> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>)) (<:DO-COMPONENTS> (<:FASLOAD> <IP> <ICMP> <UDP> <UDP-STREAM> <TCP> <TCP-STREAM> <PORTS> <EASY> <TCP-UDP-SERVER>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:IP-TCP>) (<GLOBAL:QUOTE> ((<:NAME> "IP-TCP") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; KERNEL;") (<:COMPONENT-SYSTEMS> <TCP-USER> <TCP-SERVER>) (<:MODULE> <IP> ("IP")) (<:MODULE> <ICMP> ("ICMP")) (<:MODULE> <UDP> ("UDP")) (<:MODULE> <UDP-STREAM> ("UDP-STREAM")) (<:MODULE> <TCP> ("TCP")) (<:MODULE> <TCP-STREAM> ("TCP-STREAM")) (<:MODULE> <PORTS> ("PORTS")) (<:MODULE> <EASY> ("EASY")) (<:MODULE> <TCP-UDP-SERVER> ("GENERIC-SERVER")) (<:COMPILE-LOAD> <IP>) (<:COMPILE-LOAD-INIT> <ICMP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <TCP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP-STREAM> (<UDP>) (<:FASLOAD> <UDP>) (<:FASLOAD> <UDP>)) (<:COMPILE-LOAD-INIT> <TCP-STREAM> (<TCP>) (<:FASLOAD> <TCP>) (<:FASLOAD> <TCP>)) (<:COMPILE-LOAD> <PORTS>) (<:COMPILE-LOAD-INIT> <EASY> (<TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>)) (<:COMPILE-LOAD-INIT> <TCP-UDP-SERVER> (<TCP> <UDP> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>)) (<:DO-COMPONENTS> (<:FASLOAD> <IP> <ICMP> <UDP> <UDP-STREAM> <TCP> <TCP-STREAM> <PORTS> <EASY> <TCP-UDP-SERVER>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:IP-TCP>) (<GLOBAL:QUOTE> ((<:NAME> "IP-TCP") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; KERNEL;") (<:COMPONENT-SYSTEMS> <TCP-USER> <TCP-SERVER>) (<:MODULE> <IP> ("IP")) (<:MODULE> <ICMP> ("ICMP")) (<:MODULE> <UDP> ("UDP")) (<:MODULE> <UDP-STREAM> ("UDP-STREAM")) (<:MODULE> <TCP> ("TCP")) (<:MODULE> <TCP-STREAM> ("TCP-STREAM")) (<:MODULE> <PORTS> ("PORTS")) (<:MODULE> <EASY> ("EASY")) (<:MODULE> <TCP-UDP-SERVER> ("GENERIC-SERVER")) (<:COMPILE-LOAD> <IP>) (<:COMPILE-LOAD-INIT> <ICMP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <TCP> (<IP>) (<:FASLOAD> <IP>) (<:FASLOAD> <IP>)) (<:COMPILE-LOAD-INIT> <UDP-STREAM> (<UDP>) (<:FASLOAD> <UDP>) (<:FASLOAD> <UDP>)) (<:COMPILE-LOAD-INIT> <TCP-STREAM> (<TCP>) (<:FASLOAD> <TCP>) (<:FASLOAD> <TCP>)) (<:COMPILE-LOAD> <PORTS>) (<:COMPILE-LOAD-INIT> <EASY> (<TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM> <PORTS>)) (<:COMPILE-LOAD-INIT> <TCP-UDP-SERVER> (<TCP> <UDP> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>) (<:FASLOAD> <TCP-STREAM> <UDP-STREAM>)) (<:DO-COMPONENTS> (<:FASLOAD> <IP> <ICMP> <UDP> <UDP-STREAM> <TCP> <TCP-STREAM> <PORTS> <EASY> <TCP-UDP-SERVER>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "TCP-SERVER")
        <:TCP-SERVER>)
     => (<GLOBAL:QUOTE> <:TCP-SERVER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [16] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "TCP-SERVER")
         => (<:NAME> "TCP-SERVER"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; IP-TCP; SERVER;")
         => (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; SERVER;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <UDP-SERVER-APPLICATIONS>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "UDP-RWHO-SERVER")
           => ("UDP-RWHO-SERVER"))
         => (<:MODULE> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TERMCAP>)
          (SYSTEM:FASL-OP-STRING "TERMCAP")
         => (<:MODULE> <TERMCAP> "TERMCAP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TELNET-UTILITIES>)
          (SYSTEM:FASL-OP-STRING "TELNET-UTILITIES")
         => (<:MODULE> <TELNET-UTILITIES> "TELNET-UTILITIES"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TELNET>)
          (SYSTEM:FASL-OP-STRING "TELNET")
         => (<:MODULE> <TELNET> "TELNET"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <FTP>)
          (SYSTEM:FASL-OP-STRING "FTP")
         => (<:MODULE> <FTP> "FTP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <SMTP>)
          (SYSTEM:FASL-OP-STRING "SMTP")
         => (<:MODULE> <SMTP> "SMTP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <DISK>)
          (SYSTEM:FASL-OP-STRING "DISK")
         => (<:MODULE> <DISK> "DISK"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [129] {<LISP:TIME>})
          (SYSTEM:FASL-OP-STRING "TIME")
         => (<:MODULE> <LISP:TIME> "TIME"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <FINGER>)
          (SYSTEM:FASL-OP-STRING "FINGER")
         => (<:MODULE> <FINGER> "FINGER"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <ALL>)
          (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [520] {<TELNET>})
            (SYSTEM:FASL-OP-INDEX [523] {<FTP>})
            (SYSTEM:FASL-OP-INDEX [526] {<SMTP>})
            (SYSTEM:FASL-OP-INDEX [529] {<DISK>})
            (SYSTEM:FASL-OP-INDEX [129] {<LISP:TIME>})
            (SYSTEM:FASL-OP-INDEX [534] {<FINGER>})
           => (<TELNET> <FTP> <SMTP> <DISK> <LISP:TIME> <FINGER>))
         => (<:MODULE> <ALL> (<TELNET> <FTP> <SMTP> <DISK> <LISP:TIME> <FINGER>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [510] {<UDP-SERVER-APPLICATIONS>})
         => (<:COMPILE-LOAD> <UDP-SERVER-APPLICATIONS>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [514] {<TERMCAP>})
         => (<:COMPILE-LOAD> <TERMCAP>))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [517] {<TELNET-UTILITIES>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [514] {<TERMCAP>})
           => (<:FASLOAD> <TERMCAP>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [514] {<TERMCAP>})
           => (<:FASLOAD> <TERMCAP>))
         => (<:COMPILE-LOAD> <TELNET-UTILITIES> (<:FASLOAD> <TERMCAP>) (<:FASLOAD> <TERMCAP>)))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [537] {<ALL>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [517] {<TELNET-UTILITIES>})
           => (<:FASLOAD> <TELNET-UTILITIES>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [517] {<TELNET-UTILITIES>})
           => (<:FASLOAD> <TELNET-UTILITIES>))
         => (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <TELNET-UTILITIES>) (<:FASLOAD> <TELNET-UTILITIES>)))
       => ((<:NAME> "TCP-SERVER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; SERVER;") (<:MODULE> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<:MODULE> <TERMCAP> "TERMCAP") (<:MODULE> <TELNET-UTILITIES> "TELNET-UTILITIES") (<:MODULE> <TELNET> "TELNET") (<:MODULE> <FTP> "FTP") (<:MODULE> <SMTP> "SMTP") (<:MODULE> <DISK> "DISK") (<:MODULE> <LISP:TIME> "TIME") (<:MODULE> <FINGER> "FINGER") (<:MODULE> <ALL> (<TELNET> <FTP> <SMTP> <DISK> <LISP:TIME> <FINGER>)) (<:COMPILE-LOAD> <UDP-SERVER-APPLICATIONS>) (<:COMPILE-LOAD> <TERMCAP>) (<:COMPILE-LOAD> <TELNET-UTILITIES> (<:FASLOAD> <TERMCAP>) (<:FASLOAD> <TERMCAP>)) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <TELNET-UTILITIES>) (<:FASLOAD> <TELNET-UTILITIES>))))
     => (<GLOBAL:QUOTE> ((<:NAME> "TCP-SERVER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; SERVER;") (<:MODULE> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<:MODULE> <TERMCAP> "TERMCAP") (<:MODULE> <TELNET-UTILITIES> "TELNET-UTILITIES") (<:MODULE> <TELNET> "TELNET") (<:MODULE> <FTP> "FTP") (<:MODULE> <SMTP> "SMTP") (<:MODULE> <DISK> "DISK") (<:MODULE> <LISP:TIME> "TIME") (<:MODULE> <FINGER> "FINGER") (<:MODULE> <ALL> (<TELNET> <FTP> <SMTP> <DISK> <LISP:TIME> <FINGER>)) (<:COMPILE-LOAD> <UDP-SERVER-APPLICATIONS>) (<:COMPILE-LOAD> <TERMCAP>) (<:COMPILE-LOAD> <TELNET-UTILITIES> (<:FASLOAD> <TERMCAP>) (<:FASLOAD> <TERMCAP>)) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <TELNET-UTILITIES>) (<:FASLOAD> <TELNET-UTILITIES>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TCP-SERVER>) (<GLOBAL:QUOTE> ((<:NAME> "TCP-SERVER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; SERVER;") (<:MODULE> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<:MODULE> <TERMCAP> "TERMCAP") (<:MODULE> <TELNET-UTILITIES> "TELNET-UTILITIES") (<:MODULE> <TELNET> "TELNET") (<:MODULE> <FTP> "FTP") (<:MODULE> <SMTP> "SMTP") (<:MODULE> <DISK> "DISK") (<:MODULE> <LISP:TIME> "TIME") (<:MODULE> <FINGER> "FINGER") (<:MODULE> <ALL> (<TELNET> <FTP> <SMTP> <DISK> <LISP:TIME> <FINGER>)) (<:COMPILE-LOAD> <UDP-SERVER-APPLICATIONS>) (<:COMPILE-LOAD> <TERMCAP>) (<:COMPILE-LOAD> <TELNET-UTILITIES> (<:FASLOAD> <TERMCAP>) (<:FASLOAD> <TERMCAP>)) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <TELNET-UTILITIES>) (<:FASLOAD> <TELNET-UTILITIES>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TCP-SERVER>) (<GLOBAL:QUOTE> ((<:NAME> "TCP-SERVER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; SERVER;") (<:MODULE> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<:MODULE> <TERMCAP> "TERMCAP") (<:MODULE> <TELNET-UTILITIES> "TELNET-UTILITIES") (<:MODULE> <TELNET> "TELNET") (<:MODULE> <FTP> "FTP") (<:MODULE> <SMTP> "SMTP") (<:MODULE> <DISK> "DISK") (<:MODULE> <LISP:TIME> "TIME") (<:MODULE> <FINGER> "FINGER") (<:MODULE> <ALL> (<TELNET> <FTP> <SMTP> <DISK> <LISP:TIME> <FINGER>)) (<:COMPILE-LOAD> <UDP-SERVER-APPLICATIONS>) (<:COMPILE-LOAD> <TERMCAP>) (<:COMPILE-LOAD> <TELNET-UTILITIES> (<:FASLOAD> <TERMCAP>) (<:FASLOAD> <TERMCAP>)) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <TELNET-UTILITIES>) (<:FASLOAD> <TELNET-UTILITIES>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "TCP-USER")
        <:TCP-USER>)
     => (<GLOBAL:QUOTE> <:TCP-USER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "TCP-USER")
         => (<:NAME> "TCP-USER"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; IP-TCP; USER;")
         => (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; USER;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <SIMPLE-USER-APPLICATIONS>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TCP-TEST")
            (SYSTEM:FASL-OP-STRING "IMAGEN")
           => ("TCP-TEST" "IMAGEN"))
         => (<:MODULE> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "FTP-SYMS")
           => ("FTP-SYMS"))
         => (<:MODULE> <DEFS> ("FTP-SYMS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [520] {<TELNET>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TELNET")
           => ("TELNET"))
         => (<:MODULE> <TELNET> ("TELNET")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [523] {<FTP>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "FTP")
           => ("FTP"))
         => (<:MODULE> <FTP> ("FTP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [332] {<CHAOS>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "CHAOS-SERVER")
           => ("CHAOS-SERVER"))
         => (<:MODULE> <CHAOS> ("CHAOS-SERVER")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [526] {<SMTP>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SMTP")
           => ("SMTP"))
         => (<:MODULE> <SMTP> ("SMTP")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [537] {<ALL>})
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [520] {<TELNET>})
            (SYSTEM:FASL-OP-INDEX [523] {<FTP>})
            (SYSTEM:FASL-OP-INDEX [332] {<CHAOS>})
            (SYSTEM:FASL-OP-INDEX [526] {<SMTP>})
           => (<TELNET> <FTP> <CHAOS> <SMTP>))
         => (<:MODULE> <ALL> (<TELNET> <FTP> <CHAOS> <SMTP>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [559] {<SIMPLE-USER-APPLICATIONS>})
         => (<:COMPILE-LOAD> <SIMPLE-USER-APPLICATIONS>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [537] {<ALL>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))
       => ((<:NAME> "TCP-USER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; USER;") (<:MODULE> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<:MODULE> <DEFS> ("FTP-SYMS")) (<:MODULE> <TELNET> ("TELNET")) (<:MODULE> <FTP> ("FTP")) (<:MODULE> <CHAOS> ("CHAOS-SERVER")) (<:MODULE> <SMTP> ("SMTP")) (<:MODULE> <ALL> (<TELNET> <FTP> <CHAOS> <SMTP>)) (<:COMPILE-LOAD> <SIMPLE-USER-APPLICATIONS>) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>))))
     => (<GLOBAL:QUOTE> ((<:NAME> "TCP-USER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; USER;") (<:MODULE> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<:MODULE> <DEFS> ("FTP-SYMS")) (<:MODULE> <TELNET> ("TELNET")) (<:MODULE> <FTP> ("FTP")) (<:MODULE> <CHAOS> ("CHAOS-SERVER")) (<:MODULE> <SMTP> ("SMTP")) (<:MODULE> <ALL> (<TELNET> <FTP> <CHAOS> <SMTP>)) (<:COMPILE-LOAD> <SIMPLE-USER-APPLICATIONS>) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TCP-USER>) (<GLOBAL:QUOTE> ((<:NAME> "TCP-USER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; USER;") (<:MODULE> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<:MODULE> <DEFS> ("FTP-SYMS")) (<:MODULE> <TELNET> ("TELNET")) (<:MODULE> <FTP> ("FTP")) (<:MODULE> <CHAOS> ("CHAOS-SERVER")) (<:MODULE> <SMTP> ("SMTP")) (<:MODULE> <ALL> (<TELNET> <FTP> <CHAOS> <SMTP>)) (<:COMPILE-LOAD> <SIMPLE-USER-APPLICATIONS>) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TCP-USER>) (<GLOBAL:QUOTE> ((<:NAME> "TCP-USER") (<:PATHNAME-DEFAULT> "SYS: NETWORK; IP-TCP; USER;") (<:MODULE> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<:MODULE> <DEFS> ("FTP-SYMS")) (<:MODULE> <TELNET> ("TELNET")) (<:MODULE> <FTP> ("FTP")) (<:MODULE> <CHAOS> ("CHAOS-SERVER")) (<:MODULE> <SMTP> ("SMTP")) (<:MODULE> <ALL> (<TELNET> <FTP> <CHAOS> <SMTP>)) (<:COMPILE-LOAD> <SIMPLE-USER-APPLICATIONS>) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <ALL> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "CHAOS")
        <:CHAOS>)
     => (<GLOBAL:QUOTE> <:CHAOS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS;")
         => (<:PATHNAME-DEFAULT> "SYS: NETWORK; CHAOS;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <NCP>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "CHSNCP")
            (SYSTEM:FASL-OP-STRING "CHUSE")
           => ("CHSNCP" "CHUSE"))
         => (<:MODULE> <NCP> ("CHSNCP" "CHUSE")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <AUX>)
          (SYSTEM:FASL-OP-STRING "CHSAUX")
         => (<:MODULE> <AUX> "CHSAUX"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [595] {<NCP>})
            (SYSTEM:FASL-OP-INDEX [600] {<AUX>})
           => (<NCP> <AUX>))
         => (<:COMPILE-LOAD> (<NCP> <AUX>)))
       => ((<:PATHNAME-DEFAULT> "SYS: NETWORK; CHAOS;") (<:MODULE> <NCP> ("CHSNCP" "CHUSE")) (<:MODULE> <AUX> "CHSAUX") (<:COMPILE-LOAD> (<NCP> <AUX>))))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: NETWORK; CHAOS;") (<:MODULE> <NCP> ("CHSNCP" "CHUSE")) (<:MODULE> <AUX> "CHSAUX") (<:COMPILE-LOAD> (<NCP> <AUX>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:CHAOS>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: NETWORK; CHAOS;") (<:MODULE> <NCP> ("CHSNCP" "CHUSE")) (<:MODULE> <AUX> "CHSAUX") (<:COMPILE-LOAD> (<NCP> <AUX>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:CHAOS>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: NETWORK; CHAOS;") (<:MODULE> <NCP> ("CHSNCP" "CHUSE")) (<:MODULE> <AUX> "CHSAUX") (<:COMPILE-LOAD> (<NCP> <AUX>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "SHARE")
        <:SHARE>)
     => (<GLOBAL:QUOTE> <:SHARE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "Share")
         => (<:NAME> "Share"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys: sys;")
         => (<:PATHNAME-DEFAULT> "sys: sys;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [76] {<:PACKAGE>})
          (SYSTEM:FASL-OP-SYMBOL <SI>)
         => (<:PACKAGE> <SI>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "sys: cold; sysconf")
           => ("sys: cold; sysconf"))
         => (<:MODULE> <DEFS> ("sys: cold; sysconf")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <MACROS>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "config-defs")
           => ("config-defs"))
         => (<:MODULE> <MACROS> ("config-defs")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "iomsg")
            (SYSTEM:FASL-OP-STRING "shared-device")
            (SYSTEM:FASL-OP-STRING "config")
           => ("iomsg" "shared-device" "config"))
         => (<:MODULE> <MAIN> ("iomsg" "shared-device" "config")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [621] {<MACROS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MACROS> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [621] {<MACROS>})
           => (<:FASLOAD> <MACROS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <MACROS>)))
       => ((<:NAME> "Share") (<:PATHNAME-DEFAULT> "sys: sys;") (<:PACKAGE> <SI>) (<:MODULE> <DEFS> ("sys: cold; sysconf")) (<:MODULE> <MACROS> ("config-defs")) (<:MODULE> <MAIN> ("iomsg" "shared-device" "config")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MACROS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <MACROS>))))
     => (<GLOBAL:QUOTE> ((<:NAME> "Share") (<:PATHNAME-DEFAULT> "sys: sys;") (<:PACKAGE> <SI>) (<:MODULE> <DEFS> ("sys: cold; sysconf")) (<:MODULE> <MACROS> ("config-defs")) (<:MODULE> <MAIN> ("iomsg" "shared-device" "config")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MACROS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <MACROS>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SHARE>) (<GLOBAL:QUOTE> ((<:NAME> "Share") (<:PATHNAME-DEFAULT> "sys: sys;") (<:PACKAGE> <SI>) (<:MODULE> <DEFS> ("sys: cold; sysconf")) (<:MODULE> <MACROS> ("config-defs")) (<:MODULE> <MAIN> ("iomsg" "shared-device" "config")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MACROS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <MACROS>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SHARE>) (<GLOBAL:QUOTE> ((<:NAME> "Share") (<:PATHNAME-DEFAULT> "sys: sys;") (<:PACKAGE> <SI>) (<:MODULE> <DEFS> ("sys: cold; sysconf")) (<:MODULE> <MACROS> ("config-defs")) (<:MODULE> <MAIN> ("iomsg" "shared-device" "config")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MACROS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <MACROS>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [47] {<:SITE>})
     => (<GLOBAL:QUOTE> <:SITE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <SITE>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SITE; SITE")
            (SYSTEM:FASL-OP-STRING "SYS: SITE; LMLOCS")
           => ("SYS: SITE; SITE" "SYS: SITE; LMLOCS"))
         => (<:MODULE> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-SYMBOL <LOAD-SITE-FILE>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-PACKAGE-SYMBOL
              (SYSTEM:FASL-OP-INDEX [32] {""})
              (SYSTEM:FASL-OP-STRING "COMPILE")
              <:COMPILE>)
            (SYSTEM:FASL-OP-INDEX [641] {<SITE>})
           => (<:COMPILE> <SITE>))
         => (<LOAD-SITE-FILE> (<:COMPILE> <SITE>)))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <HOST-TABLE>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: CHAOS; HOSTS")
              (SYSTEM:FASL-OP-STRING "SYS: SITE; HSTTBL")
             => ("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))
           => (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL")))
         => (<:MODULE> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [646] {<LOAD-SITE-FILE>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [648] {<:COMPILE>})
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-PACKAGE-SYMBOL
                (SYSTEM:FASL-OP-INDEX [32] {""})
                (SYSTEM:FASL-OP-STRING "GENERATE-HOST-TABLE")
                <:GENERATE-HOST-TABLE>)
              (SYSTEM:FASL-OP-INDEX [651] {<HOST-TABLE>})
             => (<:GENERATE-HOST-TABLE> <HOST-TABLE>))
           => (<:COMPILE> (<:GENERATE-HOST-TABLE> <HOST-TABLE>)))
         => (<LOAD-SITE-FILE> (<:COMPILE> (<:GENERATE-HOST-TABLE> <HOST-TABLE>))))
       => ((<:MODULE> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> <SITE>)) (<:MODULE> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) (<LOAD-SITE-FILE> (<:COMPILE> (<:GENERATE-HOST-TABLE> <HOST-TABLE>)))))
     => (<GLOBAL:QUOTE> ((<:MODULE> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> <SITE>)) (<:MODULE> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) (<LOAD-SITE-FILE> (<:COMPILE> (<:GENERATE-HOST-TABLE> <HOST-TABLE>))))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SITE>) (<GLOBAL:QUOTE> ((<:MODULE> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> <SITE>)) (<:MODULE> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) (<LOAD-SITE-FILE> (<:COMPILE> (<:GENERATE-HOST-TABLE> <HOST-TABLE>)))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SITE>) (<GLOBAL:QUOTE> ((<:MODULE> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> <SITE>)) (<:MODULE> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) (<LOAD-SITE-FILE> (<:COMPILE> (<:GENERATE-HOST-TABLE> <HOST-TABLE>))))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "TIME")
        <:TIME>)
     => (<GLOBAL:QUOTE> <:TIME>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: IO1;")
         => (<:PATHNAME-DEFAULT> "SYS: IO1;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TIME")
            (SYSTEM:FASL-OP-STRING "TIMPAR")
           => ("TIME" "TIMPAR"))
         => (<:COMPILE-LOAD> ("TIME" "TIMPAR")))
       => ((<:PATHNAME-DEFAULT> "SYS: IO1;") (<:COMPILE-LOAD> ("TIME" "TIMPAR"))))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: IO1;") (<:COMPILE-LOAD> ("TIME" "TIMPAR")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TIME>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: IO1;") (<:COMPILE-LOAD> ("TIME" "TIMPAR"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TIME>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: IO1;") (<:COMPILE-LOAD> ("TIME" "TIMPAR")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "SUPDUP")
        <:SUPDUP>)
     => (<GLOBAL:QUOTE> <:SUPDUP>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; SUPDUP")
           => ("SYS: NETWORK; SUPDUP"))
         => (<:COMPILE-LOAD> ("SYS: NETWORK; SUPDUP")))
       => ((<:COMPILE-LOAD> ("SYS: NETWORK; SUPDUP"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: NETWORK; SUPDUP")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SUPDUP>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: NETWORK; SUPDUP"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SUPDUP>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: NETWORK; SUPDUP")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FORMAT")
        <:FORMAT>)
     => (<GLOBAL:QUOTE> <:FORMAT>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: IO; FORMAT")
            (SYSTEM:FASL-OP-STRING "SYS: IO1; FQUERY")
            (SYSTEM:FASL-OP-STRING "SYS: IO1; OUTPUT")
           => ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT"))
         => (<:COMPILE-LOAD> ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT")))
       => ((<:COMPILE-LOAD> ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FORMAT>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FORMAT>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "COMPILER")
        <:COMPILER>)
     => (<GLOBAL:QUOTE> <:COMPILER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [76] {<:PACKAGE>})
          (SYSTEM:FASL-OP-INDEX [124] {<COMPILER>})
         => (<:PACKAGE> <COMPILER>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "sys: sys; qccold")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCDEFS")
           => ("sys: sys; qccold" "SYS: SYS; QCDEFS"))
         => (<:MODULE> <DEFS> ("sys: sys; qccold" "SYS: SYS; QCDEFS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; DISASS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCFASD")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCFILE")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCP1")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCP2")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCOPT")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCLUKE")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCPEEP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QCLAP")
           => ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP"))
         => (<:MODULE> <MAIN> ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [261] {<:READFILE>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: COLD; DEFMIC")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; DOCMIC")
           => ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))
         => (<:READFILE> ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))
       => ((<:PACKAGE> <COMPILER>) (<:MODULE> <DEFS> ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))
     => (<GLOBAL:QUOTE> ((<:PACKAGE> <COMPILER>) (<:MODULE> <DEFS> ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> <COMPILER>) (<:MODULE> <DEFS> ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> <COMPILER>) (<:MODULE> <DEFS> ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:READFILE> ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "COLOR")
        <:COLOR>)
     => (<GLOBAL:QUOTE> <:COLOR>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: WINDOW; COLOR")
           => ("SYS: WINDOW; COLOR"))
         => (<:COMPILE-LOAD> ("SYS: WINDOW; COLOR")))
       => ((<:COMPILE-LOAD> ("SYS: WINDOW; COLOR"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: WINDOW; COLOR")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:COLOR>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: WINDOW; COLOR"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:COLOR>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: WINDOW; COLOR")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "ZWEI")
        <:ZWEI>)
     => (<GLOBAL:QUOTE> <:ZWEI>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: ZWEI;")
         => (<:PATHNAME-DEFAULT> "SYS: ZWEI;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [100] {<:PATCHABLE>})
          (SYSTEM:FASL-OP-STRING "sys: zwei; patch;")
         => (<:PATCHABLE> "sys: zwei; patch;"))
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [32] {""})
            (SYSTEM:FASL-OP-STRING "NOT-IN-DISK-LABEL")
            <:NOT-IN-DISK-LABEL>)
         => (<:NOT-IN-DISK-LABEL>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "DEFS")
            (SYSTEM:FASL-OP-STRING "MACROS")
           => ("DEFS" "MACROS"))
         => (<:MODULE> <DEFS> ("DEFS" "MACROS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <SCREEN>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SCREEN")
           => ("SCREEN"))
         => (<:MODULE> <SCREEN> ("SCREEN")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [38] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "COMTAB")
            (SYSTEM:FASL-OP-STRING "DISPLA")
            (SYSTEM:FASL-OP-STRING "FOR")
            (SYSTEM:FASL-OP-STRING "INDENT")
            (SYSTEM:FASL-OP-STRING "INSERT")
            (SYSTEM:FASL-OP-STRING "METH")
            (SYSTEM:FASL-OP-STRING "PRIMIT")
            (SYSTEM:FASL-OP-STRING "NPRIM")
            (SYSTEM:FASL-OP-STRING "HISTORY")
            (SYSTEM:FASL-OP-STRING "FONT")
            (SYSTEM:FASL-OP-STRING "KBDMAC")
            (SYSTEM:FASL-OP-STRING "SEARCH")
            (SYSTEM:FASL-OP-STRING "COMA")
            (SYSTEM:FASL-OP-STRING "COMB")
            (SYSTEM:FASL-OP-STRING "COMC")
            (SYSTEM:FASL-OP-STRING "COMD")
            (SYSTEM:FASL-OP-STRING "COME")
            (SYSTEM:FASL-OP-STRING "COMF")
            (SYSTEM:FASL-OP-STRING "COMG")
            (SYSTEM:FASL-OP-STRING "COMH")
            (SYSTEM:FASL-OP-STRING "COMS")
            (SYSTEM:FASL-OP-STRING "DIRED")
            (SYSTEM:FASL-OP-STRING "BDIRED")
            (SYSTEM:FASL-OP-STRING "DOC")
            (SYSTEM:FASL-OP-STRING "FASUPD")
            (SYSTEM:FASL-OP-STRING "FILES")
            (SYSTEM:FASL-OP-STRING "HOST")
            (SYSTEM:FASL-OP-STRING "NEW-ISPELL")
            (SYSTEM:FASL-OP-STRING "LPARSE")
            (SYSTEM:FASL-OP-STRING "MODES")
            (SYSTEM:FASL-OP-STRING "MOUSE")
            (SYSTEM:FASL-OP-STRING "PATED")
            (SYSTEM:FASL-OP-STRING "PL1MOD")
            (SYSTEM:FASL-OP-STRING "POSS")
            (SYSTEM:FASL-OP-STRING "STREAM")
            (SYSTEM:FASL-OP-STRING "SECTIO")
            (SYSTEM:FASL-OP-STRING "ZMNEW")
            (SYSTEM:FASL-OP-STRING "ZMACS")
           => ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS"))
         => (<:MODULE> <MAIN> ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <ZYMURG>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "ZYMURG")
           => ("ZYMURG"))
         => (<:MODULE> <ZYMURG> ("ZYMURG")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [757] {<SCREEN>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD-INIT> <SCREEN> <DEFS> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [757] {<SCREEN>})
           => (<:FASLOAD> <DEFS> <SCREEN>))
         => (<:COMPILE-LOAD-INIT> <MAIN> <DEFS> (<:FASLOAD> <DEFS> <SCREEN>)))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [368] {<:COMPILE-LOAD-INIT>})
          (SYSTEM:FASL-OP-INDEX [801] {<ZYMURG>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [757] {<SCREEN>})
            (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
           => (<:FASLOAD> <DEFS> <SCREEN> <MAIN>))
         => (<:COMPILE-LOAD-INIT> <ZYMURG> <DEFS> (<:FASLOAD> <DEFS> <SCREEN> <MAIN>)))
       => ((<:PATHNAME-DEFAULT> "SYS: ZWEI;") (<:PATCHABLE> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<:MODULE> <DEFS> ("DEFS" "MACROS")) (<:MODULE> <SCREEN> ("SCREEN")) (<:MODULE> <MAIN> ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<:MODULE> <ZYMURG> ("ZYMURG")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <SCREEN> <DEFS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <MAIN> <DEFS> (<:FASLOAD> <DEFS> <SCREEN>)) (<:COMPILE-LOAD-INIT> <ZYMURG> <DEFS> (<:FASLOAD> <DEFS> <SCREEN> <MAIN>))))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: ZWEI;") (<:PATCHABLE> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<:MODULE> <DEFS> ("DEFS" "MACROS")) (<:MODULE> <SCREEN> ("SCREEN")) (<:MODULE> <MAIN> ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<:MODULE> <ZYMURG> ("ZYMURG")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <SCREEN> <DEFS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <MAIN> <DEFS> (<:FASLOAD> <DEFS> <SCREEN>)) (<:COMPILE-LOAD-INIT> <ZYMURG> <DEFS> (<:FASLOAD> <DEFS> <SCREEN> <MAIN>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:ZWEI>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: ZWEI;") (<:PATCHABLE> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<:MODULE> <DEFS> ("DEFS" "MACROS")) (<:MODULE> <SCREEN> ("SCREEN")) (<:MODULE> <MAIN> ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<:MODULE> <ZYMURG> ("ZYMURG")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <SCREEN> <DEFS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <MAIN> <DEFS> (<:FASLOAD> <DEFS> <SCREEN>)) (<:COMPILE-LOAD-INIT> <ZYMURG> <DEFS> (<:FASLOAD> <DEFS> <SCREEN> <MAIN>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:ZWEI>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: ZWEI;") (<:PATCHABLE> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<:MODULE> <DEFS> ("DEFS" "MACROS")) (<:MODULE> <SCREEN> ("SCREEN")) (<:MODULE> <MAIN> ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<:MODULE> <ZYMURG> ("ZYMURG")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD-INIT> <SCREEN> <DEFS> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD-INIT> <MAIN> <DEFS> (<:FASLOAD> <DEFS> <SCREEN>)) (<:COMPILE-LOAD-INIT> <ZYMURG> <DEFS> (<:FASLOAD> <DEFS> <SCREEN> <MAIN>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FONT-UTILITIES")
        <:FONT-UTILITIES>)
     => (<GLOBAL:QUOTE> <:FONT-UTILITIES>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-STRING "sys: io1; fntdef")
         => (<:MODULE> <DEFS> "sys: io1; fntdef"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "sys: io1; fntcnv")
            (SYSTEM:FASL-OP-STRING "sys: window; font-utilities")
           => ("sys: io1; fntcnv" "sys: window; font-utilities"))
         => (<:MODULE> <MAIN> ("sys: io1; fntcnv" "sys: window; font-utilities")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [261] {<:READFILE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:READFILE> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [261] {<:READFILE>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:READFILE> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:READFILE> <DEFS>)))
       => ((<:MODULE> <DEFS> "sys: io1; fntdef") (<:MODULE> <MAIN> ("sys: io1; fntcnv" "sys: window; font-utilities")) (<:READFILE> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:READFILE> <DEFS>))))
     => (<GLOBAL:QUOTE> ((<:MODULE> <DEFS> "sys: io1; fntdef") (<:MODULE> <MAIN> ("sys: io1; fntcnv" "sys: window; font-utilities")) (<:READFILE> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:READFILE> <DEFS>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FONT-UTILITIES>) (<GLOBAL:QUOTE> ((<:MODULE> <DEFS> "sys: io1; fntdef") (<:MODULE> <MAIN> ("sys: io1; fntcnv" "sys: window; font-utilities")) (<:READFILE> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:READFILE> <DEFS>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FONT-UTILITIES>) (<GLOBAL:QUOTE> ((<:MODULE> <DEFS> "sys: io1; fntdef") (<:MODULE> <MAIN> ("sys: io1; fntcnv" "sys: window; font-utilities")) (<:READFILE> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:READFILE> <DEFS>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <SET-SYSTEM-SOURCE-FILE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "FONT-EDITOR")
      <:FONT-EDITOR>)
    (SYSTEM:FASL-OP-STRING "sys:window;font-editor;sysdef")
   => (<SET-SYSTEM-SOURCE-FILE> <:FONT-EDITOR> "sys:window;font-editor;sysdef"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:FONT-EDITOR> "sys:window;font-editor;sysdef")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "EH")
        <:EH>)
     => (<GLOBAL:QUOTE> <:EH>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [161] {<:NICKNAMES>})
          (SYSTEM:FASL-OP-STRING "Debugger")
          (SYSTEM:FASL-OP-STRING "DBG")
         => (<:NICKNAMES> "Debugger" "DBG"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER;")
         => (<:PATHNAME-DEFAULT> "SYS: DEBUGGER;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "EH")
            (SYSTEM:FASL-OP-STRING "EHF")
            (SYSTEM:FASL-OP-STRING "TRAP")
            (SYSTEM:FASL-OP-STRING "CONDITION-FLAVORS")
            (SYSTEM:FASL-OP-STRING "EHC")
            (SYSTEM:FASL-OP-STRING "EHBPT")
            (SYSTEM:FASL-OP-STRING "EHW")
           => ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW"))
         => (<:COMPILE-LOAD> ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW")))
       => ((<:NICKNAMES> "Debugger" "DBG") (<:PATHNAME-DEFAULT> "SYS: DEBUGGER;") (<:COMPILE-LOAD> ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW"))))
     => (<GLOBAL:QUOTE> ((<:NICKNAMES> "Debugger" "DBG") (<:PATHNAME-DEFAULT> "SYS: DEBUGGER;") (<:COMPILE-LOAD> ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:EH>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "Debugger" "DBG") (<:PATHNAME-DEFAULT> "SYS: DEBUGGER;") (<:COMPILE-LOAD> ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:EH>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "Debugger" "DBG") (<:PATHNAME-DEFAULT> "SYS: DEBUGGER;") (<:COMPILE-LOAD> ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "GARBAGE-COLLECTOR")
        <:GARBAGE-COLLECTOR>)
     => (<GLOBAL:QUOTE> <:GARBAGE-COLLECTOR>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "GC")
         => (<:SHORT-NAME> "GC"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE-DEFS")
           => ("SYS: SYS; STORAGE-DEFS"))
         => (<:MODULE> <DEFS> ("SYS: SYS; STORAGE-DEFS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; GC")
           => ("SYS: SYS2; GC"))
         => (<:MODULE> <MAIN> ("SYS: SYS2; GC")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))
       => ((<:SHORT-NAME> "GC") (<:MODULE> <DEFS> ("SYS: SYS; STORAGE-DEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; GC")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>))))
     => (<GLOBAL:QUOTE> ((<:SHORT-NAME> "GC") (<:MODULE> <DEFS> ("SYS: SYS; STORAGE-DEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; GC")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:GARBAGE-COLLECTOR>) (<GLOBAL:QUOTE> ((<:SHORT-NAME> "GC") (<:MODULE> <DEFS> ("SYS: SYS; STORAGE-DEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; GC")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:GARBAGE-COLLECTOR>) (<GLOBAL:QUOTE> ((<:SHORT-NAME> "GC") (<:MODULE> <DEFS> ("SYS: SYS; STORAGE-DEFS")) (<:MODULE> <MAIN> ("SYS: SYS2; GC")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "TV")
        <:TV>)
     => (<GLOBAL:QUOTE> <:TV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: WINDOW;")
         => (<:PATHNAME-DEFAULT> "SYS: WINDOW;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-STRING "TVDEFS")
         => (<:MODULE> <DEFS> "TVDEFS"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [21] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SCRMAN")
            (SYSTEM:FASL-OP-STRING "SHEET")
            (SYSTEM:FASL-OP-STRING "SHWARM")
            (SYSTEM:FASL-OP-STRING "BASWIN")
            (SYSTEM:FASL-OP-STRING "WHOLIN")
            (SYSTEM:FASL-OP-STRING "MOUSE")
            (SYSTEM:FASL-OP-STRING "BASSTR")
            (SYSTEM:FASL-OP-STRING "STREAM")
            (SYSTEM:FASL-OP-STRING "GRAPHICS")
            (SYSTEM:FASL-OP-STRING "MENU")
            (SYSTEM:FASL-OP-STRING "COMETH")
            (SYSTEM:FASL-OP-STRING "SYSMEN")
            (SYSTEM:FASL-OP-STRING "SCRED")
            (SYSTEM:FASL-OP-STRING "TYPWIN")
            (SYSTEM:FASL-OP-STRING "SCROLL")
            (SYSTEM:FASL-OP-STRING "TSCROL")
            (SYSTEM:FASL-OP-STRING "FRAME")
            (SYSTEM:FASL-OP-STRING "CHOICE")
            (SYSTEM:FASL-OP-STRING "CSRPOS")
            (SYSTEM:FASL-OP-STRING "INSPCT")
            (SYSTEM:FASL-OP-STRING "RH")
           => ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH"))
         => (<:MODULE> <MAIN> ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))
       => ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <DEFS> "TVDEFS") (<:MODULE> <MAIN> ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>))))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <DEFS> "TVDEFS") (<:MODULE> <MAIN> ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TV>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <DEFS> "TVDEFS") (<:MODULE> <MAIN> ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:TV>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <DEFS> "TVDEFS") (<:MODULE> <MAIN> ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>) (<:FASLOAD> <DEFS>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "PEEK")
        <:PEEK>)
     => (<GLOBAL:QUOTE> <:PEEK>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: WINDOW;")
         => (<:PATHNAME-DEFAULT> "SYS: WINDOW;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-STRING "PEEK")
         => (<:MODULE> <MAIN> "PEEK"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [332] {<CHAOS>})
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; PEEKCH")
         => (<:MODULE> <CHAOS> "SYS: NETWORK; CHAOS; PEEKCH"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <NETSTAT>)
          (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; NETSTAT")
         => (<:MODULE> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <FILE>)
          (SYSTEM:FASL-OP-STRING "PEEKFS")
         => (<:MODULE> <FILE> "PEEKFS"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
         => (<:COMPILE-LOAD> <MAIN>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [332] {<CHAOS>})
         => (<:COMPILE-LOAD> <CHAOS>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [924] {<NETSTAT>})
         => (<:COMPILE-LOAD> <NETSTAT>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [927] {<FILE>})
         => (<:COMPILE-LOAD> <FILE>))
       => ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <MAIN> "PEEK") (<:MODULE> <CHAOS> "SYS: NETWORK; CHAOS; PEEKCH") (<:MODULE> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<:MODULE> <FILE> "PEEKFS") (<:COMPILE-LOAD> <MAIN>) (<:COMPILE-LOAD> <CHAOS>) (<:COMPILE-LOAD> <NETSTAT>) (<:COMPILE-LOAD> <FILE>)))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <MAIN> "PEEK") (<:MODULE> <CHAOS> "SYS: NETWORK; CHAOS; PEEKCH") (<:MODULE> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<:MODULE> <FILE> "PEEKFS") (<:COMPILE-LOAD> <MAIN>) (<:COMPILE-LOAD> <CHAOS>) (<:COMPILE-LOAD> <NETSTAT>) (<:COMPILE-LOAD> <FILE>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:PEEK>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <MAIN> "PEEK") (<:MODULE> <CHAOS> "SYS: NETWORK; CHAOS; PEEKCH") (<:MODULE> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<:MODULE> <FILE> "PEEKFS") (<:COMPILE-LOAD> <MAIN>) (<:COMPILE-LOAD> <CHAOS>) (<:COMPILE-LOAD> <NETSTAT>) (<:COMPILE-LOAD> <FILE>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:PEEK>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS: WINDOW;") (<:MODULE> <MAIN> "PEEK") (<:MODULE> <CHAOS> "SYS: NETWORK; CHAOS; PEEKCH") (<:MODULE> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<:MODULE> <FILE> "PEEKFS") (<:COMPILE-LOAD> <MAIN>) (<:COMPILE-LOAD> <CHAOS>) (<:COMPILE-LOAD> <NETSTAT>) (<:COMPILE-LOAD> <FILE>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FILE-SYSTEM")
        <:FILE-SYSTEM>)
     => (<GLOBAL:QUOTE> <:FILE-SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [161] {<:NICKNAMES>})
          (SYSTEM:FASL-OP-STRING "FS")
         => (<:NICKNAMES> "FS"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: IO; FILE;")
         => (<:PATHNAME-DEFAULT> "SYS: IO; FILE;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <BASIC-PATHNAMES>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "ACCESS")
            (SYSTEM:FASL-OP-STRING "PATHNM")
           => ("ACCESS" "PATHNM"))
         => (<:MODULE> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <HOST-PATHNAMES>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "PATHST")
            (SYSTEM:FASL-OP-STRING "SYS: FILE; LMPARS")
           => ("PATHST" "SYS: FILE; LMPARS"))
         => (<:MODULE> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <FILE-IO>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "OPEN")
            (SYSTEM:FASL-OP-STRING "BALDIR")
           => ("OPEN" "BALDIR"))
         => (<:MODULE> <FILE-IO> ("OPEN" "BALDIR")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <CHAOS-FILE-IO>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; QFILE")
           => ("SYS: NETWORK; CHAOS; QFILE"))
         => (<:MODULE> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <TCP-FILE-IO>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")
           => ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS"))
         => (<:MODULE> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [945] {<BASIC-PATHNAMES>})
         => (<:COMPILE-LOAD> <BASIC-PATHNAMES>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [950] {<HOST-PATHNAMES>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [945] {<BASIC-PATHNAMES>})
           => (<:FASLOAD> <BASIC-PATHNAMES>))
         => (<:COMPILE-LOAD> <HOST-PATHNAMES> (<:FASLOAD> <BASIC-PATHNAMES>)))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [955] {<FILE-IO>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [945] {<BASIC-PATHNAMES>})
           => (<:FASLOAD> <BASIC-PATHNAMES>))
         => (<:COMPILE-LOAD> <FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES>)))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [960] {<CHAOS-FILE-IO>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [945] {<BASIC-PATHNAMES>})
            (SYSTEM:FASL-OP-INDEX [950] {<HOST-PATHNAMES>})
           => (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>))
         => (<:COMPILE-LOAD> <CHAOS-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [964] {<TCP-FILE-IO>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [945] {<BASIC-PATHNAMES>})
            (SYSTEM:FASL-OP-INDEX [950] {<HOST-PATHNAMES>})
           => (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>))
         => (<:COMPILE-LOAD> <TCP-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)))
       => ((<:NICKNAMES> "FS") (<:PATHNAME-DEFAULT> "SYS: IO; FILE;") (<:MODULE> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<:MODULE> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<:MODULE> <FILE-IO> ("OPEN" "BALDIR")) (<:MODULE> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<:MODULE> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) (<:COMPILE-LOAD> <BASIC-PATHNAMES>) (<:COMPILE-LOAD> <HOST-PATHNAMES> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <CHAOS-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)) (<:COMPILE-LOAD> <TCP-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>))))
     => (<GLOBAL:QUOTE> ((<:NICKNAMES> "FS") (<:PATHNAME-DEFAULT> "SYS: IO; FILE;") (<:MODULE> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<:MODULE> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<:MODULE> <FILE-IO> ("OPEN" "BALDIR")) (<:MODULE> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<:MODULE> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) (<:COMPILE-LOAD> <BASIC-PATHNAMES>) (<:COMPILE-LOAD> <HOST-PATHNAMES> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <CHAOS-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)) (<:COMPILE-LOAD> <TCP-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FILE-SYSTEM>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "FS") (<:PATHNAME-DEFAULT> "SYS: IO; FILE;") (<:MODULE> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<:MODULE> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<:MODULE> <FILE-IO> ("OPEN" "BALDIR")) (<:MODULE> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<:MODULE> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) (<:COMPILE-LOAD> <BASIC-PATHNAMES>) (<:COMPILE-LOAD> <HOST-PATHNAMES> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <CHAOS-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)) (<:COMPILE-LOAD> <TCP-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FILE-SYSTEM>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "FS") (<:PATHNAME-DEFAULT> "SYS: IO; FILE;") (<:MODULE> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<:MODULE> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<:MODULE> <FILE-IO> ("OPEN" "BALDIR")) (<:MODULE> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<:MODULE> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) (<:COMPILE-LOAD> <BASIC-PATHNAMES>) (<:COMPILE-LOAD> <HOST-PATHNAMES> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES>)) (<:COMPILE-LOAD> <CHAOS-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)) (<:COMPILE-LOAD> <TCP-FILE-IO> (<:FASLOAD> <BASIC-PATHNAMES> <HOST-PATHNAMES>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "MATH")
        <:MATH>)
     => (<GLOBAL:QUOTE> <:MATH>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; MATRIX")
           => ("SYS: SYS2; MATRIX"))
         => (<:COMPILE-LOAD> ("SYS: SYS2; MATRIX")))
       => ((<:COMPILE-LOAD> ("SYS: SYS2; MATRIX"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: SYS2; MATRIX")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:MATH>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: SYS2; MATRIX"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:MATH>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: SYS2; MATRIX")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "HACKS")
        <:HACKS>)
     => (<GLOBAL:QUOTE> <:HACKS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [76] {<:PACKAGE>})
          (SYSTEM:FASL-OP-SYMBOL <HACKS>)
         => (<:PACKAGE> <HACKS>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: DEMO;")
         => (<:PATHNAME-DEFAULT> "SYS: DEMO;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: DEMO; HACKS-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS: DEMO; HACKS-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-STRING "HAKDEF")
         => (<:MODULE> <DEFS> "HAKDEF"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [19] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "ABACUS")
            (SYSTEM:FASL-OP-STRING "ALARM")
            (SYSTEM:FASL-OP-STRING "BEEPS")
            (SYSTEM:FASL-OP-STRING "CROCK")
            (SYSTEM:FASL-OP-STRING "DC")
            (SYSTEM:FASL-OP-STRING "DEUTSC")
            (SYSTEM:FASL-OP-STRING "DLWHAK")
            (SYSTEM:FASL-OP-STRING "DOCTOR")
            (SYSTEM:FASL-OP-STRING "DOCSCR")
            (SYSTEM:FASL-OP-STRING "GEB")
            (SYSTEM:FASL-OP-STRING "HCEDIT")
            (SYSTEM:FASL-OP-STRING "MUNCH")
            (SYSTEM:FASL-OP-STRING "OHACKS")
            (SYSTEM:FASL-OP-STRING "ORGAN")
            (SYSTEM:FASL-OP-STRING "QIX")
            (SYSTEM:FASL-OP-STRING "ROTATE")
            (SYSTEM:FASL-OP-STRING "ROTCIR")
            (SYSTEM:FASL-OP-STRING "WORM")
            (SYSTEM:FASL-OP-STRING "WORM-TRAILS")
           => ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS"))
         => (<:MODULE> <MAIN> ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TVBGAR")
            (SYSTEM:FASL-OP-STRING "WORMCH")
           => ("TVBGAR" "WORMCH"))
         => (<:FASLOAD> ("TVBGAR" "WORMCH")))
       => ((<:PACKAGE> <HACKS>) (<:PATHNAME-DEFAULT> "SYS: DEMO;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: DEMO; HACKS-CWARNS.LISP") (<:MODULE> <DEFS> "HAKDEF") (<:MODULE> <MAIN> ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:FASLOAD> ("TVBGAR" "WORMCH"))))
     => (<GLOBAL:QUOTE> ((<:PACKAGE> <HACKS>) (<:PATHNAME-DEFAULT> "SYS: DEMO;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: DEMO; HACKS-CWARNS.LISP") (<:MODULE> <DEFS> "HAKDEF") (<:MODULE> <MAIN> ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:FASLOAD> ("TVBGAR" "WORMCH")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:HACKS>) (<GLOBAL:QUOTE> ((<:PACKAGE> <HACKS>) (<:PATHNAME-DEFAULT> "SYS: DEMO;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: DEMO; HACKS-CWARNS.LISP") (<:MODULE> <DEFS> "HAKDEF") (<:MODULE> <MAIN> ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:FASLOAD> ("TVBGAR" "WORMCH"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:HACKS>) (<GLOBAL:QUOTE> ((<:PACKAGE> <HACKS>) (<:PATHNAME-DEFAULT> "SYS: DEMO;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: DEMO; HACKS-CWARNS.LISP") (<:MODULE> <DEFS> "HAKDEF") (<:MODULE> <MAIN> ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:FASLOAD> ("TVBGAR" "WORMCH")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "SRCCOM")
        <:SRCCOM>)
     => (<GLOBAL:QUOTE> <:SRCCOM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: IO1; SRCCOM")
           => ("SYS: IO1; SRCCOM"))
         => (<:COMPILE-LOAD> ("SYS: IO1; SRCCOM")))
       => ((<:COMPILE-LOAD> ("SYS: IO1; SRCCOM"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; SRCCOM")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SRCCOM>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; SRCCOM"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SRCCOM>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; SRCCOM")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "METER")
        <:METER>)
     => (<GLOBAL:QUOTE> <:METER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: IO1; METER")
           => ("SYS: IO1; METER"))
         => (<:COMPILE-LOAD> ("SYS: IO1; METER")))
       => ((<:COMPILE-LOAD> ("SYS: IO1; METER"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; METER")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:METER>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; METER"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:METER>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; METER")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "CONVERSE")
        <:CONVERSE>)
     => (<GLOBAL:QUOTE> <:CONVERSE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: IO1; CONVER")
           => ("SYS: IO1; CONVER"))
         => (<:COMPILE-LOAD> ("SYS: IO1; CONVER")))
       => ((<:COMPILE-LOAD> ("SYS: IO1; CONVER"))))
     => (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; CONVER")))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:CONVERSE>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; CONVER"))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:CONVERSE>) (<GLOBAL:QUOTE> ((<:COMPILE-LOAD> ("SYS: IO1; CONVER")))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "ISPELL")
        <:ISPELL>)
     => (<GLOBAL:QUOTE> <:ISPELL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: ZWEI; ISPELL-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; ISPELL-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "sys:zwei;spell-check")
           => ("sys:zwei;spell-check"))
         => (<:MODULE> <MAIN> ("sys:zwei;spell-check")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
         => (<:COMPILE-LOAD> <MAIN>))
       => ((<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<:MODULE> <MAIN> ("sys:zwei;spell-check")) (<:COMPILE-LOAD> <MAIN>)))
     => (<GLOBAL:QUOTE> ((<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<:MODULE> <MAIN> ("sys:zwei;spell-check")) (<:COMPILE-LOAD> <MAIN>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:ISPELL>) (<GLOBAL:QUOTE> ((<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<:MODULE> <MAIN> ("sys:zwei;spell-check")) (<:COMPILE-LOAD> <MAIN>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:ISPELL>) (<GLOBAL:QUOTE> ((<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<:MODULE> <MAIN> ("sys:zwei;spell-check")) (<:COMPILE-LOAD> <MAIN>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "SERIAL")
        <:SERIAL>)
     => (<GLOBAL:QUOTE> <:SERIAL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS:IO1;")
         => (<:PATHNAME-DEFAULT> "SYS:IO1;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <DEVICES>)
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SDU-SERIAL")
           => ("SDU-SERIAL"))
         => (<:MODULE> <DEVICES> ("SDU-SERIAL")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [1082] {<DEVICES>})
         => (<:COMPILE-LOAD> <DEVICES>))
       => ((<:PATHNAME-DEFAULT> "SYS:IO1;") (<:MODULE> <DEVICES> ("SDU-SERIAL")) (<:COMPILE-LOAD> <DEVICES>)))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS:IO1;") (<:MODULE> <DEVICES> ("SDU-SERIAL")) (<:COMPILE-LOAD> <DEVICES>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SERIAL>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS:IO1;") (<:MODULE> <DEVICES> ("SDU-SERIAL")) (<:COMPILE-LOAD> <DEVICES>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SERIAL>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "SYS:IO1;") (<:MODULE> <DEVICES> ("SDU-SERIAL")) (<:COMPILE-LOAD> <DEVICES>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FANCY-LANDSCAPE")
        <:FANCY-LANDSCAPE>)
     => (<GLOBAL:QUOTE> <:FANCY-LANDSCAPE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys:window;")
         => (<:PATHNAME-DEFAULT> "sys:window;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <CONTROL-PANEL>)
          (SYSTEM:FASL-OP-STRING "control-panel")
         => (<:MODULE> <CONTROL-PANEL> "control-panel"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <GAUGE>)
          (SYSTEM:FASL-OP-STRING "gauge")
         => (<:MODULE> <GAUGE> "gauge"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [131] {<FANCY-LANDSCAPE>})
          (SYSTEM:FASL-OP-STRING "fancy-landscape")
         => (<:MODULE> <FANCY-LANDSCAPE> "fancy-landscape"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [1098] {<CONTROL-PANEL>})
         => (<:COMPILE-LOAD> <CONTROL-PANEL>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [1101] {<GAUGE>})
         => (<:COMPILE-LOAD> <GAUGE>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [131] {<FANCY-LANDSCAPE>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [1098] {<CONTROL-PANEL>})
            (SYSTEM:FASL-OP-INDEX [1101] {<GAUGE>})
           => (<:FASLOAD> <CONTROL-PANEL> <GAUGE>))
         => (<:COMPILE-LOAD> <FANCY-LANDSCAPE> (<:FASLOAD> <CONTROL-PANEL> <GAUGE>)))
       => ((<:PATHNAME-DEFAULT> "sys:window;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<:MODULE> <CONTROL-PANEL> "control-panel") (<:MODULE> <GAUGE> "gauge") (<:MODULE> <FANCY-LANDSCAPE> "fancy-landscape") (<:COMPILE-LOAD> <CONTROL-PANEL>) (<:COMPILE-LOAD> <GAUGE>) (<:COMPILE-LOAD> <FANCY-LANDSCAPE> (<:FASLOAD> <CONTROL-PANEL> <GAUGE>))))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "sys:window;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<:MODULE> <CONTROL-PANEL> "control-panel") (<:MODULE> <GAUGE> "gauge") (<:MODULE> <FANCY-LANDSCAPE> "fancy-landscape") (<:COMPILE-LOAD> <CONTROL-PANEL>) (<:COMPILE-LOAD> <GAUGE>) (<:COMPILE-LOAD> <FANCY-LANDSCAPE> (<:FASLOAD> <CONTROL-PANEL> <GAUGE>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FANCY-LANDSCAPE>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "sys:window;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<:MODULE> <CONTROL-PANEL> "control-panel") (<:MODULE> <GAUGE> "gauge") (<:MODULE> <FANCY-LANDSCAPE> "fancy-landscape") (<:COMPILE-LOAD> <CONTROL-PANEL>) (<:COMPILE-LOAD> <GAUGE>) (<:COMPILE-LOAD> <FANCY-LANDSCAPE> (<:FASLOAD> <CONTROL-PANEL> <GAUGE>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:FANCY-LANDSCAPE>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "sys:window;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<:MODULE> <CONTROL-PANEL> "control-panel") (<:MODULE> <GAUGE> "gauge") (<:MODULE> <FANCY-LANDSCAPE> "fancy-landscape") (<:COMPILE-LOAD> <CONTROL-PANEL>) (<:COMPILE-LOAD> <GAUGE>) (<:COMPILE-LOAD> <FANCY-LANDSCAPE> (<:FASLOAD> <CONTROL-PANEL> <GAUGE>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "ZMAIL")
        <:ZMAIL>)
     => (<GLOBAL:QUOTE> <:ZMAIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [18] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "ZMail")
         => (<:NAME> "ZMail"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: ZMAIL;")
         => (<:PATHNAME-DEFAULT> "SYS: ZMAIL;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "ZM")
         => (<:SHORT-NAME> "ZM"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [100] {<:PATCHABLE>})
          (SYSTEM:FASL-OP-STRING "SYS: ZMAIL; PATCH;")
         => (<:PATCHABLE> "SYS: ZMAIL; PATCH;"))
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [749] {<:NOT-IN-DISK-LABEL>})
         => (<:NOT-IN-DISK-LABEL>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
          (SYSTEM:FASL-OP-STRING "DEFS")
         => (<:MODULE> <DEFS> "DEFS"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [130] {<TV>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "MULT")
            (SYSTEM:FASL-OP-STRING "BUTTON")
           => ("MULT" "BUTTON"))
         => (<:MODULE> <TV> ("MULT" "BUTTON")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <MFHOST>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "MFHOST")
            (SYSTEM:FASL-OP-STRING "MFHOST2")
           => ("MFHOST" "MFHOST2"))
         => (<:MODULE> <MFHOST> ("MFHOST" "MFHOST2")))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "TOP")
            (SYSTEM:FASL-OP-STRING "MFILES")
            (SYSTEM:FASL-OP-INDEX [1134] {<MFHOST>})
            (SYSTEM:FASL-OP-STRING "REFER")
            (SYSTEM:FASL-OP-STRING "LMFILE")
            (SYSTEM:FASL-OP-STRING "COMNDS")
            (SYSTEM:FASL-OP-STRING "MAIL")
            (SYSTEM:FASL-OP-STRING "WINDOW")
            (SYSTEM:FASL-OP-STRING "FILTER")
            (SYSTEM:FASL-OP-STRING "PROFIL")
            (SYSTEM:FASL-OP-STRING "SYS:FILE;ZMAIL")
            (SYSTEM:FASL-OP-INDEX [130] {<TV>})
           => ("TOP" "MFILES" <MFHOST> "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" <TV>))
         => (<:MODULE> <MAIN> ("TOP" "MFILES" <MFHOST> "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" <TV>)))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <COMETH>)
          (SYSTEM:FASL-OP-STRING "COMETH")
         => (<:MODULE> <COMETH> "COMETH"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <RFC733>)
          (SYSTEM:FASL-OP-STRING "RFC733")
         => (<:MODULE> <RFC733> "RFC733"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-SYMBOL <LEX733>)
          (SYSTEM:FASL-OP-STRING "LEX733")
         => (<:MODULE> <LEX733> "LEX733"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
         => (<:COMPILE-LOAD> <DEFS>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
           => (<:FASLOAD> <DEFS>))
         => (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [1154] {<RFC733>})
         => (<:COMPILE-LOAD> <RFC733>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
          (SYSTEM:FASL-OP-INDEX [1157] {<LEX733>})
         => (<:FASLOAD> <LEX733>))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [1151] {<COMETH>})
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [151] {<:FASLOAD>})
            (SYSTEM:FASL-OP-INDEX [164] {<DEFS>})
            (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
           => (<:FASLOAD> <DEFS> <MAIN>))
         => (<:COMPILE-LOAD> <COMETH> (<:FASLOAD> <DEFS> <MAIN>)))
       => ((<:NAME> "ZMail") (<:PATHNAME-DEFAULT> "SYS: ZMAIL;") (<:SHORT-NAME> "ZM") (<:PATCHABLE> "SYS: ZMAIL; PATCH;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<:MODULE> <DEFS> "DEFS") (<:MODULE> <TV> ("MULT" "BUTTON")) (<:MODULE> <MFHOST> ("MFHOST" "MFHOST2")) (<:MODULE> <MAIN> ("TOP" "MFILES" <MFHOST> "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" <TV>)) (<:MODULE> <COMETH> "COMETH") (<:MODULE> <RFC733> "RFC733") (<:MODULE> <LEX733> "LEX733") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <RFC733>) (<:FASLOAD> <LEX733>) (<:COMPILE-LOAD> <COMETH> (<:FASLOAD> <DEFS> <MAIN>))))
     => (<GLOBAL:QUOTE> ((<:NAME> "ZMail") (<:PATHNAME-DEFAULT> "SYS: ZMAIL;") (<:SHORT-NAME> "ZM") (<:PATCHABLE> "SYS: ZMAIL; PATCH;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<:MODULE> <DEFS> "DEFS") (<:MODULE> <TV> ("MULT" "BUTTON")) (<:MODULE> <MFHOST> ("MFHOST" "MFHOST2")) (<:MODULE> <MAIN> ("TOP" "MFILES" <MFHOST> "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" <TV>)) (<:MODULE> <COMETH> "COMETH") (<:MODULE> <RFC733> "RFC733") (<:MODULE> <LEX733> "LEX733") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <RFC733>) (<:FASLOAD> <LEX733>) (<:COMPILE-LOAD> <COMETH> (<:FASLOAD> <DEFS> <MAIN>)))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:ZMAIL>) (<GLOBAL:QUOTE> ((<:NAME> "ZMail") (<:PATHNAME-DEFAULT> "SYS: ZMAIL;") (<:SHORT-NAME> "ZM") (<:PATCHABLE> "SYS: ZMAIL; PATCH;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<:MODULE> <DEFS> "DEFS") (<:MODULE> <TV> ("MULT" "BUTTON")) (<:MODULE> <MFHOST> ("MFHOST" "MFHOST2")) (<:MODULE> <MAIN> ("TOP" "MFILES" <MFHOST> "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" <TV>)) (<:MODULE> <COMETH> "COMETH") (<:MODULE> <RFC733> "RFC733") (<:MODULE> <LEX733> "LEX733") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <RFC733>) (<:FASLOAD> <LEX733>) (<:COMPILE-LOAD> <COMETH> (<:FASLOAD> <DEFS> <MAIN>))))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:ZMAIL>) (<GLOBAL:QUOTE> ((<:NAME> "ZMail") (<:PATHNAME-DEFAULT> "SYS: ZMAIL;") (<:SHORT-NAME> "ZM") (<:PATCHABLE> "SYS: ZMAIL; PATCH;") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<:MODULE> <DEFS> "DEFS") (<:MODULE> <TV> ("MULT" "BUTTON")) (<:MODULE> <MFHOST> ("MFHOST" "MFHOST2")) (<:MODULE> <MAIN> ("TOP" "MFILES" <MFHOST> "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" <TV>)) (<:MODULE> <COMETH> "COMETH") (<:MODULE> <RFC733> "RFC733") (<:MODULE> <LEX733> "LEX733") (<:COMPILE-LOAD> <DEFS>) (<:COMPILE-LOAD> <MAIN> (<:FASLOAD> <DEFS>)) (<:COMPILE-LOAD> <RFC733>) (<:FASLOAD> <LEX733>) (<:COMPILE-LOAD> <COMETH> (<:FASLOAD> <DEFS> <MAIN>)))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "UNIX")
        <:UNIX>)
     => (<GLOBAL:QUOTE> <:UNIX>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "Unix-Interface")
         => (<:NAME> "Unix-Interface"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "unix")
         => (<:SHORT-NAME> "unix"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys: unix;")
         => (<:PATHNAME-DEFAULT> "sys: unix;"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [100] {<:PATCHABLE>})
          (SYSTEM:FASL-OP-SYMBOL <NIL>)
          (SYSTEM:FASL-OP-STRING "unix-patch")
         => (<:PATCHABLE> <NIL> "unix-patch"))
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [749] {<:NOT-IN-DISK-LABEL>})
         => (<:NOT-IN-DISK-LABEL>))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "lamtty")
            (SYSTEM:FASL-OP-STRING "sdu-utils")
           => ("lamtty" "sdu-utils"))
         => (<:MODULE> <MAIN> ("lamtty" "sdu-utils")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
         => (<:COMPILE-LOAD> <MAIN>))
       => ((<:NAME> "Unix-Interface") (<:SHORT-NAME> "unix") (<:PATHNAME-DEFAULT> "sys: unix;") (<:PATCHABLE> <NIL> "unix-patch") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<:MODULE> <MAIN> ("lamtty" "sdu-utils")) (<:COMPILE-LOAD> <MAIN>)))
     => (<GLOBAL:QUOTE> ((<:NAME> "Unix-Interface") (<:SHORT-NAME> "unix") (<:PATHNAME-DEFAULT> "sys: unix;") (<:PATCHABLE> <NIL> "unix-patch") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<:MODULE> <MAIN> ("lamtty" "sdu-utils")) (<:COMPILE-LOAD> <MAIN>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:UNIX>) (<GLOBAL:QUOTE> ((<:NAME> "Unix-Interface") (<:SHORT-NAME> "unix") (<:PATHNAME-DEFAULT> "sys: unix;") (<:PATCHABLE> <NIL> "unix-patch") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<:MODULE> <MAIN> ("lamtty" "sdu-utils")) (<:COMPILE-LOAD> <MAIN>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:UNIX>) (<GLOBAL:QUOTE> ((<:NAME> "Unix-Interface") (<:SHORT-NAME> "unix") (<:PATHNAME-DEFAULT> "sys: unix;") (<:PATCHABLE> <NIL> "unix-patch") (<:NOT-IN-DISK-LABEL>) (<:WARNINGS-PATHNAME-DEFAULT> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<:MODULE> <MAIN> ("lamtty" "sdu-utils")) (<:COMPILE-LOAD> <MAIN>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [832] {<SET-SYSTEM-SOURCE-FILE>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "FILE-SYSTEM-UTILITIES")
      <:FILE-SYSTEM-UTILITIES>)
    (SYSTEM:FASL-OP-STRING "SYS: FILE; FS")
   => (<SET-SYSTEM-SOURCE-FILE> <:FILE-SYSTEM-UTILITIES> "SYS: FILE; FS"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:FILE-SYSTEM-UTILITIES> "SYS: FILE; FS")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [832] {<SET-SYSTEM-SOURCE-FILE>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "LOCAL-FILE")
      <:LOCAL-FILE>)
    (SYSTEM:FASL-OP-STRING "SYS: FILE; FS")
   => (<SET-SYSTEM-SOURCE-FILE> <:LOCAL-FILE> "SYS: FILE; FS"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:LOCAL-FILE> "SYS: FILE; FS")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [832] {<SET-SYSTEM-SOURCE-FILE>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "FILE-SERVER")
      <:FILE-SERVER>)
    (SYSTEM:FASL-OP-STRING "SYS: FILE; FS")
   => (<SET-SYSTEM-SOURCE-FILE> <:FILE-SERVER> "SYS: FILE; FS"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:FILE-SERVER> "SYS: FILE; FS")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [832] {<SET-SYSTEM-SOURCE-FILE>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "COLD")
      <:COLD>)
    (SYSTEM:FASL-OP-STRING "SYS: COLD; COLDPK")
   => (<SET-SYSTEM-SOURCE-FILE> <:COLD> "SYS: COLD; COLDPK"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:COLD> "SYS: COLD; COLDPK")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFCONST-1>)
    (SYSTEM:FASL-OP-SYMBOL <LAMBDA-COLD-LOAD-FILE-LIST>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [27] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "SYS: FONTS; CPTFON QFASL")
        (SYSTEM:FASL-OP-STRING "SYS:COLD;FIRST QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; QRAND QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; QIO QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; READ QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; INPUT-READERS QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; PRINT QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: WINDOW; COLD QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; SGFCTN QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; EVAL QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; SPECIAL-FORMS QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; TYPES QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; LTOP QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; REP QFASL >")
        (SYSTEM:FASL-OP-STRING "sys: sys; qccold qfasl >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; QFASL QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS:COLD;STREAM QFASL")
        (SYSTEM:FASL-OP-STRING "SYS:COLD;MINI QFASL")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; QFCTNS QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS2; STRING QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS2; CHARACTER QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; GENRIC QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; CLPACK QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: COLD; GLOBAL QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: COLD; SYSTEM QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: COLD; LISP QFASL >")
       => ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))
     => (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))
   => (<DEFCONST-1> <LAMBDA-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))))
  (EVAL '(<DEFCONST-1> <LAMBDA-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1215] {<DEFCONST-1>})
    (SYSTEM:FASL-OP-SYMBOL <FALCON-COLD-LOAD-FILE-LIST>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [27] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "SYS: FONTS; CPTFON QFASL")
        (SYSTEM:FASL-OP-STRING "SYS:COLD;FIRST QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; QRAND QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; QIO QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; READ QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; INPUT-READERS QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: IO; PRINT QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: WINDOW; COLD QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; SGFCTN QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; EVAL QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; SPECIAL-FORMS QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; TYPES QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; LTOP QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; REP QFASL >")
        (SYSTEM:FASL-OP-STRING "sys: sys; qccold qfasl >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; QFASL QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS:COLD;STREAM QFASL")
        (SYSTEM:FASL-OP-STRING "SYS:COLD;MINI QFASL")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; QFCTNS QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS2; STRING QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS2; CHARACTER QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; GENRIC QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: SYS; CLPACK QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: COLD; GLOBAL QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: COLD; SYSTEM QFASL >")
        (SYSTEM:FASL-OP-STRING "SYS: COLD; LISP QFASL >")
       => ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))
     => (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))
   => (<DEFCONST-1> <FALCON-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))))
  (EVAL '(<DEFCONST-1> <FALCON-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFVAR-1>)
    (SYSTEM:FASL-OP-SYMBOL <INNER-SYSTEM-FILE-ALIST>)
    (SYSTEM:FASL-OP-INDEX [1180] {<NIL>})
   => (<DEFVAR-1> <INNER-SYSTEM-FILE-ALIST> <NIL>))
  (EVAL '(<DEFVAR-1> <INNER-SYSTEM-FILE-ALIST> <NIL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1280] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <REST-OF-PATHNAMES-FILE-ALIST>)
    (SYSTEM:FASL-OP-INDEX [1180] {<NIL>})
   => (<DEFVAR-1> <REST-OF-PATHNAMES-FILE-ALIST> <NIL>))
  (EVAL '(<DEFVAR-1> <REST-OF-PATHNAMES-FILE-ALIST> <NIL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1280] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <SITE-FILE-ALIST>)
    (SYSTEM:FASL-OP-INDEX [1180] {<NIL>})
   => (<DEFVAR-1> <SITE-FILE-ALIST> <NIL>))
  (EVAL '(<DEFVAR-1> <SITE-FILE-ALIST> <NIL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1280] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <HOST-TABLE-FILE-ALIST>)
    (SYSTEM:FASL-OP-INDEX [1180] {<NIL>})
   => (<DEFVAR-1> <HOST-TABLE-FILE-ALIST> <NIL>))
  (EVAL '(<DEFVAR-1> <HOST-TABLE-FILE-ALIST> <NIL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "SYSTEM-MACROS")
        <:SYSTEM-MACROS>)
     => (<GLOBAL:QUOTE> <:SYSTEM-MACROS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; DEFMAC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; LMMAC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; STRUCT")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; SETF")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; TYPES")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE-DEFS")
            (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; ERRMAC")
           => ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC"))
         => (<:MODULE> <MAIN> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
         => (<:COMPILE-LOAD> <MAIN>))
       => ((<:MODULE> <MAIN> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) (<:COMPILE-LOAD> <MAIN>)))
     => (<GLOBAL:QUOTE> ((<:MODULE> <MAIN> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) (<:COMPILE-LOAD> <MAIN>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM-MACROS>) (<GLOBAL:QUOTE> ((<:MODULE> <MAIN> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) (<:COMPILE-LOAD> <MAIN>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM-MACROS>) (<GLOBAL:QUOTE> ((<:MODULE> <MAIN> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) (<:COMPILE-LOAD> <MAIN>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "COLD-LOAD")
        <:COLD-LOAD>)
     => (<GLOBAL:QUOTE> <:COLD-LOAD>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [277] {<:PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys:cold;")
         => (<:PATHNAME-DEFAULT> "sys:cold;"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys:cold;cold-load-cwarns.lisp")
         => (<:WARNINGS-PATHNAME-DEFAULT> "sys:cold;cold-load-cwarns.lisp"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [26] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "SYS:COLD;FIRST")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; STORAGE")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QRAND")
            (SYSTEM:FASL-OP-STRING "SYS: IO; QIO")
            (SYSTEM:FASL-OP-STRING "SYS: IO; READ")
            (SYSTEM:FASL-OP-STRING "SYS: IO; INPUT-READERS")
            (SYSTEM:FASL-OP-STRING "SYS: IO; PRINT")
            (SYSTEM:FASL-OP-STRING "SYS: WINDOW; COLD")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; SGFCTN")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; EVAL")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; SPECIAL-FORMS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; TYPES")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; LTOP")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; REP")
            (SYSTEM:FASL-OP-STRING "sys: sys; qccold")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QFASL")
            (SYSTEM:FASL-OP-STRING "SYS:COLD;STREAM")
            (SYSTEM:FASL-OP-STRING "SYS:COLD;MINI")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; QFCTNS")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; STRING")
            (SYSTEM:FASL-OP-STRING "SYS: SYS2; CHARACTER")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; GENRIC")
            (SYSTEM:FASL-OP-STRING "SYS: SYS; CLPACK")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; GLOBAL")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; SYSTEM")
            (SYSTEM:FASL-OP-STRING "SYS: COLD; LISP")
           => ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP"))
         => (<:MODULE> <MAIN> ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
         => (<:COMPILE-LOAD> <MAIN>))
       => ((<:PATHNAME-DEFAULT> "sys:cold;") (<:WARNINGS-PATHNAME-DEFAULT> "sys:cold;cold-load-cwarns.lisp") (<:MODULE> <MAIN> ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) (<:COMPILE-LOAD> <MAIN>)))
     => (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "sys:cold;") (<:WARNINGS-PATHNAME-DEFAULT> "sys:cold;cold-load-cwarns.lisp") (<:MODULE> <MAIN> ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) (<:COMPILE-LOAD> <MAIN>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:COLD-LOAD>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "sys:cold;") (<:WARNINGS-PATHNAME-DEFAULT> "sys:cold;cold-load-cwarns.lisp") (<:MODULE> <MAIN> ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) (<:COMPILE-LOAD> <MAIN>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:COLD-LOAD>) (<GLOBAL:QUOTE> ((<:PATHNAME-DEFAULT> "sys:cold;") (<:WARNINGS-PATHNAME-DEFAULT> "sys:cold;cold-load-cwarns.lisp") (<:MODULE> <MAIN> ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) (<:COMPILE-LOAD> <MAIN>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "INNER-SYSTEM")
        <:INNER-SYSTEM>)
     => (<GLOBAL:QUOTE> <:INNER-SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "sys:patch;inner-system-cwarns.lisp")
         => (<:WARNINGS-PATHNAME-DEFAULT> "sys:patch;inner-system-cwarns.lisp"))
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [108] {<:MODULE>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
          (SYSTEM:FASL-OP-LIST [59] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; INNER-SYSTEM-FILE-ALIST")
             => ("SYS: SYS; INNER-SYSTEM-FILE-ALIST"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; DEFSEL")
             => ("SYS: SYS2; DEFSEL"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; RESOUR")
             => ("SYS: SYS2; RESOUR"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; QMISC")
             => ("SYS: SYS; QMISC"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; DESCRIBE")
             => ("SYS: SYS; DESCRIBE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; SORT")
             => ("SYS: SYS; SORT"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; FORMAT")
             => ("SYS: IO; FORMAT"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO1; FQUERY")
             => ("SYS: IO1; FQUERY"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; HASH")
             => ("SYS: SYS2; HASH"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; FLAVOR")
             => ("SYS: SYS2; FLAVOR"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; HASHFL")
             => ("SYS: SYS2; HASHFL"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; PRODEF")
             => ("SYS: SYS2; PRODEF"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; PROCES")
             => ("SYS: SYS2; PROCES"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; NUMER")
             => ("SYS: SYS2; NUMER"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EH")
             => ("SYS: DEBUGGER; EH"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EHF")
             => ("SYS: DEBUGGER; EHF"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; TRAP")
             => ("SYS: DEBUGGER; TRAP"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; CONDITION-FLAVORS")
             => ("SYS: DEBUGGER; CONDITION-FLAVORS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EHC")
             => ("SYS: DEBUGGER; EHC"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EHBPT")
             => ("SYS: DEBUGGER; EHBPT"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; DISASS")
             => ("SYS: SYS2; DISASS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; NEW-DISK")
             => ("SYS: IO; NEW-DISK"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; DISK")
             => ("SYS: IO; DISK"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; UDISK")
             => ("SYS: IO; UDISK"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; DLEDIT")
             => ("SYS: IO; DLEDIT"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS2; LOGIN")
             => ("SYS: SYS2; LOGIN"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; RDDEFS")
             => ("SYS: IO; RDDEFS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; PACKAGES")
             => ("SYS: NETWORK; PACKAGES"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; HOST")
             => ("SYS: NETWORK; HOST"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; ACCESS")
             => ("SYS: IO; FILE; ACCESS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; STREAM")
             => ("SYS: IO; STREAM"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: LAMBDA-DIAG; LAM-PACKAGE")
             => ("SYS: LAMBDA-DIAG; LAM-PACKAGE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; PATHNM")
             => ("SYS: IO; FILE; PATHNM"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; PATHST")
             => ("SYS: IO; FILE; PATHST"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: FILE; LMPARS")
             => ("SYS: FILE; LMPARS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; OPEN")
             => ("SYS: IO; FILE; OPEN"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO1; TIME")
             => ("SYS: IO1; TIME"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: IO1; TIMPAR")
             => ("SYS: IO1; TIMPAR"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; TRANSPARENT")
             => ("SYS: NETWORK; TRANSPARENT"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; CONFIG-DEFS")
             => ("SYS: SYS; CONFIG-DEFS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; IOMSG")
             => ("SYS: SYS; IOMSG"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; SHARED-DEVICE")
             => ("SYS: SYS; SHARED-DEVICE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SYS; CONFIG")
             => ("SYS: SYS; CONFIG"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; DEFS")
             => ("SYS: NETWORK; KERNEL; DEFS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; LIBRARY")
             => ("SYS: NETWORK; KERNEL; LIBRARY"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; NETWORK-INTERFACE")
             => ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; PACKETS")
             => ("SYS: NETWORK; KERNEL; PACKETS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS; LOOPBACK")
             => ("SYS: NETWORK; DRIVERS; LOOPBACK"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS; SHARE")
             => ("SYS: NETWORK; DRIVERS; SHARE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS; DRIVER-PROCESS")
             => ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; NETWORK-PROTOCOL")
             => ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; ARP")
             => ("SYS: NETWORK; KERNEL; ARP"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; CHSNCP")
             => ("SYS: NETWORK; CHAOS; CHSNCP"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; CHUSE")
             => ("SYS: NETWORK; CHAOS; CHUSE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; QFILE")
             => ("SYS: NETWORK; CHAOS; QFILE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; CONFIGURE")
             => ("SYS: NETWORK; KERNEL; CONFIGURE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SITE; SITE")
             => ("SYS: SITE; SITE"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SITE; HSTTBL")
             => ("SYS: SITE; HSTTBL"))
            (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-STRING "SYS: SITE; LMLOCS")
             => ("SYS: SITE; LMLOCS"))
           => (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS")))
         => (<:MODULE> <MAIN> (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [146] {<:COMPILE-LOAD>})
          (SYSTEM:FASL-OP-INDEX [178] {<MAIN>})
         => (<:COMPILE-LOAD> <MAIN>))
       => ((<:WARNINGS-PATHNAME-DEFAULT> "sys:patch;inner-system-cwarns.lisp") (<:MODULE> <MAIN> (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) (<:COMPILE-LOAD> <MAIN>)))
     => (<GLOBAL:QUOTE> ((<:WARNINGS-PATHNAME-DEFAULT> "sys:patch;inner-system-cwarns.lisp") (<:MODULE> <MAIN> (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) (<:COMPILE-LOAD> <MAIN>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:INNER-SYSTEM>) (<GLOBAL:QUOTE> ((<:WARNINGS-PATHNAME-DEFAULT> "sys:patch;inner-system-cwarns.lisp") (<:MODULE> <MAIN> (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) (<:COMPILE-LOAD> <MAIN>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:INNER-SYSTEM>) (<GLOBAL:QUOTE> ((<:WARNINGS-PATHNAME-DEFAULT> "sys:patch;inner-system-cwarns.lisp") (<:MODULE> <MAIN> (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) (<:COMPILE-LOAD> <MAIN>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [832] {<SET-SYSTEM-SOURCE-FILE>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "TAPE")
      <:TAPE>)
    (SYSTEM:FASL-OP-STRING "SYS:TAPE;SYSDEF")
   => (<SET-SYSTEM-SOURCE-FILE> <:TAPE> "SYS:TAPE;SYSDEF"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:TAPE> "SYS:TAPE;SYSDEF")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [832] {<SET-SYSTEM-SOURCE-FILE>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "LAMBDA-DIAG")
      <:LAMBDA-DIAG>)
    (SYSTEM:FASL-OP-STRING "SYS:LAMBDA-DIAG;DIAG-SYSTEM")
   => (<SET-SYSTEM-SOURCE-FILE> <:LAMBDA-DIAG> "SYS:LAMBDA-DIAG;DIAG-SYSTEM"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:LAMBDA-DIAG> "SYS:LAMBDA-DIAG;DIAG-SYSTEM")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "OUTER-SYSTEM")
        <:OUTER-SYSTEM>)
     => (<GLOBAL:QUOTE> <:OUTER-SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "Outer System")
         => (<:NAME> "Outer System"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "Outer")
         => (<:SHORT-NAME> "Outer"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [119] {<:COMPONENT-SYSTEMS>})
          (SYSTEM:FASL-OP-SYMBOL <ZWEI>)
          (SYSTEM:FASL-OP-SYMBOL <ZMAIL>)
          (SYSTEM:FASL-OP-SYMBOL <CONVERSE>)
          (SYSTEM:FASL-OP-SYMBOL <LOCAL-FILE>)
          (SYSTEM:FASL-OP-SYMBOL <FILE-SERVER>)
          (SYSTEM:FASL-OP-SYMBOL <UNIX-INTERFACE>)
          (SYSTEM:FASL-OP-SYMBOL <TAPE>)
          (SYSTEM:FASL-OP-SYMBOL <LAMBDA-DIAG>)
         => (<:COMPONENT-SYSTEMS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>))
       => ((<:NAME> "Outer System") (<:SHORT-NAME> "Outer") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>)))
     => (<GLOBAL:QUOTE> ((<:NAME> "Outer System") (<:SHORT-NAME> "Outer") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:OUTER-SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "Outer System") (<:SHORT-NAME> "Outer") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:OUTER-SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "Outer System") (<:SHORT-NAME> "Outer") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>))))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [87] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "OPTIONAL-SYSTEM")
        <:OPTIONAL-SYSTEM>)
     => (<GLOBAL:QUOTE> <:OPTIONAL-SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<:NAME>})
          (SYSTEM:FASL-OP-STRING "Optional Software")
         => (<:NAME> "Optional Software"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<:SHORT-NAME>})
          (SYSTEM:FASL-OP-STRING "SW Options")
         => (<:SHORT-NAME> "SW Options"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [104] {<:WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-STRING "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP"))
        (SYSTEM:FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [119] {<:COMPONENT-SYSTEMS>})
          (SYSTEM:FASL-OP-SYMBOL <TIGER>)
          (SYSTEM:FASL-OP-SYMBOL <SITE-EDITOR>)
          (SYSTEM:FASL-OP-SYMBOL <KERMIT>)
          (SYSTEM:FASL-OP-SYMBOL <WINDOW-MAKER>)
          (SYSTEM:FASL-OP-SYMBOL <FED>)
          (SYSTEM:FASL-OP-SYMBOL <OBJECTLISP>)
          (SYSTEM:FASL-OP-SYMBOL <MEDIUM-RESOLUTION-COLOR>)
          (SYSTEM:FASL-OP-SYMBOL <GATEWAY>)
         => (<:COMPONENT-SYSTEMS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>))
       => ((<:NAME> "Optional Software") (<:SHORT-NAME> "SW Options") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>)))
     => (<GLOBAL:QUOTE> ((<:NAME> "Optional Software") (<:SHORT-NAME> "SW Options") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:OPTIONAL-SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "Optional Software") (<:SHORT-NAME> "SW Options") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:OPTIONAL-SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "Optional Software") (<:SHORT-NAME> "SW Options") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:COMPONENT-SYSTEMS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>))))))

(SYSTEM:FASL-OP-END-OF-WHACK)

(SYSTEM:FASL-OP-END-OF-FILE)